-- Получить биндер кнопки
function GetBind(key)--(keys)
get_console():execute("cfg_save")
local file_path = getFS():update_path("$app_data_root$", "user.ltx")
local file = io.open( file_path, "r" )
local bind = ""
if file ~= nil then
for line in file:lines() do
if string.find(key,line) or string.find(line,key) then
local tbind = string_expl(line, " ")
bind = tostring(tbind[#tbind])
end
end
file:close()
end
return bind
end

--! Внимание: стандартный шаблон плохо работает с "особыми" символами (например #) и разбивает строку криво
function string_expl(sStr, sDiv, Mode, bNoClear)
sStr = tostring(sStr)
if not (sStr ~= "nil" and sStr ~= '') then return {} end --> нечего разделять
local tRet = {}
local sPattern = '[%w%_]+' --> дефолтный патерн (разделение по 'словам')
if type(sDiv) == "string" then --> если задан сепаратор: разделяем по нему
if bNoClear then --> если НЕ указано 'чистить пробелы'
sPattern = '([^'..sDiv..']+)'
else --> иначе с чисткой пробелов
sPattern = '%s*([^'..sDiv..']+)%s*'
end
end
--* разделяем строку по патерну
if Mode == nil then --> обычный массив
for sValue in sStr:gmatch(sPattern) do
table.insert(tRet, sValue)
end
else
local sTypeMode = type(Mode)
if sTypeMode == "boolean" then --> таблица '[значение] = true или false'
for sValue in sStr:gmatch(sPattern) do
tRet[sValue] = Mode
end
elseif sTypeMode == "number" then --> таблица '[idx] = число или стринг'
for sValue in sStr:gmatch(sPattern) do
tRet[#tRet+1] = tonumber(sValue) or sValue
end
end
end
return tRet --> возвращаем таблицу
end

--Функции для работы с пстором (грубо говоря память игры)
function memory_save (variable_name, value)
xr_logic.pstor_store(db.actor, variable_name, value)
end

function memory_load (variable_name, value_if_not_found)
return xr_logic.pstor_retrieve(db.actor, variable_name, value_if_not_found)
end

function memory_delite (variable_name)
if db.storage[db.actor:id()].pstor[variable_name] then
db.storage[db.actor:id()].pstor[variable_name] = nil
end
end

function block_inventory()
local key = GetBind("bind inventory") -- основная кнопка инвентаря
local key_sec = GetBind("bind_sec inventory") -- запасная кнопка инвентаря
if key then
memory_save("bind_inventory", key) -- сохроняем кнопки
end
if key_sec then
memory_save("bind_inventory_sec", key_sec) -- сохроняем кнопки
end
get_console():execute("unbind inventory")
get_console():execute("unbind_sec inventory")
end

function unblock_inventory()
local key = memory_load("bind_inventory", "kI") -- основная кнопка инвентаря
local key_sec = memory_load("bind_inventory_sec", "kI")-- запасная кнопка инвентаря
get_console():execute(string.format("bind_sec inventory %s", key_sec))
get_console():execute(string.format("bind inventory %s", key))
memory_delite("bind_inventory") -- чистим память
memory_delite("bind_inventory_sec") -- чистим память
end