X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_window.pas;h=2b20517baa9466c43bc29df4d79a2d95326665d8;hb=ce03f86070c096a59f6774317655485f98f5da70;hp=6d08b18e0f771445863b5b397424334385bc8447;hpb=d197a2da28970b16c06f8fbbbca3a9c7080b7988;p=d2df-sdl.git diff --git a/src/game/g_window.pas b/src/game/g_window.pas index 6d08b18..2b20517 100644 --- a/src/game/g_window.pas +++ b/src/game/g_window.pas @@ -22,8 +22,11 @@ interface implementation uses - {$IFNDEF HEADLESS} - r_render, g_system, + {$IFDEF ENABLE_RENDER} + r_render, + {$ENDIF} + {$IFDEF ENABLE_SYSTEM} + g_system, {$ENDIF} e_sound, g_net ; @@ -31,14 +34,14 @@ implementation procedure ProcessLoading (forceUpdate: Boolean = False); var update: Boolean; begin - {$IFDEF HEADLESS} - update := True; - {$ELSE} + {$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();