X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_window.pas;h=2b20517baa9466c43bc29df4d79a2d95326665d8;hb=ce03f86070c096a59f6774317655485f98f5da70;hp=2cbc4a75bfc3414fea1b6e83e8ce634a9e8e25d9;hpb=965a25fec3fb93ced92ca5e4060dfa29141fa32b;p=d2df-sdl.git

diff --git a/src/game/g_window.pas b/src/game/g_window.pas
index 2cbc4a7..2b20517 100644
--- a/src/game/g_window.pas
+++ b/src/game/g_window.pas
@@ -22,17 +22,26 @@ interface
 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();