--- a/hedgewars/uIO.pas	Thu May 22 17:25:12 2008 +0000
+++ b/hedgewars/uIO.pas	Sat May 24 17:34:06 2008 +0000
@@ -37,7 +37,7 @@
 var hiTicks: Word = 0;
 
 implementation
-uses uConsole, uConsts, uWorld, uMisc, uLand;
+uses uConsole, uConsts, uWorld, uMisc, uLand, uChat;
 const isPonged: boolean = false;
 
 type PCmd = ^TCmd;
@@ -212,11 +212,14 @@
 
 procedure NetGetNextCmd;
 var tmpflag: boolean;
+    s: shortstring;
 begin
 while (headcmd <> nil) and (headcmd^.cmd = 's') do
       begin
-      WriteLnToConsole('> ' + copy(headcmd^.str, 2, Pred(headcmd^.len)));
-      AddCaption('> ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), $FFFFFF, capgrpNetSay);
+      s:= '> ' + copy(headcmd^.str, 2, Pred(headcmd^.len));
+      AddChatString(s);
+      WriteLnToConsole(s);
+      //AddCaption('> ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), $FFFFFF, capgrpNetSay);
       RemoveCmd
       end;