169       begin

   169       begin

   170       for i:= 0 to cMaxHHIndex do

   170       for i:= 0 to cMaxHHIndex do

   171           if Hedgehogs[i].Gear <> nil then

   171           if Hedgehogs[i].Gear <> nil then

   172              begin

   172              begin

   173              Hedgehogs[i].Ammo:= GetAmmoByNum(Hedgehogs[i].AmmoStore);

   173              Hedgehogs[i].Ammo:= GetAmmoByNum(Hedgehogs[i].AmmoStore);

   175              end

   178              end

   176       end

   179       end

   177 end;

   180 end;

   178 

   181 

   179 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType);

   182 procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType);