hedgewars/uGears.pas
changeset 3957 25b0a62e08de
parent 3956 604f08c54a01
child 3963 6090d2a2472e
--- a/hedgewars/uGears.pas	Sun Oct 10 22:18:38 2010 -0400
+++ b/hedgewars/uGears.pas	Sun Oct 10 23:41:24 2010 -0400
@@ -848,15 +848,17 @@
     if delay2 = 0 then
         delay2:= cInactDelay * 4
     else
+        begin
         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
-        SweepDirty;
-        CheckNoDamage;
-        CheckForWin
+        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
+            SweepDirty;
+            CheckNoDamage;
+            CheckForWin
+            end
         end
     end;