hedgewars/uGears.pas
changeset 306 7b61834edcf6
parent 305 1c1cd66ffcdc
child 307 96b428ac11f2
equal deleted inserted replaced
305:1c1cd66ffcdc 306:7b61834edcf6
   264                 end;
   264                 end;
   265      gtAirBomb: begin
   265      gtAirBomb: begin
   266                 Result.Radius:= 10;
   266                 Result.Radius:= 10;
   267                 end;
   267                 end;
   268    gtBlowTorch: begin
   268    gtBlowTorch: begin
   269                 Result.Radius:= cHHRadius + 6;
   269                 Result.Radius:= cHHRadius;
   270                 Result.Timer:= 7500;
   270                 Result.Timer:= 7500;
   271                 end;
   271                 end;
   272      end;
   272      end;
   273 InsertGearToList(Result)
   273 InsertGearToList(Result)
   274 end;
   274 end;