hedgewars/uAIMisc.pas
changeset 53 0e27949850e3
parent 4 bcbd7adb4e4b
child 64 9df467527ae5
--- a/hedgewars/uAIMisc.pas	Sun Jan 15 23:56:47 2006 +0000
+++ b/hedgewars/uAIMisc.pas	Thu Jan 19 21:12:20 2006 +0000
@@ -182,7 +182,7 @@
 repeat
 pX:= round(Gear.X);
 pY:= round(Gear.Y);
-if pY + cHHHalfHeight >= cWaterLine then exit;
+if pY + cHHRadius >= cWaterLine then exit;
 if (Gear.State and gstFalling) <> 0 then
    begin
    Gear.dY:= Gear.dY + cGravity;