----------------------------------------------------------------------------------------------------
-- Таймер с выводом изображения на экран.
----------------------------------------------------------------------------------------------------

local k,v = 0,0

class "action_timer"
function action_timer:__init(obj, storage)
self.object = obj
self.st = storage
end
function action_timer:update(delta)
local actor = db.actor
if xr_logic.try_switch_to_another_section(self.object, self.st, actor) then
return
end
-- Высчитываем сколько времени уже работает счетчик
local nn = time_global() - db.storage[self.object:id()].activation_time

-- Изменяем значение счетчика
local value_time = 0
if self.st.type == "inc" then
value_time = self.st.start_value + nn
else
value_time = self.st.start_value - nn
end
if value_time <= 0 then
value_time = 0
end
-- Формируем строку счетчика
local hours = math.floor(value_time/3600000)
local minutes = math.floor(value_time/60000 - hours*60)
local seconds = math.floor(value_time/1000 - hours*3600 - minutes*60)
local str = tostring(hours)..":"..sr_timer.time2str(minutes)..":"..sr_timer.time2str(seconds)

if self.st.show_timer then
self.st.timer:TextControl():SetTextST(str)
end

-- Определяем нужно ли куда то переходить.
for k,v in pairs(self.st.on_value) do
if (self.st.type == "dec" and value_time <= v.dist) or
(self.st.type == "inc" and value_time >= v.dist)
then
-- Обработка значения.
xr_logic.switch_to_section(self.object, self.st.ini, xr_logic.pick_section_from_condlist(db.actor, self.object, v.state))
end
end
end
function action_timer:deactivate(delta)
if self.st.show_timer then
self.st.ui:RemoveCustomStatic(self.st.timer_id)
if self.st.string ~= nil then
self.st.ui:RemoveCustomStatic("hud_timer_text")
end
end
end
--function action_timer:save()
-- xr_logic.pstor_store( self.object, "timer_value", self.state )
--end

function time2str(n)
if n >= 10 then
return tostring(n)
else
return "0"..tostring(n)
end
end
---------------------------------------------------------------------------------------------------------------------
function add_to_binder(obj, ini, scheme, section, storage)
local action = action_timer(obj, storage)
xr_logic.subscribe_action_for_events(obj, storage, action)
end
function set_scheme(obj, ini, scheme, section, gulag_name)
local st = xr_logic.assign_storage_and_bind(obj, ini, scheme, section)
st.logic = xr_logic.cfg_get_switch_conditions(ini, section, obj)
st.type = utils.cfg_get_string( ini, section, "type", obj, false, "", "inc")
st.show_timer = utils.cfg_get_bool(ini, section, "show_timer", obj, true)
if st.type ~= "inc" and st.type ~= "dec" then
abort("ERROR: wrong sr_timer type. Section [%s], Restrictor [%s]", section, obj:name())
end

if st.type == "dec" then
st.start_value = utils.cfg_get_number(ini, section, "start_value", obj, true)
else
st.start_value = utils.cfg_get_number(ini, section, "start_value", obj, false, 0)
end
-- Вычитываем значения перехода.
st.on_value = parse_data(obj, utils.cfg_get_string(ini, section, "on_value", obj, false, ""))
st.timer_id = utils.cfg_get_string( ini, section, "timer_id", obj, false, "", "hud_timer")
st.string = utils.cfg_get_string( ini, section, "string", obj, false, "")

if st.show_timer then
st.ui = get_hud()
st.ui:AddCustomStatic(st.timer_id, true)
st.timer = st.ui:GetCustomStatic(st.timer_id):wnd()

if st.string ~= nil then
st.ui:AddCustomStatic("hud_timer_text", true)
local timer_text = st.ui:GetCustomStatic("hud_timer_text"):wnd()
timer_text:TextControl():SetTextST(st.string)
end
end
end

function parse_data(npc,s)
local t = {}

if s then
for name in string.gfind( s, "(%|*%d+%|[^%|]+)%p*" ) do
local dat = { dist = nil,
state = nil}

local t_pos = string.find( name, "|", 1, true )

local dist = string.sub( name, 1, t_pos - 1 )
local state = string.sub( name, t_pos + 1)

dat.dist = tonumber(dist)
if state then
dat.state = xr_logic.parse_condlist(npc, dist, state, state)
end
table.insert(t, dat)
end
end
return t
end

[sr_timer@test]
type = dec
start_value = 45000
on_value = 0 | sr_idle@end
show_timer = false

