hedgewars/uGears.pas
changeset 4258 1766fbab35d8
parent 4254 47515c926984
child 4260 472fd2fc1f31
equal deleted inserted replaced
4256:e78cb3eb228e 4258:1766fbab35d8
   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                 gear^.Tag:= 100;
   534                 gear^.Damage:= 100;
   535                 end;
   535                 end;
   536  gtPoisonCloud: begin
   536  gtPoisonCloud: begin
   537                 gear^.Timer:= 5000;
   537                 gear^.Timer:= 5000;
   538                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   538                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   539                 end;
   539                 end;