hedgewars/uGearsHandlersMess.pas
changeset 10806 02ef8815ec9d
parent 10802 089e43d01f74
child 10807 66cde98f8cbe
--- a/hedgewars/uGearsHandlersMess.pas	Sun Jan 18 22:48:23 2015 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Wed Jan 21 16:00:08 2015 -0500
@@ -1771,7 +1771,10 @@
         Gear^.dY:= Gear^.dY*airFriction
         end;
     doStepFallingGear(Gear);
-    if (Gear^.Angle = 0) or (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Gear = nil) then
+    if (TurnTimeLeft = 0) and ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) > _0_02.QWordValue) then
+        AllInactive := false;
+
+    if (TurnTimeLeft = 0) or (Gear^.Angle = 0) or (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Gear = nil) then
         begin
         Gear^.Hedgehog:= nil;
         targ:= nil;