hedgewars/uGearsList.pas
changeset 13399 3d6aae2ae698
parent 13357 030b085b182f
child 13463 f1d349a52bc7
--- a/hedgewars/uGearsList.pas	Tue May 22 17:54:07 2018 -0400
+++ b/hedgewars/uGearsList.pas	Wed May 23 20:45:42 2018 -0400
@@ -224,7 +224,7 @@
        gtHedgehog: Gear^.Boom := 30;
            gtMine: Gear^.Boom := 50;
            gtCase: Gear^.Boom := 25;
-        gtAirMine: Gear^.Boom := 25;
+        gtAirMine: Gear^.Boom := 30;
      gtExplosives: Gear^.Boom := 75;
         gtGrenade: Gear^.Boom := 50;
           gtShell: Gear^.Boom := 50;
@@ -446,7 +446,6 @@
                 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.
                 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.
                 gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff
-                gear^.Karma:= 30; // damage
                 if gear^.Timer = 0 then
                     begin
                     if cMinesTime < 0 then