213 if ammos[ammo] > AMMO_INFINITE then ammos[ammo]:= AMMO_INFINITE;

   213 if ammos[ammo] > AMMO_INFINITE then ammos[ammo]:= AMMO_INFINITE;

   214 

   214 

   215 FillAmmoStore(hhammo, ammos);

   215 FillAmmoStore(hhammo, ammos);

   216 CurWeapon:= GetAmmoEntry(Hedgehog);

   216 CurWeapon:= GetAmmoEntry(Hedgehog);

   217 with Hedgehog, CurWeapon^ do

   217 with Hedgehog, CurWeapon^ do

   219             begin

   219             begin

   220             PackAmmo(Ammo, Ammoz[AmmoType].Slot);

   220             PackAmmo(Ammo, Ammoz[AmmoType].Slot);

   221             CurAmmoType:= amNothing

   221             CurAmmoType:= amNothing

   222             end

   222             end

   223 end;

   223 end;