reduce sentry damange
authoralfadur
Sat, 27 Jun 2020 23:38:45 +0300
changeset 15665 8138670eab08
parent 15664 1b3cd00e6b1c
child 15666 3997d85b3d2e
reduce sentry damange
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;