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