-- ///////////////////////// general /////////////////////////
local HI = has_alife_info
local GI = give_info
local DI = disable_info
local gt = game.translate_string
local ctime_to_t = utils_data.CTime_to_table
local t_to_ctime = utils_data.CTime_from_table
local redemption_3_start_time
local redemption_4_start_time
local redemption_4_aggro_time
local redemption_5_start_time
local redemption_end_items_found = 0

local debug_unlock_labs = false

local allowed_storyline_factions = {
	["stalker"] = true,
	["csky"] = true,
	["dolg"] = false,
	["ecolog"] = false,

	["freedom"] = false,
	["army"] = false,
	["killer"] = false, 
	["bandit"] = false,
	["renegade"] = false,
	["greh"] = false,
	["isg"] = false,
}

function redemption_faction_precondition()
	if allowed_storyline_factions[get_actor_true_community()] then
		return true
	end
end

function redemption_unlock_bunker_route()
	if redemption_faction_precondition() then
		GI("redemption_6_unlock_bunker_route")
		redemption_open_route("prom", "bunk")
	end
end

function redemption_unlock_collider_route()
	if redemption_faction_precondition() then
		GI("redemption_6_unlock_collider_route")
		redemption_open_route("prom", "col")
	end
end

function redemption_open_route(map1, map2)
	if (not txr_routes.is_route_discovered(map1, map2)) then
		txr_routes.open_route(map1, map2)
	end
end

function redemption_goodwill_gain(comm, gw)
	if not (comm and gw) then return end
	relation_registry.change_community_goodwill(comm, 0, math.ceil(gw))
	news_manager.send_tip(db.actor, string.format(gt("st_redemption_goodwill"), gt("st_faction_" .. comm)), 0, nil, 7500)
end

xr_conditions.npc_is_companion = function(a, npc, p)
	if npc and npc.alive and npc:alive() and p[1] and npc.section and npc:section() == p[1] and npc:has_info("npcx_is_companion") then
		return true
	end
end

xr_effects.redemption_send_text = function(a, b, p)
	local se_npc = p[2] and get_story_se_object(p[2])
	if not (p[1] and p[3] and se_npc and se_npc.alive and se_npc:alive()) then return end

	local msg
	if p[3] == "task_1_eco" then
		local t = { [3] = "st_redemption_1_zero_more", [2] = "st_redemption_1_one_more", [1] = "st_redemption_1_two_more" }
		msg = t[p[1]]
	end
	if not msg then return end

	dynamic_news_helper.send_tip(gt(msg), se_npc:character_name(), nil, 10, se_npc:character_icon(), "beep_1", "npc")
end

function get_story_squad_id(story_id, ret_obj)
	local squad = get_story_squad(story_id)
	if squad and squad.commander_id then
		return ret_obj and squad or squad.id
	end
end

function get_story_se_id(story_id, ret_obj)
	local se_obj = get_story_se_object(story_id)
	if se_obj then
		return ret_obj and se_obj or se_obj.id
	end
end

function redemption_spawn_squad_on_smart(smart_name, squad_sec)
	local smart = SIMBOARD.smarts_by_names[smart_name]
	local squad = smart and SIMBOARD:create_squad(smart, squad_sec)
	if squad then
		sim_offline_combat.task_squads[squad.id] = true
		return squad
	end
end

function redemption_release_squad(story_id)
	local squad = get_story_squad_id(story_id, true)
	if squad and squad.commander_id then
		-- does not look reliable to let sim_offline_combat script do that with its 30 sec updates
		sim_offline_combat.task_squads[squad.id] = nil
		SIMBOARD:remove_squad(squad)
	end
end

function redemption_release_npc(story_id)
	local se_obj = story_id and get_story_se_object(story_id)
	if not se_obj then return end

	se_obj:kill()
	safe_release_manager.release(se_obj)
end

function redemption_release_sim_squads_on_smart(smart_name)
	local smart = smart_name and SIMBOARD.smarts_by_names[smart_name]
	if not (smart and SIMBOARD.smarts and SIMBOARD.smarts[smart.id] and SIMBOARD.smarts[smart.id].squads) then return end

	for id, _ in pairs(SIMBOARD.smarts[smart.id].squads) do
		local squad = alife_object(id)
		if squad and squad.commander_id and (string.find(squad:section_name(), "sim_squad") or string.find(squad:section_name(), "simulation_")) then
			SIMBOARD:remove_squad(squad)
		end
	end
end

function redemption_set_squad_position(sq, lvid)
	local squad_id = sq and sq.id
	if not squad_id then return end
	CreateTimeEvent("redemption_set_squad_pos_e_" .. squad_id, "redemption_set_squad_pos_a_" .. squad_id, 0.5, function(id)
		local squad = id and alife_object(id)
		if squad and squad.commander_id then
			for m in squad:squad_members() do
				local obj = level.object_by_id(m.id)
				local pos = obj and level.vertex_position(lvid)
				if pos then
					obj:set_npc_position(pos)
				end
			end
		end
		return true
	end, squad_id)
end

function redemption_pda_news(msg, obj_header, obj, delay, ttl, snd)
	if not obj then return end

	-- false or nil - default
	if not obj_header then
		obj_header = gt("st_tip")
	-- string - translated string
	elseif type(obj_header) == "string" then
		obj_header = gt(obj_header)
	-- true - obj name
	elseif obj_header == true then
		obj_header = obj:character_name()
	end
	snd = snd or "pda_tips"
	dynamic_news_helper.send_tip(gt(msg), obj_header, delay, ttl, obj:character_icon(), snd, "npc")
end

xr_effects.redemption_effects = function(a, npc, p)
	-- p[1] = type;   p[2] = name;   p[3] = id;   p[4] = loop
	if not (p[1] and p[2] and p[3] and p[4]) then return end
	local p_bool = (p[4] == "true" and true) or (p[4] == "false" and false)
	if p_bool == nil then return end

	if p[1] == "anm" then
		level.add_cam_effector("camera_effects\\" .. p[2] .. ".anm", p[3], p_bool, "")
	elseif p[1] == "ppe" then
		level.add_pp_effector(p[2] .. ".ppe", p[3], p_bool)
	end

end

xr_effects.redemption_hit_obj = function(actor, npc, p)		-- vanilla has incorrect direction
	local h = hit()
	local obj = get_story_object(p[1])
	if not obj then return end

	h:bone(p[2])
	h.power = p[3]
	h.impulse = p[4]

	local sid = p[5] and get_story_object(p[5])
	if sid then
		h.direction = vec_sub(obj:position(), sid:position())
	else
		h.direction = vec_sub(obj:position(), npc:position())
	end

	h.draftsman = sid or npc
	h.type = hit.fire_wound
	obj:hit(h)
end

xr_effects.redemption_play_snd = function(a, npc, p)
	local idx = p[2] and math.random(1, p[2]) or ""
	local path = p[1] and p[1] .. idx
	local snd = path and sound_object(path)
	if snd and npc then
		snd:play_no_feedback(npc, sound_object.s3d, 0, npc:position(), 1, 1)
	end
end

xr_effects.redemption_play_snd_at_pos = function(a, npc, p)
	local snd = p[1] and sound_object(p[1])
	local pos = VEC_ZERO
	if p[2] then
		pos = p[2] ~= 0 and level.vertex_position(p[2]) or pos
	end
	if snd and pos then
		local vol = p[3] or 1
		snd:play_no_feedback(db.actor, sound_object.s2d, 0, pos, vol, 1)
	end
end

xr_conditions.redemption_dist_to_actor = function(a, npc, p)
	if npc and npc.alive and npc:alive() and p[1] then
		local dist_to = db.actor:position():distance_to(npc:position())
		if dist_to and dist_to < p[1] then
			return true
		end
	end
end

-- ///////////////////////// 1 (start, protect scientist) /////////////////////////
function give_redemption_task_1()
	task_manager.get_task_manager():give_task("redemption_task_1")
end

local task_1_targets = { [4] = "prom_15", [3] = "prom_10", [2] = "prom_6" }

task_functor.redemption_1_target_functor = function(task_id,field,p,tsk)
	local stage = tsk and tsk.stage

	if (field == "title") then
		return gt("st_redemption_task_1_title")
	elseif (field == "descr") then
		return stage and gt("st_redemption_task_1_descr_" .. stage) or gt("st_redemption_task_1_descr_0")
	elseif (field == "target") and stage then
		if (task_1_targets[stage]) then
			local smart = SIMBOARD.smarts_by_names[task_1_targets[stage]]
			return smart and smart.id
		elseif stage == 6 then
			return get_story_squad_id("yan_stalker_sakharov_squad")
		elseif stage == 5 then
			return get_story_squad_id("redemption_task_1_eco_squad")
		elseif stage == 1 then
			local restr = get_story_se_object("redemption_dummy_target")
			return restr and restr.id
		end
	end

end

task_status_functor.redemption_1_status_functor = function(tsk,task_id)
	if not tsk then return end

	if not tsk.stage then
		tsk.stage = 0
	end

	-- fails are in ltx
	if HI("redemption_1_stage_6") then
		tsk.stage = 6		-- return to sakharov
		return
	elseif HI("redemption_1_stage_5") then
		tsk.stage = 5		-- talk to scientist
		return
	elseif HI("redemption_1_stage_4") then
		tsk.stage = 4		-- scan 3
		return
	elseif HI("redemption_1_stage_3") then
		tsk.stage = 3		-- scan 2
		return
	elseif HI("redemption_1_stage_2") then
		tsk.stage = 2		-- scan 1
		return
	elseif HI("redemption_1_stage_1") then
		tsk.stage = 1		-- talk to scientist
		return
	end

end

function redemption_1_unlock_mil_prom()
	redemption_open_route("mil", "prom")
end

