hedgewars/GSHandlers.inc
changeset 1417 210cb6b1b275
parent 1388 5e7920f2e2aa
child 1433 4af291d5d79c
--- a/hedgewars/GSHandlers.inc	Sun Oct 26 14:28:49 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Oct 26 14:37:50 2008 +0000
@@ -496,7 +496,7 @@
 	begin
 	Gear^.dY:= Gear^.dY + cGravity;
 	Gear^.Y:= Gear^.Y + Gear^.dY;
-	if Gear^.Y > _1024 then Gear^.Timer:= 1
+	if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer:= 1
 	end;
 
 Gear^.X:= Gear^.X + HHGear^.dX;
@@ -1092,7 +1092,7 @@
 	Gear^.X:= Gear^.X + Gear^.dX;
 	Gear^.Y:= Gear^.Y + Gear^.dY;
 	
-	if not (Gear^.Y < _1024) then
+	if not (hwRound(Gear^.Y) < cWaterLine) then
 		begin
 		DeleteGear(Gear);
 		exit