hedgewars/GSHandlers.inc
changeset 2228 7f4613bae01a
parent 2227 743218daf878
child 2262 0dc94341bf42
--- a/hedgewars/GSHandlers.inc	Mon Jul 06 00:39:32 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Jul 06 11:33:42 2009 +0000
@@ -92,6 +92,7 @@
 begin
 AllInactive:= false;
 Gear^.Y:= Gear^.Y + cDrownSpeed;
+Gear^.X:= Gear^.X + Gear^.dX * cDrownSpeed;
 if hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater then DeleteGear(Gear);
 // Create some bubbles (0.5% might be better but causes too few bubbles sometimes)
 if (GameTicks and $1F) = 0 then