local stalkers_table = {
"test_stalker_visual",
"test_stalker_visual_corpse",
"test_stalker_dead",
"test_stalker_suicide",
"test_bandit_suicide",
"test_stalker_eat_vodka",
"test_stalker_companion",
"test_stalker_weapon",
"test_bandit_weapon",
"test_stalker_mechanic",
"sim_default_duty_0",
"sim_default_duty_1",
"sim_default_duty_2",
"sim_default_duty_3",
"sim_default_duty_4",
"sim_default_monolith_0",
"sim_default_monolith_1",
"sim_default_monolith_2",
"sim_default_monolith_3",
"sim_default_monolith_4",
"sim_default_freedom_0",
"sim_default_freedom_1",
"sim_default_freedom_2",
"sim_default_freedom_3",
"sim_default_freedom_4",
"sim_default_bandit_0",
"sim_default_bandit_1",
"sim_default_bandit_2",
"sim_default_bandit_3",
"sim_default_bandit_4",
"sim_default_bandit_alies_0",
"sim_default_bandit_alies_1",
"sim_default_bandit_alies_2",
"sim_default_bandit_alies_3",
"sim_default_bandit_alies_4",
"sim_default_bandit_enemy_0",
"sim_default_bandit_enemy_1",
"sim_default_bandit_enemy_2",
"sim_default_bandit_enemy_3",
"sim_default_bandit_enemy_4",
"sim_default_stalker_0",
"sim_default_stalker_1",
"sim_default_stalker_2",
"sim_default_stalker_3",
"sim_default_stalker_4",
"sim_default_military_0",
"sim_default_military_1",
"sim_default_military_2",
"sim_default_military_3",
"sim_default_military_3_sniper",
"sim_default_military_4",
"sim_default_killer_0",
"sim_default_killer_1",
"sim_default_killer_2",
"sim_default_killer_3",
"sim_default_killer_4",
"sim_default_zombied_1",
"sim_default_zombied_2",
"sim_default_zombied_3",
"sim_default_zombied_4"
}
local monsters_table = {
"test_boar_companion",
"bloodsucker_weak",
"bloodsucker_normal",
"bloodsucker_strong",
"boar_normal",
"boar_strong",
"burer_normal",
"chimera_normal",
"m_controller_normal",
"controller_tubeman",
"dog_weak",
"dog_normal",
"dog_strong",
"dog_cute",
"flesh_normal",
"flesh_strong",
"gigant_normal",
"m_poltergeist_normal_tele",
"m_poltergeist_normal_flame",
"pseudodog_normal",
"psy_dog",
"psy_dog_normal",
"snork_weak",
"snork_normal",
"snork_strong",
"tushkano_normal"
}
local objects_table = {
"explosive_fuelcan",
"explosive_tank",
"explosive_gaz_balon",
"explosive_barrel_low",
"explosive_barrel",
"explosive_mobiltank",
"explosive_dinamit"
}

class "spawn_object" (CUIListBoxItem)

function spawn_object:__init(height) super(height)
self.text = self:GetTextItem()
self:SetTextColor (GetARGB(255, 210, 210, 210))
self.text:SetFont (GetFontLetterica18Russian())
self.text:SetWndSize (vector2():set(400,height))
self.text:SetEllipsis (true)
end

class "spawn_object_dialog" (CUIScriptWnd)

function spawn_object_dialog:__init() super()
self:InitControls ()
self:InitCallBacks ()
self:FillList (stalkers_table)
end

function spawn_object_dialog:__finalize()
end

function spawn_object_dialog:FillList(tbl)
self.list:Clear()
for i = 1, #tbl do
self:AddItemToList(tbl[i])
end
end

function spawn_object_dialog:InitControls()
local xml = CScriptXmlInit()
local ctrl
xml:ParseFile ("ui_spawn_dlg.xml")
ctrl = xml:InitFrame("background_obj",self)
self:SetWndPos (vector2():set(100,100))
self:SetWndSize (vector2():set(ctrl:GetWidth(), ctrl:GetHeight()))
ctrl = xml:Init3tButton("btn_stalkers",self)
self:Register (ctrl, "btn_stalkers")
ctrl = xml:Init3tButton("btn_monsters",self)
self:Register (ctrl, "btn_monsters")
ctrl = xml:Init3tButton("btn_objects",self)
self:Register (ctrl, "btn_objects")
self.list = xml:InitListBox ("list",self)
self.list:ShowSelectedItem (true)
self:Register (self.list, "list_window")
ctrl = xml:Init3tButton("btn_create",self)
self:Register (ctrl, "btn_create")
ctrl = xml:Init3tButton ("btn_close",self)
self:Register (ctrl, "btn_close")
end

function spawn_object_dialog:InitCallBacks()
self:AddCallback("btn_create", ui_events.BUTTON_CLICKED, self.OnButton_create_clicked, self)
self:AddCallback("btn_close", ui_events.BUTTON_CLICKED, self.OnButton_close_clicked, self)
self:AddCallback("list_window", ui_events.WINDOW_LBUTTON_DB_CLICK, self.OnButton_create_clicked, self)
self:AddCallback("btn_stalkers", ui_events.BUTTON_CLICKED, self.OnButton_stalkers_clicked, self)
self:AddCallback("btn_monsters", ui_events.BUTTON_CLICKED, self.OnButton_monsters_clicked, self)
self:AddCallback("btn_objects", ui_events.BUTTON_CLICKED, self.OnButton_objects_clicked, self)
end

function spawn_object_dialog:OnButton_stalkers_clicked()
self:FillList(stalkers_table)
end
function spawn_object_dialog:OnButton_monsters_clicked()
self:FillList(monsters_table)
end
function spawn_object_dialog:OnButton_objects_clicked()
self:FillList(objects_table)
end

function spawn_object_dialog:OnButton_create_clicked()
local dis = 45+math.random(-15,15)
local dir = db.actor:direction()
local pos = db.actor:position()
if self.list:GetSize()==0 then
return
end
local obj=self.list:GetSelectedItem()
if not obj then
return
end
local objname = obj.text:GetText()
pos = pos:add(dir:mul(dis))
alife():create(objname, pos, db.actor:level_vertex_id(), db.actor:game_vertex_id())
end

function spawn_object_dialog:OnButton_close_clicked()
self:HideDialog()
_G.si_dlg = nil
end

function spawn_object_dialog:OnKeyboard(dik, keyboard_action)
CUIScriptWnd.OnKeyboard(self,dik,keyboard_action)
if keyboard_action == ui_events.WINDOW_KEY_PRESSED then
if dik == DIK_keys.DIK_ESCAPE then
self:OnButton_close_clicked()
end
end
end

function spawn_object_dialog:AddItemToList(obj_name)
local _obj = spawn_object(22)
_obj.text:SetText (obj_name)
self.list:AddExistingItem (_obj)
end