hedgewars/uGearsList.pas
changeset 15233 b189d6a2ecda
parent 15230 4576e41c0692
child 15486 d668fcb9307e
equal deleted inserted replaced
15232:a9a1f5824076 15233:b189d6a2ecda
   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
   610                 gear^.Karma:= 0; // for sound effect: 0 = normal, 1 = underwater
   611                 gear^.Radius:= 150;
   611                 gear^.Radius:= 150;
       
   612                 gear^.FlightTime:= 0; // for timeout in weWrap
       
   613                 gear^.Power:= 0; // count number of wraps in weWrap
       
   614                 gear^.WDTimer:= 0; // number of required wraps
   612                 gear^.Density:= _19;
   615                 gear^.Density:= _19;
   613                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   616                 gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF
   614                 end;
   617                 end;
   615      gtAirBomb: begin
   618      gtAirBomb: begin
   616                 gear^.AdvBounce:= 1;
   619                 gear^.AdvBounce:= 1;