function redemption_1_spawn_scientist()
	redemption_spawn_squad_on_smart("prom_8", "redemption_task_1_eco_squad")
end

function redemption_1_release_scientist()
	redemption_release_squad("redemption_task_1_eco_squad")
end

function redemption_1_spawn_target()
	alife_create("redemption_dummy_target", vector():set(-420.5, -28.62, 66.5), 6283, 5415)
end

function redemption_1_release_target()
	local restr = get_story_se_object("redemption_dummy_target")
	if restr then
		alife_release(restr)
	end
end

xr_conditions.redemption_1_scan_2 = function(a, npc, p)
	if not (HI("redemption_1_stage_2")) then return end
	local smart = SIMBOARD.smarts_by_names["prom_6"]
	if smart and npc:position():distance_to(smart.position) < 15 then
		return true
	end
end

xr_conditions.redemption_1_scan_3 = function(a, npc, p)
	if not (HI("redemption_1_stage_3")) then return end
	local smart = SIMBOARD.smarts_by_names["prom_10"]
	if smart and npc:position():distance_to(smart.position) < 15 then
		return true
	end
end

xr_conditions.redemption_1_scan_4 = function(a, npc, p)
	if not (HI("redemption_1_stage_4")) then return end
	local smart = SIMBOARD.smarts_by_names["prom_15"]
	if smart and npc:position():distance_to(smart.position) < 15 then
		return true
	end
end

function redemption_1_give_reward(a, b)
	local num = 10000
	dialogs.relocate_money_to_actor(a, b, num)
end

function redemption_1_give_goodwill()
	redemption_goodwill_gain("ecolog", 100)
end

function sakharov_1_1_text()
	return HI("redemption_1_dialogue_info") and gt("st_redemption_1_sakharov_11") or gt("st_redemption_1_sakharov_7")
end

function end_redemption_task_1()
	task_manager.get_task_manager():set_task_completed("redemption_task_1")
end


-- ///////////////////////// 2 (find documents) /////////////////////////
function give_redemption_task_2()
	task_manager.get_task_manager():give_task("redemption_task_2")
end

task_functor.redemption_2_target_functor = function(task_id,field,p,tsk)
	local stage = tsk and tsk.stage

	if (field == "title") then
		return gt("st_redemption_task_2_title")
	elseif (field == "descr") then
		return stage and gt("st_redemption_task_2_descr_" .. stage) or gt("st_redemption_task_2_descr_0")
	elseif (field == "target") and stage then
		if stage == 6 then
			local actor_has_docs = db.actor:object("redemption_2_documents")
			local docs_se_obj = get_story_se_item("redemption_2_documents")
			return (actor_has_docs and get_story_squad_id("yan_stalker_sakharov_squad")) or (docs_se_obj and docs_se_obj.id)
		elseif stage == 5 then
			local docs_se_obj = get_story_se_item("redemption_2_documents")
			return docs_se_obj and docs_se_obj.id
		elseif stage == 4 then
			return get_story_se_id("redemption_task_2_hare")
		elseif stage == 3 then
			local actor_has_vodka = db.actor:object("redemption_2_vodka_box")
			local vodka_se_obj = get_story_se_item("redemption_2_vodka_box")
			return (actor_has_vodka and get_story_squad_id("bar_visitors_barman_stalker_trader_squad")) or (vodka_se_obj and vodka_se_obj.id)
		elseif stage == 2 then
			return get_story_se_id("redemption_task_2_bandit")
		elseif stage == 1 then
			return get_story_squad_id("bar_visitors_barman_stalker_trader_squad")
		end
	end

end

task_status_functor.redemption_2_status_functor = function(tsk,task_id)
	if not tsk then return end

	if not tsk.stage then
		tsk.stage = 0
	end

	-- if we take vodka box from dead body
	if redemption_2_actor_has_vodka_box() and HI("redemption_2_stage_2") and (not HI("redemption_2_stage_3")) then
		DI("redemption_2_stage_2")
		GI("redemption_2_stage_3")
	end

	-- if we take documents
	if redemption_2_actor_has_documents() and HI("redemption_2_stage_5") and (not HI("redemption_2_stage_6")) then
		DI("redemption_2_stage_5")
		GI("redemption_2_stage_6")
		redemption_2_release_hare()
	end

	if HI("redemption_2_stage_6") then
		tsk.stage = 6		-- bring documents to sakharov
		return
	elseif HI("redemption_2_stage_5") then
		tsk.stage = 5		-- get documents
		return
	elseif HI("redemption_2_stage_4") then
		tsk.stage = 4		-- talk to hare
		return
	elseif HI("redemption_2_stage_3") then
		tsk.stage = 3		-- bring vodka to barman
		return
	elseif HI("redemption_2_stage_2") then
		tsk.stage = 2		-- get vodka
		return
	elseif HI("redemption_2_stage_1") then
		tsk.stage = 1		-- talk to barman
		return
	end

end

function redemption_2_unlock_bar_trc()
	redemption_open_route("bar", "trc")
end

function redemption_2_spawn_bandit()
	alife_create("redemption_task_2_bandit", vector():set(-317.5, 18.85, -85.3), 15059, 5263)
end

function redemption_2_release_bandit()
	redemption_release_npc("redemption_task_2_bandit")
end

function redemption_2_relocate_vodka_box_to_actor(a, b)
	dialogs.relocate_item_section_to_actor(a, b, "redemption_2_vodka_box")
end

function redemption_2_bandit_enemy_eval(obj, enemy, flags)
	if not (HI("redemption_2_stage_2") or HI("redemption_2_stage_3")) then return end

	local bandit = get_story_object("redemption_task_2_bandit")
	if not (bandit and bandit.alive and bandit:alive()) then return end

	-- if hitted by actor
	if HI("redemption_2_bandit_attacked") then return end

	-- ignore combat
	local ignore
	if bandit:id() == obj:id() and (enemy:id() == 0 or enemy:has_info("npcx_is_companion")) then
		ignore = true
	elseif bandit:id() == enemy:id() and (obj:id() == 0 or obj:has_info("npcx_is_companion")) then
		ignore = true
	end

	if ignore then
		flags.override = true
		flags.result = false
	end

end

function redemption_2_bandit_before_hit(npc, s_hit, bone_id, flags)
	local se_bandit = get_story_se_object("redemption_task_2_bandit")
	local draft_actor = s_hit.draftsman and s_hit.draftsman:id() and s_hit.draftsman:id() == 0
	if (se_bandit and se_bandit.id == npc:id()) and draft_actor then
		GI("redemption_2_bandit_attacked")
	end
end

function redemption_2_actor_has_vodka_box()
	return db.actor:object("redemption_2_vodka_box")
end

function redemption_2_relocate_vodka_box_to_barman(a, b)
	dialogs.relocate_item_section_from_actor(a, b, "redemption_2_vodka_box")
end

function redemption_2_give_vodka_to_actor(a, b)
	local amnt = ini_sys:r_float_ex("vodka2", "max_uses") or 3
	dialogs.relocate_item_section_to_actor(a, b, "vodka2", amnt)
end

function redemption_2_give_goodwill_barman()
	redemption_goodwill_gain("dolg", 75)
end

function redemption_2_spawn_hare()
	alife_create("redemption_task_2_hare", vector():set(-222.5, -19.85, -163.7), 32970, 454)
end

function redemption_2_release_hare()
	redemption_release_npc("redemption_task_2_hare")
end

function redemption_2_actor_has_money()
	return db.actor:money() > 15000
end

function redemption_2_actor_pay_money(a, b)
	local num = 15000
	dialogs.relocate_money_from_actor(a, b, num)
end

function redemption_2_spawn_documents()
	alife_create("redemption_2_documents", vector():set(-80.602, 1.472, -49.555), 4294967295, 676)
end

function hare_1_text()
	return HI("redemption_2_dialogue_info") and gt("st_redemption_2_hare_1_1") or gt("st_redemption_2_hare_1")
end

function redemption_2_actor_has_documents()
	return db.actor:object("redemption_2_documents")
end

function redemption_2_relocate_documents_to_sakharov(a, b)
	dialogs.relocate_item_section_from_actor(a, b, "redemption_2_documents")
end

function redemption_2_give_reward(a, b)
	local num = 29000
	dialogs.relocate_money_to_actor(a, b, num)
end

function redemption_2_give_goodwill_eco()
	redemption_goodwill_gain("ecolog", 125)
end

function end_redemption_task_2()
	task_manager.get_task_manager():set_task_completed("redemption_task_2")
end


-- ///////////////////////// 3 (station) /////////////////////////
function give_redemption_task_3()
	task_manager.get_task_manager():give_task("redemption_task_3")
end

task_functor.redemption_3_target_functor = function(task_id,field,p,tsk)
	local stage = tsk and tsk.stage

	if (field == "title") then
		return gt("st_redemption_task_3_title")
	elseif (field == "descr") then
		if stage then
			return stage ~= -1 and gt("st_redemption_task_3_descr_" .. stage) or gt("st_redemption_task_3_descr_comp")
		end
		return gt("st_redemption_task_3_descr_0")
	elseif (field == "target") and stage then
		if stage == 3 then
			return get_story_squad_id("yan_stalker_sakharov_squad")
		elseif stage == 2 then
			return get_story_se_id("redemption_task_3_hare")
		elseif stage == 1 then
			local restr = get_story_se_object("redemption_dummy_target")
			return restr and restr.id
		end
	end

end

