hedgewars/uGearsList.pas
changeset 8992 5b0be812dcdb
parent 8987 47cf32305d99
child 9080 9b42757d7e71
equal deleted inserted replaced
8991:82e3a6e5d51b 8992:5b0be812dcdb
   468                 gear^.Radius:= 8
   468                 gear^.Radius:= 8
   469                 end;
   469                 end;
   470      gtJetpack: begin
   470      gtJetpack: begin
   471                 gear^.Health:= 2000;
   471                 gear^.Health:= 2000;
   472                 gear^.Damage:= 100;
   472                 gear^.Damage:= 100;
   473                 gear^.State:= gstNoDrown
   473                 gear^.State:= gstSubmersible
   474                 end;
   474                 end;
   475      gtMolotov: begin
   475      gtMolotov: begin
   476                 gear^.Radius:= 6;
   476                 gear^.Radius:= 6;
   477                 gear^.Density:= _2;
   477                 gear^.Density:= _2;
   478                 end;
   478                 end;