equal
deleted
inserted
replaced
777 end; |
777 end; |
778 |
778 |
779 Gear^.Active:= true; |
779 Gear^.Active:= true; |
780 Gear^.State:= Gear^.State or gstMoving; |
780 Gear^.State:= Gear^.State or gstMoving; |
781 |
781 |
|
782 // move the gear upwards a bit to throw it over tiny obstacles at start |
782 if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then |
783 if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then |
783 begin |
784 begin |
784 if not (TestCollisionXwithXYShift(Gear, _0, -3, hwSign(Gear^.dX)) |
785 if not (TestCollisionXwithXYShift(Gear, _0, -3, hwSign(Gear^.dX)) |
785 or (TestCollisionYwithGear(Gear, -1) <> 0)) then |
786 or (TestCollisionYwithGear(Gear, -1) <> 0)) then |
786 Gear^.Y:= Gear^.Y - _1; |
787 Gear^.Y:= Gear^.Y - _1; |