--[[ -----------------------------------------------------------------------------------------------
Автор скрипта;CON
--]]-----------------------------------------------------------------------------------------------
function torch_control()
local actor = db.actor
local activ_item = actor:active_item()
local torch1 = actor:object("device_torch")
if activ_item ~= nil then
local activ_section = activ_item:section()
if activ_section == "fonarik" then
if not torch1 then htorch.inv("device_torch") end
else --- active item - not torch
--- delete torch
if torch1 then delete_detector(torch1) end
end
else --- active item is nil
--- delete torch
if torch1 then delete_detector(torch1) end
end
end

--[[
Работа фонаря от батареек с постепенным ослаблением света и его мерцанием.
Автор: Real Wolf.
--]]

local status = false
is_torch_allowed = true
torch = nil
local loss = 0
is_need_change_color = false
local timer = 0
local ini
local is_render_r2 = false

local range = 0
local color = vector()
local omni_range = 0
local omni_color = vector()
local glow_radius = 0
local spot_angle = 0
local color_animator = ""
local cond_start_animator = 0
local sound_start
local is_init = false

function switch(evt)
torch = evt.obj
if not torch then
abort("ERROR! We have lost torch.")
end

status = evt.flag
if is_torch_allowed then
if status then
event("actor_torch_update"):register(update)
else
event("actor_torch_update"):unregister(update)
end
if sound_start then
sound_start:play(db.actor, 0, sound_object.s2d)
end
end
end

-- Она вызывается перед первым вызовом update.
function init()
ini = torch:get_visual_ini() or ini_file("models\\objects\\light_night.ltx")
is_render_r2 = get_console():get_string("renderer") == "renderer_r2"
is_torch_allowed = torch:condition() > 0.01
is_need_change_color = is_need_change_color and (ini ~= nil)

if is_need_change_color then
local range_name = "range"
local color_name = "color"
if is_render_r2 then
range_name = range_name.."_r2"
color_name = color_name.."_r2"
end

range = cfg_read(ini, "num", "torch_definition", range_name, 0)
omni_range = cfg_read(ini, "num", "torch_definition", "omni_"..range_name, 0)
glow_radius = cfg_read(ini, "num", "torch_definition", "glow_radius", 0)
spot_angle = cfg_read(ini, "num", "torch_definition", "spot_angle", 0)

color = cfg_read(ini, "str", "torch_definition", color_name, 0)
local color_tbl = string.split(color, 1, ",")
color = vector():set(color_tbl[1], color_tbl[2], color_tbl[3])

omni_color = cfg_read(ini, "str", "torch_definition", "omni_"..color_name, 0)
color_tbl = string.split(omni_color, 1, ",")
omni_color = vector():set(color_tbl[1], color_tbl[2], color_tbl[3])
end
set_torch_light()
is_init = true
end

function update(evt)
if (timer < time_global() ) then
timer = time_global() + 1000

torch = evt.obj
if not torch then
abort("ERROR! We have lost torch.")
end

if not is_init then
init()
end

local torch_cond = torch:condition() - loss * level.get_time_factor()
torch:set_condition(torch_cond)
db.condition_by_id[torch:id()] = torch_cond
set_torch_light()
if torch_cond < 0.01 then
if is_torch_allowed then
send_tip("Фонарь:", "Села батарея.")
end

is_torch_allowed = false
torch:switch_torch(false)
status = false
torch:set_torch_color_animator("empty")
event("actor_torch_update"):unregister(update)
end
end
end

function set_torch_light()
if is_need_change_color then
local torch_cond = torch:condition()
local new_color = vector():set(color.x, color.y, color.z)
new_color:mul(torch_cond)
torch:set_torch_color(new_color)

new_color = vector():set(omni_color.x, omni_color.y, omni_color.z)
new_color:mul(torch_cond)
torch:set_torch_omni_color(new_color)

torch:set_torch_range(range*torch_cond)
torch:set_torch_omni_range(omni_range*torch_cond)
torch:set_torch_glow_radius(glow_radius*torch_cond)
torch:set_torch_spot_angle(spot_angle*(torch_cond+(1-torch_cond)/2) )
end

if torch:condition() < cond_start_animator then
torch:set_torch_color_animator(color_animator)
end
end

function init_callbacks()
if not options_file then
return
end

if cfg_read(options_file, "num", "flashlight", "enabled", 0) ~= 1 then
return
end

loss = 1 / cfg_read(options_file, "num", "flashlight", "max_hours", 1) / 3600
is_need_change_color = cfg_read(options_file, "num", "flashlight", "change_color", 0) == 1
color_animator = cfg_read(options_file, "str", "flashlight", "color_animator", "empty")
cond_start_animator = cfg_read(options_file, "num", "flashlight", "cond_start_animator", 0)
sound_start = xr_sound.get_safe_sound_object(cfg_read(options_file, "str", "flashlight", "sound_start", "") )

event("actor_torch_switch"):register(switch)
end