--- 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);

--- a/hedgewars/uChat.pas	Wed May 27 18:13:06 2009 +0000
+++ b/hedgewars/uChat.pas	Thu May 28 00:25:19 2009 +0000
@@ -186,10 +186,9 @@
     exit
     end;
 
-if copy(s, 1, 4) = '/ts ' then
+if copy(s, 1, 6) = '/team ' then
     begin
-    AddFileLog('attempting teamsay: '+s);
-    ParseCommand('/teamsay ' + char(LocalClan) + UserNick + ': '+copy(s, 5, Length(s)-4), true);
+    ParseCommand('/team ' + char(LocalClan) + UserNick + ': '+copy(s, 7, Length(s)-6), true);
     exit
     end;
 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then

--- a/hedgewars/uConsole.pas	Wed May 27 18:13:06 2009 +0000
+++ b/hedgewars/uConsole.pas	Thu May 28 00:25:19 2009 +0000
@@ -264,7 +264,7 @@
 RegisterVariable('newgrave', vtCommand, @chNewGrave     , false);
 RegisterVariable('say'     , vtCommand, @chSay          , true );
 RegisterVariable('hogsay'  , vtCommand, @chHogSay       , true );
-RegisterVariable('teamsay' , vtCommand, @chTeamSay      , true );
+RegisterVariable('team'    , vtCommand, @chTeamSay      , true );
 RegisterVariable('ammomenu', vtCommand, @chAmmoMenu     , false);
 RegisterVariable('+precise', vtCommand, @chPrecise_p    , false);
 RegisterVariable('-precise', vtCommand, @chPrecise_m    , false);