[3064]
; cse_abstract properties
section_name = rzl_kat_detector
name = rzl_kat_detector
position = -121.05056762695,-16.462354660034,-50.520637512207
direction = 0.98942083120346,0,0.14507369697094

; cse_alife_object properties
game_vertex_id = 757
level_vertex_id = 61
object_flags = 0xffffff3f

; cse_visual properties
visual_name = equipments\item_datchik3

; cse_alife_item properties
condition = 1

upd:num_items = 0

[rzl_kat_detector]:identity_immunities
GroupControlSection = spawn_group
discovery_dependency =
$spawn = "devices\quest_items\rzl_kat_detector"
;$prefetch = 32
class = II_ATTCH
cform = skeleton
visual = equipments\item_datchik3.ogf
radius = 1
;script_binding = stalker.object_init
quest_item = true

description = item_flash_gslinger_agro_desc

inv_name = item_flash_gslinger_agro_name
inv_name_short = item_flash_gslinger_agro_name
inv_weight = 0

inv_grid_width = 1
inv_grid_height = 1
inv_grid_x = 9
inv_grid_y = 14
cost = 0

[3063]
; cse_abstract properties
section_name = space_restrictor
name = rzl_kat_greh_sms_restr
position = -118.07847595215,-16.284740447998,-50.436367034912
direction = 0,0,0
version = 118
script_version = 6

; cse_alife_object properties
game_vertex_id = 757
level_vertex_id = 125
object_flags = 0xffffff3e
custom_data = <<END
[logic]
active = sr_idle

[sr_idle]
on_actor_inside = %=rzl_scripts.greh_kat_message1 +rzl_kat_detector_inside% sr_idle@time
single = true

[sr_idle@time]
on_timer = 12000 | sr_idle@time1 %=rzl_scripts.greh_kat_message1%
single = true

[sr_idle@time1]
on_timer = 10000 | sr_idle@time2 %=rzl_scripts.greh_kat_message2%
single = true

[sr_idle@time2]
on_timer = 10000 | sr_idle@time3 %=rzl_scripts.greh_kat_message3%
single = true

[sr_idle@time3]
on_timer = 10000 | sr_idle@nil %=rzl_scripts.greh_kat_message4 +rzl_kat_get_the_hell_out_of_here%
single = true

[sr_idle@nil]
END

; cse_shape properties
shapes = shape0
shape0:type = box
shape0:axis_x = 6.5,0,0
shape0:axis_y = 0,6.5,0
shape0:axis_z = 0,0,6.5
shape0:offset = 0,0,0

; cse_alife_space_restrictor properties
restrictor_type = 0

Expression : fatal error
Function : CScriptEngine::lua_error
File : E:\stalker\patch_1_0004\xr_3da\xrGame\script_engine.cpp
Line : 73
Description : <no expression>
Arguments : LUA error: ...ow of chernobyl\gamedata\scripts\bind_stalker.script:96: attempt to index global 'death_manager' (a nil value)

-- + added by XiaNi for artefact pickup stats
-- taken from "patch 1.1" (by undefined author)
local artefact_clsid = { [clsid.art_bast_artefact] = true,
[clsid.art_black_drops] = true,
[clsid.art_dummy] = true,
[clsid.art_electric_ball] = true,
[clsid.art_faded_ball] = true,
[clsid.art_galantine] = true,
[clsid.art_gravi] = true,
[clsid.art_gravi_black] = true,
[clsid.art_mercury_ball] = true,
[clsid.art_needles] = true,
[clsid.art_rusty_hair] = true,
[clsid.art_thorn] = true,
[clsid.art_zuda] = true,
[clsid.artefact] = true,
[clsid.artefact_s] = true
}
local found_artefact_ids = {}
-- - added by XiaNi for artefact pickup stats

game_difficulty_by_num = {
[0] = "gd_novice",
[1] = "gd_stalker",
[2] = "gd_veteran",
[3] = "gd_master"
}

-- added for anomaly_manager
local post_time = 0
-- added for artefacts spawner
local artspawn_time = 0

-- this is set true if tick update is needed (TM loss_workaround, ammo_fix, etc.)
nv_need_update = false

lasthealth = 0
lasttime = 0
post_process = 0
local weapon_hide = false
corpsesCleaned = 0

