index 9f8af0bc4210d2fb906894bbb375af157e6d63aa..e92b08728be8ff3a9b6f120148cc97e2ff93519d 100644 (file)
--- a/src/game/g_netmaster.pas
+++ b/src/game/g_netmaster.pas
implementation
uses
+ {$IFDEF ENABLE_MENU}
+ g_gui, g_menu,
+ {$ENDIF}
+ {$IFDEF ENABLE_RENDER}
+ r_render,
+ {$ENDIF}
+ {$IFDEF ENABLE_SYSTEM}
+ g_system,
+ {$ENDIF}
e_input, e_log, g_net, g_console,
- g_map, g_game, g_sound, g_gui, g_menu, g_options, g_language, g_basic, r_game,
- wadreader, g_system, utils, hashtable;
+ g_map, g_game, g_sound, g_options, g_language, g_basic,
+ wadreader, utils, hashtable;
// ////////////////////////////////////////////////////////////////////////// //
//==========================================================================
function GetTimerMS (): Int64;
begin
- Result := sys_GetTicks() {div 1000};
+ Result := GetTickCount64() {div 1000};
end;
if gConsoleShow or gChatShow then
Exit;
- qm := sys_HandleInput(); // this updates kbd
+ {$IFDEF ENABLE_SYSTEM}
+ qm := sys_HandleInput(); // this updates kbd
+ {$ELSE}
+ qm := True;
+ {$ENDIF}
if qm or e_KeyPressed(IK_ESCAPE) or e_KeyPressed(VK_ESCAPE) or
e_KeyPressed(JOY0_JUMP) or e_KeyPressed(JOY1_JUMP) or
SL := nil;
ST := nil;
gState := STATE_MENU;
+{$IFDEF ENABLE_MENU}
g_GUI_ShowWindow('MainMenu');
g_GUI_ShowWindow('NetGameMenu');
g_GUI_ShowWindow('NetClientMenu');
g_Sound_PlayEx(WINDOW_CLOSESOUND);
+{$ENDIF}
Exit;
end;
begin
slWaitStr := _lc[I_NET_SLIST_WAIT];
- r_Game_Draw;
- sys_Repaint;
+ {$IFDEF ENABLE_RENDER}
+ r_Render_Draw;
+ {$ENDIF}
if g_Net_Slist_Fetch(SL) then
begin
Srv := GetServerFromTable(slSelection, SL, ST);
if Srv.Password then
begin
+{$IFDEF ENABLE_MENU}
PromptIP := Srv.IP;
PromptPort := Srv.Port;
+{$ENDIF}
gState := STATE_MENU;
+{$IFDEF ENABLE_MENU}
g_GUI_ShowWindow('ClientPasswordMenu');
+{$ENDIF}
SL := nil;
ST := nil;
slReturnPressed := True;