hedgewars/CCHandlers.inc
changeset 2396 e13a1117152b
parent 2379 d62b1f224982
child 2403 6c5d504af2ba
--- a/hedgewars/CCHandlers.inc	Sat Sep 26 20:54:13 2009 +0000
+++ b/hedgewars/CCHandlers.inc	Sun Sep 27 10:26:36 2009 +0000
@@ -336,21 +336,20 @@
 SendIPC('s' + s);
 
 if copy(s, 1, 4) = '/me ' then
-	s:= '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4)
+	s:= #2'* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4)
 else
-	s:= UserNick + ': ' + s;
+	s:= #1 + UserNick + ': ' + s;
 
 AddChatString(s)
 end;
 
 procedure chTeamSay(var s: shortstring);
-var text: shortstring;
 begin
 SendIPC('b' + s);
 
-text:= copy(s, 2, Length(s)-1);
+s[1]:= #4;
 
-AddChatString(text)
+AddChatString(s)
 end;
 
 procedure chTimer(var s: shortstring);