hedgewars/uGearsHandlersMess.pas
changeset 9824 136e0708eda2
parent 9820 1c04ccb9e5fd
child 9853 8786d4ac9e0b
--- a/hedgewars/uGearsHandlersMess.pas	Mon Dec 23 03:15:39 2013 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Mon Dec 23 00:52:02 2013 -0500
@@ -2293,7 +2293,8 @@
         end;
 
     HHGear^.dY := HHGear^.dY + cGravity;
-    if not (HHGear^.dY.isNegative) then
+    if Gear^.Timer > 0 then dec(Gear^.Timer);
+    if not (HHGear^.dY.isNegative) or (Gear^.Timer = 0) then
         begin
         HHGear^.State := HHGear^.State or gstMoving;
         DeleteGear(Gear);