hedgewars/uGearsHandlersRope.pas
changeset 9571 273567816538
parent 9526 2fd51591b260
child 9573 49bca2fabbd3
--- a/hedgewars/uGearsHandlersRope.pas	Wed Oct 23 04:35:23 2013 +0200
+++ b/hedgewars/uGearsHandlersRope.pas	Wed Oct 23 12:46:29 2013 -0400
@@ -409,6 +409,8 @@
     HHGear: PGear;
     tx, ty, tt: hwFloat;
 begin
+    if (TurnTimeLeft > 0) then dec(TurnTimeLeft);
+
     Gear^.X := Gear^.X - Gear^.dX;
     Gear^.Y := Gear^.Y - Gear^.dY;
     Gear^.Elasticity := Gear^.Elasticity + _1;