merge
authornemo
Fri, 08 Nov 2013 23:11:27 -0500
changeset 9687 4054960f837a
parent 9685 7d925e82e572 (current diff)
parent 9680 50a001b1964e (diff)
child 9689 953534399d4b
child 9690 6a1748b71df2
merge
--- a/hedgewars/uChat.pas	Fri Nov 08 23:11:13 2013 -0500
+++ b/hedgewars/uChat.pas	Fri Nov 08 23:11:27 2013 -0500
@@ -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