hedgewars/uGearsList.pas
changeset 10802 089e43d01f74
parent 10800 3c71e5158519
child 10805 a96a69841653
equal deleted inserted replaced
10801:50bc2c75eee7 10802:089e43d01f74
   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:= 7;
   368                 gear^.Radius:= 8;
   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:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.
   373                 gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range.