task_status_functor.redemption_3_status_functor = function(tsk,task_id)
	if not tsk then return end

	if not tsk.stage then
		tsk.stage = 0
	end

	-- leave companions for stage 1
	if #axr_companions.list_actor_squad_by_id() > 0 and HI("redemption_3_stage_1") then
		tsk.stage = -1
		return
	end

	if HI("redemption_3_stage_3") then
		tsk.stage = 3		-- go to sakharov
		return
	elseif HI("redemption_3_stage_2") then
		tsk.stage = 2		-- contact sakharov
		return
	elseif HI("redemption_3_stage_1") then
		tsk.stage = 1		-- place devices
		local ac_pos = db.actor:position()
		local eco = get_story_object("redemption_task_3_eco_1")
		local dist_to = eco and eco:position() and ac_pos:distance_to(eco:position())
		if dist_to and dist_to < 15 and (not HI("redemption_3_found_ecos")) then	-- if we found ecologists
			GI("redemption_3_found_ecos")
			redemption_3_found_eco()
		end
		return
	end

end

function redemption_3_start_timer()
	redemption_3_start_time = ctime_to_t(game.get_game_time())
end

function redemption_3_check_timer()
	local time_diff = redemption_3_start_time and game.get_game_time():diffSec(t_to_ctime(redemption_3_start_time))
	if time_diff and time_diff > 6600 then
		return true
	end
end

function redemption_3_spawn_dead_ecos()
	local eco_1 = alife_create("redemption_task_3_eco_1", vector():set(374.048, -17.0234, -263.611), 833158, 5482)
	local eco_2 = alife_create("redemption_task_3_eco_2", vector():set(374.753, -18.5022, -274.9857), 833919, 5482)
	if eco_1 then eco_1:kill() end
	if eco_2 then eco_2:kill() end
end

function redemption_3_found_eco()
	local se_sakharov = get_story_se_object("yan_stalker_sakharov")
	redemption_pda_news("st_redemption_3_ecos_1", true, db.actor, 4, 12)
	redemption_pda_news("st_redemption_3_ecos_2", true, se_sakharov, 9, 10)
	redemption_pda_news("st_redemption_3_ecos_3", true, db.actor, 14, 10)
end

function redemption_3_relocate_device_to_actor(a, b)
	dialogs.relocate_item_section_to_actor(a, b, "redemption_3_device")
end

function redemption_3_menu_place(item)
	return game.translate_string("st_item_place")
end

function redemption_3_use_place(obj)
	local p = obj and obj:parent()
	if not (p and p:id() == AC_ID) then return end

	local place_pos = vector():set(377.294, 3.3806, -272.506)
	local dist_to = db.actor:position():distance_to(place_pos)
	if not (dist_to and dist_to < 2) then
		redemption_pda_news("st_redemption_3_device_cant_place", true, db.actor, 0, 5)
		return
	end

	alife_release(obj)
	alife_create("redemption_3_device_obj", place_pos, 837931, 5482)

	local se_sakharov = get_story_se_object("yan_stalker_sakharov")
	redemption_pda_news("st_redemption_3_news_1", true, db.actor, 2, 12)
	redemption_pda_news("st_redemption_3_news_2", true, se_sakharov, 8, 10)

	GI("redemption_3_stage_2")
	DI("redemption_3_stage_1")
	redemption_3_release_target()
	redemption_3_spawn_hare()
end

function redemption_3_spawn_target()
	alife_create("redemption_dummy_target", vector():set(377.294, 3.3806, -272.506), 837931, 5482)
end

function redemption_3_release_target()
	local restr = get_story_se_object("redemption_dummy_target")
	if restr then
		alife_release(restr)
	end
end

function redemption_3_spawn_hare()
	alife_create("redemption_task_3_hare", vector():set(269.44, -22.21, -265.17), 706288, 5471)
end

function redemption_3_release_hare()
	redemption_release_npc("redemption_task_3_hare")
end

function redemption_3_spawn_monoliths()
	alife_create("redemption_task_3_monolith_1", vector():set(286.92, -22.063, -229.186), 730530, 5472)
	alife_create("redemption_task_3_monolith_2", vector():set(278.946, -21.914, -227.267), 719802, 5472)
	alife_create("redemption_task_3_monolith_3", vector():set(309.8, -22.113, -242.697), 761520, 5478)
end

function redemption_3_hide_weapon()
	level.show_weapon(false)
end

function redemption_3_show_weapon()
	level.show_weapon(true)
end

function redemption_3_disable_input_and_turn()
	level.disable_input()
	db.actor:actor_look_at_point(vector():set(287, -21, -229))
end

xr_effects.redemption_3_lay_down = function()
	db.actor:set_actor_position(vector():set(273.152, -22.371, -263.999))
	local dir = vector():set(-0.854564, -0.212816, 0.47374)
	db.actor:set_actor_direction(-dir:getH())
end

xr_effects.redemption_3_draw_wallmarks = function()
	local hare = get_story_object("redemption_task_3_hare")
	local hare_old_pos = hare and hare:position()
	local hare_pos = hare_old_pos and vector():set(hare_old_pos.x, hare_old_pos.y + 1, hare_old_pos.z)
	if hare_pos then
		wallmarks_manager():place(vector():set(0, -1, 0), hare_pos, 10, 0.75, "redemption_wm_blood_" .. math.random(1, 6), hare, 600)
		wallmarks_manager():place(vector():set(0.249, 0.174, -0.953), hare_pos, 15, 0.75, "redemption_wm_blood_" .. math.random(1, 6), hare, 600)
	end

	local old_ac_pos = db.actor:position()
	local actor_pos = old_ac_pos and vector():set(old_ac_pos.x, old_ac_pos.y + 1, old_ac_pos.z)
	if actor_pos then
		wallmarks_manager():place(vector():set(0, -1, 0), actor_pos, 10, 0.75, "redemption_wm_blood_" .. math.random(1, 6), db.actor, 600)
		wallmarks_manager():place(vector():set(-0.225, -0.2, -0.953), actor_pos, 15, 0.75, "redemption_wm_blood_" .. math.random(1, 6), db.actor, 600)
	end
end

xr_effects.redemption_3_monolith_talk = function()
	local mono_leader = get_story_object("redemption_task_3_monolith_1")
	local mono_member = get_story_object("redemption_task_3_monolith_2")
	redemption_pda_news("st_redemption_3_monolith_news_1", "st_redemption_task_3_news_unknown", mono_member, 0, 6)
	redemption_pda_news("st_redemption_3_monolith_news_2", "st_redemption_task_3_news_unknown", mono_leader, 4, 6)
end

xr_effects.redemption_3_spawn_illeon = function()
	alife_create("redemption_task_3_illeon", vector():set(180.279, -21.701, -266.359), 575646, 5466)
end

xr_effects.redemption_3_release_bodies = function()
	redemption_release_npc("redemption_task_3_eco_1")
	redemption_release_npc("redemption_task_3_eco_2")
	redemption_release_npc("redemption_task_3_hare")
	for i = 1, 3 do
		redemption_release_npc("redemption_task_3_monolith_" .. i)
	end
end

xr_effects.redemption_3_teleport_to_subway = function()		-- illeon_fade 2.5
	level.remove_cam_effector(7774)		-- remove lay down to set it again

	db.actor:set_actor_position(vector():set(521.2, -28.19, 149.718))
	local dir = vector():set(-0.1384, -0.272, -0.95)
	db.actor:set_actor_direction(-dir:getH())

	local illeon = get_story_object("redemption_task_3_illeon")
	illeon:set_npc_position(vector():set(515.088, -28.240, 142.986))

	for i = 1, 4 do
		local function red_time_event(idx)
			level.change_game_time(0, 3, 0)
			db.actor:cast_Actor():conditions():ChangeSatiety(1)
			return true
		end
		CreateTimeEvent("redemption_3_change_time_e_" .. i, "redemption_3_change_time_a_" .. i, i/10, red_time_event, i)
	end
	surge_manager.get_surge_manager().time_forwarded = true
	psi_storm_manager.get_psi_storm_manager().time_forwarded = true
	level_weathers.get_weather_manager():forced_weather_change()
end

xr_effects.redemption_3_illeon_talk = function()		-- illeon_teleport 4
	level.add_pp_effector("fade_out.ppe", 7780, false)
	level.remove_pp_effector(7777)

	local illeon = get_story_object("redemption_task_3_illeon")
	redemption_pda_news("st_redemption_3_illeon_news_1", "st_redemption_task_3_news_unknown", illeon, 4, 6)
	redemption_pda_news("st_redemption_3_illeon_news_2", true, db.actor, 12, 6)
	redemption_pda_news("st_redemption_3_illeon_news_3", "st_redemption_task_3_news_unknown", illeon, 14, 6)
	redemption_pda_news("st_redemption_3_illeon_news_4", true, db.actor, 20, 6)
end

xr_effects.redemption_3_change_time = function()		-- illeon_fade_2 1.5
	for i = 1, 7 do
		local function red_time_event(idx)
			level.change_game_time(0, 3, 0)
			db.actor:cast_Actor():conditions():ChangeSatiety(1)
			return true
		end
		CreateTimeEvent("redemption_3_change_time_e_" .. i, "redemption_3_change_time_a_" .. i, i/10, red_time_event, i)
	end
	surge_manager.get_surge_manager().time_forwarded = true
	psi_storm_manager.get_psi_storm_manager().time_forwarded = true
	level_weathers.get_weather_manager():forced_weather_change()
end

xr_effects.redemption_3_remove_effectors = function()		-- illeon_wake_up 4
	level.remove_cam_effector(7778)
	for i = 7770, 7785 do
		level.remove_pp_effector(i)
	end
	level.add_pp_effector("fade_out.ppe", 7770, false)
	level.add_pp_effector("surge_shock_old.ppe", 7771, false)
	level.add_cam_effector("camera_effects\\prison_1.anm", 7772, false, "")

	disable_info("redemption_3_actor_invul")
	disable_info("redemption_3_cutscene_started")
	db.actor:set_health_ex(0.55)
end

xr_effects.redemption_3_enable_input = function()		-- illeon_input 7
	level.enable_input()
end

