--[[---------------------------------------------------------------------------------------------------------
File : ins_timer.script
Author of assembly : ins33
Start : Добавить в секцию фонаря "[device_torch]" script_binding = name_script.init
-]]----------------------------------------------------------------------------------------------------------

time_a
local rest_time_a = 0
local minute = 60*1000 -- игровая минута
local hour = minute*6 -- игровой час

function update() -- в bind_stalker.script в update(delta) добавь name_script.update()
this.timer_start() -- Таймер
this.hud_timer() -- Вывод секундомера на худ.
end

function timer() -- в диалог добавляем <action>name_script.name_function</action>
time_a = time_global() + hour*2 -- взводим на 2 часа
db.actor:give_info_portion("get_gun1") -- Выдаём поршень работы таймера.
end

function timer_start() -- на update(delta)
if has_alife_info("name_infoporticion") then -- проверяем условие работы таймера
if time_a == nil then -- если вдруг таймер обнулился (перезагрузка)
if rest_time_a ~= 0 then -- и остался остаток (он будет только если используешь тот скрипт) то
time_a = time_global() + rest_time_a -- вычисляем остаток времени
end
else -- или
rest_time_a = time_a - time_global() -- остаток = разнице
if time_a < time_global() then -- если пора "вставать"
db.actor:disable_info_portion("name_infoporticion") -- забираем поршень, что-бы остановить таймер.
db.actor:give_info_portion("get_gun") -- выдаём поршень, который проверяется в диалоге.
news_manager.send_tip(db.actor, "%c[255,0,255,0]Бармен.\\n%c[default]Зайди ко мне, поговорить надо.", 0, "trader", 5000) -- отправим смс. Если надо.
time_a = nil -- обнуляем
rest_time_a = 0 -- обнуляем
end
end
end
end

-- выводим значение таймера в обратном отсчете на худ
function hud_timer() --/ вызывается из ':update' сталкер-биндера
local hud = get_hud()
local st
if time_a then
st = hud:GetCustomStatic("hud_timer")
if st==nil then
hud:AddCustomStatic("hud_timer", true)
st = hud:GetCustomStatic("hud_timer")
end
if rest_time_a~=nil then -- Остался ли остаток
local hours = math.floor(rest_time_a/3600000) -- показываем часы
local minutes = math.floor(rest_time_a/60000 - hours*60) -- показываем минуты
local seconds = math.floor(rest_time_a/1000 - hours*3600 - minutes*60) -- показываем секунды
local text = string.format("%02d:%02d:%02d",hours,minutes,seconds) -- формат вывода
st:wnd():SetTextST(text)
end
else
if hud:GetCustomStatic("hud_timer")~=nil then
hud:RemoveCustomStatic("hud_timer")
end
end
end

--[[---------------------------------------------------------------------------------------------------------
File : binder_torch.script
Description : Биндер фонарика - используется для замены вызова функций из bind_stalker.script
Copyright : 2010 © Erlik
Author : Erlik (aka Garry_Galler)
Last edit : 4.10.2010
-]]----------------------------------------------------------------------------------------------------------

function init(obj)
local torch = torch_binder(obj)
obj:bind_object(torch)
end

class "torch_binder" (object_binder)
function torch_binder:__init(obj) super(obj)
end

function torch_binder:reload(section)
object_binder.reload(self, section)
end

function torch_binder:reinit()
object_binder.reinit(self)
end

function torch_binder:update(delta)
object_binder.update(self, delta)
update()
end

function torch_binder:net_spawn(data)
return object_binder.net_spawn(self, data)
end

function torch_binder:net_destroy()
object_binder.net_destroy(self)
end

function torch_binder:net_save_relevant()
return true
end

--// сохранение и загрузка табличных и прочих данных - так как фонарик всегда в онлайне - очень удобно использовать

function torch_binder:save(p) -- тут сохраняем значение
object_binder.save(self, p)
p:w_u32(rest_time_a) -- остаток
p:w_u32(this.SaveBackTimer()) -- походу тут хранится
end

function torch_binder:load® -- отсюда загружаем
object_binder.load(self, r)
rest_time_a = r:r_u32() -- остаток
this.LoadBackTimer(r:r_u32()) -- соответственно загружается
end

--------------------------- this.time_back ---------------------------

-- Если квест выполнится до истечения таймера, вызываем остановку
function StopBackTimer()
iTimer = nil
iLast=nil
end

