diff --git a/src/game/g_main.pas b/src/game/g_main.pas
index df6bba16a9b77160b30f6af2a3be2c61e0f8eae7..86c5f843a0cdc5c7db7aeb8e79573d6e3a48496d 100644 (file)
--- a/src/game/g_main.pas
+++ b/src/game/g_main.pas
MapsDir: string;
ModelsDir: string;
GameWAD: string;
- gSkipFirstChar: Boolean; (* hack for console/chat input *)
implementation
Msg: g_gui.TMessage;
begin
case K of
- IK_PAUSE: // <Pause/Break>:
- begin
- if (g_ActiveWindow = nil) then g_Game_Pause(not gPause);
- end;
-
- IK_BACKQUOTE, VK_CONSOLE: // <`/~/¨/¸>:
- begin
- if not gChatShow then
- g_Console_Switch()
- end;
-
- IK_ESCAPE: // <Esc>:
- begin
- if gChatShow then
- g_Console_Chat_Switch
- else if gConsoleShow then
- g_Console_Switch
- end;
-
VK_ESCAPE: // <Esc>:
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 := VK_ESCAPE;
begin
if gConsoleShow or gChatShow then
begin
- if gSkipFirstChar then
- gSkipFirstChar := False
- else
- g_Console_Char(C)
+ g_Console_Char(C)
end
else if (g_ActiveWindow <> nil) then
begin