function redemption_3_respawn_illeon()
	level.disable_input()
	level.add_pp_effector("fade_in.ppe", 7770, false)

	CreateTimeEvent("redemption_3_illeon_respawn_e", "redemption_3_illeon_respawn_a", 0.5, function()
		redemption_release_npc("redemption_task_3_illeon")
		redemption_spawn_squad_on_smart("prom_7", "redemption_task_3_illeon_stalker_squad")
		return true
	end)
end

function redemption_3_release_illeon_squad()
	redemption_release_squad("redemption_task_3_illeon_stalker_squad")
end

function redemption_3_actor_before_hit(s_hit, bone_id, flags)
	if not (HI("redemption_3_cutscene_started")) then return end
	flags.ret_value = false
end

local red_3_tmr = 0
function redemption_3_health_update()
	if not (HI("redemption_3_actor_invul")) then return end

	if red_3_tmr > time_global() then return end
	red_3_tmr = time_global() + 50

	db.actor.radiation = 0
	db.actor.bleeding = 0
	if db.actor.health > 0.11 then
		db.actor:set_health_ex(db.actor.health - 0.009)
	end

end

function sakharov_3_1_text()
	return HI("redemption_task_3_illeon_death") and gt("st_redemption_3_yantar_1_1") or gt("st_redemption_3_yantar_1")
end
function sakharov_3_5_text()
	return HI("redemption_task_3_illeon_death") and gt("st_redemption_3_yantar_5_1") or gt("st_redemption_3_yantar_5")
end

function redemption_3_give_reward(a, b)
	local num = 18000
	dialogs.relocate_money_to_actor(a, b, num)
end

function redemption_3_give_goodwill()
	redemption_goodwill_gain("ecolog", 125)
end

function end_redemption_task_3()
	task_manager.get_task_manager():set_task_completed("redemption_task_3")
end


-- ///////////////////////// 4 () /////////////////////////
function give_redemption_task_4()
	task_manager.get_task_manager():give_task("redemption_task_4")
end

task_functor.redemption_4_target_functor = function(task_id,field,p,tsk)
	local stage = tsk and tsk.stage

	if (field == "title") then
		return gt("st_redemption_task_4_title")
	elseif (field == "descr") then
		return stage and gt("st_redemption_task_4_descr_" .. stage) or gt("st_redemption_task_4_descr_0")
	elseif (field == "target") and stage then
		if stage == 6 then
			return get_story_squad_id("yan_stalker_sakharov_squad")
		elseif stage == 5 then
			return get_story_squad_id("bar_visitors_barman_stalker_trader_squad") 
		elseif stage == 4 then
			local smart = SIMBOARD.smarts_by_names["agr_smart_terrain_6_4"]
			return smart and smart.id
		elseif stage == 3 then
			return get_story_squad_id("bar_visitors_barman_stalker_trader_squad")
		elseif stage == 2 then
			local smart = SIMBOARD.smarts_by_names["val_smart_terrain_7_5"]
			return smart and smart.id
		elseif stage == 1 then
			return get_story_squad_id("bar_visitors_barman_stalker_trader_squad")
		end
	end

end

task_status_functor.redemption_4_status_functor = function(tsk,task_id)
	if not tsk then return end

	if not tsk.stage then
		tsk.stage = 0
	end

	-- check for weapon in darkvalley
	local stage_check = (HI("redemption_4_stage_2") or HI("redemption_4_stage_3")) and (not HI("redemption_4_zombie_arena"))
	local has_weapon = redemption_4_actor_has_weapon()
	local has_comps = #axr_companions.list_actor_squad_by_id() > 0
	if stage_check and (has_weapon or has_comps) then
		GI("redemption_4_has_wpn")
	else
		DI("redemption_4_has_wpn")
	end

	-- check if zombies are killed
	if HI("redemption_4_zombie_arena") and HI("redemption_task_4_zombies_killed") then
		DI("redemption_4_zombie_arena")
		redemption_4_end_arena()
	end

	-- if no aggro yet and stoves are lit - start aggro timer
	if (not HI("redemption_4_bandits_aggro")) and HI("redemption_4_stage_2") and (not redemption_4_aggro_time) then
		local se_fire = get_story_se_item("redemption_4_stoves_fire")
		local obj_fire = se_fire and level.object_by_id(se_fire.id)
		local obj_campfire = obj_fire and obj_fire:get_campfire()
		if obj_campfire and obj_campfire:is_on() then
			GI("redemption_4_beh_move")
			redemption_4_aggro_time = ctime_to_t(game.get_game_time())
		end
	end

	-- if no aggro yet and timer exist - add time to aggro timer (and bandit talk)
	if (not HI("redemption_4_bandits_aggro")) and redemption_4_aggro_time then
		local time_diff = game.get_game_time():diffSec(t_to_ctime(redemption_4_aggro_time))
		if time_diff then
			-- news dialogue
			local se_sultan = get_story_se_object("zat_b7_bandit_boss_sultan")
			local se_bandit = get_story_se_object("redemption_task_4_bandit_2")
			if time_diff > 360 then		-- 60 sec
				DI("redemption_4_beh_move")
				GI("redemption_4_bandits_aggro")		-- enable aggro
			elseif time_diff > 180 and (not HI("redemption_4_aggro_news_2")) then		-- 30 sec
				GI("redemption_4_aggro_news_2")
				redemption_pda_news("st_redemption_4_sultan_news_4", true, se_sultan, 0, 12)
				redemption_pda_news("st_redemption_4_sultan_news_5", true, se_bandit, 10, 12)
				redemption_pda_news("st_redemption_4_sultan_news_6", true, se_sultan, 20, 15)
			elseif time_diff > 30 and (not HI("redemption_4_aggro_news_1")) then		-- 5 sec
				GI("redemption_4_aggro_news_1")
				redemption_pda_news("st_redemption_4_sultan_news_1", true, se_sultan, 0, 12)
				redemption_pda_news("st_redemption_4_sultan_news_2", true, se_sultan, 10, 12)
				redemption_pda_news("st_redemption_4_sultan_news_3", true, se_bandit, 18, 12)
			end
		end
	end

	-- if actor picks up the documents
	if HI("redemption_4_stage_2") and (not HI("redemption_4_stage_3")) and redemption_4_actor_has_docs() then
		-- if picked without stoves or without killing zombies - instant aggro
		if not (redemption_4_aggro_time or HI("redemption_task_4_zombies_killed")) then
			GI("redemption_4_bandits_aggro")
		end
		redemption_4_release_fire()
		GI("redemption_4_stage_3")
		DI("redemption_4_stage_2")
	end

	-- actor picks up the documents from agroprom
	if HI("redemption_4_stage_4") and (not HI("redemption_4_stage_5")) and redemption_4_actor_has_agro_docs() then
		GI("redemption_4_stage_5")
		DI("redemption_4_stage_4")
	end

	if HI("redemption_4_stage_6") then
		tsk.stage = 6		-- talk to sakharov
		return
	elseif HI("redemption_4_stage_5") then
		tsk.stage = 5		-- bring documents to barman
		return
	elseif HI("redemption_4_stage_4") then
		tsk.stage = 4		-- get docs on agroprom
		return
	elseif HI("redemption_4_stage_3") then
		tsk.stage = 3		-- bring documents to barman
		return
	elseif HI("redemption_4_stage_2") then
		tsk.stage = 2		-- get documents
		return
	elseif HI("redemption_4_stage_1") then
		tsk.stage = 1		-- talk to barman
		return
	end

end

function redemption_4_start_timer()
	redemption_4_start_time = ctime_to_t(game.get_game_time())
end

function redemption_4_check_timer()
	local time_diff = redemption_4_start_time and game.get_game_time():diffSec(t_to_ctime(redemption_4_start_time))
	if time_diff and time_diff > 64800 then
		return true
	end
end

function redemption_4_actor_has_weapon()
	if level.name() ~= "l04_darkvalley" then return end

	local has_wpn = false
	local function itr(item)
		if IsWeapon(item) or IsGrenade(item) then
			has_wpn = true
			return true
		end
	end
	db.actor:inventory_for_each(itr)

	return has_wpn
end

function redemption_4_enemy_actor_or_zombie(enemy)
	if enemy:id() == 0 then
		return true
	end

	local squad = get_object_squad(enemy)
	if squad and squad.commander_id and squad:section_name() == "redemption_task_4_arena_zombie_squad" then
		return true
	end
end

function redemption_4_bandits_enemy_eval(obj, enemy, flags)
	if not (HI("redemption_4_stage_2") or HI("redemption_4_stage_3")) then return end
	if level.name() ~= "l04_darkvalley" then return end

	-- bandits to actor / zombies
	local comm = IsStalker(obj) and obj:character_community()
	local comm_bandit = comm and (comm == "bandit" or comm == "renegade")
	local enemy_actor_or_zombie = redemption_4_enemy_actor_or_zombie(enemy)
	if comm_bandit and enemy_actor_or_zombie and (not HI("redemption_4_bandits_aggro")) then

		-- zombie arena
		if HI("redemption_4_zombie_arena") then
			flags.override = true
			flags.result = false
			return
		end

		-- rest
		if not (HI("redemption_4_has_wpn")) then
			flags.override = true
			flags.result = false
			return
		end

	end

	-- zombies ignore everyone except actor
	if obj:id() ~= 0 then		-- dont know if possible, but get_object_squad on actor breaks game
		local squad = get_object_squad(obj)
		local squad_check = squad and squad.commander_id and squad:section_name() == "redemption_task_4_arena_zombie_squad"
		if squad_check and enemy:id() ~= 0 then
			flags.override = true
			flags.result = false
			return
		end
	end

end

