diff -r 50a4cdeedb44 -r acbf69e2e5cf hedgewars/uGearsList.pas --- 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;