diff -r e11df2de6af2 -r f9cb69eecefe hedgewars/VGSHandlers.inc --- a/hedgewars/VGSHandlers.inc Mon Sep 27 04:58:15 2010 +0200 +++ b/hedgewars/VGSHandlers.inc Mon Sep 27 04:58:26 2010 +0200 @@ -201,9 +201,13 @@ //////////////////////////////////////////////////////////////////////////////// procedure doStepBubble(Gear: PVisualGear; Steps: Longword); begin - Gear^.X:= Gear^.X + (cWindSpeedf * 100 + Gear^.dX) * Steps; + Gear^.X:= Gear^.X + Gear^.dX * Steps; + Gear^.Y:= Gear^.Y + Gear^.dY * Steps; Gear^.Y:= Gear^.Y - cDrownSpeedf * Steps; + Gear^.dX /= (1.001 * Steps); + Gear^.dY /= (1.001 * Steps); + if (Gear^.FrameTicks <= Steps) or (round(Gear^.Y) < cWaterLine) then DeleteVisualGear(Gear) else