hedgewars/uGearsList.pas
branchqmlfrontend
changeset 10922 999d95494fe7
parent 10891 a4c454ef80a6
child 11002 01c8e95d2265
equal deleted inserted replaced
10908:1bd7a3a28b18 10922:999d95494fe7
   235                 if gear^.Timer = 0 then
   235                 if gear^.Timer = 0 then
   236                     gear^.Timer:= 3000
   236                     gear^.Timer:= 3000
   237                 end;
   237                 end;
   238   gtMelonPiece: begin
   238   gtMelonPiece: begin
   239                 gear^.AdvBounce:= 1;
   239                 gear^.AdvBounce:= 1;
   240                 gear^.Density:= _2
   240                 gear^.Density:= _2;
       
   241                 gear^.Radius:= 4
   241                 end;
   242                 end;
   242     gtHedgehog: begin
   243     gtHedgehog: begin
   243                 gear^.AdvBounce:= 1;
   244                 gear^.AdvBounce:= 1;
   244                 gear^.Radius:= cHHRadius;
   245                 gear^.Radius:= cHHRadius;
   245                 gear^.Elasticity:= _0_35;
   246                 gear^.Elasticity:= _0_35;
   465    gtAirAttack: begin
   466    gtAirAttack: begin
   466                 gear^.Z:= cHHZ+2;
   467                 gear^.Z:= cHHZ+2;
   467                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   468                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   468                 end;
   469                 end;
   469      gtAirBomb: begin
   470      gtAirBomb: begin
       
   471                 gear^.AdvBounce:= 1;
   470                 gear^.Radius:= 5;
   472                 gear^.Radius:= 5;
   471                 gear^.Density:= _2;
   473                 gear^.Density:= _2;
       
   474                 gear^.Elasticity:= _0_55;
       
   475                 gear^.Friction:= _0_995
   472                 end;
   476                 end;
   473    gtBlowTorch: begin
   477    gtBlowTorch: begin
   474                 gear^.Radius:= cHHRadius + cBlowTorchC;
   478                 gear^.Radius:= cHHRadius + cBlowTorchC;
   475                 if gear^.Timer = 0 then gear^.Timer:= 7500
   479                 if gear^.Timer = 0 then gear^.Timer:= 7500
   476                 end;
   480                 end;