local a = 0
local b = 0
function test()
if a < time_global() then
a = time_global() + 5*1000
b = time_global() + math.random(5000, 20000)
level.add_call(on, off)
end
end

function on()
return time_global() > b
end

function off()
-- db.actor:give_info_portion("get_gun")
news_manager.send_tip(db.actor, "%c[255,0,255,0]сидор.\\n%c[default]Зайди ко мне, поговорить надо.", 0, "trader", 5000)
end
--***********************************
время по вкусу подкрутить,как бы так
a = time_global() + 15*100000
и рандомное сколько надо,типа:
b = time_global() + math.random(50000, 200000)

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

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

function timer_start() -- в update()
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("name_infoporticion_talk") -- выдаём поршень, который проверяется в диалоге.
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® -- отсюда загружаем ТУТ ДОЛЖНА СТОЯТЬ БУКВА r В СКОБКАХ!!!
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

local a = 0
local b = 0
function surge()
if a < time_global() then
a = time_global() + 5*1000
b = time_global() + math.random(5000, 20000)
level.add_call(on, off)
end
end

function on()
return time_global() > b
end

function off()
surge_start()
end

function surge_start()
if a < time_global() then
a = time_global() + 10000
b = time_global() + 15000
level.add_call(on_start, off_start)
local snd_obj = xr_sound.get_safe_sound_object([[anomaly\red_forest_surge]])
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
db.actor:give_info_portion("surge_npc_start")
end
end

function on_start()
return time_global() > b
end

function off_start()
surge_1()
end

function surge_1()
if a < time_global() then
a = time_global() + 5000
b = time_global() + 10000
level.add_call(on_1, off_1)
level.add_pp_effector("vibros_p.ppe", 1974, false)
local snd_obj = xr_sound.get_safe_sound_object([[ambient\earthquake]])
snd_obj:play_at_pos(db.actor, vector():set(0,0,0), 0, sound_object.s2d)
level.add_cam_effector("camera_effects\\earthquake.anm", 1974, true, "")
end
end

function on_1()
return time_global() > b
end

function off_1()
level.remove_pp_effector(1974)
surge_2()
end

function surge_2()
if a < time_global() then
a = time_global() + 5000
b = time_global() + 15000
level.add_call(on_2, off_2)
local snd_obj = xr_sound.get_safe_sound_object([[anomaly\blowout]])
snd_obj:play_at_pos(db.actor, vector():set(0,0,0), 0, sound_object.s2d)
level.add_pp_effector ("vibros.ppe", 1974, false)
end
end

function on_2()
return time_global() > b
end

function off_2()
level.remove_pp_effector(1974)
surge_3()
end

function surge_3()
if a < time_global() then
a = time_global() + 15000
b = time_global() + 15000
level.add_call(on_3, off_3)
level.add_pp_effector("psy_antenna.ppe", 1875, true)

level.add_pp_effector("dead_zone.ppe", 1001, true)
level.set_pp_effector_factor(1001, 0.01)

xr_sound.set_actor_sound("level_border_detector")
update_surge(restrictor)
end
end

function on_3()
return time_global() > b
end

function off_3()
db.actor:give_info_portion("surge_start")
surge_4()
end

function surge_4()
if a < time_global() then
a = time_global() + 25000
b = time_global() + 25000
level.add_call(on_4, off_4)

local snd_obj2 = xr_sound.get_safe_sound_object([[ambient\earthquake]])
snd_obj2:play_at_pos(db.actor, vector():set(0,0,0), 0, sound_object.s2d)

level.add_cam_effector("camera_effects\\fatigue.anm", 2004, true, "")
level.add_pp_effector("yantar_underground_psi.ppe", 299, true)
level.set_pp_effector_factor(299, 1.0)

level.set_weather("stancia")
spawn_art()
end
end

function on_4()
return time_global() > b
end

function off_4()
level.remove_pp_effector(299)
level.remove_pp_effector(1875)
level.remove_cam_effector(2004)
level.remove_cam_effector(1974)

level.remove_pp_effector(1001)
xr_sound.set_actor_sound("")

level.add_pp_effector ("teleport.ppe", 2009, false)

local snd_obj = xr_sound.get_safe_sound_object([[anomaly\surge_alles_1]])
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
db.actor:give_info_portion("surge_stop")
xr_sound.set_actor_sound("")
end
--
function update_surge(restrictor)
local restrictor = nil
restrictor = get_game_object("esc_surge") or
get_game_object("esc_surge_ferma") or
get_game_object("esc_surge_monsrt")
if restrictor ~= nil then
if this.dist_to_objects(db.actor, restrictor) > 53 then
xr_sound.set_actor_sound("")
end
return false
end
end

function get_game_object(section_name)
if section_name == nil or type(section_name) ~= "string" then
return nil
end
local game_object = alife():object(section_name)
if game_object == nil then
return nil
end
return (level.object_by_id(game_object.id))
end

function dist_to_objects(source_object, destination_object)
if source_object and destination_object then
return source_object:position():distance_to(destination_object:position())
end
return (-1)
end

function hit_actor()
local psy_hit = hit()
psy_hit.direction = vector():set(0,0,0)
psy_hit.impulse = 0
psy_hit.draftsman = db.actor
psy_hit.power = 0.0005
psy_hit.type = hit.radiation
db.actor:hit(psy_hit)
psy_hit.power = 0.0005
psy_hit.type = hit.shock
db.actor:hit(psy_hit)
end

local t_art = {
"af_rusty_thorn",
"af_rusty_kristall",
"af_electra_sparkler",
"af_electra_flash",
"af_electra_moonlight"

}
function spawn_art()
local pos = db.actor:position()
local dir = db.actor:direction()
local section = t_art[math.random(table.getn(t_art))]
pos = pos:add(dir:mul(25))
pos.y = pos.y + 12
local obj = alife():create((section), pos, db.actor:level_vertex_id(), db.actor:game_vertex_id())
end

;spawn in way --***************************
[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)%

;spawn_in_zone************************************
[logic]
active = sr_idle

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

;spawn_in_box(Sidor)************************************
[logic]
active = sr_idle

[sr_idle]
on_info = {+test_info} nil %=spawn_object_in(antirad:level_prefix_inventory_box_0003) =spawn_object_in(exo_outfit:esc_stalker_corpse)%

--[[---------------------------------------------------------------------------------------------------------
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