hedgewars/CCHandlers.inc
changeset 2130 708758635955
parent 2125 3ebe8cd30b84
child 2162 2bce91404d49
--- a/hedgewars/CCHandlers.inc	Wed May 27 18:13:06 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Thu May 28 00:25:19 2009 +0000
@@ -46,6 +46,17 @@
 	SendIPC('Q');
 	GameState:= gsExit
 	end
+else
+    begin
+    GameState:= gsChat;
+    KeyPressChat(27);
+    KeyPressChat(47);
+    KeyPressChat(116);
+    KeyPressChat(101);
+    KeyPressChat(97);
+    KeyPressChat(109);
+    KeyPressChat(32)
+    end
 end;
 
 procedure chCheckProto(var s: shortstring);