----------------------------------------------------------------------------------------------------------------------

function init (obj)
xr_motivator.AddToMotivator(obj)
end

function actor_init (npc)
npc:bind_object(actor_binder(npc))
end

----------------------------------------------------------------------------------------------------------------------
class "actor_binder" (object_binder)
----------------------------------------------------------------------------------------------------------------------
function actor_binder:__init (obj) super(obj)
self.bCheckStart = false
self.weather_manager = level_weathers.WeatherManager()
self.actor_detector = xr_detector.actor_detector()
self.anomaly_manager = level_anomaly.AnomalyManager()

-- + added by XiaNi for artefact pickup stats
self.freeplay_stats = xr_statistic.get_freeplay_statistic()
-- - added by XiaNi for artefact pickup stats
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:net_spawn(data)
printf("actor net spawn")

level.show_indicators()

self.bCheckStart = true
self.weapon_hide = false -- спрятано или нет оружие при разговоре.
weapon_hide = false -- устанавливаем глобальный дефолтовый флаг.

if object_binder.net_spawn(self,data) == false then
return false
end

db.add_actor(self.object)

if self.st.disable_input_time == nil then
level.enable_input()
end

self.weather_manager:reset()
-- game_stats.initialize ()

if(actor_stats.add_to_ranking~=nil)then
actor_stats.add_to_ranking(self.object:id())
end

zone_mgr.initialize()

--' Загружаем настройки дропа
death_manager.init_drop_settings()

funcs.on_game_load()

-- setup xiani freeplay
if has_alife_info("freeplay_actor_setup") then
if not has_alife_info("freeplay_actor_setup2") then
self.object:give_info_portion("freeplay_actor_setup2")
xiani.freeplay_start_cleanup()
end

if xiani_config.weather_manager then
xiani.xlog("init amk weather")
amk_weather.on_spawn()
end

if xiani_config.restore_sun then
xiani.xlog("restoring sun...")
ogsm.on_game_load() -- for sun restoring
end
-- if xiani_config.cleanup_corpses then
-- sak_off_corpses.off_corpses()
-- end
end

--[[level.add_pp_effector("psy_zone.ppe", 9999, true)
level.set_pp_effector_factor(9999, 0.3)]]

return true
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:net_destroy()
if(actor_stats.remove_from_ranking~=nil)then
actor_stats.remove_from_ranking(self.object:id())
end
-- game_stats.shutdown ()
db.del_actor(self.object)

sr_light.clean_up ()

self.object:set_callback(callback.inventory_info, nil)
self.object:set_callback(callback.article_info, nil)
self.object:set_callback(callback.on_item_take, nil)
self.object:set_callback(callback.on_item_drop, nil)
--self.object:set_callback(callback.actor_sleep, nil)
self.object:set_callback(callback.task_state, nil)
self.object:set_callback(callback.level_border_enter, nil)
self.object:set_callback(callback.level_border_exit, nil)
self.object:set_callback(callback.take_item_from_box, nil)

if sr_psy_antenna.psy_antenna then
sr_psy_antenna.psy_antenna:destroy()
sr_psy_antenna.psy_antenna = false
end

xr_sound.stop_all_sound_object()

object_binder.net_destroy(self)
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:reinit()
object_binder.reinit(self)

local npc_id = self.object:id()

db.storage[npc_id] = { }

self.st = db.storage[npc_id]
self.st.pstor = nil

self.next_restrictors_update_time = -10000

self.object:set_callback(callback.inventory_info, self.info_callback, self)
self.object:set_callback(callback.article_info, self.article_callback, self)
self.object:set_callback(callback.on_item_take, self.on_item_take, self)
self.object:set_callback(callback.on_item_drop, self.on_item_drop, self)
self.object:set_callback(callback.trade_sell_buy_item, self.on_trade, self) -- for game stats
--self.object:set_callback(callback.actor_sleep, self.sleep_callback, self)
self.object:set_callback(callback.task_state, self.task_callback, self)
--self.object:set_callback(callback.map_location_added, self.map_location_added_callback, self)
self.object:set_callback(callback.level_border_enter, self.level_border_enter, self)
self.object:set_callback(callback.level_border_exit, self.level_border_exit, self)
self.object:set_callback(callback.take_item_from_box, self.take_item_from_box, self)
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:take_item_from_box(box, item)
local story_id = box:story_id()
if story_id == nil then
return
end

