X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_game.pas;h=13020b7ad4195df873ad1d419dbfdeeadf76553d;hb=ff0d6ee82618de8dcfda806a334defa2227fad44;hp=69c12409394213a367cff2e2da5ad6d95ce50769;hpb=bb931202515154fd56edaa5657d0f69f1cce0e75;p=d2df-sdl.git diff --git a/src/game/g_game.pas b/src/game/g_game.pas index 69c1240..13020b7 100644 --- a/src/game/g_game.pas +++ b/src/game/g_game.pas @@ -154,9 +154,10 @@ procedure SortGameStat(var stat: TPlayerStatArray); {$IFDEF ENABLE_MENU} procedure g_Game_InGameMenu(Show: Boolean); {$ENDIF} -{$IFNDEF HEADLESS} +{$IFDEF ENABLE_SYSTEM} procedure CharPress (C: AnsiChar); {$ENDIF} + procedure KeyPress (K: Word); { procedure SetWinPause(Enable: Boolean); } @@ -463,7 +464,7 @@ uses {$IFDEF ENABLE_RENDER} r_render, {$ENDIF} - {$IFNDEF HEADLESS} + {$IFDEF ENABLE_SYSTEM} g_system, {$ENDIF} e_res, g_window, @@ -802,7 +803,7 @@ end; end; {$ENDIF} -{$IFNDEF HEADLESS} +{$IFDEF ENABLE_SYSTEM} procedure CharPress (C: AnsiChar); {$IFDEF ENABLE_MENU} var Msg: g_gui.TMessage; @@ -2305,7 +2306,7 @@ begin // Нужно сменить разрешение: if gResolutionChange then begin - {$IFNDEF HEADLESS} + {$IFDEF ENABLE_RENDER} e_WriteLog('Changing resolution', TMsgType.Notify); r_Render_Apply; {$ENDIF} @@ -2542,9 +2543,9 @@ begin gMusic.Free(); g_Game_FreeData(); g_PlayerModel_FreeData(); -{$IFNDEF HEADLESS} - //g_Menu_Free(); //k8: this segfaults after resolution change; who cares? -{$ENDIF} + {$IFDEF ENABLE_MENU} + // g_Menu_Free(); //k8: this segfaults after resolution change; who cares? + {$ENDIF} if NetInitDone then g_Net_Free; @@ -2554,7 +2555,7 @@ begin gExit := EXIT_QUIT; - {$IFNDEF HEADLESS} + {$IFDEF ENABLE_SYSTEM} sys_RequestQuit; {$ENDIF} end;