--' Диденко Руслан (Stohe), Чугай Александр (Chugai)


--function printf()
--end

--' в работах поле object хранит id объекта
local pl_gulag_enemy = 0

local gulag_tasks_file_name  = "misc\\gulag_tasks.ltx"
local gulag_tasks_ltx        = ini_file( gulag_tasks_file_name )

local job_position_threshold = 120 --'50  -- расстояние до места работы при котором персонаж в онлайне считается достигшим места работы
local job_idle_after_death   = 10 -- в течении такого периода времени после смерти персонажа его работа будет недоступна

idle_nil  = nil
idle_once = -1
idle_none = -2

local path_fields = { "path_walk", "path_main", "path_home", "center_point" }

----------------------------------------------------------------------------------------------------------------------
-- Функции, которые могут вызываться извне
----------------------------------------------------------------------------------------------------------------------

-- получить гулаг по имени смарта.
-- работает только для смартов, которые в онлайне.
function get_gulag_by_name(name)
	local strn = sim_board.get_sim_board().smarts_by_names[name]
	if strn then
		return strn
	else
		printf("there is no gulag with name [%s] ",name)
		return nil
	end
end

-- получить гулаг по story id смарта
-- работает всегда
function get_gulag_by_sid(sid)
	local strn = alife():object(get_story_object_id(sid))

	return strn
end

-- получить гулаг по имени или story id смарта
function get_gulag( name_or_sid )
	if type( name_or_sid ) == "number" then
		return get_gulag_by_sid( name_or_sid )
	else
		return get_gulag_by_name( name_or_sid )
	end
end

-- получить гулаг персонажа
-- obj=game_object
function get_npc_smart(obj)
	--printf("npc id is [%s]", obj:id())
	local se_obj = alife():object(obj:id())
	if se_obj == nil then
		return nil
	--	abort("server_obj is nil!!!!!")
	end
	if se_obj.m_smart_terrain_id ~= 65535 then
		return alife():object(se_obj.m_smart_terrain_id)
	else
		return nil
	end
end



-- установить отношение всех членов смарта к указанному объекту
function setGulagRelation( name_or_sid, relation, target_obj )
	local gulag = get_gulag( name_or_sid )

	if gulag then
		gulag:set_relation( relation, target_obj )
	end
end

-- установить расположенине всех членов смарта к указанному объекту
function setGulagGoodwill( name_or_sid, goodwill, target_obj )
	local gulag = get_gulag( name_or_sid )

	if gulag then
		gulag:set_goodwill( goodwill, target_obj )
	end
end

-- сделать указанного персонажа врагом всех персонажей смарта
function setGulagEnemy( name_or_sid, target_obj )
	setGulagRelation( name_or_sid, game_object.enemy, target_obj )
end

-- сделать указанного персонажа врагом всех персонажей смарта, которые в онлайне
function setGulagNeutral( name_or_sid, target_obj )
	setGulagRelation( name_or_sid, game_object.neutral, target_obj )
end

-- освободить персонажа от работы.
-- obj=game_object
function resetJob( obj )
		printf( "gulag resetJob: obj=%s", obj:name() )

		local gulag = get_npc_smart( obj )
		if gulag then
			gulag:free_obj_and_reinit( obj:id() )
			gulag:update()
		end
end

function free_object( obj )
	printf( "gulag free_object: obj=%s", obj:name() )

	local gulag = get_npc_smart( obj )
	if gulag then
		gulag:free_obj( obj:id() )
		--gulag:update()
	end
end


-- не находится ли источник информации вне информационного рестриктора?
-- если вне, то информация будет запрещена
-- функция кеширует game_object рестриктора
function is_info_restricted( obj_id, info_pos )
	local r = db.info_restr[obj_id]

	if r == nil then
		return false
	end

	if type(r) == "string" then
		r = db.zone_by_name[r]

		if r == nil then
			return false
		end

		db.info_restr[obj_id] = r
	end

	return not r:inside( info_pos )
end

--' Найти замену сталкеру на работе GUARD по истечению времени работы.
function find_stalker_for_job(obj, need_job)
	local smart = get_npc_smart(obj)

	-- Тут мы типа выбираем чувака на какой то работе.
	for k,v in pairs(smart.npc_info) do
		local npc_job = smart.job_data[v.job_id]
		if npc_job ~= nil and npc_job.reserve_job == true then
			local selected_npc_data = smart.npc_info[k]
			-- У выбранного чувака устанавливаем, что он нам нужен как замена гварду
			selected_npc_data.need_job = need_job
			return
		end
	end
	--abort("Couldnt find reserved job")
end

function switch_to_desired_job(npc)
	-- Переключает чувака на работу, которую он хочет (need_job). Работа выбирается отдельно.
	local smart = get_npc_smart(npc)
	smart:switch_to_desired_job(npc)
end


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

-- загрузка динамических ltx
-- их имена: "*имя_смарттерейна*тип_гулага"
local dynamic_ltx = {}
function loadLtx(name)
	local h    = "*"..name
	local dltx = dynamic_ltx[h]

	if dltx then
		return dltx, h
	else
		local l
		l = gulag_general.load_ltx(name)
		if l ~= nil then
			dltx = create_ini_file(l)
			dynamic_ltx[h] = dltx
			return dltx, h
		end
			return nil, nil
		end
end







function job_in_restrictor(smart, restrictor_name, way_name)
	--printf("SMART [%s] restr [%s]", smart:name(), tostring(restrictor_name))

	if restrictor_name == nil then
		return nil
	end

	local restrictor =  db.zone_by_name[restrictor_name]
	-- Рестриктор еще не проспонился
	if restrictor == nil then
		return nil
	end

	local patrol = patrol(way_name)
	local cnt = patrol:count()

	for pt = 0, cnt - 1 do
		if not restrictor:inside(patrol:point(pt)) then
			return false
		end
	end
	return true
end