hedgewars/uGearsList.pas
changeset 14009 c28a4f76d37d
parent 14005 817dc8b67b0d
child 14027 105793e575d6
equal deleted inserted replaced
14008:2d1df39c8642 14009:c28a4f76d37d
   476                 gear^.Density:= _4;
   476                 gear^.Density:= _4;
   477                 gear^.Radius:= 7;
   477                 gear^.Radius:= 7;
   478                 gear^.Sticky:= true;
   478                 gear^.Sticky:= true;
   479                 end;
   479                 end;
   480         gtCase: begin
   480         gtCase: begin
   481                 gear^.ImpactSound:= sndGraveImpact;
   481                 gear^.ImpactSound:= sndCaseImpact;
   482                 gear^.nImpactSounds:= 1;
   482                 gear^.nImpactSounds:= 1;
   483                 gear^.Radius:= 16;
   483                 gear^.Radius:= 16;
   484                 gear^.Elasticity:= _0_3;
   484                 gear^.Elasticity:= _0_3;
   485                 if gear^.Timer = 0 then gear^.Timer:= 500
   485                 if gear^.Timer = 0 then gear^.Timer:= 500
   486                 end;
   486                 end;