hedgewars/uGearsList.pas
changeset 12898 8a40ce061d94
parent 12828 948eae885eac
child 13096 d78e65c66573
--- a/hedgewars/uGearsList.pas	Mon Jan 15 12:15:56 2018 -0500
+++ b/hedgewars/uGearsList.pas	Wed Jan 31 13:42:52 2018 -0500
@@ -106,6 +106,8 @@
 (*  gtGenericFaller *) , amNothing
 (*          gtKnife *) , amKnife
 (*           gtDuck *) , amDuck
+(*        gtMinigun *) , amMinigun
+(*  gtMinigunBullet *) , amMinigun
     );
 
 
@@ -265,6 +267,7 @@
     gtPoisonCloud: Gear^.Boom := 20;
           gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based
            gtDuck: Gear^.Boom := 40;
+    gtMinigunBullet: Gear^.Boom := 2;
     end;
 
 case Kind of
@@ -741,6 +744,13 @@
                 gear^.Density:= _0_5;
                 gear^.AdvBounce:= 1;
                 end;
+       gtMinigun: begin
+                if gear^.Timer = 0 then gear^.Timer:= 601;
+                end;
+ gtMinigunBullet: begin
+                gear^.Radius:= 1;
+                gear^.Health:= 2;
+                end;
 gtGenericFaller:begin
                 gear^.AdvBounce:= 1;
                 gear^.Radius:= 1;