hedgewars/uGearsList.pas
changeset 15661 afeffdb4a712
parent 15609 61f2ffcd5652
child 15662 8416b08ffdbb
--- a/hedgewars/uGearsList.pas	Thu Jun 25 22:16:11 2020 +0200
+++ b/hedgewars/uGearsList.pas	Fri Jun 26 17:40:22 2020 +0300
@@ -107,6 +107,7 @@
 (*        gtCreeper *) , amCreeper
 (*        gtMinigun *) , amMinigun
 (*  gtMinigunBullet *) , amMinigun
+(*         gtSentry *) , amSentry
     );
 
 
@@ -259,6 +260,7 @@
             gtSnowball,
             gtKnife,
             gtCreeper,
+            gtSentry,
             gtMolotov,
             gtFlake,
             gtGrave,
@@ -315,7 +317,8 @@
     gtPoisonCloud: Gear^.Boom := 20;
           gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based
         gtCreeper: Gear^.Boom := 100;
-    gtMinigunBullet: Gear^.Boom := 2;
+  gtMinigunBullet: Gear^.Boom := 2;
+         gtSentry: Gear^.Boom := 25;
     end;
 
 case Kind of
@@ -829,6 +832,10 @@
                 gear^.Radius:= 1;
                 gear^.Health:= 2;
                 end;
+        gtSentry: begin
+                gear^.Radius:= cHHRadius;
+                gear^.Health:= 100;
+                end;
 gtGenericFaller:begin
                 gear^.AdvBounce:= 1;
                 gear^.Radius:= 1;