diff --git a/src/game/g_main.pas b/src/game/g_main.pas
index 48f0bb5648c73f18825364e46b4e8b93c99bf4bf..969167f098e6fc1461a67fccc32fcb5547e0aad9 100644 (file)
--- a/src/game/g_main.pas
+++ b/src/game/g_main.pas
+{$MODE DELPHI}
unit g_main;
interface
unit g_main;
interface
e_WriteLog('Read config file', MSG_NOTIFY);
g_Options_Read(GameDir + '/' + CONFIG_FILENAME);
e_WriteLog('Read config file', MSG_NOTIFY);
g_Options_Read(GameDir + '/' + CONFIG_FILENAME);
-
+
e_WriteToStdOut := {$IFDEF HEADLESS}True;{$ELSE}False;{$ENDIF}
//GetSystemDefaultLCID()
e_WriteToStdOut := {$IFDEF HEADLESS}True;{$ELSE}False;{$ENDIF}
//GetSystemDefaultLCID()
//g_Language_Load(DataDir + gLanguage + '.txt');
e_WriteLog(gLanguage, MSG_NOTIFY);
g_Language_Set(gLanguage);
//g_Language_Load(DataDir + gLanguage + '.txt');
e_WriteLog(gLanguage, MSG_NOTIFY);
g_Language_Set(gLanguage);
-
+
{$IFDEF HEADLESS}
sdlflags := SDL_INIT_TIMER or $00004000;
{$ELSE}
{$IFDEF HEADLESS}
sdlflags := SDL_INIT_TIMER or $00004000;
{$ELSE}
{$ENDIF}
if SDL_Init(sdlflags) < 0 then
raise Exception.Create('SDL: Init failed: ' + SDL_GetError());
{$ENDIF}
if SDL_Init(sdlflags) < 0 then
raise Exception.Create('SDL: Init failed: ' + SDL_GetError());
-
+
{$IFDEF HEADLESS}
SDL_StartTextInput();
{$ENDIF}
{$IFDEF HEADLESS}
SDL_StartTextInput();
{$ENDIF}