index 9387ca4323de812b76de4d07976ed79d95e22a0e..81ed2d311ec6d4babc0aa024f256bab4535d08a7 100644 (file)
g_holmes,
{$ENDIF}
{$IFDEF ENABLE_MENU}
g_holmes,
{$ENDIF}
{$IFDEF ENABLE_MENU}
- g_gui, g_menu,
+ g_gui, g_menu, r_gui,
{$ENDIF}
{$IFDEF ENABLE_GFX}
g_gfx, r_gfx,
{$ENDIF}
{$IFDEF ENABLE_GFX}
g_gfx, r_gfx,
{$IFDEF ENABLE_CORPSES}
g_corpses,
{$ENDIF}
{$IFDEF ENABLE_CORPSES}
g_corpses,
{$ENDIF}
+ {$IFDEF ENABLE_SYSTEM}
+ g_system,
+ {$ENDIF}
SysUtils, Classes, Math,
g_base, g_basic, r_graphics,
SysUtils, Classes, Math,
g_base, g_basic, r_graphics,
- g_system,
MAPDEF, xprofiler, utils, wadreader, CONFIG,
e_input, e_sound,
g_language, g_console, g_triggers, g_player, g_options, g_monsters, g_map, g_panel,
MAPDEF, xprofiler, utils, wadreader, CONFIG,
e_input, e_sound,
g_language, g_console, g_triggers, g_player, g_options, g_monsters, g_map, g_panel,
procedure r_Game_Free;
begin
procedure r_Game_Free;
begin
+ e_CharFont_Remove(gMenuFont);
+ e_CharFont_Remove(gMenuSmallFont);
g_Texture_Delete('NOTEXTURE');
g_Texture_Delete('TEXTURE_PLAYER_HUD');
g_Texture_Delete('TEXTURE_PLAYER_HUDBG');
g_Texture_Delete('NOTEXTURE');
g_Texture_Delete('TEXTURE_PLAYER_HUD');
g_Texture_Delete('TEXTURE_PLAYER_HUDBG');
begin
e_TextureFontGetSize(gStdFont, ww2, hh2);
begin
e_TextureFontGetSize(gStdFont, ww2, hh2);
- sys_HandleInput;
+ {$IFDEF ENABLE_SYSTEM}
+ sys_HandleInput;
+ {$ENDIF}
if g_Console_Action(ACTION_SCORES) then
begin
if g_Console_Action(ACTION_SCORES) then
begin
// HACK: take stats screenshot immediately after the first frame of the stats showing
if gScreenshotStats and (not StatShotDone) and (Length(CustomStat.PlayerStat) > 1) then
begin
// HACK: take stats screenshot immediately after the first frame of the stats showing
if gScreenshotStats and (not StatShotDone) and (Length(CustomStat.PlayerStat) > 1) then
begin
-{$IFNDEF HEADLESS}
g_TakeScreenShot('stats/' + StatFilename);
g_TakeScreenShot('stats/' + StatFilename);
-{$ENDIF}
StatShotDone := True;
end;
end;
StatShotDone := True;
end;
end;
//e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
e_DarkenQuadWH(0, 0, gScreenWidth, gScreenHeight, 150);
end;
//e_DrawFillQuad(0, 0, gScreenWidth-1, gScreenHeight-1, 48, 48, 48, 180);
e_DarkenQuadWH(0, 0, gScreenWidth, gScreenHeight, 150);
end;
- g_ActiveWindow.Draw();
+ r_GUI_Draw_Window(g_ActiveWindow);
end;
{$ENDIF}
end;
{$ENDIF}
-{$IFNDEF HEADLESS}
r_Console_Draw();
r_Console_Draw();
-{$ENDIF}
if g_debug_Sounds and gGameOn then
begin
if g_debug_Sounds and gGameOn then
begin