treasure_manager.take_item_from_box(box, story_id)
--[[
local respawner = se_respawn.get_respawner_by_parent(story_id)
if respawner == nil then
return
end

--' Необходимо уменьшить счетчик в респавнере
respawner:remove_spawned(item:id())

local smart_terrain = db.strn_by_respawn[respawner:name()]
if smart_terrain == nil then
return
end

local npc = smart_terrain.gulag:get_nearest_online_obj(db.actor:position())
if npc ~= nil then
xr_sound.set_sound_play(npc, "reac_box")
xr_gulag.setGulagEnemy(smart_terrain:name() , db.actor)
end
]]
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:level_border_enter(npc, info_id)
self.actor_detector:actor_enter()
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:level_border_exit(npc, info_id)
self.actor_detector:actor_exit()
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:info_callback(npc, info_id)
printf("*INFO*: npc='%s' id='%s'", npc:name(), info_id)
-- dbglog("*INFO*: npc='%s' id='%s'", npc:name(), info_id)

--' Сюжет
level_tasks.proceed(self.object)
-- Отметки на карте
level_tasks.process_info_portion(info_id)
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:on_trade (item, sell_bye, money)
if sell_bye == true then
game_stats.money_trade_update (money)
else
game_stats.money_trade_update (-money)
end
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:article_callback(npc, group, name)
--printf("article_callback [%s][%s]", group, name)
if device().precache_frame >1 then return end

if group == "Diary" then
news_manager.send_encyclopedy("diary", group)
else
news_manager.send_encyclopedy("encyclopedy", group)
end
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:on_item_take (obj)
-- + added by XiaNi for artefact pickup stats
if artefact_clsid[obj:clsid()] ~= nil and not found_artefact_ids[obj:id()] == true then
self.freeplay_stats:check_found_artefact_count()
actor_stats.add_points("artefacts", "st_pda_artefacts", 1, 1)
found_artefact_ids[obj:id()] = true
end
-- - added by XiaNi for artefact pickup stats

if obj:clsid() ~= clsid.wpn_ammo then
level_tasks.proceed(self.object)
end
--game_stats.update_take_item (obj, self.object)
_z.on_item_take(obj, self.object)
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:on_item_drop (obj)
if obj:clsid() ~= clsid.wpn_ammo then
level_tasks.proceed(self.object)
end
--game_stats.update_drop_item (obj, self.object)
_z.on_item_drop(obj, self.object)

-->>Treasure rucksack 2/2
if obj:section()=="inv_ruck" then
-- запомним id объекта
self.rr_id=obj:id()
end
--<<
end
----------------------------------------------------------------------------------------------------------------------

function actor_binder:task_callback(_task, _objective, _state)
task_manager.task_callback(_task:get_id(), _objective:get_idx(), _state)
if _objective:get_idx() == 0 then
if _state == task.fail then
news_manager.send_task(db.actor, "fail", _task, _objective)
elseif _state == task.completed then
task_manager.reward_by_task(_task)
news_manager.send_task(db.actor, "complete", _task, _objective)
else
news_manager.send_task(db.actor, "new", _task, _objective)
end
else
if _task:get_objective(0):get_state() == task.in_progress then
news_manager.send_task(db.actor, "update", _task, _objective)
end
end
end

----------------------------------------------------------------------------------------------------------------------
function actor_binder:map_location_added_callback(spot_type_str, object_id)
if (false==app_ready()) or (device().precache_frame>1) then return end
--'news_manager.send_task(db.actor, "new")
end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:update(delta)
object_binder.update(self, delta)

-- DEBUG slowdown
-- slowdown.update()

local time = time_global()

game_stats.update (delta, self.object)

-- апдейт погоды
self.weather_manager:update()

-- апдейт схемы детектора
self.actor_detector:update()

-- апдейт звуковой схемы актера
xr_sound.update_actor()

