hedgewars/uGears.pas
changeset 3485 ab91c56a9050
parent 3483 54ff8cbabaa6
child 3496 8fb007d36c09
equal deleted inserted replaced
3484:3c65b1d979cd 3485:ab91c56a9050
   493  gtSineGunShot: begin
   493  gtSineGunShot: begin
   494                 gear^.Radius:= 5;
   494                 gear^.Radius:= 5;
   495                 gear^.Health:= 6000;
   495                 gear^.Health:= 6000;
   496                 end;
   496                 end;
   497 gtFlamethrower: begin
   497 gtFlamethrower: begin
   498                 gear^.Timer:= 5001;
   498                 gear^.Tag:= 10;
       
   499                 gear^.Timer:= 10;
       
   500                 gear^.Health:= 500;
   499                 end;
   501                 end;
   500      end;
   502      end;
   501 InsertGearToList(gear);
   503 InsertGearToList(gear);
   502 AddGear:= gear;
   504 AddGear:= gear;
   503 
   505