function disable_ui_elements(actor, npc, p)
local i, v = 0, 0
for i, v in pairs(p) do
if v == "all" then
db.actor:hide_weapon()
level.disable_input()
level.hide_indicators()
break
elseif v == "weapon" then
db.actor:hide_weapon()
elseif v == "input" then
level.disable_input()
elseif v == "hud" then
level.hide_indicators()
end
end
--printf("xr_effects <disable_ui_elements>")
end

function enable_ui_elements(actor, npc, p)
local i, v = 0, 0
for i, v in pairs(p) do
if v == "all" then
level.show_indicators()
level.enable_input()
db.actor:restore_weapon()
break
elseif v == "hud" then
level.show_indicators()
elseif v == "input" then
level.enable_input()
elseif v == "weapon" then
db.actor:restore_weapon()
end
end
end

function disable_ui(actor, npc)
db.actor:hide_weapon()
level.disable_input()
level.hide_indicators()
--printf("xr_effects <disable_ui>")
end

function enable_ui(actor, npc)
level.show_indicators()
level.enable_input()
db.actor:restore_weapon()
--printf("xr_effects <enable_ui>")
end

function run_effect()
level.add_pp_effector("deadcity_wake.ppe", 3000, false)
level.add_cam_effector("dream.anm", 3001, false, "")
end

local anti_cheat = {
["oskolok_legenda"] = true,
["oskolok_left"] = true,
}

-- поиграем честно
function remove_cheat()
local t = check_cheat()
for k, v in pairs(item_id) do
local sobj = alife():object(k)
if sobj then
local sect = sobj:section_name()
if anti_cheat[sect] and t[sect] ~= nil and t[sect] > 0 then
alife():release(sobj, true)
t[sect] = t[sect] - 1
end
end
end
end

function check_cheat()
local result = {}
for k, v in pairs(items) do
if v > 1 then
result[k] = v - 1
end
end
return result
end

belt = {}
belt_id = {}
belt_status = false
items = {}
item_id = {}
item_status = false

local need_update = true
local inventory_open = false
local separator_spawned = false
local separator = "separator"

local debug = false
local flag

function update()

if (need_update == false) then return end

if debug == true and belt_status == true then get_console():execute("belt_status=false") end
belt_status = false
if debug == true and item_status == false then get_console():execute("item_status=true") end
item_status = true

-- Спавним разделяющий елемент
if (separator_spawned == false) then
alife():create(separator,
db.actor:position(),
db.actor:level_vertex_id(),
db.actor:game_vertex_id(),
db.actor:id())
separator_spawned = true
if debug == true then get_console():execute("separator_spawned") end
return
end

belt = {}
belt_id = {}
items = {}
item_id = {}

flag = 0

-- Сканируем инвентарь
db.actor:inventory_for_each(scan_inv)
need_update = false

-- Удаляем разделяющий елемент
db.actor:inventory_for_each(del_separator)
separator_spawned = false

if debug == true and belt_status == false then get_console():execute("belt_status=true") end
belt_status = true
if debug == true and item_status == false then get_console():execute("item_status=true") end
item_status = true

if debug == true then
for i,k in pairs(belt) do
get_console():execute(i.."="..k)
end
end
if debug == true then
for i,k in pairs(items) do
get_console():execute(i.."="..k)
end
end
remove_duplicate()
end

-- Перебор предметов инвентаря
function scan_inv(item)
local section = item:section()

if section == separator then
flag = 1
return
end

if flag == 1 then
if slot_item(item) ~= nil then
flag = 2
else
insert_to_table(belt, section)
belt_id[item:id()] = true
insert_to_table(item, section)
item_id[item:id()] = true
end
end
end

-- Добавление в таблицу
function insert_to_table(tbl, section)
if tbl[section] == nil then
tbl[section] = 1
else
tbl[section] = tbl[section] + 1
end
end

-- Удаление разделяющего предмета
function del_separator(item)
if item:section() == separator then
alife():release(alife():object(item:id()), true)
if debug == true then get_console():execute("separator_removed") end
end
end

