hedgewars/uChat.pas
changeset 2125 3ebe8cd30b84
parent 2124 d39c61eaca15
child 2130 708758635955
--- a/hedgewars/uChat.pas	Wed May 27 03:52:07 2009 +0000
+++ b/hedgewars/uChat.pas	Wed May 27 03:56:17 2009 +0000
@@ -189,7 +189,7 @@
 if copy(s, 1, 4) = '/ts ' then
     begin
     AddFileLog('attempting teamsay: '+s);
-    ParseCommand('/teamsay ' + char(LocalClan) + copy(s, 5, Length(s)-4), true);
+    ParseCommand('/teamsay ' + char(LocalClan) + UserNick + ': '+copy(s, 5, Length(s)-4), true);
     exit
     end;
 if (s[1] = '/') and (copy(s, 1, 4) <> '/me ') then