X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_window.pas;h=a6edeae8069d4c26e73b7784db2c47d5d73dbae5;hb=1e43b976bfe67d3e27398889d7fb7685bdc52bc5;hp=5b62d6310563997644e74682509c81e3497edcc5;hpb=9a066f2c58ac3b0c590f269787de0f6204dcf353;p=d2df-sdl.git

diff --git a/src/game/g_window.pas b/src/game/g_window.pas
index 5b62d63..a6edeae 100644
--- a/src/game/g_window.pas
+++ b/src/game/g_window.pas
@@ -21,14 +21,28 @@ interface
 
 implementation
 
-  uses e_sound, g_system, g_net, r_window;
+  uses
+    {$IFDEF ENABLE_RENDER}
+      r_render,
+    {$ENDIF}
+    {$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}
-        r_Window_DrawLoading(forceUpdate);
+      {$IFDEF ENABLE_RENDER}
+        r_Render_DrawLoading(forceUpdate);
       {$ENDIF}
       e_SoundUpdate();
       if NetMode = NET_SERVER then