--' Проверка потери жизни
--[[
if self.object.health - lasthealth > 0.001 or
self.object.health - lasthealth < -0.001 then
printf("%f | %f", self.object.health, self.object.health - lasthealth, game.time() - lasttime)
lasthealth = self.object.health
lasttime = game.time()
end
]]
-- Обновление отключения ввода с клавиатуры.
if self.st.disable_input_time ~= nil and
game.get_game_time():diffSec(self.st.disable_input_time) >= self.st.disable_input_idle
then
level.enable_input()
self.st.disable_input_time = nil
end
-- Обновление сна с переносом чувака в указанную позицию
if self.st.sleep_relocate_time ~= nil and
game.get_game_time():diffSec(self.st.sleep_relocate_time) >= self.st.sleep_relocate_idle
then
self.object:set_actor_position(self.st.sleep_relocate_point)
local dir = self.st.sleep_relocate_point:sub(self.st.sleep_relocate_look)
self.object:set_actor_direction(dir:getH())
self.st.sleep_relocate_time = nil
end

-- Апдейт прятание оружия игрока во время диалога
if weapon_hide == true or self.object:is_talking() then
if self.weapon_hide == false then
self.object:hide_weapon()
self.weapon_hide = true
end
else
if self.weapon_hide == true then
self.object:restore_weapon()
self.weapon_hide = false
end
end

-- обновление рестрикторов, которые под логикой, срабатывает через интервалы времени
if self.next_restrictors_update_time < time then
bind_restrictor.actor_update(delta)

self.next_restrictors_update_time = time + 200

task_manager.actor_update()
end

-- обработчик всяческих менеджеров четыре раза в секунду.
if post_time < time then
post_time = time + 250

-- utils2.show_coordinates()

self.anomaly_manager:update()
if sleep_manager.is_sleep_active() and xr_conditions.actor_dead() then
xr_logic.issue_event(db.actor, db.storage[db.actor:id()]["ar_sleep"], "update")
end
sleep_manager.update(delta)
end

-- обновление постпроцессов
if post_process ~= 0 then
if post_process:update () == true then
post_process = 0
end
end

-- обновление пси-антенны
if sr_psy_antenna.psy_antenna then
sr_psy_antenna.psy_antenna:update(delta)
end

--' Вывод сообщения о большой радиации
if self.object.radiation >= 0.7 then
local hud = get_hud()
local custom_static = hud:GetCustomStatic("cs_radiation_danger")
if custom_static == nil then
hud:AddCustomStatic("cs_radiation_danger", true)
hud:GetCustomStatic("cs_radiation_danger"):wnd():SetTextST("st_radiation_danger")
end
else
local hud = get_hud()
local custom_static = hud:GetCustomStatic("cs_radiation_danger")
if custom_static ~= nil then
hud:RemoveCustomStatic("cs_radiation_danger")
end
end

if nv_need_update then
nv_need_update = false
_z.do_update(self.object)
end

-- UI Radiation Mod additions
if xiani_config.ui_show_rad then
if (ui_rad and self.object) then
ui_rad.update(self.object)
end
end
-- UI Radiation Mod additions

-- UI Clock Mod
if xiani_config.ui_show_time then
ui_clock.show_time()
end
-- UI Clock Mod -

if self.freeplay_stats ~= nil then
self.freeplay_stats:check_actor_money()
self.freeplay_stats:check_actor_rank()
end

if self.bCheckStart then
printf("SET DEFAULT INFOS")

if not has_alife_info("freeplay_actor_start")
then
xiani.first_start(self);
self.object:give_info_portion("freeplay_actor_start")
art_mgr.del_xlam()
end

if has_alife_info("freeplay_actor_setup") then
if xiani_config.cleanup_corpses then
sak_off_corpses.off_corpses()
end
end

if not has_alife_info("global_dialogs") then
self.object:give_info_portion("global_dialogs")
end

if not has_alife_info("level_changer_icons") then
self.object:give_info_portion("level_changer_icons")
end

xiani.add_lchanger_location()

self.bCheckStart = false
funcs.on_actor_update ()
end



-- weather management disabled coz of blowout mod
if xiani_config.weather_manager then
-- xiani.xlog("amk_mod.weather_manager()")
amk_weather.weather_manager()
end

if xiani_config.actor_attack_pp then
actor_attack_pp.on_actor_update()
end

