hedgewars/uGearsList.pas
changeset 11169 1b386b9e1be0
parent 11046 47a8c19ecb60
child 11170 22d8835beb4d
equal deleted inserted replaced
11168:c75f87d4bb64 11169:1b386b9e1be0
   464                 if gear^.Timer = 0 then gear^.Timer:= 3000;
   464                 if gear^.Timer = 0 then gear^.Timer:= 3000;
   465                 gear^.Radius:= 15;
   465                 gear^.Radius:= 15;
   466                 gear^.Tag:= Y
   466                 gear^.Tag:= Y
   467                 end;
   467                 end;
   468    gtAirAttack: begin
   468    gtAirAttack: begin
       
   469                 gear^.Health:= 6;
   469                 gear^.Z:= cHHZ+2;
   470                 gear^.Z:= cHHZ+2;
   470                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   471                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   471                 end;
   472                 end;
   472      gtAirBomb: begin
   473      gtAirBomb: begin
   473                 gear^.AdvBounce:= 1;
   474                 gear^.AdvBounce:= 1;