function remove_ammo(actor, npc, p)
local rnd = 0
local cnt = 0
local t = {}
local sim = alife()
if p and p[1] then
if p[2] > p[3] then
rnd = math.random(p[3], p[2])
else
rnd = math.random(p[2], p[3])
end

db.actor:iterate_inventory(
function(npc, item)
if item:section() == p[1] then
table.insert(t, item:id())
end
end
, db.actor)

for i, id in ipairs(t) do
local obj = level.object_by_id(id)
cnt = get_ammo_size(obj)
if cnt ~= 0 and rnd > 0 then
if cnt >= rnd then
sim:release(sim:object(id), true)
alife():create_ammo(p[1],db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id(),db.actor:id(), cnt-rnd)
rnd = rnd - cnt
else
sim:release(sim:object(id), true)
rnd = rnd - cnt
end
end
end
end
end

Осталось только найти/написать функцию get_ammo_size которая по объекту должна вернуть количество патронов в пачке. Найденные на просторах Интернета работают не корректно!

function get_ammo_size(obj)
local se_obj = alife():object(obj:id())
if se_obj == nil then return 0 end
local packet = net_packet()
cse_alife_item_ammo.STATE_Write(se_obj, packet)
--packet:r_advance(18)
--packet:r_stringZ()
--packet:r_advance(8)
--packet:r_stringZ()
--packet:r_advance(5)
packet:r_seek(packet:w_tell() - 2)
return packet:r_u16()
end

=remove_ammo(ammo_5.45x39_fmj:30:60)