X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_main.pas;h=e0ecce92ad9c27c43c73748c797b6036cb461017;hb=83dba8e8957923e6a8f6541d7935345a59cf5bde;hp=48f0bb5648c73f18825364e46b4e8b93c99bf4bf;hpb=844441154d1220d6c83f75043300c2851ec87109;p=d2df-sdl.git diff --git a/src/game/g_main.pas b/src/game/g_main.pas index 48f0bb5..e0ecce9 100644 --- a/src/game/g_main.pas +++ b/src/game/g_main.pas @@ -1,3 +1,4 @@ +{$MODE DELPHI} unit g_main; interface @@ -33,6 +34,8 @@ procedure Main(); var sdlflags: LongWord; begin + e_InitWritelnDriver(); + GetDir(0, GameDir); MapsDir := GameDir + '/maps/'; DataDir := GameDir + '/data/'; @@ -43,7 +46,7 @@ begin e_WriteLog('Read config file', MSG_NOTIFY); g_Options_Read(GameDir + '/' + CONFIG_FILENAME); - + e_WriteToStdOut := {$IFDEF HEADLESS}True;{$ELSE}False;{$ENDIF} //GetSystemDefaultLCID() @@ -52,7 +55,7 @@ begin //g_Language_Load(DataDir + gLanguage + '.txt'); e_WriteLog(gLanguage, MSG_NOTIFY); g_Language_Set(gLanguage); - + {$IFDEF HEADLESS} sdlflags := SDL_INIT_TIMER or $00004000; {$ELSE} @@ -64,7 +67,7 @@ begin {$ENDIF} if SDL_Init(sdlflags) < 0 then raise Exception.Create('SDL: Init failed: ' + SDL_GetError()); - + {$IFDEF HEADLESS} SDL_StartTextInput(); {$ENDIF}