function redemption_4_bandits_before_hit(npc, s_hit, bone_id, flags)
	-- if we hit bandits in dark valley during these stages
	if not (HI("redemption_4_stage_2") or HI("redemption_4_stage_3")) then return end
	if level.name() ~= "l04_darkvalley" then return end

	local comm = npc:character_community()
	local comm_bandit = comm and (comm == "bandit" or comm == "renegade")
	local draft_actor = s_hit.draftsman and s_hit.draftsman:id() and s_hit.draftsman:id() == 0
	if comm_bandit and draft_actor then
		GI("redemption_4_bandits_aggro")
	end
end

function redemption_4_actor_has_money()
	return db.actor:money() > 4000
end

function redemption_4_actor_pay_money(a, b)
	local num = 4000
	dialogs.relocate_money_from_actor(a, b, num)
end

function redemption_4_unlock_gar_val()
	redemption_open_route("gar", "val")
end

function redemption_4_spawn_docs_fire()
	alife_create("redemption_4_documents", vector():set(41.7, 5.44, -84.494), 214289, 1648)
	local se_fire = alife_create("redemption_4_stoves_fire", vector():set(48.944, 1.5, -51.49), 222786, 1651)
	local data = se_fire and utils_stpk.get_anom_zone_data(se_fire)
	if data then
		data.shapes[1] = {}
		data.shapes[1].shtype = 0
		data.shapes[1].offset = vector():set(0, 0, 0)
		data.shapes[1].center = vector():set(0, 1, 0)
		data.shapes[1].radius = 0.75
		utils_stpk.set_anom_zone_data(data, se_fire)
	end
end

function redemption_4_release_fire()
	-- destroy stoves fire anomaly coz we choose different path
	local se_fire = get_story_se_item("redemption_4_stoves_fire")
	local obj_fire = se_fire and level.object_by_id(se_fire.id)
	if obj_fire then
		bind_campfire.campfires_all[se_fire.id] = nil
		obj_fire:destroy_object()
	end
end

function redemption_4_spawn_bandits()
	alife_create("redemption_task_4_bandit_1", vector():set(19.972, 4.542, -84.05), 189090, 1647)
	alife_create("redemption_task_4_bandit_2", vector():set(39.134, 1.0226, -52.8732), 210821, 1644)
end

function redemption_4_release_bandits()
	redemption_release_npc("redemption_task_4_bandit_1")
	redemption_release_npc("redemption_task_4_bandit_2")
end

function redemption_4_start_arena()
	level.disable_input()
	level.add_pp_effector("fade_in.ppe", 7771, false)

	-- despawn fire coz we choose different path
	redemption_4_release_fire()

	-- blocking
	local block_pos_t = { [1] = 34.5, [2] = 36.1, [3] = 37.7 }
	for i = 1, 3 do
		local block_pos = vector():set(block_pos_t[i], 1, -47)
		local se_obj = alife_create("redemption_4_basement_block_" .. i, block_pos, 217872, 1641)
		if se_obj then
			se_obj.angle = vector():set(-1.57, 1.57, 1.57)
		end
	end

	-- actor pos/dir
	db.actor:set_actor_position(vector():set(40.448, -2.498, -54.585), 212647, 1641)
	local dir = vector():set(0.026, -0.218, 0.9756)
	db.actor:set_actor_direction(-dir:getH())

	-- inv_box / transfer / give knife
	local se_inv = alife_create("redemption_4_inv_box", vector():set(24.37, 0.11, -50.9), 193741, 1632)
	CreateTimeEvent("redemption_4_transfer_from_e", "redemption_4_transfer_from_a", 0.5, function()
		local se_inv_box = get_story_se_object("redemption_4_inv_box")
		local obj_inv_box = se_inv_box and level.object_by_id(se_inv_box.id)
		if obj_inv_box then 
			local function transfer_to_box(item)
				db.actor:transfer_item(item, obj_inv_box)
			end
			db.actor:inventory_for_each(transfer_to_box)
		end
		return true
	end)

	-- spawn zombies
	local zombie_squad = redemption_spawn_squad_on_smart("val_smart_terrain_7_5", "redemption_task_4_arena_zombie_squad")
	CreateTimeEvent("redemption_4_tp_zombie_e", "redemption_4_tp_zombie_a", 0.5, function(squad_id)
		local sq = squad_id and alife_object(squad_id)
		if sq and sq.commander_id then
			for m in sq:squad_members() do
				local obj_zombie = level.object_by_id(m.id)
				local zombie_pos = obj_zombie and level.vertex_position(210046)
				if zombie_pos then
					obj_zombie:set_npc_position(zombie_pos)
				end
			end
		end
		return true
	end, zombie_squad and zombie_squad.id)


	-- enable input and spawn knife
	CreateTimeEvent("redemption_4_arena_input_e", "redemption_4_arena_input_a", 2, function()
		alife_create_item("wpn_knife", db.actor)
		level.enable_input()
		return true
	end)

end

function redemption_4_end_arena()
	level.add_pp_effector("fade_in.ppe", 7772, false)

	-- remove blocking
	for i = 1, 3 do
		local se_obj = get_story_se_item("redemption_4_basement_block_" .. i)
		if se_obj then
			alife_release(se_obj)
		end
	end

	-- transfer back / remove inv_box
	local se_inv_box = get_story_se_item("redemption_4_inv_box")
	local obj_inv_box = se_inv_box and level.object_by_id(se_inv_box.id)
	if obj_inv_box then
		local function transfer_from_box(box,item)
			box:transfer_item(item, db.actor)
		end
		obj_inv_box:iterate_inventory_box(transfer_from_box, obj_inv_box)
	end
	alife_release(se_inv_box)

	-- take knife
	local function itr(item)
		if item:section() == "wpn_knife" then
			alife_release(item)
		end
	end
	db.actor:inventory_for_each(itr)

end

function sultan_1_1_text()
	return HI("redemption_4_sultan_fight_dialogue") and gt("st_redemption_4_sultan_11_1") or gt("st_redemption_4_sultan_1")
end

function redemption_4_actor_has_docs()
	return db.actor:object("redemption_4_documents")
end

function redemption_4_relocate_docs_to_barman(a, b)
	dialogs.relocate_item_section_from_actor(a, b, "redemption_4_documents")
end

function redemption_4_give_reward_docs(a, b)
	local num = 14000
	dialogs.relocate_money_to_actor(a, b, num)
end

function redemption_4_give_goodwill_docs()
	redemption_goodwill_gain("ecolog", 100)
end

function redemption_4_spawn_bloodsuckers()
	redemption_spawn_squad_on_smart("agr_smart_terrain_6_4", "redemption_task_4_bloodsucker_squad")
end

function redemption_4_spawn_dead_stalkers()
	local stalker_1 = alife_create("redemption_task_4_stalker_1", vector():set(242.9, 0.9579, 65.1), 400398, 1031)
	local stalker_2 = alife_create("redemption_task_4_stalker_2", vector():set(253.4, 0.8322, 70), 408169, 1031)
	if stalker_1 then stalker_1:kill() end
	if stalker_2 then
		stalker_2:kill()
		CreateTimeEvent("redemption_4_delay_agro_docs_e", "redemption_4_delay_agro_docs_a", 1, function(id)
			local sobj = alife_object(id)
			if sobj then
				alife_create_item("redemption_4_agro_documents", sobj)
			end
			return true
		end, stalker_2.id)
	end
end

function redemption_4_release_bloodsuckers()
	redemption_release_squad("redemption_task_4_bloodsucker_squad")
end

function redemption_4_release_dead_stalkers()
	redemption_release_npc("redemption_task_4_stalker_1")
	redemption_release_npc("redemption_task_4_stalker_2")
end

function redemption_4_unlock_gar_agr()
	redemption_open_route("gar", "agr")
end

function redemption_4_release_agro_sim_squads()
	redemption_release_sim_squads_on_smart("agr_smart_terrain_6_4")
end

function redemption_4_actor_has_agro_docs()
	return db.actor:object("redemption_4_agro_documents")
end

function redemption_4_relocate_agro_docs_to_barman(a, b)
	dialogs.relocate_item_section_from_actor(a, b, "redemption_4_agro_documents")
end

function redemption_4_give_reward_agro_docs(a, b)
	local num = 19000
	dialogs.relocate_money_to_actor(a, b, num)
end

function redemption_4_give_goodwill_agro_docs()
	redemption_goodwill_gain("stalker", 100)
end

function end_redemption_task_4()
	task_manager.get_task_manager():set_task_completed("redemption_task_4")
end


-- ///////////////////////// 5 () /////////////////////////
function give_redemption_task_5()
	task_manager.get_task_manager():give_task("redemption_task_5")
end

task_functor.redemption_5_target_functor = function(task_id,field,p,tsk)
	local stage = tsk and tsk.stage

	if (field == "title") then
		return gt("st_redemption_task_5_title")
	elseif (field == "descr") then
		return stage and gt("st_redemption_task_5_descr_" .. stage) or gt("st_redemption_task_5_descr_0")
	elseif (field == "target") and stage then
		if stage == 7 then
			return get_story_squad_id("bar_visitors_barman_stalker_trader_squad")
		elseif stage == 6 then
			local smart = SIMBOARD.smarts_by_names["mil_smart_terrain_7_4"]
			return smart and smart.id
		elseif stage == 5 then
			return get_story_squad_id("bar_dolg_leader_squad")
		elseif stage == 4 then
			return get_story_squad_id("mil_smart_terrain_7_7_freedom_leader_stalker_squad")
		elseif stage == 3 then
			return get_story_squad_id("redemption_task_5_snorks_squad")
		elseif stage == 2 then
			return get_story_squad_id("mil_smart_terrain_7_7_freedom_leader_stalker_squad")
		elseif stage == 1 then
			return get_story_squad_id("bar_dolg_leader_squad")
		end
	end

end

