hedgewars/uGears.pas
changeset 3951 c9a63db3e603
parent 3949 4c4c0a2507cc
child 3954 ae3583ad6ea9
--- a/hedgewars/uGears.pas	Sun Oct 10 16:51:40 2010 -0400
+++ b/hedgewars/uGears.pas	Sun Oct 10 20:16:17 2010 -0400
@@ -846,13 +846,14 @@
 else if ((GameFlags and gfInfAttack) <> 0) then
     begin
     if delay2 = 0 then
-        delay2:= cInactDelay 
+        delay2:= cInactDelay * 4
     else
         dec(delay2);
 
+    if ((delay2 mod cInactDelay) = 0) and (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then 
+        CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and not gstAttacked;
     if delay2 = 0 then
         begin
-        if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and not gstAttacked;
         CheckNoDamage;
         CheckForWin
         end