X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_main.pas;h=86c5f843a0cdc5c7db7aeb8e79573d6e3a48496d;hb=d92a9e2807dda8a533def35afa801ed975920885;hp=c789caf7785c74a09a79e9e691f62b6277898551;hpb=505bae2ecaaedd023c6f4970928a14cbae1313fa;p=d2df-sdl.git diff --git a/src/game/g_main.pas b/src/game/g_main.pas index c789caf..86c5f84 100644 --- a/src/game/g_main.pas +++ b/src/game/g_main.pas @@ -33,7 +33,6 @@ var ModelsDir: string; GameWAD: string; - implementation uses @@ -202,10 +201,12 @@ begin e_InitInput(); g_Touch_Init; +(* if (e_JoysticksAvailable > 0) then e_WriteLog('Input: Joysticks available.', TMsgType.Notify) else e_WriteLog('Input: No Joysticks.', TMsgType.Notify); +*) if (not gNoSound) then begin @@ -489,32 +490,12 @@ var Msg: g_gui.TMessage; begin case K of - IK_PAUSE: // : - begin - if (g_ActiveWindow = nil) then g_Game_Pause(not gPause); - end; - - IK_BACKQUOTE, VK_CONSOLE: // <`/~/¨/¸>: - begin - g_Console_Switch(); - end; - - IK_ESCAPE, VK_ESCAPE: // : + VK_ESCAPE: // : begin - if gChatShow then - begin - g_Console_Chat_Switch(); - Exit; - end; - - if gConsoleShow then - begin - g_Console_Switch(); - end - else if (g_ActiveWindow <> nil) then + if (g_ActiveWindow <> nil) then begin Msg.Msg := WM_KEYDOWN; - Msg.WParam := IK_ESCAPE; + Msg.WParam := VK_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 @@ -588,11 +569,9 @@ var Msg: g_gui.TMessage; a: Integer; begin - if (not gChatShow) and ((C = '`') or (C = '~') or (C = '¸') or (C = '¨')) then Exit; - if gConsoleShow or gChatShow then begin - g_Console_Char(C); + g_Console_Char(C) end else if (g_ActiveWindow <> nil) then begin