hedgewars/uGearsList.pas
changeset 10827 2b717f687c72
parent 10805 a96a69841653
child 10828 9867dd60a66a
equal deleted inserted replaced
10826:bc5215b2f9fb 10827:2b717f687c72
   362                 end;
   362                 end;
   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 or gstSubmersible;
   368                 gear^.Radius:= 8;
   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.