-- Определение налечия предмета в одном из слотов
function slot_item(item)
for i=0,12 do
local obj = db.actor:item_in_slot(i)
if obj and item:id() == obj:id() then
return i
end
end

return nil
end

-- Поднятие предмета
function on_item_take(item)
if item:section() == separator then return end

if (inventory_open == false) then
if (separator_spawned == true) then
db.actor:inventory_for_each(del_separator)
separator_spawned = false
end

need_update = true
if debug == true then get_console():execute("item_take") end
end
end

-- Выброс предмета
function on_item_drop(item)
if item:section() == separator then return end

if (inventory_open == false) then
if (separator_spawned == true) then
db.actor:inventory_for_each(del_separator)
separator_spawned = false
end

need_update = true
if debug == true then get_console():execute("item_drop") end
end
end

-- Открытие/закрытие инвентаря
function on_inventory_info(info_id)
if info_id == "ui_inventory" then
inventory_open = true
if debug == true then get_console():execute("inventory_open") end

elseif info_id == "ui_inventory_hide" then
inventory_open = false
need_update = true
if debug == true then get_console():execute("inventory_close") end
end
end

function check_blood()
-- if belt_status == true then
if belt["af_blood"]~=nil and belt["af_blood"]>0 then -- то есть когда параметр пояса[af_blood] равен 1, 2, 3.. Сколько навесишь Камней.
amk.send_tip("Кровь Камня на поясе")
end
-- end
end

local unique_sect = {
["af_medusa"] = true,
["af_cristall_flower"] = true,
--["af_vyvert_green"] = true,
--["af_blood_green"] = true,
--["af_dummy_spring_red"] = true,
--["af_dummy_battery_red"] = true,
--["af_dummy_pellicle_red"] = true,
--["af_babka_3"] = true,
--["af_babka_4"] = true,
--["af_armor_4"] = true,
--["af_cry_3"] = true,
--["af_dik_4"] = true,
--["af_kol_3"] = true,
--["af_kol_4"] = true,
--["af_pudd_4"] = true,
--["af_spirit_3"] = true,
--["af_spirit_4"] = true,
--["af_gold_fish"] = true,
--["af_eye_voron"] = true
}

-- Оставляет на поясе по двум артефактам каждого вида
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)
inventory.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 > 1 then
result[k] = v - 1
end
end
return result
end

--спавним объекты на карту
--для спавна неписей смотрим config\creatures\spawn_sections.ltx - там написаны имена секций для разных типов неписей
function spawn_item(spawn_item, pos, gv,lv)
if gv==nil then gv=db.actor:game_vertex_id() end
if lv==nil then lv=db.actor:level_vertex_id() end
return alife():create(spawn_item, pos, lv, gv)
end

--для спавна патронов используем spawn_ammo_in_inv
function spawn_item_in_inv(spawn_item,npc)
if npc==nil then
npc=db.actor
end
return alife():create(spawn_item,
npc:position(),
npc:level_vertex_id(),
npc:game_vertex_id(),
npc:id())
end

--используем для спавна патронов
function spawn_ammo_in_inv(spawn_item,number,npc)
if npc==nil then
npc=db.actor
end
if number > 0 then
return se_respawn.create_ammo(spawn_item,
npc:position(),
npc:level_vertex_id(),
npc:game_vertex_id(),
npc:id(),
number)
end
end

local anti_cheat = {
["oskolok_legenda"] = true,
["oskolok_left"] = true,
}

-- поиграем честно
function remove_cheat()
local t = check_cheat()
for k, v in pairs(item_id) do
local sobj = alife():object(k)
if sobj then
local sect = sobj:section_name()
if anti_cheat[sect] and t[sect] ~= nil and t[sect] > 0 then
alife():release(sobj, true)
t[sect] = t[sect] - 1
end
end
end
end

function check_cheat()
local result = {}
for k, v in pairs(items) do
if v > 1 then
result[k] = v - 1
end
end
return result
end