hedgewars/uGears.pas
changeset 2968 f59631c3c1c0
parent 2964 312e74a21603
child 2983 25b6b554c516
equal deleted inserted replaced
2967:e078f40a0f83 2968:f59631c3c1c0
   428                 end;
   428                 end;
   429      gtJetpack: begin
   429      gtJetpack: begin
   430                 gear^.Health:= 2000;
   430                 gear^.Health:= 2000;
   431                 end;
   431                 end;
   432      gtMolotov: begin 
   432      gtMolotov: begin 
   433                 gear^.Radius:= 8;
   433                 gear^.Radius:= 6;
   434                 end;
   434                 end;
   435      end;
   435      end;
   436 InsertGearToList(gear);
   436 InsertGearToList(gear);
   437 AddGear:= gear;
   437 AddGear:= gear;
   438 
   438