implementation
uses
- {$IFNDEF HEADLESS}
+ {$IFDEF ENABLE_RENDER}
r_render,
{$ENDIF}
- e_sound, g_system, g_net
+ {$IFDEF ENABLE_SYSTEM}
+ g_system,
+ {$ENDIF}
+ e_sound, g_net
;
procedure ProcessLoading (forceUpdate: Boolean = False);
+ var update: Boolean;
begin
- if sys_HandleInput() = False then
+ {$IFDEF ENABLE_SYSTEM}
+ update := sys_HandleInput() = False;
+ {$ELSE}
+ update := True;
+ {$ENDIF}
+ if update then
begin
- {$IFNDEF HEADLESS}
+ {$IFDEF ENABLE_RENDER}
r_Render_DrawLoading(forceUpdate);
{$ENDIF}
e_SoundUpdate();