hedgewars/uGearsUtils.pas
changeset 15732 7383256f8535
parent 15731 6b04399c84a7
child 15762 0a172cfe8840
--- a/hedgewars/uGearsUtils.pas	Wed Jul 08 23:42:42 2020 +0300
+++ b/hedgewars/uGearsUtils.pas	Thu Jul 09 00:22:40 2020 +0300
@@ -149,7 +149,8 @@
                 gtTarget,
                 gtFlame,
                 gtKnife,
-                gtExplosives: begin
+                gtExplosives,
+                gtSentry: begin
 // Run the calcs only once we know we have a type that will need damage
                         tdX:= Gear^.X-fX;
                         tdY:= Gear^.Y-fY;
@@ -1260,7 +1261,8 @@
             gtKnife,
             gtCase,
             gtTarget,
-            gtExplosives: begin
+            gtExplosives,
+            gtSentry: begin
 //addFileLog('ShotgunShot radius: ' + inttostr(Gear^.Radius) + ', t^.Radius = ' + inttostr(t^.Radius) + ', distance = ' + inttostr(dist) + ', dmg = ' + inttostr(dmg));
                     dmg:= 0;
                     r:= Gear^.Radius + t^.Radius;
@@ -1401,7 +1403,8 @@
             gtKnife,
             gtTarget,
             gtCase,
-            gtExplosives:
+            gtExplosives,
+            gtSentry:
             begin
             if (Ammo^.Kind in [gtFirePunch, gtKamikaze]) and (Gear^.Kind <> gtSMine) then
                 PlaySound(sndFirePunchHit);