hedgewars/CCHandlers.inc
changeset 542 ec26095f1bed
parent 539 6a9bf1852bbc
child 543 465e2ec8f05f
--- a/hedgewars/CCHandlers.inc	Mon Jun 11 15:53:29 2007 +0000
+++ b/hedgewars/CCHandlers.inc	Sun Jun 17 14:48:15 2007 +0000
@@ -237,7 +237,8 @@
 with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear^ do
      begin
      {$IFDEF DEBUGFILE}AddFileLog('/+attack: Gear^.State = '+inttostr(State));{$ENDIF}
-     if ((State and gstHHDriven)<>0)and((State and (gstAttacked or gstHHChooseTarget or gstMoving)) = 0) then
+     if ((State and gstHHDriven) <> 0) and
+        ((State and (gstAttacked or gstHHChooseTarget)) = 0) then
         begin
         FollowGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear;
         if not CurrentTeam^.ExtDriven then SendIPC('A');