hedgewars/uGears.pas
branch0.9.16
changeset 5958 f9e3033d929f
parent 5872 454f246fe4c5
child 5977 0b1bfdd95310
equal deleted inserted replaced
5957:a6224655647c 5958:f9e3033d929f
   222 gear^.FlightTime:= 0;
   222 gear^.FlightTime:= 0;
   223 gear^.uid:= Counter;
   223 gear^.uid:= Counter;
   224 gear^.SoundChannel:= -1;
   224 gear^.SoundChannel:= -1;
   225 gear^.ImpactSound:= sndNone;
   225 gear^.ImpactSound:= sndNone;
   226 gear^.nImpactSounds:= 0;
   226 gear^.nImpactSounds:= 0;
       
   227 gear^.Density:= _1;
   227 // Define ammo association, if any.
   228 // Define ammo association, if any.
   228 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   229 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   229 if Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then gear^.Z:= cHHZ+1
   230 if Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then gear^.Z:= cHHZ+1
   230 else gear^.Z:= cUsualZ;
   231 else gear^.Z:= cUsualZ;
   231 
   232