hedgewars/uGearsHandlersMess.pas
changeset 15736 7a4b719ac611
parent 15735 73c4e7d47575
child 15737 e0cdb6ae88ab
--- a/hedgewars/uGearsHandlersMess.pas	Thu Jul 09 02:41:51 2020 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Jul 11 01:09:56 2020 +0300
@@ -7190,7 +7190,8 @@
             break;
     end;
 
-    if (offset >= -maxYStep) and (offset <= maxYStep) then
+    if (offset >= -maxYStep) and (offset <= maxYStep)
+       and (TestCollisionYImpl(x + direction, y + offset, Sentry^.Radius, -1, Sentry^.CollisionMask) = 0) then
     begin
         if not TestOnly then
         begin