hedgewars/uGearsList.pas
changeset 7647 e496587db93e
parent 7602 a620319d377e
child 7649 df90970ae81a
equal deleted inserted replaced
7646:3c18ad8af8a2 7647:e496587db93e
   103 gear^.ImpactSound:= sndNone;
   103 gear^.ImpactSound:= sndNone;
   104 gear^.Density:= _1;
   104 gear^.Density:= _1;
   105 // Define ammo association, if any.
   105 // Define ammo association, if any.
   106 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   106 gear^.AmmoType:= GearKindAmmoTypeMap[Kind];
   107 gear^.CollisionMask:= $FFFF;
   107 gear^.CollisionMask:= $FFFF;
   108 gear^.stepFreq:= 1;
       
   109 
   108 
   110 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
   109 if CurrentHedgehog <> nil then gear^.Hedgehog:= CurrentHedgehog;
   111 
   110 
   112 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
   111 if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then
   113     gear^.Z:= cHHZ+1
   112     gear^.Z:= cHHZ+1