-->>Treasure rucksack 1/2
if self.rr_id~=nil then
-- пытаемся получить объект по id
local se_obj=alife():object(self.rr_id)
-- проверяем, что объекта нет
if se_obj==nil or se_obj:section_name()~="inv_ruck" then
local ruck=alife():create("active_ruck", db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id())
level.map_add_object_spot_ser(ruck.id, "red_location", "%c[255,238,155,23]Моя нычка для хабара")
news_manager.send_tip(db.actor, "Тайник заложен.", nil, nil, 5000)
end
-- сбросим переменную
self.rr_id=nil
end
--<<

end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:save(packet)

local save_treasure_manager = true

printf("actor_binder:save(): self.object:name()='%s'", self.object:name())
object_binder.save(self, packet)

--' Сохраняем уровень сложности
game_difficulty = level.get_game_difficulty()
if save_treasure_manager == true then
packet:w_u8(bit_or(game_difficulty, 128))
else
packet:w_u8(game_difficulty)
end

--' Сохраняем данные об отключенном вводе
if self.st.disable_input_time == nil then
packet:w_bool(false)
else
packer:w_bool(true)
utils.w_CTime(packet, self.st.disable_input_time)
end

xr_logic.pstor_save_all(self.object, packet)
self.weather_manager:save(packet)

sr_psy_antenna.save( packet )

if save_treasure_manager == true then
treasure_manager.save(packet)
end

task_manager.save(packet)
self.actor_detector:save(packet)
art_mgr.save(packet)

self.freeplay_stats:save(packet)
packet:w_u8(table.getn(found_artefact_ids))
for k,v in pairs(found_artefact_ids) do
packet:w_u8(k)
end

end
----------------------------------------------------------------------------------------------------------------------
function actor_binder:load(reader)
printf("actor_binder:load(): self.object:name()='%s'", self.object:name())
object_binder.load(self, reader)
printf("actor_binder:object_binder.load(): self.object:name()='%s'", self.object:name())

--' Загружаем уровень сложности
local game_difficulty = reader:r_u8()

local load_treasure_manager = false
if bit_and(game_difficulty, 128) ~= 0 then
game_difficulty = bit_and(game_difficulty, 127)
load_treasure_manager = true
end

-- get_console():execute("debug:difficulty:" .. tostring(game_difficulty))
if game_difficulty > 3 then game_difficulty = 3 end
if game_difficulty < 0 then game_difficulty = 0 end
get_console():execute("g_game_difficulty " .. game_difficulty_by_num[game_difficulty])

if reader:r_eof() then
abort("SAVE FILE IS CORRUPT")
end

local stored_input_time = reader:r_u8()
if stored_input_time == true then
self.st.disable_input_time = utils.r_CTime(reader)
end

xr_logic.pstor_load_all(self.object, reader)
self.weather_manager:load(reader)

sr_psy_antenna.load(reader)

if load_treasure_manager == true then
treasure_manager.load(reader)
end

task_manager.load(reader)
self.actor_detector:load(reader)
art_mgr.load(reader)

self.freeplay_stats:load(reader)
local n = reader:r_u8()
for i=1,n do
found_artefact_ids[reader:r_u8()] = true
end

self.anomaly_manager:load()
treasure_manager.need_move_pstor_data = true
end
----------------------------------------------------------------------------------------------------------------------

--старт префетча звуков
--if string.find(command_line(), "-noprefetch") == nil then
-- sound_prefetch.prefetch_sounds()
--end

-- Weapon functions
function hide_weapon()
weapon_hide = true
end
function restore_weapon()
weapon_hide = false
end

// this is test for section iteration
/**
local function test_section_iteration(file_name, section_name)
printf ("file : %s",file_name)
printf ("section : %s",section_name)

local file = ini_file(file_name)
local n = file:line_count(section_name)
printf ("lines : %d",n)

local id, value = "", "", result
for i=0,n-1 do
result, id, value = file:r_line(section_name,i,"","")
printf ("line %d : %s = %s",i,id,value)
end
end

test_section_iteration("system.ltx","space_restrictor")
/**/

new_rain1.ogg
new_rain2.ogg
new_rain_and_drops1.ogg
new_rain_and_drops2.ogg
new_rain_and_drops3.ogg
new_rain3.ogg
new_thunder1.ogg
new_thunder2.ogg
new_thunder3.ogg
thunder-0.ogg
thunder-1.ogg
thunder-2.ogg
thunder-3.ogg