hedgewars/uGearsList.pas
changeset 11765 10860d4bca22
parent 11589 c453620cc6d6
child 11831 dd18d8100afd
equal deleted inserted replaced
11646:42d7f5dbd8dc 11765:10860d4bca22
   425                     else
   425                     else
   426                         gear^.Timer:= cMinesTime
   426                         gear^.Timer:= cMinesTime
   427                     end
   427                     end
   428                 end;
   428                 end;
   429      gtAirMine: begin
   429      gtAirMine: begin
   430                 gear^.ImpactSound:= sndDenied;
   430                 gear^.ImpactSound:= sndAirMineImpact;
   431                 gear^.nImpactSounds:= 1;
   431                 gear^.nImpactSounds:= 1;
   432                 gear^.Health:= 30;
   432                 gear^.Health:= 30;
   433                 gear^.State:= gear^.State or gstMoving or gstNoGravity or gstSubmersible;
   433                 gear^.State:= gear^.State or gstMoving or gstNoGravity or gstSubmersible;
   434                 gear^.Radius:= 8;
   434                 gear^.Radius:= 8;
   435                 gear^.Elasticity:= _0_55;
   435                 gear^.Elasticity:= _0_55;
   457                 gear^.Density:= _1_6;
   457                 gear^.Density:= _1_6;
   458                 gear^.AdvBounce:= 1;
   458                 gear^.AdvBounce:= 1;
   459                 if gear^.Timer = 0 then gear^.Timer:= 500;
   459                 if gear^.Timer = 0 then gear^.Timer:= 500;
   460                 end;
   460                 end;
   461        gtKnife: begin
   461        gtKnife: begin
       
   462                 gear^.ImpactSound:= sndKnifeImpact;
   462                 gear^.AdvBounce:= 1;
   463                 gear^.AdvBounce:= 1;
   463                 gear^.Elasticity:= _0_8;
   464                 gear^.Elasticity:= _0_8;
   464                 gear^.Friction:= _0_8;
   465                 gear^.Friction:= _0_8;
   465                 gear^.Density:= _4;
   466                 gear^.Density:= _4;
   466                 gear^.Radius:= 7
   467                 gear^.Radius:= 7