From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Wed, 4 Oct 2017 00:18:30 +0000 (+0300)
Subject: fixed unneded pause on some Fn
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=4d5a94c228a43cdd0333979f3aa218c56c248188;p=d2df-sdl.git

fixed unneded pause on some Fn

http://doom2d.org/forum/viewtopic.php?f=36&t=2469
---

diff --git a/src/game/g_main.pas b/src/game/g_main.pas
index 2a444ea..7de7825 100644
--- a/src/game/g_main.pas
+++ b/src/game/g_main.pas
@@ -485,6 +485,7 @@ begin
           Msg.Msg := WM_KEYDOWN;
           Msg.WParam := IK_ESCAPE;
           g_ActiveWindow.OnMessage(Msg);
+          if (not g_Game_IsNet) and (g_ActiveWindow = nil) then g_Game_Pause(false); //Fn loves to do this
         end
         else if (gState <> STATE_FOLD) then
         begin
@@ -514,7 +515,7 @@ begin
       begin // <F2> .. <F6> � <F12>
         if gGameOn and (not gConsoleShow) and (not gChatShow) then
         begin
-          while g_ActiveWindow <> nil do g_GUI_HideWindow(False);
+          while (g_ActiveWindow <> nil) do g_GUI_HideWindow(False);
           if (not g_Game_IsNet) then g_Game_Pause(True);
           case K of
             IK_F2: g_Menu_Show_SaveMenu();