226             dec(Count);

   226             dec(Count);

   227             if Count = 0 then

   227             if Count = 0 then

   228                 begin

   228                 begin

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

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

   230                 //SwitchNotHeldAmmo(Hedgehog);

   230                 //SwitchNotHeldAmmo(Hedgehog);

   232                 CurAmmoType:= amNothing

   231                 CurAmmoType:= amNothing

   233                 end

   232                 end

   234             end

   233             end

   235     end;

   234     end;

   236 perfExt_AmmoUpdate;

   235 perfExt_AmmoUpdate;

   293             inc(slot)

   292             inc(slot)

   294             end

   293             end

   295         end;

   294         end;

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

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

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

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

   302     end

   297     end

   303 end;

   298 end;

   304 

   299 

   305 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

   300 procedure ApplyAmmoChanges(var Hedgehog: THedgehog);

   306 var s: shortstring;

   301 var s: shortstring;