hedgewars/uGearsList.pas
changeset 10791 0311c9fa7498
parent 10789 acbf69e2e5cf
child 10794 ace862eda192
--- a/hedgewars/uGearsList.pas	Sat Jan 17 14:26:25 2015 +0100
+++ b/hedgewars/uGearsList.pas	Sat Jan 17 10:07:12 2015 -0500
@@ -369,11 +369,12 @@
                 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^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.
+                gear^.Power:= cGravity.QWordValue div 2; // hwFloat converted. 1/2 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;
+                gear^.WDTimer:= 500;
                 end;
        gtSMine: begin
                 gear^.Health:= 10;