Net: Buffer outgoing messages

[d2df-sdl.git] / src / game / g_window.pas

diff --git a/src/game/g_window.pas b/src/game/g_window.pas
index fb3c24075839614e3f77a1099744b0e74639dea1..d703ea2fc2088a829bfa3af1bf07b83d31b44f16 100644 (file)
--- a/src/game/g_window.pas
+++ b/src/game/g_window.pas
@@ -789,7 +789,6 @@ var
 procedure ProcessLoading (forceUpdate: Boolean=false);
 var
   ev: TSDL_Event;
-  ID: LongWord;
   stt: UInt64;
 begin
   FillChar(ev, sizeof(ev), 0);
@@ -826,10 +825,11 @@ begin
 
     if forceUpdate then
     begin
-      DrawMenuBackground('INTER', ID);
+      DrawMenuBackground('INTER');
       e_DarkenQuadWH(0, 0, gScreenWidth, gScreenHeight, 150);
 
       DrawLoadingStat();
+      g_Console_Draw(True);
       SwapBuffers();
     end;
   end;
@@ -901,6 +901,8 @@ begin
     else if (NetMode = NET_CLIENT) then g_Net_Client_Update();
   end;
 
+  if NetMode = NET_SERVER then g_Net_Flush();
+
   g_Map_ProfilersEnd();
   g_Mons_ProfilersEnd();
 
@@ -916,7 +918,7 @@ begin
     exit;
   end;
 
-  // ����� ����������� ����������
+  // Âðåìÿ ïðåäûäóùåãî îáíîâëåíèÿ
   if flag then
   begin
     Time_Old := Time-(Time_Delta mod 28);
@@ -1172,10 +1174,10 @@ begin
   Init();
   Time_Old := GetTimer();
 
-  // ��������� ������
+  // Êîìàíäíàÿ ñòðîêà
   if (ParamCount > 0) then g_Game_Process_Params();
 
-  // ������ �����
+  // Çàïðîñ ÿçûêà
   if (not gGameOn) and gAskLanguage then g_Menu_AskLanguage();
 
   e_WriteLog('Entering the main loop', TMsgType.Notify);