# HG changeset patch
# User alfadur
# Date 1594927832 -10800
# Node ID ff7291bc811f9234506ce7ae90ceada507e3b68c
# Parent  4e65fd69f58c51464f07faf3779bd62027c9de79
make water sentries more resistant to sinking

diff -r 4e65fd69f58c -r ff7291bc811f hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Sun Jul 12 03:03:52 2020 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Jul 16 22:30:32 2020 +0300
@@ -7523,7 +7523,7 @@
     end;
 
     Gear^.Y := int2hwFloat(cWaterLine - 3 * Gear^.Radius);
-    if TestCollisionYwithGear(Gear, -1) <> 0 then
+    if TestCollisionYImpl(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Radius - 1, -1, Gear^.CollisionMask and lfLandMask) <> 0 then
     begin
         Gear^.Tag := -1;
         exit;