diff --git a/src/game/g_main.pas b/src/game/g_main.pas
index 8c43ef8472b6b45efc755df3ca17fd3a42408def..853693c582393d718417ec187fc94f346ec810ed 100644 (file)
--- a/src/game/g_main.pas
+++ b/src/game/g_main.pas
procedure KeyPress(K: Word);
var
Msg: g_gui.TMessage;
procedure KeyPress(K: Word);
var
Msg: g_gui.TMessage;
- a: Integer;
begin
case K of
IK_PAUSE: // <Pause/Break>:
begin
case K of
IK_PAUSE: // <Pause/Break>:
begin
g_GUI_ShowWindow('MainMenu');
g_Sound_PlayEx('MENU_OPEN');
begin
g_GUI_ShowWindow('MainMenu');
g_Sound_PlayEx('MENU_OPEN');
- end
- else
- begin
- for a := 0 to 14 do
- charbuff[a] := charbuff[a+1];
- charbuff[15] := UpCase(Chr(K));
- Cheat();
end;
end;
end;
end;
end;
end;
procedure CharPress(C: Char);
var
Msg: g_gui.TMessage;
procedure CharPress(C: Char);
var
Msg: g_gui.TMessage;
+ a: Integer;
begin
if (not gChatShow) and ((C = '`') or (C = '~') or (C = '¸') or (C = '¨')) then
Exit;
begin
if (not gChatShow) and ((C = '`') or (C = '~') or (C = '¸') or (C = '¨')) then
Exit;
Msg.Msg := WM_CHAR;
Msg.WParam := Ord(C);
g_ActiveWindow.OnMessage(Msg);
Msg.Msg := WM_CHAR;
Msg.WParam := Ord(C);
g_ActiveWindow.OnMessage(Msg);
+ end
+ else
+ begin
+ for a := 0 to 14 do
+ charbuff[a] := charbuff[a+1];
+ charbuff[15] := UpCase(C);
+ Cheat();
end;
end;
end;
end;