hedgewars/uGearsList.pas
changeset 15230 4576e41c0692
parent 15225 ebbc2f04b863
child 15233 b189d6a2ecda
equal deleted inserted replaced
15229:b96868956514 15230:4576e41c0692
   605                 end;
   605                 end;
   606    gtAirAttack: begin
   606    gtAirAttack: begin
   607                 gear^.Health:= 6;
   607                 gear^.Health:= 6;
   608                 gear^.Damage:= 30;
   608                 gear^.Damage:= 30;
   609                 gear^.Z:= cHHZ+2;
   609                 gear^.Z:= cHHZ+2;
       
   610                 gear^.Karma:= 0; // for sound effect: 0 = normal, 1 = underwater
       
   611                 gear^.Radius:= 150;
       
   612                 gear^.Density:= _19;
   610                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   613                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   611                 end;
   614                 end;
   612      gtAirBomb: begin
   615      gtAirBomb: begin
   613                 gear^.AdvBounce:= 1;
   616                 gear^.AdvBounce:= 1;
   614                 gear^.Radius:= 5;
   617                 gear^.Radius:= 5;