hedgewars/uChat.pas
changeset 9680 50a001b1964e
parent 9676 ce7396d4eaf7
child 9798 f2b18754742f
child 9950 2759212a27de
child 9998 736015b847e3
--- a/hedgewars/uChat.pas	Wed Nov 06 09:26:14 2013 -0500
+++ b/hedgewars/uChat.pas	Fri Nov 08 12:00:47 2013 +0400
@@ -278,11 +278,14 @@
         exit
         end;
 
-    if (copy(s, 1, 4) <> '/me ') then
+    if (copy(s, 1, 4) = '/me ') then
         begin
-        if CurrentTeam^.ExtDriven or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then
-            exit;
+        ParseCommand('/say ' + s, true);
+        exit
+        end;
 
+    if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then
+        begin
         for i:= Low(TWave) to High(TWave) do
             if (s = Wavez[i].cmd) then
                 begin