hedgewars/uGearsHandlersMess.pas
changeset 15732 7383256f8535
parent 15716 2a69c6693fbb
child 15733 4a8a1dd9528a
--- a/hedgewars/uGearsHandlersMess.pas	Wed Jul 08 23:42:42 2020 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Thu Jul 09 00:22:40 2020 +0300
@@ -1217,7 +1217,7 @@
         begin
         dec(i);
         if Collisions^.ar[i]^.Kind in
-            [gtMine, gtSMine, gtAirMine, gtKnife, gtCase, gtTarget, gtExplosives] then
+            [gtMine, gtSMine, gtAirMine, gtKnife, gtCase, gtTarget, gtExplosives, gtSentry] then
             begin
             Gear^.X := Collisions^.ar[i]^.X;
             Gear^.Y := Collisions^.ar[i]^.Y;
@@ -7286,6 +7286,15 @@
     if CheckGearDrowning(Gear) then
         exit;
 
+    dec(Gear^.Health, Gear^.Damage);
+    Gear^.Damage := 0;
+    if Gear^.Health <= 0 then
+    begin
+        doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound);
+        DeleteGear(Gear);
+        exit;
+    end;
+
     if Gear^.dY.isNegative or (TestCollisionYwithGear(Gear, 1) = 0) then
     begin
         doStepFallingGear(Gear);