hedgewars/uGearsList.pas
changeset 10789 acbf69e2e5cf
parent 10663 9bbb29d2bd68
child 10791 0311c9fa7498
--- a/hedgewars/uGearsList.pas	Wed Jan 14 11:47:50 2015 +0300
+++ b/hedgewars/uGearsList.pas	Fri Jan 16 17:51:29 2015 -0500
@@ -103,6 +103,7 @@
 (*        gtAddAmmo *) , amNothing
 (*  gtGenericFaller *) , amNothing
 (*          gtKnife *) , amKnife
+(*        gtAirMine *) , amAirMine
     );
 
 
@@ -359,6 +360,21 @@
                         gear^.Timer:= cMinesTime
                     end
                 end;
+     gtAirMine: begin
+                gear^.ImpactSound:= sndDenied;
+                gear^.nImpactSounds:= 1;
+                gear^.Health:= 30;
+                gear^.State:= gear^.State or gstMoving or gstNoGravity;
+                gear^.Radius:= 3;
+                gear^.Elasticity:= _0_55;
+                gear^.Friction:= _0_995;
+                gear^.Density:= _1;
+                gear^.Angle:= 125; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.
+                gear^.Power:= 536871; // hwFloat converted. 1/4 g default. defines the "seek" speed when a gear is in range.
+                gear^.Pos:= 134217; // air friction. slows it down when not hitting stuff
+                gear^.Karma:= 30; // damage
+                gear^.Timer:= 500;
+                end;
        gtSMine: begin
                 gear^.Health:= 10;
                 gear^.State:= gear^.State or gstMoving;