hedgewars/uGearsHandlersMess.pas
changeset 10799 658794118fd8
parent 10798 777084958f16
child 10800 3c71e5158519
--- a/hedgewars/uGearsHandlersMess.pas	Sun Jan 18 15:03:35 2015 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Jan 18 15:12:54 2015 -0500
@@ -1807,10 +1807,11 @@
                                 end
                             end
                         end;
-        Gear^.FlightTime:= GameTicks + 10000
+        if targ <> nil then Gear^.FlightTime:= GameTicks + 10000
         end;
     if targ <> nil then
         begin
+        trackSpeed:= _0;
         trackSpeed.QWordValue:= Gear^.Power;
         if (Gear^.X < targ^.X) and (Gear^.dX < _0_1)  then
              Gear^.dX:= Gear^.dX+trackSpeed