364             inc(slot)

   364             inc(slot)

   365             end

   365             end

   366         end;

   366         end;

   367     TryDo(slot <= cMaxSlotIndex, 'Ammo slot index overflow', true);

   367     TryDo(slot <= cMaxSlotIndex, 'Ammo slot index overflow', true);

   368     CurAmmoType:= Ammo^[slot, ammoidx].AmmoType;

   368     CurAmmoType:= Ammo^[slot, ammoidx].AmmoType;

   370     end

   369     end

   371 end;

   370 end;

   372 

   371 

   373 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

   372 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

   374 var s: ansistring;

   373 var s: ansistring;