index b49c5a96b868f4c5b077a03017eda3dc7b577eab..2a4c3e7247226170373c12d4ce38ea07ca61444e 100644 (file)
function r_Render_WriteScreenShot (filename: String): Boolean;
- function r_Render_GetGibRect (m, id: Integer): TRectWH;
+ {$IFDEF ENABLE_GIBS}
+ function r_Render_GetGibRect (m, id: Integer): TRectWH;
+ {$ENDIF}
{$IFDEF ENABLE_GFX}
procedure r_Render_QueueEffect (AnimType, X, Y: Integer);
{$IFDEF ENABLE_GFX}
r_gfx,
{$ENDIF}
+ {$IFDEF ENABLE_SYSTEM}
+ g_system,
+ {$ENDIF}
SysUtils, Classes, Math,
- e_log, g_system, utils,
+ e_log, utils,
g_game, g_options, g_console,
r_window, r_graphics, r_console, r_playermodel, r_textures, r_animations,
r_weapons, r_items, r_monsters, r_map, r_player, r_game
procedure r_Render_Initialize;
begin
- if sys_SetDisplayMode(gRC_Width, gRC_Height, gBPP, gRC_FullScreen, gRC_Maximized) = False then
- raise Exception.Create('Failed to set videomode on startup.');
+ {$IFDEF ENABLE_SYSTEM}
+ if sys_SetDisplayMode(gRC_Width, gRC_Height, gBPP, gRC_FullScreen, gRC_Maximized) = False then
+ raise Exception.Create('Failed to set videomode on startup.');
+ {$ENDIF}
LoadGL;
r_Window_Initialize;
r_Console_Init;
procedure r_Render_Apply;
begin
- if sys_SetDisplayMode(Max(1, gRC_Width), Max(1, gRC_Height), Max(1, gBPP), gRC_FullScreen, gRC_Maximized) then
- e_LogWriteln('resolution changed')
- else
- e_LogWriteln('resolution not changed');
- sys_EnableVSync(gVSync)
+ {$IFDEF ENABLE_SYSTEM}
+ if sys_SetDisplayMode(Max(1, gRC_Width), Max(1, gRC_Height), Max(1, gBPP), gRC_FullScreen, gRC_Maximized) then
+ e_LogWriteln('resolution changed')
+ else
+ e_LogWriteln('resolution not changed');
+ sys_EnableVSync(gVSync)
+ {$ENDIF}
end;
function r_Render_WriteScreenShot (filename: String): Boolean;
end
end;
+{$IFDEF ENABLE_GIBS}
function r_Render_GetGibRect (m, id: Integer): TRectWH;
begin
Result := r_PlayerModel_GetGibRect(m, id)
end;
+{$ENDIF}
{$IFDEF ENABLE_GFX}
procedure r_Render_QueueEffect (AnimType, X, Y: Integer);