hedgewars/uGearsList.pas
changeset 10891 a4c454ef80a6
parent 10889 f7200e614295
child 11002 01c8e95d2265
equal deleted inserted replaced
10889:f7200e614295 10891:a4c454ef80a6
   466    gtAirAttack: begin
   466    gtAirAttack: begin
   467                 gear^.Z:= cHHZ+2;
   467                 gear^.Z:= cHHZ+2;
   468                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   468                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   469                 end;
   469                 end;
   470      gtAirBomb: begin
   470      gtAirBomb: begin
       
   471                 gear^.AdvBounce:= 1;
   471                 gear^.Radius:= 5;
   472                 gear^.Radius:= 5;
   472                 gear^.Density:= _2;
   473                 gear^.Density:= _2;
       
   474                 gear^.Elasticity:= _0_55;
       
   475                 gear^.Friction:= _0_995
   473                 end;
   476                 end;
   474    gtBlowTorch: begin
   477    gtBlowTorch: begin
   475                 gear^.Radius:= cHHRadius + cBlowTorchC;
   478                 gear^.Radius:= cHHRadius + cBlowTorchC;
   476                 if gear^.Timer = 0 then gear^.Timer:= 7500
   479                 if gear^.Timer = 0 then gear^.Timer:= 7500
   477                 end;
   480                 end;