equal
deleted
inserted
replaced
1769 dec(airFriction.QWordValue,Gear^.Pos); |
1769 dec(airFriction.QWordValue,Gear^.Pos); |
1770 Gear^.dX:= Gear^.dX*airFriction; |
1770 Gear^.dX:= Gear^.dX*airFriction; |
1771 Gear^.dY:= Gear^.dY*airFriction |
1771 Gear^.dY:= Gear^.dY*airFriction |
1772 end; |
1772 end; |
1773 doStepFallingGear(Gear); |
1773 doStepFallingGear(Gear); |
1774 if (Gear^.Angle = 0) or (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Gear = nil) then |
1774 if (TurnTimeLeft = 0) and ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) > _0_02.QWordValue) then |
|
1775 AllInactive := false; |
|
1776 |
|
1777 if (TurnTimeLeft = 0) or (Gear^.Angle = 0) or (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.Gear = nil) then |
1775 begin |
1778 begin |
1776 Gear^.Hedgehog:= nil; |
1779 Gear^.Hedgehog:= nil; |
1777 targ:= nil; |
1780 targ:= nil; |
1778 end |
1781 end |
1779 else if Gear^.Hedgehog <> nil then |
1782 else if Gear^.Hedgehog <> nil then |