--оставляет на поясе по одному(фиг,теперь двум) артефакту каждого вида
function remove_duplicate()
local t = check_duplicate()
for k, v in pairs(belt_id) do
local sobj = alife():object(k)
if sobj then
local sect = sobj:section_name()
-- if is_unique(sobj:clsid()) and t[sect] ~= nil and t[sect] > 0 then
--if is_unique(sect) and t[sect] ~= nil and t[sect] > 0 then
if unique_sect[sect] and t[sect] ~= nil and t[sect] > 0 then
alife():release(sobj, true)
local text="Убраны лишние артефакты "..game.translate_string(amk.get_inv_name(sect)).." с пояса"
news_manager.send_tip(db.actor, text, nil, nil, nil)
amk.spawn_item_in_inv(sect, db.actor)
t[sect] = t[sect] - 1
end
end
end
end

--собирает инфу о дупликатах на поясе
--возвращает таблицу вида [секция арта] = <количество лишних артов>
function check_duplicate()
local result = {}
for k, v in pairs(belt) do
if v > 2 then
result[k] = v - 2
end
end
return result
end

--возвращает true, если предмет должен быть на поясе в единственном числе
--function is_unique(section)
--[[local result = false
for i=1,table.getn(unique_sect) do
if section == unique_sect[i] then
result = true
break
end
end]]


--return (section ~= nil and unique_sect[section] == true)
--return result
--end

Это не рендомные значения. Эти значения используются при различной сложности игры (новичок, сталкер, ветеран, мастер). Только тут они как папало прописаны, вот из оригинала АК-74:

Если поставить только одну цифру, то это значение hit_power будет использоваться на всех уровнях сложности.

Народная Солянка 2011, имя скрипта ded_moroz, это скрипт, вызывающий разрыв рюкзака при большом весе. Вот он[spoiler]-- Автор - sapsan
local weight_normal = 100 -- базовый нормальный переносимый вес, ниже которого уже ничего не выпадает
local weight_max = 350 -- вес рюкзака, выше которого начнётся вытрясание предметов
local items_dropped_max = 100 -- максимальное количество предметов выброшенное за раз

local kolco = {from = 10, to = 11}
local visota = {from = 2, to = 10}

local sim
local actor
local weight_rukzak
local weight_item
local ini
local items = {}
local items_dropped = {}
local item_active_id -- предмет в руках игнорируется, но вес его учитывается
local current_outfit_id -- одетый бронежилет игнорируется, но вес его учитывается

function vibros()
sim = alife()
actor = db.actor
if sim and actor then
calc_inventory_weight(actor)
--get_console():execute("load ~~~ вес всего, что на и у ГГ: "..weight_rukzak)
if weight_rukzak > weight_max then
-- выбрасываем предметы рандомно
local items_count = #items
local iterations = 0
local items_dropped_count = 0
local koef = weight_rukzak / weight_max -- вероятность вылета предмета
local i
while weight_rukzak > weight_normal
and iterations < items_count
and items_dropped_count < items_dropped_max do
if math.random() < koef then
i = math.random(items_count) -- случайный предмет
if not items_dropped[i] then -- если он еще не был выброшен
items_dropped[i] = true
items_dropped_count = items_dropped_count + 1
vector_add = calc_vector_add()
actor:drop_item_and_teleport(items[i][1], actor:position():add(vector_add))
weight_rukzak = weight_rukzak - items[i][2]
koef = weight_rukzak / weight_max -- вероятность вылета предмета
end
end
iterations = iterations + 1
end
end
end
end

function calc_inventory_weight(npc)
items = {}
items_dropped = {}
weight_rukzak = 0
ini = system_ini()

if npc and npc.inventory_for_each then
local item_active = npc:active_item()
if item_active then
item_active_id = item_active:id()
else
item_active_id = 0
end
local current_outfit = npc:get_current_outfit()
if current_outfit then
current_outfit_id = current_outfit:id()
else
current_outfit_id = 0
end
npc:inventory_for_each(process_calc) -- не будет просматривать скрытые слоты
end
end

function process_calc(item, npc)
if item then
local section = item:section()
if section ~= "arc_ballast" -- непонятная хрень весом в 500 кг!!!
and ini:section_exist(section)
and ini:line_exist(section, "inv_weight") then
weight_item = ini:r_float(section, "inv_weight")
--get_console():execute("load ~~~ в рюкзаке: "..section.." весом: "..weight_item)
if weight_item > 0 then
local item_id = item:id()
-- игнорируем предмет в руках, одетый бронежилет или "защищённый" предмет
if not (ini:line_exist(section, "quest_item") and ini:r_bool(section, "quest_item"))
and item_active_id ~= item_id
and current_outfit_id ~= item_id
and protected_items.obj_is_protected(item, "items_protected", "exactly") == false then
table.insert(items, {item, weight_item})
table.insert(items_dropped, false)
end
-- но вес его учитываем
weight_rukzak = weight_rukzak + weight_item
end
end
end
end

function calc_vector_add()
local a = math.random() * 2 * math.pi
local r = kolco.from + math.random() * math.abs(kolco.to - kolco.from)
local x = math.cos(a) * r
local z = math.sin(a) * r
local y = visota.from + math.random() * math.abs(visota.to - visota.from)
return vector():set(x, y, z)
end

-- Для тестирования!
-- Вызывать из апдейтера
local timer = 0

function update(delta)
timer = timer+delta
if timer>1000000 then timer = 1000000 end
local hud = get_hud()
if hud:GetCustomStatic("main_task") and timer>1000 then
vibros()
timer = 0
end
end