task_status_functor.redemption_5_status_functor = function(tsk,task_id)
	if not tsk then return end

	if not tsk.stage then
		tsk.stage = 0
	end

	-- snorks killed
	if HI("redemption_5_stage_3") and HI("redemption_task_5_snorks_killed") then
		GI("redemption_5_stage_4")
		DI("redemption_5_stage_3")
	end

	if HI("redemption_5_stage_7") then
		tsk.stage = 7		-- talk to barman
		return
	elseif HI("redemption_5_stage_6") then
		tsk.stage = 6		-- go to meeting
		return
	elseif HI("redemption_5_stage_5") then
		tsk.stage = 5		-- talk to voronin
		return
	elseif HI("redemption_5_stage_4") then
		tsk.stage = 4		-- talk to lukash
		return
	elseif HI("redemption_5_stage_3") then
		tsk.stage = 3		-- kill mutants
		return
	elseif HI("redemption_5_stage_2") then
		tsk.stage = 2		-- talk to lukash
		return
	elseif HI("redemption_5_stage_1") then
		tsk.stage = 1		-- talk to voronin
		return
	end

end

function redemption_5_start_timer()
	redemption_5_start_time = ctime_to_t(game.get_game_time())
end

function sakharov_5_1_1_text()
	local time_diff = redemption_5_start_time and game.get_game_time():diffSec(t_to_ctime(redemption_5_start_time))
	if HI("redemption_5_skip_start_timer") then
		return gt("st_redemption_5_sakharov_2_1")
	elseif time_diff then
		if time_diff >= 259200 then
			return gt("st_redemption_5_sakharov_2_1")
		elseif time_diff > 172800 then
			return gt("st_redemption_5_sakharov_2_2")
		elseif time_diff > 86400 then
			return gt("st_redemption_5_sakharov_2_3")
		else
			return gt("st_redemption_5_sakharov_2_4")
		end
	end
end

function redemption_5_check_timer()
	local time_diff = redemption_5_start_time and game.get_game_time():diffSec(t_to_ctime(redemption_5_start_time))
	if HI("redemption_5_skip_start_timer") or (time_diff and time_diff >= 259200) then
		return true
	end
end

function redemption_5_release_prom_sim_squads()
	redemption_release_sim_squads_on_smart("prom_1")
	redemption_release_sim_squads_on_smart("prom_2")
	redemption_release_sim_squads_on_smart("prom_3")
	redemption_release_sim_squads_on_smart("prom_4")
end

function redemption_5_spawn_monolith()
	for i = 1, 4 do
		redemption_spawn_squad_on_smart("prom_1", "redemption_task_5_monolith_squad_" .. i)
	end
end

function redemption_5_spawn_illeon()
	redemption_spawn_squad_on_smart("yan_smart_terrain_6_4", "redemption_task_5_illeon_squad")
end

function redemption_5_unlock_mil_grim()
	redemption_open_route("mil", "grim")
end

function redemption_5_release_grim_sim_squads()
	redemption_release_sim_squads_on_smart("grim_9")
end

function redemption_5_spawn_snorks()
	redemption_spawn_squad_on_smart("grim_9", "redemption_task_5_snorks_squad")
end

function redemption_5_spawn_dutier_comp()
	local se_obj = redemption_spawn_squad_on_smart("mil_smart_terrain_7_7", "redemption_task_5_dutier_squad")
	if se_obj then
		CreateTimeEvent("redemption_5_delay_dutier_e", "redemption_5_delay_dutier_a", 1, function(id)
			local squad = alife_object(id)
				if squad and squad.commander_id then
				axr_companions.companion_squads[squad.id] = squad
				SIMBOARD:assign_squad_to_smart(squad, nil)
				for k in squad:squad_members() do
					local member = k and level.object_by_id(k.id)
					if member and member:alive() then
						axr_companions.add_to_actor_squad(member)
					end
				end
			end
			return true
		end, se_obj.id)
	end
end

function redemption_5_give_goodwill_freedom()
	redemption_goodwill_gain("freedom", 125)
end

function redemption_5_ignore_dutier(obj, enemy, flags)
	if not (HI("redemption_5_stage_5")) then return end

	local obj_comm = obj:character_community()
	local en_comm = enemy:character_community()
	if not (obj_comm and en_comm) then return end

	local obj_dutier = obj:section() == "redemption_task_5_dutier" and en_comm == "freedom"
	local en_dutier = enemy:section() == "redemption_task_5_dutier" and obj_comm == "freedom"
	if obj_dutier or en_dutier then
		flags.override = true
		flags.result = false
	end

end

function redemption_5_dutier_near_and_alive()
	if HI("redemption_5_stage_5") and (not HI("redemption_task_5_dutier_death")) then
		local obj = get_story_object("redemption_task_5_dutier")
		if obj and obj.alive and obj:alive() and obj:has_info("npcx_is_companion") then
			return true
		end
	end
end

function redemption_5_release_dutier()
	redemption_release_squad("redemption_task_5_dutier_squad")
end

function redemption_5_release_mil_sim_squads()
	redemption_release_sim_squads_on_smart("mil_smart_terrain_7_4")
	redemption_release_sim_squads_on_smart("mil_smart_terrain_8_3")
end

function redemption_5_spawn_duty_freedom()
	alife_create("redemption_task_5_duty_captain", vector():set(-230.3, -11.643, 44.1), 94154, 2167)
	alife_create("redemption_task_5_duty_1", vector():set(-231.7, -11.643, 42), 93035, 2167)
	alife_create("redemption_task_5_freedom_captain", vector():set(-226.8, -11.6548, 44.1), 96838, 2167)
	alife_create("redemption_task_5_freedom_1", vector():set(-224, -11.643, 42.7), 99122, 2167)
end

function redemption_5_give_goodwill_duty()
	redemption_goodwill_gain("dolg", 125)
end

function redemption_5_duty_freedom_enemy_eval(obj, enemy, flags)
	if not (HI("redemption_5_stage_6") or HI("redemption_5_stage_7")) then return end

	local obj_comm = IsStalker(obj) and obj:character_community()
	local en_comm = IsStalker(enemy) and enemy:character_community()
	if not (obj_comm and en_comm) then return end

	local duty_freed = obj_comm == "dolg" and en_comm == "freedom"
	local freed_duty = obj_comm == "freedom" and en_comm == "dolg"
	if duty_freed or freed_duty then
		flags.override = true
		flags.result = false
	end

end

function redemption_5_release_duty_freedom()
	level.add_pp_effector("fade_in.ppe", 7770, false)
	CreateTimeEvent("redemption_5_release_squads_e", "redemption_5_release_squads_a", 1, function()
		redemption_release_npc("redemption_task_5_duty_captain")
		redemption_release_npc("redemption_task_5_duty_1")
		redemption_release_npc("redemption_task_5_freedom_captain")
		redemption_release_npc("redemption_task_5_freedom_1")
		return true
	end)
end

function end_redemption_task_5()
	task_manager.get_task_manager():set_task_completed("redemption_task_5")
end


-- ///////////////////////// 6 () /////////////////////////
function give_redemption_task_6()
	task_manager.get_task_manager():give_task("redemption_task_6")
end

task_functor.redemption_6_target_functor = function(task_id,field,p,tsk)
	local stage = tsk and tsk.stage

	if (field == "title") then
		return gt("st_redemption_task_6_title")
	elseif (field == "descr") then
		return stage and gt("st_redemption_task_6_descr_" .. stage) or gt("st_redemption_task_6_descr_0")
	elseif (field == "target") and stage then
		if stage == 6 then
			return get_story_squad_id("yan_stalker_sakharov_squad")
		elseif stage == 5 then
			return
		elseif stage == 4 then
			return
		elseif stage == 3 then
			local smart = SIMBOARD.smarts_by_names["prom_1"]
			return smart and smart.id
		elseif stage == 2 then
			local smart = SIMBOARD.smarts_by_names["prom_1"]
			return smart and smart.id
		elseif stage == 1 then
			local restr = get_story_se_object("redemption_dummy_target")
			return restr and restr.id
		end
	end

end

