Fix chat yet again
authorunc0rr
Fri, 08 Nov 2013 12:00:47 +0400
changeset 9680 50a001b1964e
parent 9678 aa349a876c93
child 9687 4054960f837a
Fix chat yet again
hedgewars/uChat.pas
--- 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