# HG changeset patch
# User alfadur
# Date 1593290325 -10800
# Node ID 8138670eab089a4e3254eebb96f7bf342bd24b92
# Parent  1b3cd00e6b1ceed60830bc10cd69003c77e86047
reduce sentry damange

diff -r 1b3cd00e6b1c -r 8138670eab08 hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Sat Jun 27 22:58:33 2020 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Jun 27 23:38:45 2020 +0300
@@ -7188,7 +7188,7 @@
     if CheckGearDrowning(Gear) then
         exit;
 
-    if TestCollisionYKick(Gear, 1) = 0 then
+    if TestCollisionY(Gear, 1) = 0 then
     begin
         doStepFallingGear(Gear);
         Gear^.Timer := 0;
@@ -7232,6 +7232,7 @@
                 gtDEagleShot, 0,
                 distX, distY, 0);
 
+            bullet^.Boom := 4;
             bullet^.PortalCounter := 1;
             bullet^.Elasticity := Gear^.X;
             bullet^.Friction := Gear^.Y;