equal
deleted
inserted
replaced
209 begin |
209 begin |
210 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
210 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
211 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
211 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
212 Gear^.Y:= Gear^.Y - cDrownSpeedf * Steps; |
212 Gear^.Y:= Gear^.Y - cDrownSpeedf * Steps; |
213 |
213 |
214 Gear^.dX /= (1.001 * Steps); |
214 Gear^.dX := Gear^.dX / (1.001 * Steps); |
215 Gear^.dY /= (1.001 * Steps); |
215 Gear^.dY := Gear^.dY / (1.001 * Steps); |
216 |
216 |
217 if (Gear^.FrameTicks <= Steps) or (round(Gear^.Y) < cWaterLine) then |
217 if (Gear^.FrameTicks <= Steps) or (round(Gear^.Y) < cWaterLine) then |
218 DeleteVisualGear(Gear) |
218 DeleteVisualGear(Gear) |
219 else |
219 else |
220 dec(Gear^.FrameTicks, Steps) |
220 dec(Gear^.FrameTicks, Steps) |