hedgewars/uGearsList.pas
changeset 7337 c224cd2d32f3
parent 7276 e570bc0df33c
child 7364 ee87ad50e18d
equal deleted inserted replaced
7335:3c6f08af7dac 7337:c224cd2d32f3
    99 gear^.nImpactSounds:= 0;
    99 gear^.nImpactSounds:= 0;
   100 gear^.Density:= _1;
   100 gear^.Density:= _1;
   101 // Define ammo association, if any.
   101 // Define ammo association, if any.
   102 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   102 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   103 gear^.CollisionMask:= $FFFF;
   103 gear^.CollisionMask:= $FFFF;
       
   104 gear^.Power:= 0;
   104 
   105 
   105 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
   106 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
   106 
   107 
   107 if Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   108 if Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
   108     gear^.Z:= cHHZ+1
   109     gear^.Z:= cHHZ+1