hedgewars/uChat.pas
branchsdl2transition
changeset 9798 f2b18754742f
parent 9699 fab319c85a39
parent 9680 50a001b1964e
child 11360 7a7611adf715
--- a/hedgewars/uChat.pas	Sat Dec 14 21:16:20 2013 +0400
+++ b/hedgewars/uChat.pas	Tue Dec 17 00:02:52 2013 +0400
@@ -285,11 +285,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