hedgewars/uGears.pas
branch0.9.14
changeset 4251 4b7d3507d175
parent 4240 4e81670e52aa
child 4253 160f987a5d9f
equal deleted inserted replaced
4249:f6d0b8445cac 4251:4b7d3507d175
   492                 gear^.Health:= 3;
   492                 gear^.Health:= 3;
   493                 gear^.Radius:= 8
   493                 gear^.Radius:= 8
   494                 end;
   494                 end;
   495      gtJetpack: begin
   495      gtJetpack: begin
   496                 gear^.Health:= 2000;
   496                 gear^.Health:= 2000;
       
   497                 gear^.Damage:= 100
   497                 end;
   498                 end;
   498      gtMolotov: begin
   499      gtMolotov: begin
   499                 gear^.Radius:= 6;
   500                 gear^.Radius:= 6;
   500                 end;
   501                 end;
   501        gtBirdy: begin
   502        gtBirdy: begin
   529                 end;
   530                 end;
   530 gtFlamethrower: begin
   531 gtFlamethrower: begin
   531                 gear^.Tag:= 10;
   532                 gear^.Tag:= 10;
   532                 gear^.Timer:= 10;
   533                 gear^.Timer:= 10;
   533                 gear^.Health:= 500;
   534                 gear^.Health:= 500;
       
   535                 gear^.Damage:= 100;
   534                 end;
   536                 end;
   535  gtPoisonCloud: begin
   537  gtPoisonCloud: begin
   536                 gear^.Timer:= 5000;
   538                 gear^.Timer:= 5000;
   537                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   539                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   538                 end;
   540                 end;