-/*
-Copyright (C) 2003, 2010 - Wolfire Games
-Copyright (C) 2010-2016 - Lugaru contributors (see AUTHORS file)
-
-This file is part of Lugaru.
-
-Lugaru is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or
-(at your option) any later version.
-
-Lugaru is distributed in the hope that it will be useful,
-but WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-GNU General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with Lugaru. If not, see <http://www.gnu.org/licenses/>.
-*/
-
-#include <math.h>
-#include <stdio.h>
-#include <string.h>
-#include <fstream>
-#include <iostream>
-#include <zlib.h>
-#include <set>
-#include "gamegl.h"
-#include "MacCompatibility.h"
-#include "Settings.h"
-
-#include "Game.h"
-
-using namespace Game;
-
-#include "openal_wrapper.h"
-
-#ifdef WIN32
-#include <windows.h>
-#include <shellapi.h>
-#include "win-res/resource.h"
-#endif
-
-extern float multiplier;
-extern float sps;
-extern float realmultiplier;
-extern int slomo;
-extern bool cellophane;
-extern float texdetail;
-
-extern bool freeze;
-extern bool stillloading;
-extern int mainmenu;
-
-extern float slomospeed;
-extern float slomofreq;
-extern bool visibleloading;
-
-extern SDL_Window *sdlwindow;
-
-using namespace std;
-
-set<pair<int,int>> resolutions;
-
-// statics/globals (internal only) ------------------------------------------
-
-#ifdef _MSC_VER
-#pragma warning(push)
-#pragma warning(disable: 4273)
-#endif
-
-#ifndef __MINGW32__ // FIXME: Temporary workaround for GL-8
-#define GL_FUNC(ret,fn,params,call,rt) \
- extern "C" { \
- static ret (GLAPIENTRY *p##fn) params = NULL; \
- ret GLAPIENTRY fn params { rt p##fn call; } \
- }
-#include "glstubs.h"
-#undef GL_FUNC
-#endif // __MINGW32__
-
-#ifdef _MSC_VER
-#pragma warning(pop)
-#endif
-
-static bool lookup_glsym(const char *funcname, void **func)
-{
- *func = SDL_GL_GetProcAddress(funcname);
- if (*func == NULL) {
- fprintf(stderr, "Failed to find OpenGL symbol \"%s\"\n", funcname);
- return false;
- }
- return true;
-}
-
-static bool lookup_all_glsyms(void)
-{
- bool retval = true;
-#ifndef __MINGW32__ // FIXME: Temporary workaround for GL-8
-#define GL_FUNC(ret,fn,params,call,rt) \
- if (!lookup_glsym(#fn, (void **) &p##fn)) retval = false;
-#include "glstubs.h"
-#undef GL_FUNC
-#endif // __MINGW32__
- return retval;
-}
-
-#ifndef __MINGW32__ // FIXME: Temporary workaround for GL-8
-static void GLAPIENTRY glDeleteTextures_doNothing(GLsizei n, const GLuint *textures)
-{
- // no-op.
-}
-#endif // __MINGW32__
-
-#ifdef MessageBox
-#undef MessageBox
-#endif
-#define MessageBox(hwnd,text,title,flags) STUBBED("msgbox")
-
-// Menu defs
-
-int kContextWidth;
-int kContextHeight;
-
-static int _argc = 0;
-static char **_argv = NULL;
-
-bool cmdline(const char *cmd)
-{
- for (int i = 1; i < _argc; i++) {
- char *arg = _argv[i];
- while (*arg == '-')
- arg++;
- if (strcasecmp(arg, cmd) == 0)
- return true;
- }
-
- return false;
-}
-
-//-----------------------------------------------------------------------------------------------------------------------
-
-// OpenGL Drawing
-
-void initGL()
-{
- glClear( GL_COLOR_BUFFER_BIT );
- swap_gl_buffers();
-
- // clear all states
- glDisable( GL_ALPHA_TEST);
- glDisable( GL_BLEND);
- glDisable( GL_DEPTH_TEST);
- glDisable( GL_FOG);
- glDisable( GL_LIGHTING);
- glDisable( GL_LOGIC_OP);
- glDisable( GL_TEXTURE_1D);
- glDisable( GL_TEXTURE_2D);
- glPixelTransferi( GL_MAP_COLOR, GL_FALSE);
- glPixelTransferi( GL_RED_SCALE, 1);
- glPixelTransferi( GL_RED_BIAS, 0);
- glPixelTransferi( GL_GREEN_SCALE, 1);
- glPixelTransferi( GL_GREEN_BIAS, 0);
- glPixelTransferi( GL_BLUE_SCALE, 1);
- glPixelTransferi( GL_BLUE_BIAS, 0);
- glPixelTransferi( GL_ALPHA_SCALE, 1);
- glPixelTransferi( GL_ALPHA_BIAS, 0);
-
- // set initial rendering states
- glShadeModel( GL_SMOOTH);
- glClearDepth( 1.0f);
- glDepthFunc( GL_LEQUAL);
- glDepthMask( GL_TRUE);
- glEnable( GL_DEPTH_TEST);
- glHint( GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
- glCullFace( GL_FRONT);
- glEnable( GL_CULL_FACE);
- glEnable( GL_LIGHTING);
- glEnable( GL_DITHER);
- glEnable( GL_COLOR_MATERIAL);
- glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
- glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);
- glAlphaFunc( GL_GREATER, 0.5f);
-
- if ( CanInitStereo(stereomode) ) {
- InitStereo(stereomode);
- } else {
- fprintf(stderr, "Failed to initialize stereo, disabling.\n");
- stereomode = stereoNone;
- }
-}
-
-void toggleFullscreen()
-{
- fullscreen = !fullscreen;
- Uint32 flags = SDL_GetWindowFlags(sdlwindow);
- if (flags & SDL_WINDOW_FULLSCREEN) {
- flags &= ~SDL_WINDOW_FULLSCREEN;
- } else {
- flags |= SDL_WINDOW_FULLSCREEN;
- }
- SDL_SetWindowFullscreen(sdlwindow, flags);
-}
-
-SDL_bool sdlEventProc(const SDL_Event &e)
-{
- switch (e.type) {
- case SDL_QUIT:
- return SDL_FALSE;
-
- case SDL_WINDOWEVENT:
- if (e.window.event == SDL_WINDOWEVENT_CLOSE) {
- return SDL_FALSE;
- }
- break;
-
- case SDL_MOUSEMOTION:
- deltah += e.motion.xrel;
- deltav += e.motion.yrel;
- break;
-
- case SDL_KEYDOWN:
- if ((e.key.keysym.scancode == SDL_SCANCODE_G) &&
- (e.key.keysym.mod & KMOD_CTRL)) {
- SDL_bool mode = SDL_TRUE;
- if ((SDL_GetWindowFlags(sdlwindow) & SDL_WINDOW_FULLSCREEN) == 0)
- mode = (SDL_GetWindowGrab(sdlwindow) ? SDL_FALSE : SDL_TRUE);
- SDL_SetWindowGrab(sdlwindow, mode);
- SDL_SetRelativeMouseMode(mode);
- } else if ( (e.key.keysym.scancode == SDL_SCANCODE_RETURN) && (e.key.keysym.mod & KMOD_ALT) ) {
- toggleFullscreen();
- }
- break;
- }
- return SDL_TRUE;
-}
-
-
-
-// --------------------------------------------------------------------------
-
-static Point gMidPoint;
-
-bool SetUp ()
-{
- LOGFUNC;
-
- cellophane = 0;
- texdetail = 4;
- slomospeed = 0.25;
- slomofreq = 8012;
-
- DefaultSettings();
-
- if (!SDL_WasInit(SDL_INIT_VIDEO))
- if (SDL_Init(SDL_INIT_VIDEO) == -1) {
- fprintf(stderr, "SDL_Init() failed: %s\n", SDL_GetError());
- return false;
- }
- if (!LoadSettings()) {
- fprintf(stderr, "Failed to load config, creating default\n");
- SaveSettings();
- }
- if (kBitsPerPixel != 32 && kBitsPerPixel != 16) {
- kBitsPerPixel = 16;
- }
-
- if (SDL_GL_LoadLibrary(NULL) == -1) {
- fprintf(stderr, "SDL_GL_LoadLibrary() failed: %s\n", SDL_GetError());
- SDL_Quit();
- return false;
- }
-
- for (int displayIdx = 0; displayIdx < SDL_GetNumVideoDisplays(); ++displayIdx) {
- for (int i = 0; i < SDL_GetNumDisplayModes(displayIdx); ++i) {
- SDL_DisplayMode mode;
- if (SDL_GetDisplayMode(displayIdx, i, &mode) == -1)
- continue;
- if ((mode.w < 640) || (mode.h < 480))
- continue; // sane lower limit.
- pair<int,int> resolution(mode.w, mode.h);
- resolutions.insert(resolution);
- }
- }
-
- if (resolutions.empty()) {
- const std::string error = "No suitable video resolutions found.";
- cerr << error << endl;
- SDL_ShowSimpleMessageBox(SDL_MESSAGEBOX_ERROR, "Lugaru init failed!", error.c_str(), NULL);
- SDL_Quit();
- return false;
- }
-
- if (cmdline("showresolutions")) {
- printf("Available resolutions:\n");
- for (auto resolution = resolutions.begin(); resolution != resolutions.end(); resolution++) {
- printf(" %d x %d\n", (int) resolution->first, (int) resolution->second);
- }
- }
-
- SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
- SDL_GL_SetAttribute(SDL_GL_STENCIL_SIZE, 1);
-
- Uint32 sdlflags = SDL_WINDOW_OPENGL | SDL_WINDOW_SHOWN;
- if ((fullscreen || cmdline("fullscreen")) && !cmdline("windowed")) {
- fullscreen = 1;
- sdlflags |= SDL_WINDOW_FULLSCREEN;
- }
- if (!cmdline("nomousegrab"))
- sdlflags |= SDL_WINDOW_INPUT_GRABBED;
-
- sdlwindow = SDL_CreateWindow("Lugaru", SDL_WINDOWPOS_CENTERED_DISPLAY(0), SDL_WINDOWPOS_CENTERED_DISPLAY(0),
- kContextWidth, kContextHeight, sdlflags);
-
- if (!sdlwindow) {
- fprintf(stderr, "SDL_CreateWindow() failed: %s\n", SDL_GetError());
- fprintf(stderr, "forcing 640x480...\n");
- kContextWidth = 640;
- kContextHeight = 480;
- sdlwindow = SDL_CreateWindow("Lugaru", SDL_WINDOWPOS_CENTERED_DISPLAY(0), SDL_WINDOWPOS_CENTERED_DISPLAY(0),
- kContextWidth, kContextHeight, sdlflags);
- if (!sdlwindow) {
- fprintf(stderr, "SDL_CreateWindow() failed: %s\n", SDL_GetError());
- fprintf(stderr, "forcing 640x480 windowed mode...\n");
- sdlflags &= ~SDL_WINDOW_FULLSCREEN;
- sdlwindow = SDL_CreateWindow("Lugaru", SDL_WINDOWPOS_CENTERED_DISPLAY(0), SDL_WINDOWPOS_CENTERED_DISPLAY(0),
- kContextWidth, kContextHeight, sdlflags);
-
- if (!sdlwindow) {
- fprintf(stderr, "SDL_CreateWindow() failed: %s\n", SDL_GetError());
- return false;
- }
- }
- }
-
- SDL_GLContext glctx = SDL_GL_CreateContext(sdlwindow);
- if (!glctx) {
- fprintf(stderr, "SDL_GL_CreateContext() failed: %s\n", SDL_GetError());
- SDL_Quit();
- return false;
- }
-
- SDL_GL_MakeCurrent(sdlwindow, glctx);
-
- if (!lookup_all_glsyms()) {
- fprintf(stderr, "Missing required OpenGL functions.\n");
- SDL_Quit();
- return false;
- }
-
- int dblbuf = 0;
- if ((SDL_GL_GetAttribute(SDL_GL_DOUBLEBUFFER, &dblbuf) == -1) || (!dblbuf))
- {
- fprintf(stderr, "Failed to get a double-buffered context.\n");
- SDL_Quit();
- return false;
- }
-
- if (SDL_GL_SetSwapInterval(-1) == -1) // try swap_tear first.
- SDL_GL_SetSwapInterval(1);
-
- SDL_ShowCursor(0);
- if (!cmdline("nomousegrab"))
- SDL_SetRelativeMouseMode(SDL_TRUE);
-
- initGL();
-
- GLint width = kContextWidth;
- GLint height = kContextHeight;
- gMidPoint.h = width / 2;
- gMidPoint.v = height / 2;
- screenwidth = width;
- screenheight = height;
-
- newdetail = detail;
- newscreenwidth = screenwidth;
- newscreenheight = screenheight;
-
- /* If saved resolution is not in the list, add it to the list (so that it’s selectable in the options) */
- pair<int,int> startresolution(width,height);
- if (resolutions.find(startresolution) == resolutions.end()) {
- resolutions.insert(startresolution);
- }
-
- InitGame();
-
- return true;
-}
-
-
-static void DoMouse()
-{
-
- if (mainmenu || ( (abs(deltah) < 10 * realmultiplier * 1000) && (abs(deltav) < 10 * realmultiplier * 1000) )) {
- deltah *= usermousesensitivity;
- deltav *= usermousesensitivity;
- mousecoordh += deltah;
- mousecoordv += deltav;
- if (mousecoordh < 0)
- mousecoordh = 0;
- else if (mousecoordh >= kContextWidth)
- mousecoordh = kContextWidth - 1;
- if (mousecoordv < 0)
- mousecoordv = 0;
- else if (mousecoordv >= kContextHeight)
- mousecoordv = kContextHeight - 1;
- }
-
-}
-
-void DoFrameRate (int update)
-{
- static long frames = 0;
-
- static AbsoluteTime time = {0, 0};
- static AbsoluteTime frametime = {0, 0};
- AbsoluteTime currTime = UpTime ();
- double deltaTime = (float) AbsoluteDeltaToDuration (currTime, frametime);
-
- if (0 > deltaTime) // if negative microseconds
- deltaTime /= -1000000.0;
- else // else milliseconds
- deltaTime /= 1000.0;
-
- multiplier = deltaTime;
- if (multiplier < .001)
- multiplier = .001;
- if (multiplier > 10)
- multiplier = 10;
- if (update)
- frametime = currTime; // reset for next time interval
-
- deltaTime = (float) AbsoluteDeltaToDuration (currTime, time);
-
- if (0 > deltaTime) // if negative microseconds
- deltaTime /= -1000000.0;
- else // else milliseconds
- deltaTime /= 1000.0;
- frames++;
- if (0.001 <= deltaTime) { // has update interval passed
- if (update) {
- time = currTime; // reset for next time interval
- frames = 0;
- }
- }
-}
-
-
-void DoUpdate ()
-{
- static float sps = 200;
- static int count;
- static float oldmult;
-
- DoFrameRate(1);
- if (multiplier > .6)
- multiplier = .6;
-
- fps = 1 / multiplier;
-
- count = multiplier * sps;
- if (count < 2)
- count = 2;
-
- realmultiplier = multiplier;
- multiplier *= gamespeed;
- if (difficulty == 1)
- multiplier *= .9;
- if (difficulty == 0)
- multiplier *= .8;
-
- if (loading == 4)
- multiplier *= .00001;
- if (slomo && !mainmenu)
- multiplier *= slomospeed;
- oldmult = multiplier;
- multiplier /= (float)count;
-
- DoMouse();
-
- TickOnce();
-
- for (int i = 0; i < count; i++) {
- Tick();
- }
- multiplier = oldmult;
-
- TickOnceAfter();
- /* - Debug code to test how many channels were active on average per frame
- static long frames = 0;
-
- static AbsoluteTime start = {0,0};
- AbsoluteTime currTime = UpTime ();
- static int num_channels = 0;
-
- num_channels += OPENAL_GetChannelsPlaying();
- double deltaTime = (float) AbsoluteDeltaToDuration (currTime, start);
-
- if (0 > deltaTime) // if negative microseconds
- deltaTime /= -1000000.0;
- else // else milliseconds
- deltaTime /= 1000.0;
-
- ++frames;
-
- if (deltaTime >= 1)
- {
- start = currTime;
- float avg_channels = (float)num_channels / (float)frames;
-
- ofstream opstream("log.txt",ios::app);
- opstream << "Average frame count: ";
- opstream << frames;
- opstream << " frames - ";
- opstream << avg_channels;
- opstream << " per frame.\n";
- opstream.close();
-
- frames = 0;
- num_channels = 0;
- }
- */
- if ( stereomode == stereoNone ) {
- DrawGLScene(stereoCenter);
- } else {
- DrawGLScene(stereoLeft);
- DrawGLScene(stereoRight);
- }
-}
-
-// --------------------------------------------------------------------------
-
-
-void CleanUp (void)
-{
- LOGFUNC;
-
- SDL_Quit();
-#ifndef __MINGW32__ // FIXME: Temporary workaround for GL-8
-#define GL_FUNC(ret,fn,params,call,rt) p##fn = NULL;
-#include "glstubs.h"
-#undef GL_FUNC
- // cheat here...static destructors are calling glDeleteTexture() after
- // the context is destroyed and libGL unloaded by SDL_Quit().
- pglDeleteTextures = glDeleteTextures_doNothing;
-#endif // __MINGW32__
-
-}
-
-// --------------------------------------------------------------------------
-
-static bool IsFocused()
-{
- return ((SDL_GetWindowFlags(sdlwindow) & SDL_WINDOW_INPUT_FOCUS) != 0);
-}
-
-
-
-#ifndef WIN32
-// (code lifted from physfs: http://icculus.org/physfs/ ... zlib license.)
-static char *findBinaryInPath(const char *bin, char *envr)
-{
- size_t alloc_size = 0;
- char *exe = NULL;
- char *start = envr;
- char *ptr;
-
- do {
- size_t size;
- ptr = strchr(start, ':'); /* find next $PATH separator. */
- if (ptr)
- *ptr = '\0';
-
- size = strlen(start) + strlen(bin) + 2;
- if (size > alloc_size) {
- char *x = (char *) realloc(exe, size);
- if (x == NULL) {
- if (exe != NULL)
- free(exe);
- return(NULL);
- } /* if */
-
- alloc_size = size;
- exe = x;
- } /* if */
-
- /* build full binary path... */
- strcpy(exe, start);
- if ((exe[0] == '\0') || (exe[strlen(exe) - 1] != '/'))
- strcat(exe, "/");
- strcat(exe, bin);
-
- if (access(exe, X_OK) == 0) { /* Exists as executable? We're done. */
- strcpy(exe, start); /* i'm lazy. piss off. */
- return(exe);
- } /* if */
-
- start = ptr + 1; /* start points to beginning of next element. */
- } while (ptr != NULL);
-
- if (exe != NULL)
- free(exe);
-
- return(NULL); /* doesn't exist in path. */
-} /* findBinaryInPath */
-
-
-char *calcBaseDir(const char *argv0)
-{
- /* If there isn't a path on argv0, then look through the $PATH for it. */
- char *retval;
- char *envr;
-
- if (strchr(argv0, '/')) {
- retval = strdup(argv0);
- if (retval)
- *((char *) strrchr(retval, '/')) = '\0';
- return(retval);
- }
-
- envr = getenv("PATH");
- if (!envr)
- return NULL;
- envr = strdup(envr);
- if (!envr)
- return NULL;
- retval = findBinaryInPath(argv0, envr);
- free(envr);
- return(retval);
-}
-
-static inline void chdirToAppPath(const char *argv0)
-{
- char *dir = calcBaseDir(argv0);
- if (dir) {
-#if (defined(__APPLE__) && defined(__MACH__))
- // Chop off /Contents/MacOS if it's at the end of the string, so we
- // land in the base of the app bundle.
- const size_t len = strlen(dir);
- const char *bundledirs = "/Contents/MacOS";
- const size_t bundledirslen = strlen(bundledirs);
- if (len > bundledirslen) {
- char *ptr = (dir + len) - bundledirslen;
- if (strcasecmp(ptr, bundledirs) == 0)
- *ptr = '\0';
- }
-#endif
- chdir(dir);
- free(dir);
- }
-}
-#endif
-
-
-int main(int argc, char **argv)
-{
- _argc = argc;
- _argv = argv;
-
- // !!! FIXME: we could use a Win32 API for this. --ryan.
-#ifndef WIN32
- chdirToAppPath(argv[0]);
-#endif
-
- LOGFUNC;
-
- try {
- {
- newGame();
-
- if (!SetUp ())
- return 42;
-
- bool gameDone = false;
- bool gameFocused = true;
-
- while (!gameDone && !tryquit) {
- if (IsFocused()) {
- gameFocused = true;
-
- // check windows messages
-
- deltah = 0;
- deltav = 0;
- SDL_Event e;
- if (!waiting) {
- // message pump
- while ( SDL_PollEvent( &e ) ) {
- if (!sdlEventProc(e)) {
- gameDone = true;
- break;
- }
- }
- }
-
- // game
- DoUpdate();
- } else {
- if (gameFocused) {
- // allow game chance to pause
- gameFocused = false;
- DoUpdate();
- }
-
- // game is not in focus, give CPU time to other apps by waiting for messages instead of 'peeking'
- SDL_WaitEvent(0);
- }
- }
-
- deleteGame();
- }
-
- CleanUp ();
-
- return 0;
- } catch (const std::exception& error) {
- CleanUp();
-
- std::string e = "Caught exception: ";
- e += error.what();
-
- LOG(e);
-
- MessageBox(g_windowHandle, error.what(), "ERROR", MB_OK | MB_ICONEXCLAMATION);
-
- return -1;
- }
-}