equal
deleted
inserted
replaced
199 end; |
199 end; |
200 |
200 |
201 //////////////////////////////////////////////////////////////////////////////// |
201 //////////////////////////////////////////////////////////////////////////////// |
202 procedure doStepBubble(Gear: PVisualGear; Steps: Longword); |
202 procedure doStepBubble(Gear: PVisualGear; Steps: Longword); |
203 begin |
203 begin |
204 Gear^.X:= Gear^.X + (cWindSpeedf * 100 + Gear^.dX) * Steps; |
204 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
|
205 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
205 Gear^.Y:= Gear^.Y - cDrownSpeedf * Steps; |
206 Gear^.Y:= Gear^.Y - cDrownSpeedf * Steps; |
|
207 |
|
208 Gear^.dX /= (1.001 * Steps); |
|
209 Gear^.dY /= (1.001 * Steps); |
206 |
210 |
207 if (Gear^.FrameTicks <= Steps) or (round(Gear^.Y) < cWaterLine) then |
211 if (Gear^.FrameTicks <= Steps) or (round(Gear^.Y) < cWaterLine) then |
208 DeleteVisualGear(Gear) |
212 DeleteVisualGear(Gear) |
209 else |
213 else |
210 dec(Gear^.FrameTicks, Steps) |
214 dec(Gear^.FrameTicks, Steps) |