equal
deleted
inserted
replaced
884 //////////////////////////////////////////////////////////////////////////////// |
884 //////////////////////////////////////////////////////////////////////////////// |
885 procedure doStepStraightShot(Gear: PVisualGear; Steps: Longword); |
885 procedure doStepStraightShot(Gear: PVisualGear; Steps: Longword); |
886 begin |
886 begin |
887 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
887 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
888 Gear^.Y:= Gear^.Y - Gear^.dY * Steps; |
888 Gear^.Y:= Gear^.Y - Gear^.dY * Steps; |
|
889 |
|
890 Gear^.dY:= Gear^.dY + Gear^.tdY * Steps; |
|
891 Gear^.dX:= Gear^.dX + Gear^.tdX * Steps; |
889 |
892 |
890 if Gear^.FrameTicks <= Steps then |
893 if Gear^.FrameTicks <= Steps then |
891 DeleteVisualGear(Gear) |
894 DeleteVisualGear(Gear) |
892 else |
895 else |
893 begin |
896 begin |