task_status_functor.redemption_6_status_functor = function(tsk,task_id)
	if not tsk then return end

	if not tsk.stage then
		tsk.stage = 0
	end

	-- duty start attack
	if HI("redemption_6_stage_2") and (not HI("redemption_6_stage_3")) then
		local duty_squad = get_story_se_object("redemption_task_6_duty_squad")
		if duty_squad and duty_squad.commander_id then
			for m in duty_squad:squad_members() do
				local duty_member = m.id and level.object_by_id(m.id)
				if duty_member and duty_member.alive and duty_member:alive() then
					local enemy = duty_member:best_enemy()
					if enemy and string.find(enemy:section(), "monolith") and (not HI("redemption_6_attack_time")) then
						GI("redemption_6_attack_time")
						GI("redemption_6_stage_3")
						DI("redemption_6_stage_2")

						-- make freedom companions
			--			local freedom_cap = get_story_object("redemption_task_6_freedom_captain")
			--			if freedom_cap and freedom_cap.alive and freedom_cap:alive() then
			--				dialogs_axr_companion.become_actor_companion(db.actor, freedom_cap)
			--			end
					end
				end
			end
		end
	end

	-- spawn more monolith
	if HI("redemption_6_stage_3") and (not HI("redemption_6_stage_4")) then
		-- news when we reach smart
		local smart = SIMBOARD.smarts_by_names["prom_1"]
		if (not HI("redemption_6_reach_smart_prom_1")) and smart and db.actor:position():distance_to(smart.position) < 25 then
			GI("redemption_6_reach_smart_prom_1")
			local se_squad = get_story_se_object("redemption_task_6_freedom_squad")
			if se_squad and se_squad.commander_id then
				local sender
				for m in se_squad:squad_members() do
					sender = m.id and level.object_by_id(m.id)
				end
				if sender and sender.alive and sender:alive() then
					redemption_pda_news("st_redemption_6_freedom_news", true, sender, 1, 12, "beep_1")

					-- remove freedom companions
			--		dialogs_axr_companion.remove_companions_from_squad(db.actor, sender)
				end
			end
		end

		-- when we inside spawn backup squads to attack and one inside
		if (not HI("redemption_6_mono_inside")) then
			local start_pos = vector():set(72.8, -43.0217, 304.5)
			if start_pos and db.actor:position():distance_to(start_pos) < 10 then
				redemption_spawn_squad_on_smart("prom_6", "redemption_task_5_monolith_squad_backup_1")
				redemption_spawn_squad_on_smart("prom_10", "redemption_task_5_monolith_squad_backup_2")
				redemption_spawn_squad_on_smart("prom_15", "redemption_task_5_monolith_squad_backup_3")

				GI("redemption_6_mono_inside")
				local se_inside_squad = redemption_spawn_squad_on_smart("prom_1", "redemption_task_5_monolith_inside")
				if se_inside_squad then
					redemption_set_squad_position(se_inside_squad, 408329)
				end
			end
		end

		-- new stage on entering bunker
		if level.name() == "bunker_a1" then
			GI("redemption_6_stage_4")
			DI("redemption_6_stage_3")
			redemption_open_route("bunk", "col")
		end
	end

	-- new stage on entering collider
	if HI("redemption_6_stage_4") and (not HI("redemption_6_stage_5")) and level.name() == "collaider" then
		redemption_unlock_collider_route()
		GI("redemption_6_stage_5")
		DI("redemption_6_stage_4")
	end

	-- collider
	if HI("redemption_6_stage_5") and (not HI("redemption_6_stage_6")) then
		-- spawn monolith
		if HI("redemption_6_switcher_1_pressed") and HI("redemption_6_switcher_2_pressed") and (not HI("redemption_6_switcher_mono_spawn")) then
			GI("redemption_6_switcher_mono_spawn")
			redemption_6_spawn_vakhar_squad()
		end

		-- collider reseted
		if HI("redemption_6_switcher_3_pressed") then
			GI("redemption_6_stage_6")
			DI("redemption_6_stage_5")
			redemption_6_release_mono_outside()
			redemption_6_spawn_dead_monolith()
		end
	end

	-- vakhar disable looting
	if HI("redemption_6_stage_5") or HI("redemption_6_stage_6") then
		local vakhar_squad = get_story_se_object("redemption_task_6_monolith_vakhar_squad")
		if vakhar_squad and vakhar_squad.commander_id then
			for m in vakhar_squad:squad_members() do
				local member = m.id and level.object_by_id(m.id)
				if member and member.alive and member:alive() and db.storage[member:id()] and db.storage[member:id()].corpse_detection then
					db.storage[member:id()].corpse_detection.selected_corpse_id = nil
				end
			end
		end
	end

	-- actor goes up after collider
	if HI("redemption_6_stage_6") and level.name() == "promzona" and (not HI("redemption_6_duty_freedom_scene")) then
		local smart = SIMBOARD.smarts_by_names["prom_1"]
		local dist = smart and db.actor:position():distance_to(smart.position)
		if dist and dist < 51 then
			GI("redemption_6_duty_freedom_scene")
			local duty_squad = get_story_se_object("redemption_task_6_duty_squad")
			if duty_squad then redemption_set_squad_position(duty_squad, 404786) end
			local freed_squad = get_story_se_object("redemption_task_6_freedom_squad")
			if freed_squad then redemption_set_squad_position(freed_squad, 391293) end
		end
	end

	-- duty or freedom tells
	if HI("redemption_6_stage_6") and level.name() == "promzona" and (not HI("redemption_6_duty_freedom_news")) then
		local smart = SIMBOARD.smarts_by_names["prom_1"]
		local dist = smart and db.actor:position():distance_to(smart.position)
		if dist and dist < 30 then
			GI("redemption_6_duty_freedom_news")
			local sender
			local freed_squad = get_story_se_object("redemption_task_6_freedom_squad")
			if freed_squad and freed_squad.commander_id then
				for m in freed_squad:squad_members() do
					sender = sender or m.id and level.object_by_id(m.id)
				end
			end

			local duty_squad = get_story_se_object("redemption_task_6_duty_squad")
			if duty_squad and duty_squad.commander_id then
				for m in duty_squad:squad_members() do
					sender = sender or m.id and level.object_by_id(m.id)
				end
			end

			if sender and sender.alive and sender:alive() then
				redemption_pda_news("st_redemption_6_duty_freedom_news", true, sender, 1, 12, "beep_1")
			end
		end
	end

	if HI("redemption_6_stage_6") then
		tsk.stage = 6		-- return to sakharov
		return
	elseif HI("redemption_6_stage_5") then
		tsk.stage = 5		-- reset collider
		return
	elseif HI("redemption_6_stage_4") then
		tsk.stage = 4		-- enter collider
		return
	elseif HI("redemption_6_stage_3") then
		tsk.stage = 3		-- enter bunker
		return
	elseif HI("redemption_6_stage_2") then
		tsk.stage = 2		-- wait for duty attack
		return
	elseif HI("redemption_6_stage_1") then
		tsk.stage = 1		-- go to promzone
		return
	end

end

function redemption_6_respawn_monolith()
	for i = 1, 4 do
		redemption_release_squad("redemption_task_5_monolith_squad_" .. i)
	end

	CreateTimeEvent("redemption_6_spawn_mono_e", "redemption_6_spawn_mono_a", 2, function()
		for i = 1, 4 do
			redemption_spawn_squad_on_smart("prom_1", "redemption_task_5_monolith_squad_" .. i)
		end
		return true
	end)
end

function redemption_6_spawn_target()
	alife_create("redemption_dummy_target", vector():set(-153.3, -27.6538, 184.8), 166300, 5370)
end

function redemption_6_release_target()
	local restr = get_story_se_object("redemption_dummy_target")
	if restr then
		alife_release(restr)
	end
end

function redemption_6_release_prom_sim_squads()
	redemption_release_sim_squads_on_smart("prom_5")
	redemption_release_sim_squads_on_smart("prom_6")
	redemption_release_sim_squads_on_smart("prom_10")
	redemption_release_sim_squads_on_smart("prom_15")
end

function redemption_6_spawn_freedom_squad()
	redemption_spawn_squad_on_smart("prom_6", "redemption_task_6_freedom_squad")
	if HI("redemption_task_4_bloodsuckers_killed") then
		CreateTimeEvent("redemption_6_add_stalker_e", "redemption_6_add_stalker_a", 1, function()
			local squad = get_story_se_object("redemption_task_6_freedom_squad")
			local smart = SIMBOARD.smarts_by_names["prom_6"]
			if squad and squad.commander_id and smart then
				local id = squad:add_squad_member("redemption_task_6_stalker", smart.position, smart.m_level_vertex_id, smart.m_game_vertex_id)
				local se_stalker = id and alife_object(id)
				if (se_stalker) then
					smart:register_npc(se_stalker)
					SIMBOARD:setup_squad_and_group(se_stalker)
				end
				squad:update()
			end
			return true
		end)
	end
end

function redemption_6_spawn_prom_block()
	alife_create("redemption_6_block_1", vector():set(39.7, -29.0007, 296.5), 395129, 5360)
	alife_create("redemption_6_block_2", vector():set(40.7, -29.0007, 296.5), 395129, 5360)
	alife_create("redemption_6_block_3", vector():set(39.0, -29.0007, 296.2), 395129, 5360)
	alife_create("redemption_6_block_4", vector():set(40.0, -29.0007, 296.2), 395129, 5360)
end

function redemption_6_spawn_duty_squad()
	redemption_spawn_squad_on_smart("prom_15", "redemption_task_6_duty_squad")
end

function redemption_6_duty_freedom_enemy_eval(obj, enemy, flags)
	if not (HI("redemption_6_final")) then return end

	local obj_comm = IsStalker(obj) and obj:character_community()
	local en_comm = IsStalker(enemy) and enemy:character_community()
	if not (obj_comm and en_comm) then return end

	local duty_freed = obj_comm == "dolg" and en_comm == "freedom"
	local freed_duty = obj_comm == "freedom" and en_comm == "dolg"
	if duty_freed or freed_duty then
		flags.override = true
		flags.result = false
	end
end

function redemption_6_release_mono_outside()
	for i = 1, 4 do
		redemption_release_squad("redemption_task_5_monolith_squad_" .. i)
	end

	for i = 1, 3 do
		redemption_release_squad("redemption_task_5_monolith_squad_backup_" .. i)
	end

	redemption_release_squad("redemption_task_5_monolith_inside")
end

function redemption_6_spawn_dead_monolith()
	-- insane 1, 2
	alife_create("redemption_task_6_mono_insane_1", vector():set(36.4, -27.6538, 266), 391282, 5360)
	alife_create("redemption_task_6_mono_insane_2", vector():set(2.8, -27.6538, 215.6), 346518, 5362)

	-- dead
	local dead1 = alife_create("redemption_task_6_mono_dead_1", vector():set(44.8, -27.6538, 232.4), 402190, 5361)
	if dead1 then dead1:kill() end
	local dead2 = alife_create("redemption_task_6_mono_dead_2", vector():set(34.3, -27.6538, 240.8), 388443, 5361)
	if dead2 then dead2:kill() end

	local dead3 = alife_create("sim_default_monolith_4", vector():set(46.2, -27.6538, 213.5), 403885, 5361)
	if dead3 then dead3:kill() end
	local dead4 = alife_create("sim_default_monolith_2", vector():set(24.5, -26.5518, 203), 375130, 5361)
	if dead4 then dead4:kill() end
	local dead5 = alife_create("sim_default_monolith_3", vector():set(37.1, -27.6538, 280.7), 392264, 5360)
	if dead5 then dead5:kill() end
	local dead6 = alife_create("sim_default_monolith_2", vector():set(59.5, -27.6538, 202.3), 420070, 5361)
	if dead6 then dead6:kill() end
	local dead7 = alife_create("sim_default_monolith_1", vector():set(-11.2, -26.5518, 203), 326562, 5362)
	if dead7 then dead7:kill() end
