diff --git a/src/game/Doom2DF.lpr b/src/game/Doom2DF.lpr
index 47ffeb22c64427a0808af286a7c9e6e4b3767e1c..84b47a70f9d66bf71c9dea21a2fc00a7ec3585fd 100644 (file)
--- a/src/game/Doom2DF.lpr
+++ b/src/game/Doom2DF.lpr
g_triggers in 'g_triggers.pas',
g_weapons in 'g_weapons.pas',
g_window in 'g_window.pas',
-{$IFNDEF HEADLESS}
- {$IFDEF USE_SYSSTUB}
- g_system in 'stub/g_system.pas',
- {$ENDIF}
- {$IFDEF USE_SDL}
- g_system in 'sdl/g_system.pas',
- {$ENDIF}
- {$IFDEF USE_SDL2}
- g_system in 'sdl2/g_system.pas',
+
+ {$IFDEF ENABLE_SYSTEM}
+ {$IFDEF USE_SYSSTUB}
+ g_system in 'stub/g_system.pas',
+ {$ENDIF}
+ {$IFDEF USE_SDL}
+ g_system in 'sdl/g_system.pas',
+ {$ENDIF}
+ {$IFDEF USE_SDL2}
+ g_system in 'sdl2/g_system.pas',
+ {$ENDIF}
{$ENDIF}
-{$ENDIF}
-{$IFNDEF HEADLESS}
+{$IFDEF ENABLE_RENDER}
{$I ../shared/vampimg.inc}
r_animations in 'opengl/r_animations.pas',
r_console in 'opengl/r_console.pas',
{$IFDEF ENABLE_MENU}
g_gui in 'g_gui.pas',
g_menu in 'g_menu.pas',
+ r_gui in 'opengl/r_gui.pas',
{$ENDIF}
{$ENDIF}
if (NetMode = NET_SERVER) then g_Net_Host_Update()
else if (NetMode = NET_CLIENT) then g_Net_Client_Update();
// think
-{$IFNDEF HEADLESS}
+{$IFDEF ENABLE_RENDER}
r_Render_Update;
{$ENDIF}
g_Game_Update();
Time, Time_Delta: Int64;
Frame: Int64;
begin
- {$IFDEF HEADLESS}
- Result := False;
- {$ELSE}
+ {$IFDEF ENABLE_SYSTEM}
Result := sys_HandleInput();
+ {$ELSE}
+ Result := False;
{$ENDIF}
Time := GetTickCount64();
gLerpFactor := 1.0
else
gLerpFactor := nmin(1.0, (Time - Time_Old) / 28.0);
-{$IFNDEF HEADLESS}
- r_Render_Draw;
- sys_Repaint;
-{$ENDIF}
+ {$IFDEF ENABLE_RENDER}
+ r_Render_Draw;
+ {$ENDIF}
+ {$IFDEF ENABLE_SYSTEM}
+ sys_Repaint;
+ {$ENDIF}
Frame := Time
end
else
begin
itmp := 0;
val(ParamStr(idx), itmp, valres);
- {$IFNDEF HEADLESS}
if (valres = 0) and (not g_holmes_imfunctional) then
begin
case itmp of
16: uiContext.font := 'win16';
end;
end;
- {$ELSE}
- // fuck off, fpc!
- itmp := itmp;
- valres := valres;
- {$ENDIF}
Inc(idx);
end;
end;
procedure ScreenResize (w, h: Integer);
begin
- {$IFNDEF HEADLESS}
+ {$IFDEF ENABLE_RENDER}
r_Render_Resize(w, h);
{$IFDEF ENABLE_HOLMES}
fuiScrWdt := w;
InitPrep;
e_Input_Initialize;
InitSound;
- {$IFNDEF HEADLESS}
+ {$IFDEF ENABLE_SYSTEM}
sys_Init;
sys_CharPress := @CharPress; (* install hook *)
sys_ScreenResize := @ScreenResize; (* install hook *)
g_Console_Initialize;
// TODO move load configs here
g_Language_Set(gLanguage);
- {$IFNDEF HEADLESS}
+ {$IFDEF ENABLE_RENDER}
r_Render_Initialize;
{$ENDIF}
DebugOptions;
{$IFDEF ENABLE_HOLMES}
InitHolmes;
{$ENDIF}
- {$IFDEF HEADLESS}
- g_PlayerModel_LoadFake('doomer', 'doomer.wad');
- {$ELSE}
+ {$IFDEF ENABLE_RENDER}
g_PlayerModel_LoadAll;
r_Render_Load;
+ {$ELSE}
+ g_PlayerModel_LoadFake('doomer', 'doomer.wad');
{$ENDIF}
g_Game_Init;
{$IFDEF ENABLE_MENU}
g_Menu_Init;
- g_GUI_Init;
{$ENDIF}
g_Game_Process_Params;
// TODO reload GAME textures
g_GUI_Destroy;
g_Menu_Free;
{$ENDIF}
- {$IFNDEF HEADLESS}
+ {$IFDEF ENABLE_RENDER}
r_Render_Free;
{$ENDIF}
{$IFDEF ENABLE_HOLMES}
g_Net_Slist_ShutdownAll;
g_Net_DeinitLowLevel;
(* g_Touch_Finalize; *)
- {$IFNDEF HEADLESS}
+ {$IFDEF ENABLE_RENDER}
r_Render_Finalize;
+ {$ENDIF}
+ {$IFDEF ENABLE_SYSTEM}
sys_Final;
{$ENDIF}
g_Console_Finalize;