hedgewars/uGearsList.pas
changeset 12833 948eae885eac
parent 12669 943b258d5443
child 12903 8a40ce061d94
equal deleted inserted replaced
12832:b7453ae2c44d 12833:948eae885eac
   510                 gear^.RenderTimer:= true
   510                 gear^.RenderTimer:= true
   511                 end;
   511                 end;
   512       gtShover: begin
   512       gtShover: begin
   513                 gear^.Radius:= 20;
   513                 gear^.Radius:= 20;
   514                 gear^.Tag:= 0;
   514                 gear^.Tag:= 0;
   515                 gear^.Timer:= 100;
   515                 gear^.Timer:= 50;
   516                 end;
   516                 end;
   517        gtFlame: begin
   517        gtFlame: begin
   518                 gear^.Tag:= GetRandom(32);
   518                 gear^.Tag:= GetRandom(32);
   519                 gear^.Radius:= 1;
   519                 gear^.Radius:= 1;
   520                 gear^.Health:= 5;
   520                 gear^.Health:= 5;