end

function redemption_6_spawn_vakhar_squad()
	redemption_spawn_squad_on_smart("collaider_4", "redemption_task_6_monolith_vakhar_squad")
	CreateTimeEvent("redemption_6_vakhar_news_e", "redemption_6_vakhar_news_a", 1, function()
		local se_obj = get_story_se_object("redemption_task_6_monolith_vakhar")
		if se_obj then
			redemption_pda_news("st_redemption_6_vakhar_1", true, se_obj, 3, 14)
			if HI("redemption_5_illeon_is_companion") and (not HI("redemption_task_5_illeon_death")) then
				redemption_pda_news("st_redemption_6_vakhar_2", true, se_obj, 9, 14)
			end
		end
		return true
	end)
end

function redemption_6_ignore_insane_mono(obj, enemy, flags)
	if not HI("redemption_6_stage_6") then return end

	local mono1 = get_story_object("redemption_task_6_mono_insane_1")
	local mono1_cond = mono1 and mono1.alive and mono1:alive() and mono1:id() == enemy:id()
	local mono2 = get_story_object("redemption_task_6_mono_insane_2")
	local mono2_cond = mono2 and mono2.alive and mono2:alive() and mono2:id() == enemy:id()
	if mono1_cond or mono2_cond then
		flags.override = true
		flags.result = false
	end
end

function redemption_6_finish_release_everything()
	-- blocking
	for i = 1, 4 do
		local se_obj = get_story_se_item("redemption_6_block_" .. i)
		if se_obj then
			alife_release(se_obj)
		end
	end

	-- dead monolith
	redemption_release_npc("redemption_task_6_mono_insane_1")
	redemption_release_npc("redemption_task_6_mono_insane_2")
	redemption_release_npc("redemption_task_6_mono_dead_1")
	redemption_release_npc("redemption_task_6_mono_dead_2")

	-- vakhar freedom duty
	redemption_release_squad("redemption_task_6_monolith_vakhar")
	redemption_release_squad("redemption_task_6_freedom_squad")
	redemption_release_squad("redemption_task_6_duty_squad")
end

function redemption_6_give_reward(a, b)
	local num = 60000
	dialogs.relocate_money_to_actor(a, b, num)
end

function redemption_6_give_goodwill()
	redemption_goodwill_gain("ecolog", 500)
	redemption_goodwill_gain("freedom", 350)
	redemption_goodwill_gain("dolg", 350)
	redemption_goodwill_gain("stalker", 200)
end

function end_redemption_task_6()
	task_manager.get_task_manager():set_task_completed("redemption_task_6")
end


-- ///////////////////////// Post redemption /////////////////////////
function redemption_end_spawn_lab_items()
	local lab_items_ar = {
		{ pos = {161.11, 3.59, 22.48}, angle = 3.14 },
		{ pos = {133.18, 6.22, -65.55}, angle = 0.75 },
		{ pos = {-1, 8.14, -22.6}, angle = 0 },
		{ pos = {24.75, -2.17, -7.23}, angle = 1.57 },
		{ pos = {-17.8, -0.62, 25.76}, angle = 0 },
		{ pos = {-28.04, -0.85, 31.64}, angle = 0 },
		{ pos = {23.48, 2.59, 51.1}, angle = 0 },
		{ pos = {-5.7, 4.57, 40.1}, angle = 0 },
	}

	for idx, t in ipairs(lab_items_ar) do
		local se_obj = alife_create("redemption_lab_item_" .. idx, vector():set(t.pos[1], t.pos[2], t.pos[3]), 4294967295, 6113)
		if se_obj then
			se_obj.angle = vector():set(0, t.angle, 0)
		end
	end
end

function redemption_voronin_reward_precond()
	if (HI("redemption_6_stage_6") or HI("redemption_storyline_finished")) and (not HI("redemption_end_voronin_reward")) then
		return true
	end
end

function redemption_voronin_give_reward(a, b)
	dialogs.relocate_item_section_to_actor(a, b, "wpn_vepr_kobra")
end

function redemption_lukash_reward_precond()
	if (HI("redemption_6_stage_6") or HI("redemption_storyline_finished")) and (not HI("redemption_end_lukash_reward")) then
		return true
	end
end

function redemption_lukash_give_reward(a, b)
	dialogs.relocate_item_section_to_actor(a, b, "freedom_exo_vineleaf_outfit")
end

function redemption_actor_has_lab_items()
	if not HI("redemption_storyline_finished") then return end

	for i = 1, 8 do
		if db.actor:object("redemption_lab_item_" .. i) then
			return true
		end
	end
end

function redemption_lab_items_reward(a, b)
	local money_per_item = 2500
	local itms_given = 0
	local gw_per_item = 25

	for i = 1, 8 do
		if db.actor:object("redemption_lab_item_" .. i) then
			dialogs.relocate_item_section_from_actor(a, b, "redemption_lab_item_" .. i)
			itms_given = itms_given + 1
			redemption_end_items_found = redemption_end_items_found + 1
		end
	end

	if itms_given > 0 then
		dialogs.relocate_money_to_actor(a, b, itms_given * money_per_item)
		redemption_goodwill_gain("ecolog", itms_given * gw_per_item)
	end
end

function redemption_all_lab_items_collected()
	if redemption_end_items_found >= 8 then
		return true
	end
end

function redemption_not_all_lab_items_collected()
	if redemption_end_items_found < 8 then
		return true
	end
end

function redemption_all_lab_items_reward(a, b)
	dialogs.relocate_item_section_to_actor(a, b, "af_plates_up")
	dialogs.relocate_item_section_to_actor(a, b, "af_freon_up")
	dialogs.relocate_item_section_to_actor(a, b, "ration_ru")
	dialogs.relocate_item_section_to_actor(a, b, "medkit_ai3")
	dialogs.relocate_item_section_to_actor(a, b, "drug_radioprotector")
	dialogs.relocate_item_section_to_actor(a, b, "akvatab")
	redemption_goodwill_gain("ecolog", 100)
end


-- //////////////////////////////////////////////////
function save_state(m_data)
	m_data.redemption_3_start_time = redemption_3_start_time
	m_data.redemption_4_start_time = redemption_4_start_time
	m_data.redemption_4_aggro_time = redemption_4_aggro_time
	m_data.redemption_5_start_time = redemption_5_start_time
	m_data.redemption_end_items_found = redemption_end_items_found
end

function load_state(m_data)
	redemption_3_start_time = m_data.redemption_3_start_time or nil
	redemption_4_start_time = m_data.redemption_4_start_time or nil
	redemption_4_aggro_time = m_data.redemption_4_aggro_time or nil
	redemption_5_start_time = m_data.redemption_5_start_time or nil
	redemption_end_items_found = m_data.redemption_end_items_found or 0
end

function redemption_cancel_transition()
	local cancel_tp = false
	local ini = ini_file("sr_teleport_sections.ltx")
	if debug_unlock_labs then return end

	if not (HI("redemption_6_unlock_collider_route")) then
		local to_col = get_story_se_object("prom_space_restrictor_to_collider")
		local to_col_dist = to_col and to_col.online and db.actor:position():distance_to(to_col.position)
		if to_col_dist and to_col_dist < 20 then
			local path = ini:r_string_ex("prom_space_restrictor_to_collider", "reject_path")
			local point = path and patrol(path)
			db.actor:set_actor_position(point and point:point(0) or db.actor:position())
			cancel_tp = true
		end
	end

	if not (HI("redemption_6_unlock_bunker_route")) then
		local to_bunk = get_story_se_object("prom_space_restrictor_to_bunker")
		local to_bunk_dist = to_bunk and to_bunk.online and db.actor:position():distance_to(to_bunk.position)
		if to_bunk_dist and to_bunk_dist < 20 then
			local path = ini:r_string_ex("prom_space_restrictor_to_bunker", "reject_path")
			local point = path and patrol(path)
			db.actor:set_actor_position(point and point:point(0) or db.actor:position())
			cancel_tp = true
		end
	end

	if cancel_tp then
		level.remove_pp_effector(1313)
		actor_menu.set_msg(1, game.translate_string("st_route_unknown"), 7)
		CreateTimeEvent("redemption_cancel_time_event_e", "redemption_cancel_time_event_a", 1, function()
			RemoveTimeEvent(0, "delay_travel")
			return true
		end)
	end

end

function on_game_start()
	RegisterScriptCallback("on_enemy_eval", redemption_2_bandit_enemy_eval)
	RegisterScriptCallback("npc_on_before_hit", redemption_2_bandit_before_hit)
	RegisterScriptCallback("save_state", save_state)
	RegisterScriptCallback("load_state", load_state)
	RegisterScriptCallback("actor_on_before_hit", redemption_3_actor_before_hit)
	RegisterScriptCallback("actor_on_update", redemption_3_health_update)
	RegisterScriptCallback("on_enemy_eval", redemption_4_bandits_enemy_eval)
	RegisterScriptCallback("npc_on_before_hit", redemption_4_bandits_before_hit)
	RegisterScriptCallback("on_enemy_eval", redemption_5_ignore_dutier)
	RegisterScriptCallback("on_enemy_eval", redemption_5_duty_freedom_enemy_eval)
	RegisterScriptCallback("on_enemy_eval", redemption_6_duty_freedom_enemy_eval)
	RegisterScriptCallback("on_before_level_changing", redemption_cancel_transition)
	RegisterScriptCallback("on_enemy_eval", redemption_6_ignore_insane_mono)
end