hedgewars/CCHandlers.inc
changeset 950 feb18ec0c5c2
parent 946 42c5cc87cbd1
child 970 1bd9a4eafbc3
--- a/hedgewars/CCHandlers.inc	Sun May 25 14:09:44 2008 +0000
+++ b/hedgewars/CCHandlers.inc	Sun May 25 18:09:21 2008 +0000
@@ -273,8 +273,9 @@
 
 procedure chSay(var s: shortstring);
 begin
-WriteLnToConsole('> ' + s);
-SendIPC('s'+s)
+s:= UserNick + ': ' + s;
+AddChatString(s);
+SendIPC('s' + s)
 end;
 
 procedure chTimer(var s: shortstring);