hedgewars/uGears.pas
changeset 3028 d17cf923d7c3
parent 3004 e9b3613cc3fb
child 3030 411146650700
--- a/hedgewars/uGears.pas	Sun Mar 21 01:54:57 2010 +0000
+++ b/hedgewars/uGears.pas	Sun Mar 21 03:51:53 2010 +0000
@@ -44,7 +44,7 @@
             Radius: LongInt;
             Angle, Power : Longword;
             DirAngle: real;
-            Timer : LongWord;
+            Timer, Timer2 : LongWord;
             Elasticity: hwFloat;
             Friction  : hwFloat;
             Message, MsgParam : Longword;
@@ -1181,13 +1181,13 @@
     else
     if ((Gear^.State and gstAttacked) = 0) then
         begin
-        if Gear^.Timer > 0 then
+        if Gear^.Timer2 > 0 then
             begin
             // There must be a tidier way to do this. Anyone?
             if aangle <= 90 then aangle:= aangle+360;
-            if Gear^.dX > _0 then aangle:= aangle-((aangle-240)*Gear^.Timer/10)
-            else aangle:= aangle+((240-aangle)*Gear^.Timer/10);
-            dec(Gear^.Timer)
+            if Gear^.dX > _0 then aangle:= aangle-((aangle-240)*Gear^.Timer2/10)
+            else aangle:= aangle+((240-aangle)*Gear^.Timer2/10);
+            dec(Gear^.Timer2)
             end;
         amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType;
         case amt of