hedgewars/uGearsList.pas
changeset 15820 b6379a7ed674
parent 15715 e0cdb6ae88ab
equal deleted inserted replaced
15819:c5198f55ee1c 15820:b6379a7ed674
   627                 gear^.Density:= _2;
   627                 gear^.Density:= _2;
   628                 gear^.Elasticity:= _0_55;
   628                 gear^.Elasticity:= _0_55;
   629                 gear^.Friction:= _0_995
   629                 gear^.Friction:= _0_995
   630                 end;
   630                 end;
   631    gtBlowTorch: begin
   631    gtBlowTorch: begin
   632                 gear^.Radius:= cHHRadius + cBlowTorchC;
   632                 gear^.Radius:= cHHRadius + cBlowTorchC - 1;
   633                 if gear^.Timer = 0 then gear^.Timer:= 7500
   633                 if gear^.Timer = 0 then gear^.Timer:= 7500
   634                 end;
   634                 end;
   635     gtSwitcher: begin
   635     gtSwitcher: begin
   636                 gear^.Z:= cCurrHHZ
   636                 gear^.Z:= cCurrHHZ
   637                 end;
   637                 end;