-- перезапуск таймера на остаток времени если мы выходили из игры
function LoadBackTimer(iVal)
iLast = iVal
end

-- запишем значение остатка времени
function SaveBackTimer()
return iLast
end

----------------------------------------------------------------------------------------------------
-- Mob Home
----------------------------------------------------------------------------------------------------
-- Разработчик: Jim
----------------------------------------------------------------------------------------------------

local def_min_radius = 20
local def_max_radius = 40

class "mob_home"

----------------------------------------------------------------------------------------------------
-- CONSTRUCTION SCHEME
----------------------------------------------------------------------------------------------------
function mob_home:__init(obj, storage)
self.object = obj
self.st = storage
end

----------------------------------------------------------------------------------------------------
-- RESET SCHEME
----------------------------------------------------------------------------------------------------
function mob_home:reset_scheme()
--[[
Добавлено: Haron
Описание: Теперь можно задавать радиусы home_min_radius и home_max_radius во флагах
пути path_home. Для этого введены флаги minr, maxr. Они должны быть
прописаны в первой точке пути. У радиусов заданых в секции приоритет
больший чем для тех что заданы во флагах, т.е. если задано и там и там, то
берутся значения из секции (сделано для обратной совместимости).
--]]
local minr, maxr = def_min_radius, def_max_radius
local ptr = patrol(self.st.home)
local path_info = utils.parse_waypoint_data(self.st.home, ptr:flags(0), ptr:name(0))
local r = 0

if self.st.home_min_radius then
minr = self.st.home_min_radius
else
r = path_info.minr
if r then
r = tonumber®
if r then
minr = r
end
end
end

if self.st.home_max_radius then
maxr = self.st.home_max_radius
else
r = path_info.maxr
if r then
r = tonumber®
if r then
maxr = r
end
end
end

-- check min and max radius
if minr > maxr then
_G.abort("Mob_Home : Home Min Radius MUST be < Max Radius. Got: min radius = %d, max radius = %d.", minr, maxr)
end

self.object:set_home(self.st.home, minr, maxr, self.st.aggressive)
end

----------------------------------------------------------------------------------------------------
-- UPDATE
----------------------------------------------------------------------------------------------------

function mob_home:update(delta)

if xr_logic.try_switch_to_another_section(self.object, self.st, db.actor) then
return
end

if mob_alife_mgr.alife_control(self.object, db.actor, self.st.alife_mode) then -- Добавил
return -- Добавил
end -- Добавил
end

function mob_home:deactivate()
self.object:remove_home()
end

----------------------------------------------------------------------------------------------------
-- ADD_TO_BINDER
----------------------------------------------------------------------------------------------------
function add_to_binder(npc, ini, scheme, section, storage)
printf("DEBUG: add_to_binder: npc:name()='%s', scheme='%s', section='%s'", npc:name(), scheme, section)

local new_action = mob_home(npc, storage)

-- Зарегистрировать все actions, в которых должен быть вызван метод reset_scheme при изменении настроек схемы:
xr_logic.subscribe_action_for_events(npc, storage, new_action)
end

----------------------------------------------------------------------------------------------------
-- SET_SCHEME
----------------------------------------------------------------------------------------------------
function set_scheme(npc, ini, scheme, section, gulag_name)
local storage = xr_logic.assign_storage_and_bind(npc, ini, scheme, section)

storage.logic = xr_logic.cfg_get_switch_conditions(ini, section, npc)

storage.home = utils.cfg_get_string(ini, section, "path_home", npc, true, gulag_name)
storage.home_min_radius = utils.cfg_get_number(ini, section, "home_min_radius", npc, false) --, 20)
storage.home_max_radius = utils.cfg_get_number(ini, section, "home_max_radius", npc, false) --, 40)

storage.aggressive = ini:line_exist( section, "aggressive_home")

storage.alife_mode = mob_alife_mgr.cfg_get_mode(ini, section, npc) -- Добавил

end

[logic@aver_flash]
active = mob_home@aver_flash

[mob_home@aver_flash]
path_home = home
home_min_radius = 10
home_max_radius = 90
actor_friendly = true
;npc_friendly = true
;friendly = true
;braindead = true

[logic]
active = sr_idle

[sr_idle]
on_info = {+test_info} nil %=spawn_object(agr_stalker_veteran:esc_test_way) =spawn_object(medkit:esc_test_way)%