hedgewars/uChat.pas
changeset 2130 708758635955
parent 2125 3ebe8cd30b84
child 2131 8b9f7a407408
--- 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