hedgewars/uGearsList.pas
changeset 10794 ace862eda192
parent 10791 0311c9fa7498
child 10800 3c71e5158519
equal deleted inserted replaced
10792:f6df7d6e18e5 10794:ace862eda192
   363      gtAirMine: begin
   363      gtAirMine: begin
   364                 gear^.ImpactSound:= sndDenied;
   364                 gear^.ImpactSound:= sndDenied;
   365                 gear^.nImpactSounds:= 1;
   365                 gear^.nImpactSounds:= 1;
   366                 gear^.Health:= 30;
   366                 gear^.Health:= 30;
   367                 gear^.State:= gear^.State or gstMoving or gstNoGravity;
   367                 gear^.State:= gear^.State or gstMoving or gstNoGravity;
   368                 gear^.Radius:= 3;
   368                 gear^.Radius:= 7;
   369                 gear^.Elasticity:= _0_55;
   369                 gear^.Elasticity:= _0_55;
   370                 gear^.Friction:= _0_995;
   370                 gear^.Friction:= _0_995;
   371                 gear^.Density:= _1;
   371                 gear^.Density:= _1;
   372                 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.
   372                 gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped.
   373                 gear^.Power:= cGravity.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.
   373                 gear^.Power:= cGravity.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.