hedgewars/uGearsList.pas
changeset 10889 f7200e614295
parent 10875 67b92a09cded
child 10891 a4c454ef80a6
equal deleted inserted replaced
10887:efc14052360a 10889:f7200e614295
   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;