# HG changeset patch
# User unc0rr
# Date 1225031870 0
# Node ID 210cb6b1b275c9bea97ab4110c6ab0f82b74fd40
# Parent  60b86d6fe9ae0f292e3b2c564e8b0c7d58b72787
Fix some problems with water rising

diff -r 60b86d6fe9ae -r 210cb6b1b275 hedgewars/GSHandlers.inc
--- 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