529                 end;

   529                 end;

   530 gtFlamethrower: begin

   530 gtFlamethrower: begin

   531                 gear^.Tag:= 10;

   531                 gear^.Tag:= 10;

   532                 gear^.Timer:= 10;

   532                 gear^.Timer:= 10;

   533                 gear^.Health:= 500;

   533                 gear^.Health:= 500;

   534                 end;

   535                 end;

   535  gtPoisonCloud: begin

   536  gtPoisonCloud: begin

   536                 gear^.Timer:= 5000;

   537                 gear^.Timer:= 5000;

   537                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;

   538                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;

   538                 end;

   539                 end;