diff --git a/gamedata/scripts/_g_patches.script b/gamedata/scripts/_g_patches.script
index a2a9730c4..a66f2a6a1 100644
--- a/gamedata/scripts/_g_patches.script
+++ b/gamedata/scripts/_g_patches.script
@@ -666,3 +666,28 @@ _G.IsLauncher = function(o, c)
 	}
 	return c and launcher[c] or false
 end
+
+-- alife():max_id replacement
+_G._ALIFE_WARNING = alife():max_id() - 1500
+
+_G.alife_object = function(id)
+	if (id == nil or id >= alife():max_id()) then
+		callstack()
+		printe("!ALIFE OBJECT ID IS %s!",id)
+		return
+	end
+	return alife():object(id)
+end
+
+_G.alife_first_update = function()
+	_G._ALIFE_CNT = 0
+	--empty_table(_ALIFE_CACHE)
+	
+	local sim = alife()
+	for i = 1, sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if se_obj then
+			alife_record(nil,true)
+		end
+	end
+end
\ No newline at end of file
diff --git a/gamedata/scripts/actor_status.script b/gamedata/scripts/actor_status.script
new file mode 100644
index 000000000..2c3608c76
--- /dev/null
+++ b/gamedata/scripts/actor_status.script
@@ -0,0 +1,469 @@
+
+--[[
+
+	Tronex
+	2020/4/9
+	
+	Actor status / info - Handly for checking actor related info like current safe cover by other scripts
+	Custom HUD indicators
+	
+--]]
+
+-- Update rate
+local tg_update = 0
+local tg_update_step = 1000 --[ms]
+
+----------------------------------
+--	Current Boosters and states
+----------------------------------
+local active_boosters = {}
+local boost_name = {}
+function prepare_boosters_effect()
+	boost_name = invert_table(BoosterID)
+end
+function scan_boosters_effect()
+	for name,t in pairs(active_boosters) do
+		t.value = nil
+		t.period = nil
+	end
+	db.actor:cast_Actor():conditions():BoosterForEach( scan_current_booster_effect )
+end
+function scan_current_booster_effect(typ, period, value)
+	active_boosters[ boost_name[typ] ] = { value=value , period=period }
+end
+
+function get_boost(name, time_only)
+	if time_only then
+		return active_boosters[name] and active_boosters[name].period
+	end
+	return active_boosters[name] and active_boosters[name].value
+end
+
+function get_satienty(visual)
+	local conditions = db.actor:cast_Actor():conditions()
+	local satienty = conditions:GetSatiety()
+	if (not visual) then
+		return satienty
+	end
+	
+	local satiety_critical = conditions:SatietyCritical()
+	local satiety_koef = (satienty - satiety_critical) / (satienty >= satiety_critical and (1 - satiety_critical) or satiety_critical)
+	if (satiety_koef > 0.5) then
+		return 0
+	else
+		if (satiety_koef > 0.0) then
+			return 1
+		elseif (satiety_koef > -0.5) then
+			return 2
+		else
+			return 4
+		end
+	end
+end
+
+function get_radiation(visual)
+	local radiation = db.actor.radiation
+	if (not visual) then
+		return radiation
+	end
+	
+	-- for indicator
+	if radiation and radiation > 0 then
+		return math.ceil(radiation * 4)
+	end
+	return 0
+end
+
+function get_overweight(visual)
+	local actor = db.actor
+	local tot_weight = actor:get_total_weight()
+	local max_weight = actor:get_actor_max_walk_weight()
+	
+	local outfit = actor:item_in_slot(7)
+	local backpack = actor:item_in_slot(13)
+	max_weight = max_weight + (outfit and outfit:get_additional_max_weight() or 0)
+	max_weight = max_weight + (backpack and backpack:get_additional_max_weight() or 0)
+	actor:iterate_belt( function(owner, obj)
+		local c_arty = obj:cast_Artefact()
+		max_weight = max_weight + (c_arty and c_arty:AdditionalInventoryWeight() or 0)
+	end)
+	--max_weight = max_weight + actor:cast_Actor():conditions().eBoostMaxWeight
+	
+	if (not visual) then
+		return (tot_weight > max_weight), tot_weight, max_weight
+	end
+	
+	-- for indicator
+	if (tot_weight > max_weight) then
+		return 4
+	elseif (tot_weight + 10 > max_weight) then
+		return 2
+	end
+	return 0
+end
+
+
+----------------------------------
+--	Current safe cover
+----------------------------------
+local safe_covers = {}
+local near_cover_dist
+local last_cover, last_cover_2, near_cover
+local last_cover_o, near_cover_o
+
+function prepare_safe_zone()
+	local sur_ini = ini_file("misc\\surge_manager.ltx")
+	local safe_covers_list = utils_data.collect_section(sur_ini,"list",true)
+	
+	-- Only collect safe covers in the same level
+	local sim = alife()
+	local is_on_the_actor_level = simulation_objects.is_on_the_actor_level
+	for i=1, sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if se_obj and safe_covers_list[se_obj:name()] and is_on_the_actor_level(se_obj) then
+			safe_covers[se_obj:name()] = se_obj.id
+		end
+	end
+end
+function scan_safe_zone()
+	--printf("Safe cover: %s", GetEvent("current_safe_cover"))
+	if GetEvent("underground") then
+		return true, false, 0
+		
+	elseif last_cover and db.actor_inside_zones[last_cover] then
+		return db.actor_inside_zones[last_cover]:id(), false, 1
+		
+	elseif last_cover_2 and db.zone_by_name[last_cover_2] and db.zone_by_name[last_cover_2]:inside(db.actor:position()) then
+		return safe_covers[last_cover_2], false, 2
+		
+	elseif (size_table(db.actor_inside_zones) > 1) then
+		for name, obj in pairs(db.actor_inside_zones) do
+			last_cover = name
+			return obj:id(), false, 3
+		end
+		
+	else
+	
+		local pos = db.actor:position()
+		last_cover = nil
+		last_cover_2 = nil
+		near_cover = nil
+		near_cover_dist = nil
+		
+		for name,id in pairs(safe_covers) do
+			local zone = db.zone_by_name[name]
+			if (zone) then
+				local dist = zone:position():distance_to_sqr(pos)
+				if (near_cover_dist == nil or dist < near_cover_dist) then 
+					near_cover = name
+					near_cover_dist = dist
+				end
+			end
+		end
+		
+		if near_cover then
+			local zone = db.zone_by_name[near_cover]
+			if (zone) and zone:inside(pos) then
+				last_cover_2 = near_cover
+				return zone:id(), false, 4
+			end
+		end
+			
+		-- Tents are considered as save covers
+		if item_tent and item_tent.get_nearby_tent(1.5) then
+			return true, near_cover and safe_covers[near_cover] or false, 5
+		end
+		
+		return false, near_cover and safe_covers[near_cover] or false, 6
+	end
+end
+function scan_safe_zone_old()
+	--printf("Safe cover: %s", GetEvent("current_safe_cover"))
+	if GetEvent("underground") then
+		return true, false, 0
+		
+	elseif last_cover_o and db.zone_by_name[last_cover_o] and db.zone_by_name[last_cover_o]:inside(db.actor:position()) then
+		return safe_covers[last_cover_o], false, 2
+		
+	else
+	
+		local pos = db.actor:position()
+		last_cover_o = nil
+		near_cover_o = nil
+		near_cover_dist = nil
+		
+		for name,id in pairs(safe_covers) do
+			local zone = db.zone_by_name[name]
+			if (zone) then
+				local dist = zone:position():distance_to_sqr(pos)
+				if (near_cover_dist == nil or dist < near_cover_dist) then 
+					near_cover_o = name
+					near_cover_dist = dist
+				end
+			end
+		end
+		
+		if near_cover_o then
+			local zone = db.zone_by_name[near_cover_o]
+			if (zone) and zone:inside(pos) then
+				last_cover_o = near_cover_o
+				return zone:id(), false, 4
+			end
+		end
+			
+		-- Tents are considered as save covers
+		if item_tent and item_tent.get_nearby_tent(1.5) then
+			return true, near_cover_o and safe_covers[near_cover_o] or false, 5
+		end
+		
+		return false, near_cover_o and safe_covers[near_cover_o] or false, 6
+	end
+end
+
+----------------------------------
+--	HUD (Indicators)
+----------------------------------
+
+HUD = nil
+indicators = {}
+
+function prepare_indictors_list()
+-- functor must return number [1-4] if it's a state (to indicate the color), boosters will always use one color
+
+	if is_not_empty(indicators) then return end
+	indicators["Radiation"]       	   	 = { index= 1 	,typ= "state"	,functor= {"actor_status","get_radiation",true}	                    ,icon= "ui_inGame2_booster_rad"           ,background= "ui_inGame2_indicator_slot"	,anim_icon= true	,anim_bk= false  }
+	indicators["Hunger"]                 = { index= 2 	,typ= "state"	,functor= {"actor_status","get_satienty",true}	                    ,icon= "ui_inGame2_indicator_hunger"      ,background= "ui_inGame2_indicator_slot"	,anim_icon= false	,anim_bk= false  }
+	indicators["Overweight"]             = { index= 5 	,typ= "state"	,functor= {"actor_status","get_overweight",true}	                 ,icon= "ui_inGame2_indicator_overweight"  ,background= "ui_inGame2_indicator_slot"	,anim_icon= false	,anim_bk= false  }
+
+	indicators["HpRestore"]              = { index= 6 	,typ= "booster"	,functor= {"actor_status","get_boost","HpRestore",true}              ,icon= "ui_inGame2_booster_health"        ,background= "ui_inGame2_booster_slot"	,anim_icon= false	,anim_bk= false  ,anim_period= 5 }
+	indicators["BleedingRestore"]        = { index= 7 	,typ= "booster"	,functor= {"actor_status","get_boost","BleedingRestore",true}        ,icon= "ui_inGame2_booster_bleed"         ,background= "ui_inGame2_booster_slot"	,anim_icon= false	,anim_bk= false  ,anim_period= 5 }
+	indicators["RadiationRestore"]       = { index= 8 	,typ= "booster"	,functor= {"actor_status","get_boost","RadiationRestore",true}       ,icon= "ui_inGame2_booster_rad"           ,background= "ui_inGame2_booster_slot"	,anim_icon= false	,anim_bk= false  ,anim_period= 5 }
+	indicators["MaxWeight"]              = { index= 9 	,typ= "booster"	,functor= {"actor_status","get_boost","MaxWeight",true}              ,icon= "ui_inGame2_booster_carry_weight"  ,background= "ui_inGame2_booster_slot"	,anim_icon= false	,anim_bk= false  ,anim_period= 5 }
+	indicators["PowerRestore"]           = { index= 10	,typ= "booster"	,functor= {"actor_status","get_boost","PowerRestore",true}           ,icon= "ui_inGame2_booster_power"         ,background= "ui_inGame2_booster_slot"	,anim_icon= false	,anim_bk= false  ,anim_period= 5 }
+	indicators["RadiationProtection"]    = { index= 11	,typ= "booster"	,functor= {"actor_status","get_boost","RadiationProtection",true}    ,icon= "ui_inGame2_booster_ext_rad"       ,background= "ui_inGame2_booster_slot"	,anim_icon= false	,anim_bk= false  ,anim_period= 5 }
+	indicators["TelepaticProtection"]    = { index= 12	,typ= "booster"	,functor= {"actor_status","get_boost","TelepaticProtection",true}    ,icon= "ui_inGame2_booster_psi"           ,background= "ui_inGame2_booster_slot"	,anim_icon= false	,anim_bk= false  ,anim_period= 5 }
+	indicators["ChemicalBurnProtection"] = { index= 13	,typ= "booster"	,functor= {"actor_status","get_boost","ChemicalBurnProtection",true} ,icon= "ui_inGame2_booster_chem"          ,background= "ui_inGame2_booster_slot"	,anim_icon= false	,anim_bk= false  ,anim_period= 5 }
+end
+
+function add_indicator(k,v)
+	prepare_indictors_list()
+	indicators[k] = v
+end
+
+function func_index(t,a,b)
+	return (t[a].index) < (t[b].index)
+end
+
+-------
+function activate_hud()
+	RegisterScriptCallback("actor_on_net_destroy",actor_on_net_destroy)
+	RegisterScriptCallback("on_console_execute",on_console_execute)
+	RegisterScriptCallback("GUI_on_show",update_hud)
+	RegisterScriptCallback("GUI_on_hide",update_hud)
+	
+	if HUD == nil then
+		HUD = UIIndicators()
+		get_hud():AddDialogToRender(HUD)
+	end
+	HUD:Update(true)
+end
+
+function deactivate_hud()
+	if HUD ~= nil then
+		get_hud():RemoveDialogToRender(HUD)
+		HUD = nil
+	end
+	
+	UnregisterScriptCallback("actor_on_net_destroy",actor_on_net_destroy)
+	UnregisterScriptCallback("on_console_execute",on_console_execute)
+	UnregisterScriptCallback("GUI_on_show",update_hud)
+	UnregisterScriptCallback("GUI_on_hide",update_hud)
+end
+
+function update_hud()
+	if HUD ~= nil then
+		HUD:Update(true)
+	end
+end
+
+function actor_on_net_destroy()
+	if HUD ~= nil then
+		get_hud():RemoveDialogToRender(HUD)
+		HUD = nil
+	end
+end
+
+function on_console_execute(name)
+	if name == "hud_draw" and HUD then
+		HUD:Update(true)
+	end
+end
+
+-------
+class "UIIndicators" (CUIScriptWnd)
+
+function UIIndicators:__init() super()
+	
+	self.mirrored = false
+	self.slot = {}
+	self.clr_list = {
+		[0] = GetARGB(255,255,255,255), -- white
+		[1] = GetARGB(255,200,200,200), -- grey
+		[2] = GetARGB(255,255,255,50), -- yellow
+		[3] = GetARGB(255,255,125,50), -- orange
+		[4] = GetARGB(255,255,50,50), -- red
+	}
+	
+	self.ratio  = utils_xml.screen_ratio()
+	self._tmr   = time_global()
+	self.index  = 0
+	self.W      = 40
+	self.offset = 10
+	
+	prepare_indictors_list()
+	
+	self:InitControls()
+end
+
+function UIIndicators:__finalize()
+end
+
+function UIIndicators:InitControls()
+	local xml = utils_xml.get_hud_xml()
+	
+	self.dialog = xml:InitStatic("indicators", self)
+	--utils_xml.correct_ratio(self.dialog)
+	self.dialog:Show(false)
+	
+	local t_size = size_table(indicators)
+	for i=1,t_size do
+		local x = (i-1)*(self.W + self.offset)
+		if self.mirrored then
+			x = (1-i)*(self.W + self.offset)
+		end
+		
+		self.slot[i] = {}
+		self.slot[i].back_s = xml:InitStatic("indicators:static", self.dialog)
+		self.slot[i].back_f = xml:InitStatic("indicators:flashing", self.dialog)
+		self.slot[i].icon_s = xml:InitStatic("indicators:static", self.dialog)
+		self.slot[i].icon_f = xml:InitStatic("indicators:flashing", self.dialog)
+		for k, ele in pairs(self.slot[i]) do
+			ele:SetWndPos( vector2():set( x , 0 ) )
+			utils_xml.correct_ratio(ele)
+		end
+	end
+end
+
+function UIIndicators:Clear()
+	for i=1,size_table(indicators) do
+		if self.slot[i] then
+			for k, ele in pairs(self.slot[i]) do
+				ele:Show(false)
+			end
+		end
+	end
+	self.index = 0
+end
+
+function UIIndicators:Update(force)
+	CUIScriptWnd.Update(self)
+	
+	local tg = time_global()
+	if force then
+		self._tmr = tg - 1
+	end
+	if self._tmr >= tg then
+		return
+	else
+		self._tmr = tg + 1000
+	end
+	
+	-- Clear all
+	self:Clear()
+	
+	-- Hide HUD when it's occupied by a GUI class
+	if not main_hud_shown() then
+		return
+	end
+	
+	-- Gather info
+	for name,t in spairs(indicators, func_index) do
+		local value = t.functor and execute_func(unpack(t.functor))
+		
+		-- Determine if we should show the indicator on HUD according to type and value
+		local pass = false
+		if t.typ == "state" then
+			pass = value and value <= 4 and value >= 1
+		elseif t.typ == "booster" then
+			pass = value and true or false
+		end
+		
+		if pass then
+			local i = self.index + 1
+			
+			if t.icon then
+				local ico
+				if t.anim_period and (t.typ == "booster") and (value < t.anim_period) then
+					ico = self.slot[i].icon_f
+				else
+					ico = t.anim_icon and self.slot[i].icon_f or self.slot[i].icon_s
+				end
+				
+				ico:InitTexture( t.icon )
+				ico:Show(true)
+			end
+			
+			if t.background then
+				local bk
+				if t.anim_period and (t.typ == "booster") and (value < t.anim_period) then
+					bk = self.slot[i].back_f
+				else
+					bk = t.anim_bk and self.slot[i].back_f or self.slot[i].back_s
+				end
+				
+				bk:InitTexture( t.background )
+				bk:SetTextureColor( t.typ == "state" and self.clr_list[value] or self.clr_list[0] )
+				bk:Show(true)
+			end
+			
+			self.index = i
+		end
+	end
+	
+	self.dialog:Show(self.index > 0)
+end
+
+
+----------------------------------
+--	Callbacks
+----------------------------------
+
+local function actor_on_first_update()
+	prepare_boosters_effect()
+	prepare_safe_zone()
+	
+	activate_hud()
+end
+
+local function actor_on_update()
+	
+	local tg = time_global()
+	if tg < tg_update then
+		return
+	end
+	tg_update = tg + tg_update_step
+	
+	--local cover_curr, cover_near, num = scan_safe_zone()
+	local cover_curr, cover_near, num = scan_safe_zone_old()
+	--actor_menu.set_msg(nil, strformat("cover_curr: %s | cover_near: %s | num: %s", cover_curr, cover_near, num))
+	--printf("cover_curr: %s | cover_near: %s | num: %s", cover_curr, cover_near, num)
+	SetEvent("current_safe_cover", cover_curr)
+	SetEvent("nearest_safe_cover", cover_near)
+	
+	scan_boosters_effect()
+end
+
+function on_game_start()
+	RegisterScriptCallback("actor_on_first_update",actor_on_first_update)
+	RegisterScriptCallback("actor_on_update",actor_on_update)
+end
diff --git a/gamedata/scripts/alife_storage_manager.script b/gamedata/scripts/alife_storage_manager.script
new file mode 100644
index 000000000..8e2909e27
--- /dev/null
+++ b/gamedata/scripts/alife_storage_manager.script
@@ -0,0 +1,311 @@
+--[[
+	This script handles the serialization of data using the marshal library and the saving of this data to disk depending
+	on save game name. What this means is that you can save entire tables to disk instead of saving to object packet.
+	This script was created to alleviate issues with using packets to save dynamic data (pstor) which lead to save corruption.
+	Also it removes some restrictions on what you can save.
+	
+	*only store valid lua types such as numbers, strings, boolean, functions or tables that contain these valid types. Userdata needs to have a special
+	__persist function defined in it's metatable. See how it is done for CTime in _G.script
+	
+	*Supposedly you can save userdata if you write a proper __persist method for the metatable but I have failed to achieve proper results with serializing CTime.
+	
+	*You must register for 'save_state' and 'load_state' and add your own table to m_data for it to be encoded then stored in *.scoc
+	*Although marshal is pretty fast, keep in mind that encoding/decoding a ton of data, saves will start to noticeablely take longer to save/load.
+	*For testing/debugging you can uncomment the print_table calls in save_state and load_state. It will save the before and after tables to print_table.txt in your main directory.
+		
+	
+	by: Alundaio
+--]]
+local m_data = {}
+
+-- store stuff that you want to persist even offline
+m_data.se_object = {}
+
+-- store stuff only for online objects. When object goes offline this table is purged.
+m_data.game_object = {}
+
+-- PDA known contacts
+m_data.actor_contacts = {}
+
+local function on_pstor_load_all(obj,packet)
+	local id = obj:id()
+	local state = get_game_object_state(obj)
+	if (state and db.storage[id]) then
+		if (state.pstor_all) then
+			db.storage[id].pstor = state.pstor_all
+			state.pstor_all = nil
+		end 
+
+		if (state.pstor_ctime) then
+			db.storage[id].pstor_ctime = state.pstor_ctime
+			state.pstor_ctime = nil
+		end
+	end
+end
+
+local function server_entity_on_unregister(se_obj, typ)
+	local id = se_obj.id
+	if (m_data.se_object[id]) then
+		m_data.se_object[id] = nil
+		--printf("$ alife_storage | cleaning server object [%s](%s) mdata", se_obj:name(), id)
+	end
+	if (m_data.game_object[id]) then
+		m_data.game_object[id] = nil
+		--printf("$ alife_storage | cleaning game object [%s](%s) mdata", se_obj:name(), id)
+	end
+end
+
+local function actor_on_first_update()
+	alife_first_update() -- _G
+	on_after_load_state()
+end
+
+function on_game_start()
+	if not (USE_MARSHAL) then 
+		return 
+	end
+	RegisterScriptCallback("on_pstor_load_all",on_pstor_load_all)
+	RegisterScriptCallback("actor_on_first_update",actor_on_first_update)
+	--RegisterScriptCallback("server_entity_on_unregister",server_entity_on_unregister) -- NOTE: axr_main already handles this at last
+end
+
+-- Use these to perform changes on stored data between updates, the first is called
+function on_before_load_state() -- before loading
+	local prev_version = m_data.GAME_VERSION
+	local new_version = GAME_VERSION
+	
+	if prev_version and (prev_version ~= new_version) then
+		printf("~ Marshal Library | Old save detected, switching data from (%s) to (%s) - BEFORE load", prev_version, new_version)
+		
+		if m_data.comp_mule and m_data.comp_mule.assigned_items then
+			m_data.companion_assigned_items = dup_table(m_data.comp_mule.assigned_items)
+			m_data.comp_mule = nil
+			printf("~ Marshal Library | companion_assigned_items is adjusted")
+		end
+	end
+end
+
+function on_after_load_state() -- after first actor update
+	local prev_version = m_data.GAME_VERSION
+	local new_version = GAME_VERSION
+	
+	if prev_version and (prev_version ~= new_version) then
+		printf("~ Marshal Library | Old save detected, switching data from (%s) to (%s) - AFTER load", prev_version, new_version)
+		if m_data.npc_pda then
+			for id, info in pairs(m_data.npc_pda) do
+				local se_pda = alife_object(id)
+				if se_pda and info then
+					local sec = se_pda:section_name()
+					local p_id = se_pda.parent_id
+					alife_release(se_pda)
+					if p_id then
+						local se_parent = p_id == AC_ID and db.actor or alife_object(p_id)
+						if se_parent then
+							local se_pda_new = alife_create_item(sec, se_parent)
+							if se_pda_new then
+								se_save_var( se_pda_new.id, se_pda_new:name(), "info", dup_table(info) )
+								printf("~ Marshal Library | NPC PDA [%s] is shifted to new object [%s]", id, se_pda_new.id)
+							end
+						end
+					end
+				end
+			end
+			m_data.npc_pda = nil
+		end
+		
+		if m_data.item_parts_state then
+			for id, data in pairs(m_data.item_parts_state) do
+				local se_item = alife_object(id)
+				if se_item and data then
+					se_save_var( se_item.id, se_item:name(), "parts", dup_table(data) )
+					printf("~ Marshal Library | Item [%s] has parts", se_item:name())
+				end
+			end
+			m_data.item_parts_state = nil
+		end
+		
+		if m_data.disguise_unpatched_outfit then
+			for id, state in pairs(m_data.disguise_unpatched_outfit) do
+				local se_item = alife_object(id)
+				if se_item and state then
+					se_save_var( se_item.id, se_item:name(), "unpatched", true )
+					printf("~ Marshal Library | Outfit [%s] has no patch", se_item:name())
+				end
+			end
+			m_data.disguise_unpatched_outfit = nil
+		end
+		
+		local to_replace = {
+			["detector_anomaly"] = true,
+			["detector_radio"] = true,
+			["detector_geiger"] = true,
+		}
+		local sim = alife()
+		for i=1,sim:max_id() - 1 do
+			local se_obj = sim:object(i)
+			local sec = se_obj and se_obj:section_name()
+			if sec and to_replace[sec] then
+				local p_id = se_obj.parent_id
+				alife_release(se_obj)
+				if p_id then
+					local se_parent = p_id == AC_ID and db.actor or alife_object(p_id)
+					alife_create_item(sec, se_parent)
+					printf("~ Marshal Library | Created [%s] for [%s]", sec, se_parent:name())
+				end
+			end
+		end
+	end
+end
+
+-- called from engine!
+function CALifeStorageManager_before_save(fname)
+	if not (USE_MARSHAL) then 
+		return 
+	end
+
+	--printf("CALifeStorageManager_before_save BEFORE callback")
+	
+	m_data.GAME_VERSION = GAME_VERSION
+	
+	SendScriptCallback("save_state",m_data)
+	
+	--printf("CALifeStorageManager_before_save AFTER callback")
+	
+	-- save pstor
+	for id,t in pairs(db.storage) do
+		if (m_data.game_object[id]) then
+			if (t.pstor and not is_empty(t.pstor)) then
+				m_data.game_object[id].pstor_all = t.pstor
+			end
+			
+			-- serialization with game.CTime.__persist
+			if (t.pstor_ctime and not is_empty(t.pstor_ctime)) then 
+				m_data.game_object[id].pstor_ctime = t.pstor_ctime
+			end
+		end
+	end
+	
+	--ProcessEventQueueState(m_data,true)
+	
+	--[[ clean out se_object table of empty sub tables
+	for k,v in pairs(m_data.se_object) do 
+		if (type(v) == "table" and is_empty(v)) then 
+			v = nil
+		end
+	end
+	
+	-- clean out game_object table of empty sub tables
+	for k,v in pairs(m_data.game_object) do 
+		if (type(v) == "table" and is_empty(v)) then 
+			v = nil 
+		end
+	end
+	--]]
+	
+	-- clean out game_object table of empty sub tables
+	for id,tbl in pairs(m_data.game_object) do 
+		for k,v in pairs(tbl) do
+			if (type(v) == "table" and is_empty(v)) then 
+				m_data.game_object[id][k] = nil
+			end
+		end
+	end
+	
+	local data = marshal.encode(m_data)
+	if not (data) then 
+		return 
+	end
+		
+	local path = getFS():update_path('$game_saves$', '')
+	
+	lfs.mkdir(path) -- incase savegame folder doesn't exist yet
+	
+	path = path .. fname:sub(0,-6):lower() .. ".scoc"
+	
+	local savegame = io.open(path,"wb")
+	if not (io.type(savegame) == "file") then
+		printe("!Error: Unable to write to %s",path)
+		return 
+	end
+	
+	--printf("axr_main: saving custom data %s",path)
+	savegame:write(data)
+	savegame:close()
+	
+	--printf("CALifeStorageManager_before_save FINISHED")
+end 
+
+-- called from engine!
+function CALifeStorageManager_save(fname)
+	--printf("CALifeStorageManager_save START FINISHED")
+end 
+
+-- called from engine
+function CALifeStorageManager_load(fname)
+	if not (USE_MARSHAL) then 
+		return 
+	end 
+
+	local path = fname:sub(0,-6) .. ".scoc"
+	
+	--utils_data.debug_write(strformat("CALifeStorageManager_load %s",path))
+	
+	local savegame = io.open(path,"rb")
+	if not (io.type(savegame) == "file") then
+		return
+	end
+
+	local data = savegame:read("*all")
+	savegame:close()
+
+	if not (data and data ~= "") then
+		printe("!Error: Failed to read %s",path)
+		return
+	end
+
+	m_data = marshal.decode(data)
+	
+	--ProcessEventQueueState(m_data,false)
+	
+	-- For debugging save state
+	--utils_data.print_table(m_data,"m_data_on_load ("..path..")")
+
+	on_before_load_state()
+
+	SendScriptCallback("load_state",m_data)
+	
+	--utils_data.debug_write(strformat("CALifeStorageManager_load END"))
+end
+
+function get_state()
+	return m_data
+end
+
+function decode(t)
+	return marshal.decode(t)
+end
+
+-- storage based on ID but verified by object name
+function get_game_object_state(obj,create_if_dont_exist)
+	local id = obj:id()
+	if not (m_data.game_object[id]) then
+		if not (create_if_dont_exist) then
+			return 
+		end
+		m_data.game_object[id] = {}
+		m_data.game_object[id].name = obj:name()
+	end
+	return m_data.game_object[id]
+end	
+
+function get_se_obj_state(se_obj,create_if_dont_exist)
+	local id = se_obj.id
+	if not (m_data.se_object[id]) then
+		if not (create_if_dont_exist) then
+			return 
+		end
+		m_data.se_object[id] = {}
+		m_data.se_object[id].name = se_obj:name()
+	end
+	return m_data.se_object[id]
+end
diff --git a/gamedata/scripts/bind_awr.script b/gamedata/scripts/bind_awr.script
new file mode 100644
index 000000000..beea74e79
--- /dev/null
+++ b/gamedata/scripts/bind_awr.script
@@ -0,0 +1,501 @@
+--------------------------------------------------------------------
+-- Reworked by Tonex
+-- Last edit: 2019/5/18
+
+-- Adapted new changes for the system
+-- Cleaned a lot of bloated code that was previously used for updating vice meshes
+--------------------------------------------------------------------
+
+local MDATA = {}
+local settings_list = {}
+local angles_t = {}
+local mech_list_key = {}
+local debug_mode = false
+local debug_show_tables = false
+local ini_manager, settings, mesh_list, delay, ui
+
+-- Cache vice and their lamps in table to reuse
+local vice_id = {}
+local lamp_id = {}
+
+function access(obj) --| Access to a vice, taking into account possible death of the mechanic
+
+	if not (obj) then
+		return
+	end
+	
+	--// You should be able to use any workshop in Warfare mode 
+	if _G.WARFARE then
+		return true
+	end
+	
+	local name = obj:name()
+	dout(nil, "Request access for %s", name)
+
+	--// Mechanic is dead - access is unlimited
+	if angles_t[name] then
+		if angles_t[name][3] == 'dead' then
+			dout(nil, "Mechanic is dead. Full access")
+			return true
+		end
+	end
+	
+	--// Access was granted by a mechanic.
+	if db.actor:has_info(string.format("awr_%s_access",angles_t[name][1])) then
+		dout(nil, "Mechanic gave access")
+		return true
+	end
+	
+	--// Debugging
+	local npc = get_story_object(angles_t[name][1])
+	if npc then
+		if npc:alive() then
+			dout(nil, "Access not granted. NPC %s by id %s is alive", angles_t[name][1], npc:id())
+		else
+			dout(nil, "![ERROR] NPC %s by id %s bugged, because he is online and is not alive, but function OnDeath was not called", angles_t[name][1], npc:id())
+		end
+	end
+end
+
+function OnDeath(npc) --| Callback at the death of a mechanic
+	dout(nil, "Called for NPC, %s", npc:section())
+	if IsStalker(npc) and (not npc:alive()) then
+		local npc_s = npc:section()
+		dout(nil, "NPC %s exist and dead", npc:section())
+		for key, val in pairs(angles_t) do
+			if angles_t[key][1] == npc_s then
+				
+				local story_obj = get_story_object(angles_t[key][1])
+				if story_obj then
+					level.map_remove_object_spot(story_obj:id(), "ui_pda2_mechanic_location")
+				end
+				
+				--// Add a marker
+				SetMarker(key)
+				
+				full_access(key,npc_s)
+				
+				break
+			end
+		end
+	end
+end
+
+function SetMarker(name) --| The function of adding a marker to the map
+	local id = name and vice_id[name]
+	local s_obj = id and alife_object(id)
+	if s_obj then
+		dout(nil, "Add marker on parent object %s with ID %s", name, s_obj.id)
+		level.map_add_object_spot_ser(s_obj.id, "ui_pda2_mechanic_location", "st_mech_tiski")
+	end
+end
+
+function CloseDl() -- The closing function of the UI AWR at the end of time (provided that the UI is called and the actor is within 2 meters of the mesh)
+	if (ui) and ui:IsShown() then
+		dout(nil, "UI exist and already open")
+		ui:Close()
+	end
+end
+
+
+--=======================================< Callbacks >=======================================--
+
+function physic_object_on_use_callback(_obj,who) -- Binder function using vise mesh
+	if not (_obj) or not (string.match(_obj:name(), "awr")) then
+		return
+	end
+	
+	--// The condition for the "parent" vise, spawn through all.spawn
+	if access(_obj) and string.match(_obj:name(), "awr_tiski") and _obj:position():distance_to(db.actor:position()) < 1.5 then
+		
+		--// Checking the table for "empty"
+		r_unused()
+		
+		--// Gather mechanic info
+		local flag_1,flag_2,flag_3,flag_4 = false,false,false,false
+		local name = _obj:name()
+		local mechanic = name and angles_t[name] and angles_t[name][1]
+		if mechanic then
+			flag_1 = db.actor:has_info(mechanic .. "_upgrade_tier_1")
+			flag_2 = db.actor:has_info(mechanic .. "_upgrade_tier_2")
+			flag_3 = db.actor:has_info(mechanic .. "_upgrade_tier_3")
+			
+			local drugkit_done = ini_manager:r_string_ex("drugkit_access",mechanic)
+			if drugkit_done and db.actor:has_info(drugkit_done) then
+				flag_4 = true
+			end
+		end
+
+		local function start_ui()
+			--// Call UI
+			local hud = get_hud()
+			--if ui then
+				--ui:HideDialog()
+			--end
+			ui = ui_workshop and ui_workshop.get_workshop_ui(hud, mechanic, {flag_1,flag_2,flag_3,flag_4,false})
+			if (ui) then
+				dout(nil, "call UI")
+				ui:ShowDialog(true)
+			end
+			return true
+		end
+		
+		local delay = actor_effects.is_animations_on() and 2 or 0
+		actor_effects.play_item_fx("workshop_dummy")
+		CreateTimeEvent(0,"delay_workshop",delay,start_ui)
+	end
+end
+
+function actor_on_first_update() --| Callback of the first Update actor. It is executed one-time after loading, _after_ spawn of all objects from all.spawn, unlike on_game_load
+	local smatch = string.match
+	local sim = alife()
+	for i=1, sim:max_id() - 1 do
+		local s_obj = sim:object(i)
+		if s_obj then
+			local name = s_obj:name()
+
+			--// If the vise is spawned all.spawn - save their values in the store
+			if smatch(name, '%w+%_awr%_tiski%_%d+') then
+				--// Cache vice id
+				vice_id[name] = i
+				angles_t[name] = l_v(name, angles_t[name])
+				
+				if debug_mode then
+					printf("/ Registered vice [%s] = %s", name, i)
+				end
+				
+			--// Cache vice lamps IDs
+			elseif smatch(name, '_awr_lamp') then
+				lamp_id[name] = i
+				
+				if debug_mode then
+					printf("/ Registered vice lamp [%s] = %s", name, i)
+				end
+			end
+		end
+	end
+	
+	--// Turn on lamps for all mechanics with a dead flag, otherwise it should be off
+	for key, val in pairs(angles_t) do
+	
+		--// Mechanic is dead -> grant full acces + turn on lamp
+		if angles_t[key][3] == 'dead' then
+			dout('actor_on_first_update', "%s is dead. Enable lamp(s) which assigned for %s", angles_t[key][1], key)
+			Lamp(angles_t[key][1], true)
+			full_access(key,npc_s)
+			
+		--// Mechanic is unmarked for death -> turn off lamp
+		else
+			dout('actor_on_first_update', "%s is alive. Disable lamp(s) which assigned for %s", angles_t[key][1], key)
+			Lamp(angles_t[key][1], false)
+			
+			--[[
+			// If Mechanic isn't around, grant unlimited access
+			local npc_s = angles_t[key][1]
+			local se_npc = get_story_se_object(npc_s)
+			if (not se_npc) then
+				full_access(key,npc_s)
+			end
+			--]]
+		end
+		
+		if db.actor:has_info(string.format('awr_%s_access', angles_t[key][1])) then
+			dout('actor_on_first_update', "%s gave access. Enable lamp(s) which assigned for %s", angles_t[key][1], key)
+			Lamp(angles_t[key][1], true)	
+		end
+	end
+
+	--// Remove extra tables for weapons whose parts have not been replaced.
+	r_unused()
+end
+
+function npc_on_death_callback(victim, who) -- Callback, NPC caused by death
+	if not (victim and who) then
+		return
+	end
+	
+	local name = victim:section()
+	local killer_name
+
+	if mech_list_key[name] then
+
+		dout('npc_on_death_callback', "NPC %s was killed by %s", victim:name(), who:name())
+		OnDeath(victim)
+
+		if IsStalker(who) then
+			killer_name = who:character_name()
+		else
+			killer_name = nil
+		end
+	
+		if who:id() == AC_ID then
+			local alife = alife()
+			local se_actor = alife:actor()
+			killer_name = se_actor:character_name()
+		end	
+		actor_menu.set_item_news('success', 'npc', "st_awr_dead_mechanic", victim:character_name(), killer_name or game.translate_string("st_by_unknown"))
+	else
+		-- if IsStalker(victim) then
+		-- 	awr_sf.dout('npc_on_death_callback', "NPC %s is not in list -> return", victim:name())			-- Отрабатывает для всех смертей, включать при необходимости
+		-- end
+		return
+	end
+end
+
+function save_state(m_data)
+	m_data.workshop = MDATA
+end
+
+function load_state(m_data)
+	MDATA = m_data.workshop or {}
+end
+
+function on_game_start()
+	ini_manager = itms_manager.ini_manager
+	settings = utils_data.collect_section(ini_manager,"workshop_settings")
+	mesh_list = utils_data.collect_section(ini_manager,"workshop_angles")
+
+	--for _, k in ipairs(settings) do
+		--settings_list[k] = ini_manager:r_float_ex("workshop_settings", k)
+	--end
+	
+	for _, k in ipairs(mesh_list) do
+		local t = parse_list(ini_manager,"workshop_angles", k)
+		angles_t[k] = {}
+		for _, v in ipairs(t) do
+			table.insert(angles_t[k], v)
+		end
+	end
+	
+	--// We enter data into the table keys for quick indexing by key, without using a loop
+	for key, val in pairs(angles_t) do
+		mech_list_key[val[1]] = 0
+	end
+	
+	RegisterScriptCallback("physic_object_on_use_callback", physic_object_on_use_callback)
+	RegisterScriptCallback("actor_on_first_update", actor_on_first_update)
+	RegisterScriptCallback("npc_on_death_callback", npc_on_death_callback)
+	RegisterScriptCallback("save_state", save_state)
+	RegisterScriptCallback("load_state", load_state)
+end
+
+
+--=======================================< Utility >=======================================--
+function Lamp(npc_name, state) --| Toggle online workshop lamps on/off
+	for lamp_name,id in pairs(lamp_id) do
+		if string.match(lamp_name, string.format('_awr_lamp_%s', npc_name)) then
+			local se_lamp = alife_object(id)
+			if se_lamp then
+				local lamp = level.object_by_id(id)
+				if lamp then
+					if (state == true) then
+						lamp:get_hanging_lamp():turn_on()
+						dout(nil, "Lamp %s was turned on", lamp_name)
+					elseif (state == false) then
+						lamp:get_hanging_lamp():turn_off()
+						dout(nil, "Lamp %s was turned off", lamp_name)
+					end
+				end
+			end
+		end
+	end
+end
+
+function full_access(vice,npc_s) --| Give unlimited access to a workshop
+	--// 'Dead' flag in the table
+	angles_t[vice][3] = 'dead'
+	
+	--// Delete information if, before the death of a mechanic, he had access
+	if db.actor:has_info(string.format('awr_%s_access', npc_s)) then
+		db.actor:disable_info_portion(string.format('awr_%s_access', npc_s))
+		dout(nil, 'NPC is dead. Infoportion awr_%s_access has been removed', npc_s)
+	end
+	
+	--// Issuance of information
+	db.actor:give_info_portion(string.format("awr_%s_dead", npc_s))
+	
+	--// Turn on the lamps
+	Lamp(npc_s, true)
+	
+	--// Store data
+	s_v(vice, angles_t[vice])
+end
+
+function s_v(name,val) --|
+--// Функция сохранения данных в Store
+	dout(nil, "Save data to Store, table %s on value %s", name, val)
+
+	MDATA[name] = val
+	if debug_show_tables then print_table(MDATA, 'On Save') end
+end
+
+function l_v(name, def) --|
+--// Функция загрузки данных из Store
+	local function len(t)
+		local i = 0
+		for _ in pairs(t) do i = i + 1 end
+			return i
+	end
+
+	dout(nil, 'Trying to load %s from Store', name)
+	local m_data = alife_storage_manager.get_state()
+	if MDATA[name] and len(MDATA[name]) > 0 then
+		dout(nil, "Table %s with %s keys was loaded", name, len(MDATA[name]))
+		if debug_show_tables then print_table(MDATA, 'On Load') end
+		return MDATA[name] or def
+	else
+		dout(nil, 'Table %s does not exist or is empty. Skipped', name)
+	end
+	return def or nil
+end
+
+function r_unused() --|
+--// Функция удаления "пустых" таблиц с замененными деталями для оружия и флагами
+	local chk = 0
+	dout(nil, 'Searching unused tables in AWR Store table...')
+	if MDATA then
+		for k, _ in pairs(MDATA) do
+			if k:match('_upg') then
+				dout(nil, 'Checking %s table...', k)
+				local count = 0
+				for key, val in pairs(MDATA[k]) do
+					count = count + val
+				end
+				if count == 5 then
+					local flags = string.format('%s%s', k:gsub('[^%d+]', ''), '_flags')
+					dout(nil, '%s table have default values, tables %s and %s will be removed', k, k, flags)
+					MDATA[k] = nil
+					MDATA[flags] = nil
+					chk = chk + 2
+				else
+					dout(nil, 'Data in table %s is used. Skipped', k)
+				end
+			end
+		end
+		if chk == 0 then
+			dout(nil, 'AWR Store table have no unused tables')
+		else
+			dout(nil, 'Removed %s tables', chk)
+		end
+	else
+		dout(nil, 'AWR table does not exist')
+	end
+	if debug_show_tables then print_table(MDATA, 'On Remove Unused') end
+end
+
+function dout(call,fmt,...) --|
+--// Функция отладочного вывода (включен при debug_mode = true в awr_settings.ltx)
+	if not (debug_mode) then return end
+	if not (fmt) then return end
+	local fmt = tostring(fmt)
+	
+	--// Пытаемся определить из какой функции произошел вызов целевой функции
+	local caller_n = debug.getinfo(3, "n") and debug.getinfo(3, "n").name or "not specified"
+	local f_name = debug.getinfo(2, "n") and  debug.getinfo(2, "n").name or "not specified"
+
+	if call then
+		caller_n = tostring(call)
+	end
+	
+	if (select('#',...) >= 1) then
+		local i = 0
+		local p = {...}
+		local function sr(a)
+			i = i + 1
+			if (type(p[i]) == 'userdata') then
+				if (p[i].x and p[i].y) then
+					return vec_to_str(p[i])
+				end
+				return 'userdata'
+			end
+			return tostring(p[i])
+		end
+		fmt = string.gsub(fmt,"%%s",sr)
+	end
+		if (log) then
+			local str = string.format('[AWR]{%s->%s} %s', caller_n, f_name, fmt)
+			log(str)
+			--exec_console_cmd("flush")
+	else
+		exec_console_cmd("load ~#debug msg:"..str)
+	end	
+end
+
+function print_table(tbl,header,format_only) --|
+--// Функция для вывода содержимого таблицы в строковом виде
+	local txt = header and ("-- " .. tostring(header) .. "\n{\n\n") or "{\n\n"
+	local depth = 1
+
+	local function tab(amt)
+		local str = ""
+		for i=1,amt, 1 do
+			str = str .. "\t"
+		end
+		return str
+	end
+
+	local function table_to_string(tbl)
+		local size = 0
+		for k,v in pairs(tbl) do
+			size = size + 1
+		end
+
+		local key
+		local i = 1
+
+		for k,v in pairs(tbl) do
+			if (type(k) == "number") then
+				key = "[" .. k .. "]"
+			elseif (type(k) == "function" or type(k) == "string" or type(k) == "boolean" or type(k) == "table") then
+				key = "[\""..tostring(k) .. "\"]"
+			else 
+				key = "[____unknown_type]"
+			end
+
+			if (type(v) == "table") then
+				txt = txt .. tab(depth) .. key .. " =\n"..tab(depth).."{\n"
+				depth = depth + 1
+				table_to_string(v,tab(depth))
+				depth = depth - 1
+				txt = txt .. tab(depth) .. "}"
+			elseif (type(v) == "number" or type(v) == "boolean") then
+				txt = txt .. tab(depth) .. key .. " = " .. tostring(v)
+			elseif (type(v) == "userdata") then
+				if (v.diffSec) then 
+					local Y, M, D, h, m, s, ms = 0,0,0,0,0,0,0
+					Y, M, D, h, m, s, ms = v:get(Y, M, D, h, m, s, ms)
+					txt = strformat("%s%s%s = { Y=%s, M=%s, D=%s, h=%s, m=%s, s=%s, ms=%s } ",txt,tab(depth),key,Y, M, D, h, m, s, ms)
+				else
+					txt = txt .. tab(depth) .. key .. " = \"userdata\""
+				end
+			elseif (type(v) == "function") then
+				txt = txt .. tab(depth) .. key .. " = \"" .. tostring(v) .. "\""
+			elseif (type(v) == "string") then 
+				txt = txt .. tab(depth) .. key .. " = '" .. v .. "'"
+			else 
+				txt = txt .. tab(depth) .. key
+			end
+
+			if (i == size) then
+				txt = txt .. "\n"
+			else
+				txt = txt .. ",\n"
+			end
+
+			i = i + 1
+		end
+	end
+
+	table_to_string(tbl)
+
+	txt = txt .. "\n}"
+
+	if (format_only) then
+		return txt 
+	end
+	
+	printf(txt)
+	local file = io.open("gamedata\\awr_table.txt","a+")
+	file:write(txt.."\n\n")
+	file:close()
+end
diff --git a/gamedata/scripts/bind_stalker_ext.script b/gamedata/scripts/bind_stalker_ext.script
new file mode 100644
index 000000000..c9b4053ff
--- /dev/null
+++ b/gamedata/scripts/bind_stalker_ext.script
@@ -0,0 +1,441 @@
+--==============( Ported from CoC 1.5, used for Azazel mode & invulnerability time )==============--
+
+--[[
+	bind_stalker_ext.script
+	
+	Extends the functionality of bind_stalker.script without filling it with clutter
+	
+	by: Alundaio
+--]]
+
+
+local K_CTRL  = DIK_keys.DIK_LCONTROL
+local K_SHIFT = DIK_keys.DIK_LSHIFT
+local K_ALT   = DIK_keys.DIK_LMENU
+
+-------------------
+-- actor_on_init
+-------------------
+function actor_on_init(binder)
+	level_weathers.get_weather_manager()
+	SendScriptCallback("actor_on_init",binder)
+end 
+
+function actor_on_reinit(binder)
+	SendScriptCallback("actor_on_reinit",binder)
+	AddUniqueCall(ProcessEventQueue)
+end
+-------------------
+-- actor_on_net_spawn
+-------------------
+function actor_on_net_spawn()
+	if (ui_options.get("gameplay/general/hardcore_ai_aim")) then
+		exec_console_cmd("ai_aim_max_angle 20.0")
+		exec_console_cmd("ai_aim_min_angle 17.0")
+		exec_console_cmd("ai_aim_min_speed 2.00")
+		exec_console_cmd("ai_aim_predict_time 0.28")
+	else
+		exec_console_cmd("ai_aim_max_angle 0.7854")
+		exec_console_cmd("ai_aim_min_angle 0.19635")
+		exec_console_cmd("ai_aim_min_speed 0.24")
+		exec_console_cmd("ai_aim_predict_time 0.40")
+	end
+	
+	-- some hacks
+	local sim = alife()
+	local remove_outfits = not db.actor:has_info("remove_outfits_hack")
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if (se_obj) then
+			-- hack to remove phantoms
+			if (se_obj:clsid() == clsid.phantom) then
+				--printf("release phantom hack!")
+				safe_release_manager.release(se_obj)
+			end
+		end
+	end
+	if (remove_outfits) then
+		db.actor:give_info_portion("remove_outfits_hack")
+	end
+	
+	SendScriptCallback("on_game_load",binder)
+end
+
+-------------------------------------
+-- actor_on_net_destroy
+-------------------------------------
+function actor_on_net_destroy(binder)
+	SendScriptCallback("actor_on_net_destroy",binder)
+end 
+
+-------------------
+-- actor_on_update
+-------------------
+invulnerable_time = nil
+function actor_on_first_update(binder,delta)
+	invulnerable_time = invulnerable_time or time_global() + 7000
+	SendScriptCallback("actor_on_first_update",binder,delta)
+end
+
+function actor_on_update(binder,delta)
+	if not (db.actor:alive()) then
+		return
+	end
+	
+	-- WISH GRANTER ZOMBIED-IMMORTALITY
+	if (db.actor:has_info("actor_made_wish_immortal") or invulnerable_time and invulnerable_time > time_global() + 7000) then 
+		db.actor.health = 1
+		db.actor.bleeding = 1
+		db.actor.psy_health = 1
+		db.actor.radiation = 0
+	end
+	--[[ enable if you need it
+	local torch = db.actor:object("device_torch")
+	if (torch and not actor_light and torch:torch_enabled()) then
+		actor_light = true
+		SendScriptCallback("actor_on_torch_enabled")
+	elseif (torch and not torch:torch_enabled()) then
+		if (actor_light) then
+			actor_light = false
+			SendScriptCallback("actor_on_torch_disabled")
+		end
+	end
+	--]]
+	SendScriptCallback("actor_on_update",binder,delta)
+end
+
+-------------------
+-- actor_on_weapon_fire(actor,wpn,elapsed)
+-------------------
+function actor_on_weapon_fired(binder,obj,wpn,ammo_elapsed,grenade_elapsed,ammo_type,grenade_type)
+	SendScriptCallback("actor_on_weapon_fired",obj,wpn,ammo_elapsed,grenade_elapsed,ammo_type,grenade_type)
+end
+
+-------------------
+-- actor_on_weapon_no_ammo(wpn)
+-------------------
+function actor_on_weapon_no_ammo(binder,wpn)
+	SendScriptCallback("actor_on_weapon_no_ammo",wpn)
+end
+
+-------------------
+-- actor_on_weapon_zoom_in(wpn)
+-------------------
+function actor_on_weapon_zoom_in(binder,obj,wpn)
+	SendScriptCallback("actor_on_weapon_zoom_in",wpn)
+end
+
+-------------------
+-- actor_on_weapon_zoom_out(wpn)
+-------------------
+function actor_on_weapon_zoom_out(binder,obj,wpn)
+	SendScriptCallback("actor_on_weapon_zoom_out",wpn)
+end
+
+-------------------
+-- actor_on_item_take(item)
+-------------------
+function actor_on_item_take(binder,item)
+	if not (db.actor) then 
+		return -- don't remove, for some reason this callback is triggered before actor is fully loaded
+	end
+	SendScriptCallback("actor_on_item_take",item)
+end
+
+-------------------
+-- actor_on_item_take_from_box
+-------------------
+function actor_on_item_take_from_box(binder,box,item)
+	SendScriptCallback("actor_on_item_take_from_box",box,item)
+end
+
+-------------------
+--
+-------------------
+function actor_on_item_drop(binder,item)
+	SendScriptCallback("actor_on_item_drop",item)
+end 
+
+-------------------
+-- actor_on_item_use(item)
+-------------------
+function actor_on_item_use(binder,item)
+	local sec = item:section()
+	if (sec == "drug_anabiotic") then 
+		xr_effects.disable_ui_only(db.actor, nil)
+		level.add_cam_effector("camera_effects\\surge_02.anm", 10, false, "bind_stalker_ext.anabiotic_callback")
+		level.add_pp_effector("surge_fade.ppe", 11, false)
+		give_info("anabiotic_in_process")
+		_G.mus_vol = get_console_cmd(2,"snd_volume_music")
+		_G.amb_vol = get_console_cmd(2,"snd_volume_eff")
+		exec_console_cmd("snd_volume_music 0")
+		exec_console_cmd("snd_volume_eff 0")
+	elseif (sec == "drug_psy_blockade" or sec == "drug_radioprotector" or sec == "drug_antidot") then
+		local boost_time = ini_sys:r_float_ex(sec,"boost_time")
+		save_var(db.actor,sec.."_expiration",utils_data.CTimeAddSec(game.get_game_time(),boost_time*level.get_time_factor()))
+	elseif (sec == "radio_connections_pda") then 
+		run_dynamic_element(pda_dialog.pda_dialog_box(),true)
+	end 
+	SendScriptCallback("actor_on_item_use",item,sec)
+end
+
+-------------------
+-- actor_on_trade(item)
+-------------------
+function actor_on_trade(binder,item,sell_bye,money)
+	-- if sell_bye == true then
+		 -- game_stats.money_trade_update (money)
+	-- else
+		 -- game_stats.money_trade_update (-money)
+	-- end
+	SendScriptCallback("actor_on_trade",item,sell_bye,money)
+end
+
+-------------------
+-- actor_on_save(bind_stalker,packet)
+-- IMPORTANT: Cannot be used as callback because this needs to be done in specific order, just call script directly!
+-------------------
+function actor_on_save(binder,packet)
+	local sim,gg = alife(),game_graph()
+	local actor_gv = sim and gg:vertex(sim:actor().m_game_vertex_id)
+	
+	if (actor_gv and actor_gv:level_id() ~= sim:level_id()) then
+		--printf("DEBUG: actor changing level")
+		--task_manager.get_task_manager():set_task_cancelled("faction_base_defense")	-->> LD
+		SendScriptCallback("on_level_changing")
+	end
+
+	if (treasure_manager) then
+		treasure_manager.save(packet)
+	end
+	
+	surge_manager.actor_on_save(binder,packet)
+	psi_storm_manager.actor_on_save(binder,packet)
+end
+
+-------------------
+-- actor_on_load(bind_stalker,packet)
+-- IMPORTANT: Cannot be used as callback because this needs to be done in specific order, just call script directly!
+-------------------
+function actor_on_load(binder,packet)
+	if (treasure_manager) then
+		treasure_manager.load(packet)
+	end
+	surge_manager.actor_on_load(binder,packet)
+	psi_storm_manager.actor_on_load(binder,packet)
+end
+
+local flags = { ret_value = true }
+
+function actor_on_item_before_pickup(item) -- called from engine!
+-- Called when actor is pressing use key to pick up an item
+-- return false will prevent actor from pickup the item
+
+	SendScriptCallback("actor_on_item_before_pickup",item,flags)
+	return flags.ret_value
+end
+
+---------------------------------------------
+-- on_key_press
+---------------------------------------------
+function on_key_press(binder,key)
+	if (not KEYS_UNLOCK) then
+		if key == K_CTRL or key == K_SHIFT or key == K_ALT then
+		else
+			return
+		end
+	end
+	
+	SendScriptCallback("on_key_press",key)
+end
+
+---------------------------------------------
+-- on_key_release
+---------------------------------------------
+function on_key_release(binder,key)
+	if (not KEYS_UNLOCK) then
+		if key == K_CTRL or key == K_SHIFT or key == K_ALT then
+		else
+			return
+		end
+	end
+	
+	SendScriptCallback("on_key_release",key)
+end
+
+---------------------------------------------
+-- on_key_hold
+---------------------------------------------
+function on_key_hold(binder,key)
+	--[[
+	if (not KEYS_UNLOCK) then
+		if key == K_CTRL or key == K_SHIFT or key == K_ALT then
+		else
+			return
+		end
+	end
+	--]]
+	
+	SendScriptCallback("on_key_hold",key)
+end
+
+---------------------------------------------
+-- on_actor_before_death
+---------------------------------------------
+function actor_on_before_death(binder,whoID)
+	local flags = { ret_value = true }
+	SendScriptCallback("actor_on_before_death",whoID,flags)
+	if (flags.ret_value == true) then 
+		db.actor:kill(db.actor,true)
+	end
+end
+
+---------------------------------------------
+-- on_attach_vehicle
+---------------------------------------------
+function actor_on_attach_vehicle(binder,obj)
+	SendScriptCallback("actor_on_attach_vehicle",obj)
+end
+
+---------------------------------------------
+-- on_detach_vehicle
+---------------------------------------------
+function actor_on_detach_vehicle(binder,obj)
+	SendScriptCallback("actor_on_detach_vehicle",obj)
+	if (obj:section() == "deployable_mgun") then 
+		alife_release_id(obj:id())
+		alife_create_item("itm_deployable_mgun", db.actor)
+	end
+end
+
+---------------------------------------------
+-- 	on_use_vehicle
+---------------------------------------------
+function actor_on_use_vehicle(binder,obj)
+	SendScriptCallback("actor_on_use_vehicle",obj)
+end
+
+---------------------------------------------
+--	actor_on_task_callback
+---------------------------------------------
+function actor_on_task_callback(binder,_task, _state)
+	if _state ~= task.fail then
+		if _state == task.completed then
+			news_manager.send_task(db.actor, "complete", _task)
+		else
+			news_manager.send_task(db.actor, "new", _task)
+		end
+	end
+	task_manager.task_callback(_task, _state)
+end
+
+------------------------------------------
+-- anabiotic_callback
+------------------------------------------
+function anabiotic_callback()
+	level.add_cam_effector("camera_effects\\surge_01.anm", 10, false, "bind_stalker_ext.anabiotic_callback2")
+	local rnd = math.random(35,45)
+	local m = surge_manager.get_surge_manager()
+	if(m.started) then
+		local tf = level.get_time_factor()
+		local diff_sec = math.ceil(game.get_game_time():diffSec(m.inited_time)/tf)
+		if(rnd>(m.surge_time-diff_sec)*tf/60) then
+			m.time_forwarded = true
+			m.ui_disabled = true
+			m:end_surge()
+		end
+	end
+	m = psi_storm_manager.get_psi_storm_manager()
+	if(m and m.started) then
+		local tf = level.get_time_factor()
+		local diff_sec = math.ceil(game.get_game_time():diffSec(m.inited_time)/tf)
+			if(rnd>(m.psi_storm_duration-diff_sec)*tf/60) then
+			m.time_forwarded = true
+			--m.ui_disabled = true
+			m:finish()
+		end
+	end
+	level.change_game_time(0,0,rnd)
+	level_weathers.get_weather_manager():forced_weather_change()
+	--printf("anabiotic_callback: time forwarded on [%d]", rnd)
+end
+
+function anabiotic_callback2()
+	xr_effects.enable_ui(db.actor, nil)
+    exec_console_cmd("snd_volume_music "..tostring(_G.mus_vol))
+	exec_console_cmd("snd_volume_eff "..tostring(_G.amb_vol))
+	_G.amb_vol = 0
+	_G.mus_vol = 0
+	disable_info("anabiotic_in_process")
+end
+
+function actor_on_info_callback(binder,obj,info_id)
+	SendScriptCallback("actor_on_info_callback",obj,info_id)
+	--printf("info_id = %s",info_id)
+end
+
+function actor_item_to_belt(binder,obj)
+	SendScriptCallback("actor_item_to_belt",obj)
+end 
+
+function actor_item_to_slot(binder,obj)
+	if (ui_options.get("gameplay/general/outfit_portrait") == true) then
+		local outfit = db.actor:item_in_slot(7)
+		if (outfit and outfit:id() == obj:id()) then 
+			local icon = ini_sys:r_string_ex(outfit:section(),"character_portrait")
+			if (icon) then
+				db.actor:set_character_icon(icon)
+			elseif (db.actor_binder.character_icon) then -- use default portrait if no outfit portrait exists
+				db.actor:set_character_icon(db.actor_binder.character_icon)
+			end
+		end
+	end
+	SendScriptCallback("actor_item_to_slot",obj)
+end 
+
+function actor_item_to_ruck(binder,obj)
+    if (ui_options.get("gameplay/general/outfit_portrait") == true) and IsOutfit(obj) then
+        local outfit = db.actor:item_in_slot(7)
+        if (outfit == nil and db.actor_binder.character_icon) then
+            db.actor:set_character_icon(db.actor_binder.character_icon)
+        end
+    end
+	SendScriptCallback("actor_item_to_ruck",obj)
+end
+
+function actor_on_weapon_jammed(binder,actor,wpn)
+	SendScriptCallback("actor_on_weapon_jammed",wpn)
+end 
+
+function actor_on_weapon_magazine_empty(binder,wpn,ammo_total)
+	--printf("weapon_no_ammo wpn=%s ammo_total=%s",wpn and wpn:name(),ammo_total)
+	SendScriptCallback("actor_on_weapon_no_ammo",wpn,ammo_total)
+end
+
+function actor_on_weapon_lowered(binder,wpn)
+	SendScriptCallback("actor_on_weapon_lower",wpn)
+end
+
+function actor_on_weapon_raised(binder,wpn)
+	SendScriptCallback("actor_on_weapon_raise",wpn)
+end
+
+function actor_on_weapon_reload(binder,wpn,ammo_total)
+	SendScriptCallback("actor_on_weapon_reload",wpn,ammo_total)
+end	
+
+function actor_on_hud_animation_end(binder,item,section,motion,state,slot)
+	--printf("hud_animation_end [%s] sec=%s motion=%s state=%s slot=%s",item and item:name(),section,motion,state,slot)
+	SendScriptCallback("actor_on_hud_animation_end",item,section,motion,state,slot)
+end
+
+function actor_on_hit_callback(binder, obj, amount, local_direction, who, bone_index)
+	if (amount <= 0) then
+		return
+	end
+	SendScriptCallback("actor_on_hit_callback",obj, amount, local_direction, who, bone_index)
+end
+
+function actor_on_foot_step(binder,obj,power,b_play,b_on_ground,b_hud_view)
+	SendScriptCallback("actor_on_foot_step",obj,power,b_play,b_on_ground,b_hud_view)
+end
\ No newline at end of file
diff --git a/gamedata/scripts/callbacks_gameobject.script b/gamedata/scripts/callbacks_gameobject.script
index ecb6679d1..d456b515f 100644
--- a/gamedata/scripts/callbacks_gameobject.script
+++ b/gamedata/scripts/callbacks_gameobject.script
@@ -43,6 +43,19 @@ _G.game_objects_iter = function()
 	end
 end
 
+-- Game objects without actor
+_G.game_objects_without_actor_iter = function()
+	local k = nil
+	local obj = nil
+	return function()
+		k, obj = next(gameobjects_registry, k)
+		if k == AC_ID then
+			k, obj = next(gameobjects_registry, k)
+		end
+		return obj
+	end
+end
+
 -- Pseudogiant callbacks
 AddScriptCallback("pseudogiant_on_start_stomp_animation")
 AddScriptCallback("pseudogiant_before_stomp")
diff --git a/gamedata/scripts/debug_cmd_list.script b/gamedata/scripts/debug_cmd_list.script
new file mode 100644
index 000000000..ef39b06b0
--- /dev/null
+++ b/gamedata/scripts/debug_cmd_list.script
@@ -0,0 +1,3479 @@
+local cmd = {}
+
+function command_get_list()
+	return cmd
+end
+
+function command_get_count()
+	local count = 0
+	for k,v in pairs(cmd) do
+		count = count + 1
+	end
+	return count
+end
+
+function command_exists(name)
+	return cmd[name] ~= nil
+end
+
+function command_give(name,...)
+	return cmd[name](name,...)
+end
+
+function split(txt)
+	args = {}
+	for x in txt:gmatch("%S+") do table.insert(args, x) end
+	return args
+end
+
+local function trim(s)
+	return string.gsub(s, "^%s*(.-)%s*$", "%1")
+end
+
+local function first_word(txt)
+	local _strt, _end = string.find(txt,".%S+")
+	if (_strt and _end) then
+		return trim(string.lower(string.sub(txt,_strt, _end))),trim(string.sub(txt,_end+1))
+	end
+	return "",""
+end 
+
+function check_and_set_help(caller,txt,owner,msg)
+	local wrd,rest = first_word(txt)
+	
+	if (wrd == "") then 
+		owner:SendOutput("For usage type %s help",caller)
+		return
+	end 
+	
+	if (string.find(wrd,"help")) then
+		owner:SendOutput("%s %s",caller,msg)
+		return
+	end
+	return wrd,rest
+end
+
+-- HELP
+function cmd.help(me,txt,owner,p)
+	local wrd,rest = first_word(txt)
+	local page = tonumber(txt) or 1
+	local sz = owner.console_size
+
+	if not (sz) or (sz == 0) then return "help := error" end
+
+	local a = {}
+    for n in pairs(cmd) do
+		if (n ~= "help") then
+			table.insert(a, n)
+		end
+	end
+    table.sort(a)
+	
+	local page_count = math.ceil(#a/sz)
+	if (page > page_count) then
+		return "help:= Invaild page"
+	end
+	
+	owner:SendOutput("help := Command List [%s of %s]",page,page_count)
+	owner:SendOutputList(a,(page*sz)-sz,sz-1)
+end
+
+-- ECHO
+function cmd.echo(me,txt,owner,p)
+	return txt
+end
+
+function cmd.char_desc(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[checkall]")
+	if not (wrd) then return end
+	if not (wrd == "checkall") then return "char_desc:= try char_desc checkall" end
+	
+	local f = {	"character_desc_agroprom",
+				"character_desc_bar",
+				"character_desc_darkvalley",
+				"character_desc_deadcity",
+				"character_desc_escape",
+				"character_desc_general",
+				"character_desc_jupiter",
+				"character_desc_katacomb",
+				"character_desc_marsh",
+				"character_desc_military",
+				"character_desc_pripyat",
+				"character_desc_red_forest",
+				"character_desc_simulation",
+				"character_desc_underpass",
+				"character_desc_yantar",
+				"character_desc_zaton"
+			}
+			
+	local tags = {			["name"] = false,
+							["icon"] = false,
+							["map_icon"] = false,
+							--["bio"] = false,
+							["class"] = false,
+							["community"] = false,
+							["terrain_sect"] = false,
+							["money"] = false,
+							["rank"] = false,
+							["reputation"] = false,
+							["visual"] = false,
+							--["snd_config"] = false,
+							["supplies"] = false,
+							--["actor_dialog"] = false
+	}
+	
+	local xml,node,id,char_node,p
+	for i=1,#f do 
+		xml = utils_xml.XmlParser:loadFile(getFS():update_path('$game_config$', '').."gameplay\\"..f[i]..".xml")
+		if (xml) then
+			for index,node in pairs(xml.ChildNodes) do
+				if (type(node) == "table") then
+
+					-- Check if all specific_character nodes for mandatory child nodes
+					for k,child in pairs(node.ChildNodes) do
+						if (type(child) == "table") then
+							if (tags[child.Name] == false) then 
+								tags[child.Name] = true
+							end
+						end
+					end	
+
+					-- Validate that all nodes by tag names exist
+					for k,v in pairs(tags) do 
+						if (v == false) then 
+							owner:SendOutput("char_desc:= specific character id=%s missing a mandatory node by name %s",node.Attributes.id,k)
+						end
+						-- reset for next loop
+						tags[k] = false
+					end
+					
+				end
+			end
+		else
+			owner:SendOutput("char_desc:= no xml by name %s",f[i])
+		end 
+	end
+	return "char_desc:= scanning complete"
+end 
+
+-- print
+function cmd.print(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[_G]")
+	if not (wrd) then return end
+	
+	if (wrd == "_G" or wrd == "_g") then 
+		local list = { f={}, t={}, u={}, b={}, n={}, s={}, unknown={} }
+		
+		local msg = ""
+		for k,v in pairs(_G) do 
+			if (type(v) == "userdata") then 
+				table.insert(list.u,k)
+			elseif (type(v) == "function") then 
+				table.insert(list.f,k)
+			elseif (type(v) == "boolean") then 
+				table.insert(list.b,k)
+			elseif (type(v) == "number") then 
+				table.insert(list.n,k)
+			elseif (type(v) == "string") then 
+				table.insert(list.s,k)
+			elseif (type(v) == "table") then 
+				table.insert(list.t,k)
+			else 
+				table.insert(list.unknown,k)
+			end
+		end
+		
+		for k,v in pairs(list) do 
+			table.sort(v)
+		end
+		
+		msg = msg .. "\n\nNUMBER" .. "\n"
+		for i=1,#list.n do
+			msg = msg .. list.n[i] .. " = " .. tostring(_G[list.n[i]]) .. "\n"
+		end
+		
+		msg = msg .. "\n\nBOOLEAN" .. "\n"
+		for i=1,#list.b do
+			msg = msg .. list.b[i] .. " = " .. tostring(_G[list.b[i]]) .. "\n"
+		end		
+		
+		msg = msg .. "\n\nSTRING" .. "\n"
+		for i=1,#list.s do
+			msg = msg .. list.s[i] .. " = " .. _G[list.s[i]] .. "\n"
+		end
+		
+		msg = msg .. "\n\nTABLE" .. "\n"
+		for i=1,#list.t do
+			msg = msg .. list.t[i] .. "\n"
+		end
+	
+		msg = msg .. "\n\nFUNCTION" .. "\n"
+		for i=1,#list.f do
+			msg = msg .. list.f[i] .. "\n"
+		end
+		
+		msg = msg .. "\n\nUSERDATA" .. "\n"
+		for i=1,#list.u do
+			msg = msg .. list.u[i] .. "\n"
+		end
+		
+		msg = msg .. "\n\nUNKNOWN" .. "\n"
+		for i=1,#list.unknown do
+			msg = msg .. list.unknown[i] .. "\n"
+		end
+		
+		local file = io.open("debug_print.txt","w")
+		file:write(msg)
+		file:close()
+		return "print:= output sent to debug_print.txt"
+	end 
+	
+	return "print:= incorrect subcommands. Type 'print help'"
+end 
+
+-- reload_system_ini and language
+function cmd.reload_system_ini(me,txt,owner,p)
+	reload_ini_sys()
+	game.reload_language()
+	
+	return "reload_system_ini:= success"
+end
+
+-- Relations
+function cmd.relations(me,txt,owner,p)
+	owner:SendOutput("Stalker = %s",relation_registry.community_goodwill("stalker", 0))
+	owner:SendOutput("Bandit = %s",relation_registry.community_goodwill("bandit", 0))
+	owner:SendOutput("Mercenary = %s",relation_registry.community_goodwill("killer", 0))
+	owner:SendOutput("CSky = %s",relation_registry.community_goodwill("csky", 0))
+	owner:SendOutput("Freedom = %s",relation_registry.community_goodwill("freedom", 0))
+	owner:SendOutput("Duty = %s",relation_registry.community_goodwill("dolg", 0))
+	owner:SendOutput("Army = %s",relation_registry.community_goodwill("army", 0))
+	owner:SendOutput("Monolith = %s",relation_registry.community_goodwill("monolith", 0))
+	owner:SendOutput("Ecolog = %s",relation_registry.community_goodwill("ecolog", 0))
+	owner:SendOutput("Renegade = %s",relation_registry.community_goodwill("renegade", 0))
+	owner:SendOutput("Sin = %s",relation_registry.community_goodwill("greh", 0))
+	owner:SendOutput("ISG = %s",relation_registry.community_goodwill("isg", 0))
+	return "relations:= command finished"
+end 
+
+-- Lua Count All
+function cmd.lua_countall(me,txt,owner,p)
+	local seen = {}
+	local function count_all(f)
+		local function count_table(t)
+			if seen[t] then return end
+			f(t)
+			seen[t] = true
+			for k,v in pairs(t) do
+				if type(v) == "table" then
+					count_table(v)
+				else
+					f(v)
+				end
+			end
+		end
+		count_table(_G)
+	end
+
+	local count = 0
+	local function track(o)
+		if (type(o) == "function") then 
+			count = count + 1
+		end
+	end
+	
+	count_all(track)
+	
+	output = strformat("%s functions. %s bytes used",count,count*20)
+	
+	return "lua_countall:= " .. output
+end 
+
+-- Community
+function cmd.community(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"<community>")
+	if not (wrd) then return end
+	
+	local comm_list = utils_obj.get_communities_list()
+	for i=1,#comm_list do 
+		if (wrd == comm_list[i]) then 
+			set_actor_true_community(wrd)
+			return "community:= actor community successfully changed to "..wrd
+		end
+	end
+	return "community:= invalid community"
+end
+-- SPAWN
+--[[
+example usage:
+
+spawn s:stalker id:%s amt:5 $AC_ID     -- Spawns 5 stalkers at actor's position
+
+spawn s:wpn_pm id:5424 						   -- Spawns Pistol on ID's position
+
+spawn s:wpn_pm id:$AC_ID$
+
+spawn s:wpn_pm pos:244,355,123 lvid:11344 gvid:12  -- Spawns pistol at exact location
+
+--]]
+function cmd.spawn(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"s:<section> id:<number> amt:<number> [ pos:<x,y,z> lvid:<x,y,z> gvid:<x,y,z> ]")
+	if not (wrd) then return end
+
+	if (wrd == "reset") then
+		owner.spawn_pos = nil
+		owner.spawn_lvid = nil
+		owner.spawn_gvid = nil
+		return "spawn:= position reset to always actor"
+	end
+
+	if (wrd == "items") then
+		if not (ini_sys:section_exist("inv_backpack")) then
+			return "spawn:= requires inv_backpack from items_minimod"
+		end
+		local stash = alife_create("inv_backpack",db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id())
+		local itm
+		if not (se_item.registered_items) then 
+			return "spawn:= registered items table needs uncommented in se_item.script"
+		end
+		for k,v in pairs(se_item.registered_items) do
+			alife_create_item(k, stash)
+		end
+		return "spawn:= all registered items in game spawned in a stash near you"
+	end
+
+	local sec
+	if (string.find(txt,"s:")) then
+		for s in string.gmatch(txt,"s:(.%S+)") do
+			sec = s
+		end
+	end
+
+	if not (sec) or not (ini_sys:section_exist(sec)) then
+		return "spawn:= Section %s does not exist.",sec
+	end
+
+	local pos,lvid,gvid,id
+
+	if (string.find(txt,"id:")) then
+		for s in string.gmatch(txt,"id:(%d+)") do
+			id = tonumber(s)
+		end
+
+		local obj = level.object_by_id(id)
+		if (obj) then
+			pos = obj:position()
+			lvid = obj:level_vertex_id()
+			gvid = obj:game_vertex_id()
+		end
+	else
+		if (string.find(txt,"pos:")) then
+			for s in string.gmatch(txt,"pos:([-]?%d+[.]?%d*,[-]?%d+[.]?%d*,[-]?%d+[.]?%d*)") do
+				local p = str_explode(s,",")
+				pos = vector():set(tonumber(p[1]),tonumber(p[2]),tonumber(p[3]))
+			end
+
+			if (string.find(txt,"lvid:")) then
+				for s in string.gmatch(txt,"lvid:(%w+)") do
+					lvid = tonumber(s)
+				end
+			else
+				return "spawn:= Must specify level_vertex_id along with position."
+			end
+
+			if (string.find(txt,"gvid:")) then
+				for s in string.gmatch(txt,"gvid:(%w+)") do
+					gvid = tonumber(s)
+				end
+			else
+				return "spawn:= Must specify game_vertex_id along with position."
+			end
+		else
+			return "spawn:= Must specify id or position. Type spawn help"
+		end
+	end
+
+	local amt = 1
+	if (string.find(txt,"amt:")) then
+		for s in string.gmatch(txt,"amt:(%d+)") do
+			amt = tonumber(s)
+		end
+	end
+
+	if (pos) and (lvid) and (gvid) then
+		for i=1,amt do
+			local obj = alife_create_item(sec, {pos,lvid,gvid,id})
+		end
+
+		if (amt > 1) then
+			return "Spawn:= Objects created"
+		end
+
+		if not (obj) then
+			return "spawn:= Object nil"
+		end
+		return "spawn:= Object %s created as ID %s.",obj:name(),obj.id
+	end
+
+	local p = string.format("%0.2f,%0.2f,%0.2f",pos.x,pos.y,pos.z)
+	return "spawn:= Error pos=%s lvid=%s gvid=%s",p,lvid,gvid
+end
+
+-- collectgarbage
+function cmd.collectgarbage(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[full|count|step]")
+	if not (wrd) then return end
+
+	if (wrd == "full") then
+		local before = collectgarbage("count")
+		collectgarbage()
+		local after = collectgarbage("count")
+		return "collectgarbage:= |before|=>"..before.." |after|=> "..after
+	elseif (wrd == "count") then
+		local count = collectgarbage("count")
+		return "collectgarbage:= "..count
+	elseif (wrd == "step") then
+		wrd = ""
+		local _strt, _end = string.find(txt,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+			local amt = wrd and wrd ~= "" and tonumber(wrd) or 0
+			if (amt) then
+				xrs_debug_tools.STEP = amt
+			end
+		end
+	else
+		return "collectgarbage:= wrong argument passed."
+	end
+end
+
+function cmd.attach(me,txt,owner,p)
+	local wpn = db.actor:active_item()
+	if (wpn) then
+		local firearm = IsWeapon(wpn)
+		if (firearm) then
+			if (wpn.weapon_addon_attach) then
+				local addons = {
+					"wpn_addon_scope",
+					"wpn_addon_scope_x2.7",
+					"wpn_addon_scope_detector",
+					"wpn_addon_scope_night",
+					"wpn_addon_scope_susat",
+					"wpn_addon_scope_susat_x1.6",
+					"wpn_addon_scope_susat_custom",
+					"wpn_addon_scope_susat_dusk",
+					"wpn_addon_scope_susat_night",
+					"wpn_addon_silencer",
+					"wpn_addon_grenade_launcher",
+					"wpn_addon_grenade_launcher_m203"
+					}
+				local addon
+				local attached = false
+				for k,v in pairs(addons) do
+					addon = db.actor:object(k)
+					if (addon) then 
+						wpn:weapon_addon_attach(addon)
+						attached = true
+					end
+				end 
+				
+				if (attached) then 
+					return "attach:= addon attached"
+				end 
+				return "attach:= no addons attached"
+			else 
+				return "attach:= weapon does not have weapon_addon_attach method"
+			end
+		end 
+	end
+	return "attach:= addon was not attached for active weapon"
+end 
+
+function cmd.detach(me,txt,owner,p)
+	local wpn = db.actor:active_item()
+	if (wpn) then
+		local firearm = IsWeapon(wpn)
+		if (firearm and wpn.weapon_addon_detach) then
+			local addons = {
+				"wpn_addon_scope",
+				"wpn_addon_scope_x2.7",
+				"wpn_addon_scope_detector",
+				"wpn_addon_scope_night",
+				"wpn_addon_scope_susat",
+				"wpn_addon_scope_susat_x1.6",
+				"wpn_addon_scope_susat_custom",
+				"wpn_addon_scope_susat_dusk",
+				"wpn_addon_scope_susat_night",
+				"wpn_addon_silencer",
+				"wpn_addon_grenade_launcher",
+				"wpn_addon_grenade_launcher_m203"
+				}
+			local addon
+			for k,v in pairs(addons) do
+				wpn:weapon_addon_detach(k)
+			end 
+
+			return "detach:= check item"
+		end 
+	end
+	return "detach:= addon was not detached from active weapon"
+end 
+
+local function parse_waypoint(pathname, wpflags, wpname, owner, tRet)
+
+	local rslt = {}
+
+	rslt.flags = wpflags
+
+	local at
+	if string.find(wpname, "|", at, true) == nil then
+		return rslt
+	end
+
+	--[[
+	file = io.open("axr_debug_log.txt","a+")
+	if (file) then
+		file:write(strformat("[%s] %s", pathname, wpname).."\n")
+		file:close()
+	end
+	--]]
+
+	local par_num
+	local fld
+	local val
+
+	par_num = 1
+	for param in string.gmatch(wpname, "([%w%+~_\\%=%{%}%s%!%-%,%*]+)|*") do
+		if par_num == 1 then
+			-- continue
+		else
+			if param == "" then
+				owner:SendOutput("path '%s': waypoint '%s': syntax error in waypoint name", pathname, wpname)
+				printf("path '%s': waypoint '%s': syntax error in waypoint name", pathname, wpname)
+			else
+				local t_pos = string.find(param, "=", 1, true)
+				if (t_pos) then
+					fld = string.sub(param, 1,t_pos - 1)
+					if not (fld and fld ~= "") then
+						tRet[#tRet+1] = strformat("path '%s': waypoint '%s': syntax error while parsing the param '%s': no field specified",pathname, wpname, param)
+						printf("path '%s': waypoint '%s': syntax error while parsing the param '%s': no field specified",pathname, wpname, param)
+					else
+						val = string.sub(param, t_pos + 1)
+						if not (val and val ~= "") then
+							val = "true"
+						end
+
+						if fld == "a" then
+							rslt[fld] = xr_logic.parse_condlist(db.actor, "waypoint_data", "anim_state", val)
+
+							if not (state_lib.states[val]) then
+								tRet[#tRet+1] = strformat("path '%s': waypoint '%s': not a valid state_lib anim  %s", pathname, wpname,val)
+								printf("path '%s': waypoint '%s': not a valid state_lib anim %s", pathname, wpname,val)
+							end
+						else
+							rslt[fld] = val
+						end
+					end
+				else
+					tRet[#tRet+1] = strformat("path '%s': waypoint '%s': syntax error in waypoint name", pathname, wpname)
+					printf("path '%s': waypoint '%s': syntax error in waypoint name", pathname, wpname)
+				end
+			end
+		end
+		par_num = par_num + 1
+	end
+	return rslt
+end
+
+function cmd.waypoint(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[checkall | checklevel | checkindex]")
+	if not (wrd) then return end
+
+	if not (wrd == "checkall" or wrd == "checklevel" or wrd == "checkindex") then
+		return "waypoint:= invalid argument. Type waypoint help for a list of subcommands"
+	end
+
+	local npc = xrs_debug_tools.get_debug_npc()
+	if (npc == nil and wrd == "checklevel" and npc:id() ~= 0) then
+		return "waypoint:= need NPC to validate waypoints, no nearest stalker found."
+	end
+
+	local path_jobs = {"surge","collector","walker","patrol","guard","sniper","camper","sleep"}
+
+	local smart,gname,name,ptr,cnt,i,vec
+	local b = {}
+	local last_index
+
+	local sim = alife()
+	local actor_level = wrd == "checklevel" and sim:level_name(game_graph():vertex(sim:actor().m_game_vertex_id):level_id()) or "nil"
+
+	local checked = false
+	local gg = game_graph()
+	
+	local t = {}
+	for id=1,sim:max_id() - 1 do
+		smart = sim:object(id)
+		if (smart and smart:clsid() == clsid.smart_terrain) then
+			gname = smart:name()
+			if (wrd == "checkindex") then
+				checked = true
+				for index,job in ipairs(path_jobs) do
+					b=empty_table(b)
+					last_index = 0
+					for add=1,20 do
+						name = job == "sleep" and gname.."_"..job.."_"..add or gname.."_"..job.."_"..add.."_walk"
+						ptr = patrol(name)
+						if (ptr) then
+							b[add] = name
+							last_index = add
+						end						
+					end
+					for add=1,last_index do 
+						if b[add] == nil then 
+							t[#t+1] = strformat("path %s does not exist!",job == "sleep" and gname.."_"..job.."_"..add or gname.."_"..job.."_"..add.."_walk")
+						end
+					end
+				end			
+			elseif (wrd == "checkall" or self.is_on_actor_level) then	
+				for index,job in ipairs(path_jobs) do
+					i = 1
+					while level.patrol_path_exists(job == "sleep" and gname.."_"..job.."_"..i or gname.."_"..job.."_"..i.."_walk") do
+						name = job == "sleep" and gname.."_"..job.."_"..i or gname.."_"..job.."_"..i.."_walk"
+						ptr = patrol(name)
+						if (ptr) then
+							checked = true
+							cnt = ptr:count()
+							for n=0,cnt-1 do
+							
+								if not (gg:valid_vertex_id(ptr:game_vertex_id(n))) then
+									t[#t+1] = strformat("path %s p%s:%s does not have valid game_vertex_id",name,n,ptr:name(n))
+									printf("path %s p%s:%s does not have valid game_vertex_id",name,n,ptr:name(n))
+								end
+								
+								if (actor_level ~= "nil") then 
+									if not (utils_obj.accessible(npc,ptr:level_vertex_id(n))) then
+										t[#t+1] = strformat("path %s p%s:%s does not have valid level_vertex_id",name,n,ptr:name(n))
+										printf("path %s p%s:%s does not have valid level_vertex_id",name,n,ptr:name(n))
+									end
+								else 
+									if (ptr:level_vertex_id(n) >= 4294967295) then 
+										t[#t+1] = strformat("path %s p%s:%s does not have valid level_vertex_id",name,n,ptr:name(n))
+										printf("path %s p%s:%s does not have valid level_vertex_id",name,n,ptr:name(n))
+									end
+								end
+								parse_waypoint(name,ptr:flags(n),ptr:name(n),owner,t)
+							end
+						end
+						-- Validate look waypoint also
+						name = gname.."_"..job.."_"..i.."_look"
+						if (level.patrol_path_exists(name)) then 
+							ptr = patrol(name)
+							if (ptr) then 
+								checked = true
+								cnt = ptr:count()
+								for n=0,cnt-1 do
+									parse_waypoint(name,ptr:flags(n),ptr:name(n),owner,t)
+								end
+							end
+						end
+						i = i + 1
+					end
+				end
+			end
+		end
+	end
+
+	if (checked) then
+		if (#t > 0) then
+			wrd = ""
+			local _strt, _end = string.find(txt,"%d+")
+			if (_strt and _end) then
+				wrd = string.sub(txt,_strt, _end)
+				wrd = string.lower(wrd)
+			end
+
+			local page = wrd ~= "" and tonumber(wrd) or 1
+
+			local sz = owner.console_size
+
+			if not (sz) or (sz == 0) then return "waypoint:= error" end
+
+			local page_count = math.ceil(#t/sz)
+
+			if (page > page_count) then
+				return "waypoint:= Invalid page"
+			end
+
+			table.sort(t)
+
+			owner:SendOutput("waypoint:= Bad Waypoints [%s of %s]",page,page_count)
+			owner:SendOutputList(t,(page*sz)-sz,sz-1)
+			return
+		end
+		return "waypoint: successfully checked all gulag job paths."
+	end 
+	return "waypoint: failed, no checking done."
+end
+
+
+
+-- SURGE
+function cmd.surge(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[start|stop]")
+	if not (wrd) then return end
+
+	local sm = surge_manager.SurgeManager
+	if not (sm) then return "No surge manager!" end
+
+	if (wrd == "start") then
+		sm:start(true)
+		return "surge:= started"
+	elseif (wrd == "stop") then
+		sm:end_surge(true)
+		return "surge:= ended"
+	else
+		return "surge:= wrong argument passed."
+	end
+end
+
+-- PsiStorm
+function cmd.psi_storm(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[start|stop]")
+	if not (wrd) then return end
+
+	local sm = psi_storm_manager and psi_storm_manager.PsiStormManager
+	if not (sm) then return "No psi_storm manager!" end
+
+	if (wrd == "start") then
+		sm:start(true)
+		return "psi_storm:= started"
+	elseif (wrd == "stop") then
+		sm:finish(true)
+		return "psi_storm:= ended"
+	else
+		return "psi_storm:= wrong argument passed."
+	end
+end
+
+
+-- Fallout
+function cmd.fallout(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[start|stop]")
+	if not (wrd) then return end
+
+	local sm = fallout_manager and fallout_manager.get_fallout_manager()
+	if not (sm) then return "No fallout manager!" end
+
+	if (wrd == "start") then
+		sm:start(true)
+		return "fallout:= started"
+	elseif (wrd == "stop") then
+		sm:end_surge(true)
+		return "fallout:= ended"
+	else
+		return "fallout:= wrong argument passed."
+	end
+end
+
+
+-- Find
+function cmd.find(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"<name>")
+	if not (wrd) then return end
+
+	if (p[1]) then
+		owner:FindNearest(p[1])
+	else
+		owner:FindNearest(wrd)
+	end
+end
+
+-- Execute
+function cmd.execute(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"<string>")
+	if not (wrd) then return end
+
+	local f,err = assert(loadstring(wrd))
+	if (f) then
+		f()
+	else
+		return err
+	end
+end
+
+-- Alife
+
+function cmd.alife(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"{switch}")
+	if not (wrd) then return end
+
+	if (string.find(wrd,"switch")) then
+		--[[
+		if (string.find(txt,"set:")) then
+			local d
+			for s in string.gmatch(txt,"set:(%d+)") do
+				d = tonumber(s)
+			end
+			if not (d) then
+				return "alife := Invalid value for switch distance set:%s",d
+			end
+			local old = alife():switch_distance()
+			alife():switch_distance(d)
+			return "alife := switch distance changed from %s to %s",old,d
+		elseif (string.find(txt,"get")) then
+			local sd = alife():switch_distance()
+			return "alife := switch distance is %s",sd
+		else
+			return "alife switch [get|set:<value>]"
+		end
+		--]]
+		local sd = alife():switch_distance()
+		return "alife:= switch distance is %s",sd
+	end
+end
+
+-- Clear
+function cmd.clear(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"(Clears console)")
+	if (string.find(txt,"help")) then
+		return
+	end
+
+	for i=1,owner.console_size do
+		owner.txt_console[i]:SetText("")
+	end
+end
+
+-- Squad
+function cmd.squad(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"{assign}")
+	if not (wrd) then return end
+
+	if (string.find(wrd,"teleport")) then 
+		local id,squad,a_id,target
+		if (string.find(txt,"id:")) then
+			for s in string.gmatch(txt,"id:(%d+)") do
+				id = tonumber(s)
+			end
+
+			squad = alife_object(id)
+			if not (squad) then
+				return "squad:= improper id used. id:%s",id
+			end
+		end
+		
+		if (string.find(txt,"target:")) then
+			for s in string.gmatch(txt,"target:(%d+)") do
+				a_id = tonumber(s)
+			end
+
+			target = alife_object(a_id)
+			if not (target) then
+				return "squad:= target by id %s does not exist.",a_id
+			end
+		end
+
+		if (squad and target) then
+			TeleportSquad(squad,target.position,target.m_level_vertex_id,target.m_game_vertex_id)
+			return "squad := %s teleported to %s.",squad:name(),target:name()
+		end
+	elseif (string.find(wrd,"assign")) then
+		local id,squad,a_id,target
+		if (string.find(txt,"id:")) then
+			for s in string.gmatch(txt,"id:(%d+)") do
+				id = tonumber(s)
+			end
+
+			squad = alife_object(id)
+			if not (squad) then
+				return "squad:= improper id used. id:%s",id
+			end
+		end
+
+		if (string.find(txt,"target:")) then
+			for s in string.gmatch(txt,"target:(%d+)") do
+				a_id = tonumber(s)
+			end
+
+			target = alife_object(a_id)
+			if not (target) then
+				return "squad:= assign target does not exist. assign:%s",a_id
+			end
+		end
+
+		if (squad and target) then
+			utils_obj.assign_squad_to_smart(squad.id,target.id)
+			return "squad := %s assigned to %s.",squad:name(),target:name()
+		end
+	end
+
+	return "squad:= squad assign id:<id> target:<id>"
+end
+
+-- Console
+function cmd.console(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"{relay}")
+	if not (wrd) then return end
+
+	if (string.find(wrd,"relay")) then
+		if (owner.console_relay) then
+			owner.console_relay = false
+			return "Toggled off relay to game console"
+		else
+			owner.console_relay = true
+		end
+		return "Toggled on relay to game console"
+	end
+end
+
+-- Teleport
+function cmd.teleport(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"who:<id> [ to:<id> | pos:<x,y,z> | $code$ | cam ]")
+	if not (wrd) then return end
+
+	local who,to_pos,to_obj
+
+	if (string.find(txt,"who:")) then
+		local who_id
+		for s in string.gmatch(txt,"who:(%w+)") do
+			who_id = tonumber(s)
+		end
+
+		who = who_id and alife_object(who_id)
+		if not (who) then
+			return "teleport := Wrong argument given or object doesn't exist. who:<%s>",who_id
+		end
+	end
+
+	if (string.find(txt,"to:")) then
+		local id
+		for s in string.gmatch(txt,"to:(%w+)") do
+			id = tonumber(s)
+		end
+
+		to_obj = id and alife_object(id)
+		if not (to_obj) then
+			return "teleport := Wrong arugment given or object doesn't exist. id:%s",id
+		end
+
+		to_pos = to_obj.position
+	else
+		local pos = p[1]
+
+		if (string.find(txt,"cam")) then
+			pos = xrs_debug_tools.LastCameraPos
+		end
+
+		if (string.find(txt,"pos:")) then
+			for s in string.gmatch(txt,"pos:([-]?%d+[.]?%d*,[-]?%d+[.]?%d*,[-]?%d+[.]?%d*)") do
+				local t = str_explode(s,",")
+				pos = vector():set(tonumber(t[1]),tonumber(t[2]),tonumber(t[3]))
+			end
+		end
+
+		if not (pos) then
+			return "teleport := wrong format for position. pos:%s must be pos:x,y,z"
+		end
+
+		to_pos = pos
+	end
+	
+	
+	if (who and to_pos) then
+		local success = false
+		if (who.id == AC_ID) then 
+			db.actor:set_actor_position(to_pos)
+			success = true
+		elseif (to_obj) then
+			local squad
+			if (IsStalker(who) or IsMonster(who)) then 
+				local object = level.object_by_id(who.id)
+				if (object) then
+					object:set_npc_position(to_pos)
+					success = true
+				else 
+					squad = get_object_squad(who)
+				end
+			elseif (who:clsid() == clsid.online_offline_group_s) then 
+				squad = who
+			end 
+			
+			if (squad and alife().teleport_object) then 
+				TeleportSquad(squad,db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id())
+				success = true
+			end
+		end
+		
+		if (success) then 
+			local pos = string.format("%0.3f, %0.3f, %0.3f",to_pos.x,to_pos.y,to_pos.z)
+			return "teleport:= %s teleported to pos:%s",who:name(),pos
+		end
+	end
+	
+	return "teleport:= failed to teleport %s",who and who:name()
+end
+
+-- Wound
+function cmd.wound(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"id:<number>")
+	if not (wrd) then return end
+
+	local id
+	local vo
+	if (string.find(txt,"id:")) then
+		for s in string.gmatch(txt,"id:(%d+)") do
+			id = tonumber(s)
+		end
+
+		vo = level.object_by_id(id)
+		if not (vo) then
+			return "wound:= Wrong arugument given or object doesn't exist. id:<%s>",id
+		end
+	end
+
+	if (vo) then
+		vo:set_health_ex(0.05)
+		--[[
+		local h = hit()
+		h.power = vo.health+0.05
+		h.direction = vector()
+		h.bone = "bip01_spine"
+		h.draftsman = vo
+		h.impulse = 6000
+		h.type = hit.wound
+		vo:hit(h)
+		--]]
+		return "wound:= %s has been wounded.",vo:name()
+	end
+end
+
+local var_list = { ["actor"] = db.actor}
+function get_var_list()
+	return var_list
+end
+
+-- Var
+function cmd.var(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"<name> $code$")
+	if not (wrd) then return end
+
+	if (wrd == "clear") then
+		for k,v in pairs(var_list) do
+			var_list[k] = nil
+		end
+		return "var:= All vars cleared"
+	end
+
+	if (wrd == "list") then
+		wrd = ""
+		local _strt, _end = string.find(txt,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+		end
+
+		local page = wrd ~= "" and tonumber(wrd) or 1
+		local sz = owner.console_size-1
+
+		if not (sz) or (sz == 0) then return "var:= error" end
+
+		local list_sz = 0
+		for k,v in pairs(var_list) do
+			list_sz = list_sz + 1
+		end
+
+		local page_count = math.ceil(list_sz/sz)
+
+		if (page > page_count) then
+			return "var:= Invaild page"
+		end
+
+		owner:SendOutput("var:= Variable List [%s of %s]",page,page_count)
+
+		local a = {}
+		for n in pairs(var_list) do table.insert(a, n) end
+		table.sort(a)
+
+		local ind, out, k
+		for i=1,sz do
+			ind = (page*sz - sz) + i
+			k = ind > 0 and a[ind]
+			out = " "
+
+			if (k) then
+				local v = var_list[k]
+				if ( type(v) == "userdata" ) then
+					out = string.format("%s = %s",k,"userdata")
+					if (v.name and type(v.name) == "function" ) then
+						out = string.format("%s = userdata [%s]",k,v:name())
+					elseif (v.position) then
+						local pos
+						if (type(v.position) == "function") then
+							pos = v:position()
+							out = string.format("%s = userdata [%s,%s,%s]",k,pos.x,pos.y,pos.z)
+						else
+							pos = v.position
+							out = string.format("%s = userdata [%s,%s,%s]",k,pos.x,pos.y,pos.z)
+						end
+					elseif (v.x and v.y and v.z) then
+						out = string.format("%s = userdata [%s,%s,%s]",k,v.x,v.y,v.z)
+					end
+				elseif ( type(v) == "number" or type(v) == "string" or type(v) == "table" or type(v) == "function") then
+					out = string.format("%s = %s",k,v)
+				end
+			end
+			owner:SendOutput(out)
+		end
+		return
+	end
+
+	if (wrd) then
+		var_list[wrd] = p[1]
+		return "var:= variable %s set.",wrd
+	end
+end
+
+-- Vector
+function cmd.vector(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"{add|sub}")
+	if not (wrd) then return end
+
+	if (wrd == "add") then
+		local inc = {}
+
+		inc.v = match_or_var(txt,"v:",".%S+",p[1])
+
+		if not (inc.v) then
+			return "vector:= Wrong arugument given to inc -> v:"
+		end
+
+		inc.x = tonumber( match_or_var(txt,"x:",".%S+",p[2]) ) or 0
+		inc.y = tonumber( match_or_var(txt,"y:",".%S+",p[3]) ) or 0
+		inc.z = tonumber( match_or_var(txt,"z:",".%S+",p[4]) ) or 0
+
+		inc.v = inc.v:add( vector():set(inc.x,inc.y,inc.z) )
+		return "vector:= vector updated to vector"
+	end
+
+	if (wrd == "sub") then
+		local v = {}
+
+		v[1] = match_or_var(txt,"1:",".%S+",p[1])
+		v[2] = match_or_var(txt,"2:",".%S+",p[2])
+
+		if (v[1] and v[2]) then
+			local p1,p2
+			if ( type(v[1]) == "string" ) then
+				p1 = level.object_by_id( tonumber(p1) ):position()
+			else
+				p1 = v[1]
+			end
+
+			if ( type(v[2]) == "string" ) then
+				p2 = level.object_by_id( tonumber(p2) ):position()
+			else
+				p2 = v[2]
+			end
+
+			local pr = p1 and p2 and p1:sub(p2)
+			if (pr) then
+				return "vector:= %s,%s,%s",pr.x,pr.y,pr.z
+			end
+		end
+		return "vector:= Wrong arugument given or object(s) do not exist."
+	end
+end
+
+-- Offset
+function cmd.offset(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"{get}")
+	if not (wrd) then return end
+
+	if (wrd == "get") then
+
+		if (string.find(txt,"help")) then
+			return "offset get [ 1:<id> 2:<id> | 1:<$var$> 2:<$var$> ]"
+		end
+
+		local v = {}
+		v[1] = match_or_var(txt,"1:",".%S+",p[1])
+		v[2] = match_or_var(txt,"2:",".%S+",p[2])
+
+		if (v[1] and v[2]) then
+			local p1,p2
+			if ( type(v[1]) == "string" ) then
+				p1 = level.object_by_id( tonumber(p1) )
+			else
+				p1 = v[1]
+			end
+
+			if ( type(v[2]) == "string" ) then
+				p2 = level.object_by_id( tonumber(p2) )
+			else
+				p2 = v[2]
+			end
+
+			local pr = get_position_offset(v[1],v[2])
+			if (pr) then
+				return "offset:= position(%s,%s,%s)",pr.x,pr.y,pr.z
+			end
+		else
+			return "offset:= type offset get help"
+		end
+	end
+
+end
+
+function cmd.object(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"{count}")
+	if not (wrd) then return end
+	
+	if (wrd == "count") then
+		local count = 0
+		local a = alife()
+		for i=1, a:max_id() - 1 do 
+			local se_obj = a:object(i)
+			if (se_obj) then 
+				count = count + 1
+			end
+		end
+		return "object:= there are %s ids in use.",count
+	end
+	return "object:= try object count <number>"
+end 
+
+function get_position_offset(npc,o)
+	local sec = o and type(o.section) == "function" and o:section()
+	if not (sec) then
+		return
+	end
+
+	local attach_bone_name = ini_sys:r_string_ex(sec,"attach_bone_name")
+	if not (attach_bone_name) then
+		return
+	end
+	local pos1 = utils_obj.safe_bone_pos(npc,attach_bone_name)--npc:bone_position(attach_bone_name)
+	local pos2 = o:center()
+	return pos1:sub(pos2)
+end
+
+function match_or_var(txt,token,pat,var)
+	if (var and var_list[var]) then
+		return var_list[var]
+	end
+
+	if (string.find(txt,token)) then
+		local v
+		for s in string.gmatch(txt,token.."("..pat..")") do
+			v = s
+		end
+		return v
+	end
+end
+
+-- Hud
+function cmd.hud(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[on|off]")
+	if not (wrd) then return end
+
+	if (wrd == "on") then
+		save_var(db.actor,"disable_debug_draw",false)
+		return "hud:= debug hud enabled"
+	end
+
+	if (wrd == "off") then
+		save_var(db.actor,"disable_debug_draw",true)
+		return "hud:= debug hud disabled"
+	end
+
+	return "hud:= type hud help for list of sub commands"
+end
+
+-- God
+function cmd.god(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[on|off]")
+	if not (wrd) then return end
+
+	if (wrd == "on") then
+		xrs_debug_tools.debug_god = true
+		--exec_console_cmd("g_god on")
+		return "god:= invincibility enabled"
+	end
+
+	if (wrd == "off") then
+		xrs_debug_tools.debug_god = nil
+		--exec_console_cmd("g_god off")
+		return "god:= invincibility disabled"
+	end
+
+	return "god:= type god help for list of sub commands"
+end
+
+-- Invisible
+function cmd.invisible(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[on|off]")
+	if not (wrd) then return end
+
+	if (wrd == "on") then
+		xrs_debug_tools.debug_invis = true
+		return "invisible:= invisibility enabled"
+	end
+
+	if (wrd == "off") then
+		xrs_debug_tools.debug_invis = nil
+		return "invisible:= invisibility disabled"
+	end
+
+	return "invisible:= type invisible help for list of sub commands"
+end
+
+function cmd.crow(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[on|off]")
+	if not (wrd) then return end
+
+	if (wrd == "on") then
+		local se_crow = utils_obj.nearest_object("m_crow")
+		if (se_crow) then
+			xrs_debug_tools.crow_fun = se_crow.id
+			return "crow:= enabled"
+		end
+		return "crow:= no crows found"
+	end
+
+	if (wrd == "off") then
+		xrs_debug_tools.crow_fun = nil
+		return "crow:= disabled"
+	end
+
+	return "crow:= type crow help for list of sub commands"
+end
+
+local heli_id
+function cmd.heli(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[spawn|move]")
+	if not (wrd) then return end
+
+	if (wrd == "spawn") then
+		local se_heli = utils_stpk.spawn_heli()
+		if (se_heli) then
+			heli_id = se_heli.id
+			return "heli:= Spawned at actor position"
+		end
+		return "heli:= Spawning failed"
+	end
+
+	if (wrd == "move") then
+		local str
+		if (string.find(txt,"pos:")) then
+			for s in string.gmatch(txt,"pos:(.%S+)") do
+				str = s
+			end
+		end
+
+		if (str and str ~= "") then
+			str = str_explode(str,",")
+			str.x = tonumber(str[1])
+			str.y = tonumber(str[2])
+			str.z = tonumber(str[3])
+		end
+
+		local obj = level.object_by_id(heli_id)
+		local heli = obj and obj:get_helicopter()
+		if (heli) then
+			local pos = str or db.actor:position()
+			heli:SetDestPosition(vector():set(pos.x,pos.y,pos.z))
+			return "heli:= destination set to actor position"
+		end
+		return "heli:= move failed"
+	end
+
+	if (wrd == "attack") then
+
+
+
+
+	end
+	return "heli:= type heli help for list of sub commands"
+end
+
+-- weather
+local weather_list
+function cmd.weather(me,txt,owner,p)
+	local wrd,rest = check_and_set_help(me,txt,owner,"[list <page> | <weather_name> ]")
+	if not (wrd) then return end
+
+	if (wrd == "list") then
+		if not (weather_list) then
+			weather_list = {}
+			local f = getFS()
+			local flist = f:file_list_open("$game_weathers$",1)
+			local f_cnt = flist:Size()
+
+			for	it=0, f_cnt-1 do
+				local file = flist:GetAt(it)
+				table.insert(weather_list,file)
+			end
+			
+			flist:Free()
+		end
+
+		wrd = ""
+		local _strt, _end = string.find(txt,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+		end
+
+		local page = wrd ~= "" and tonumber(wrd) or 1
+
+		local sz = owner.console_size
+
+		if not (sz) or (sz == 0) then return "weather:= error" end
+
+		local list_sz = 0
+		for k,v in pairs(weather_list) do
+			list_sz = list_sz + 1
+		end
+
+		local page_count = math.ceil(list_sz/sz)
+
+		if (page > page_count) then
+			return "weather:= Invaild page"
+		end
+
+		table.sort(weather_list)
+
+		owner:SendOutput("weather:= Weathers List [%s of %s]",page,page_count)
+		owner:SendOutputList(weather_list,(page*sz)-sz,sz-1)
+
+		return
+	elseif (wrd == "set") then
+		level.set_weather(rest,true)
+		return "weather:= weather set to " .. rest
+		
+	elseif (wrd == "reload") then
+		weather.reload()
+		return "weather:= reloaded weather configs"
+	end
+	return "weather: type weather help for a list of commands. Exclude .ltx when setting weather"
+end
+
+-- time
+function cmd.time(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[day,hour,minute]")
+	if not (wrd) then return end
+
+	local t = str_explode(txt,",")
+	if (t) then
+		--set_current_time(tonumber(t[1]),tonumber(t[2]),tonumber(t[3]))
+		level.change_game_time( tonumber(t[1]),tonumber(t[2]),tonumber(t[3]) )
+		level_weathers.get_weather_manager():forced_weather_change()
+	end
+end
+
+-- money
+function cmd.money(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"<amount>")
+	if not (wrd) then return end
+	local amt = tonumber(wrd) or 1000
+	db.actor:give_money(amt)
+	return "money:= gave actor "..amt.." RU. You dirty cheater, I'm going to find you and cut your legs off!"
+end
+
+-- luabind (not working)
+function cmd.luabind(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[list | info]")
+	if not (wrd) then return end
+	
+	if (wrd == "list") then
+		if not (_G.class_names) then 
+			return "luabind:= error no class_names()"
+		end 
+		
+		local class_names = _G.class_names()
+		table.sort(class_names)
+		
+		wrd = ""
+		local _strt, _end = string.find(txt,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+		end
+
+		local page = wrd ~= "" and tonumber(wrd) or 1
+
+		local sz = owner.console_size
+
+		if not (sz) or (sz == 0) then return "luabind:= error" end
+
+		local list_sz = 0
+		for k,v in pairs(class_names) do
+			list_sz = list_sz + 1
+		end
+
+		local page_count = math.ceil(list_sz/sz)
+
+		if (page > page_count) then
+			return "luabind:= Invaild page"
+		end
+
+		owner:SendOutput("luabind:= class_names() [%s of %s]",page,page_count)
+		owner:SendOutputList(class_names,(page*sz)-sz,sz-1)
+		return
+	elseif (wrd == "info") then 
+		if not (_G.class_info) then 
+			return "luabind:= error no class_info()"
+		end 
+		
+		if (string.find(txt,"help")) then
+			return "luabind select userdata:<$var$>"
+		end
+
+		local v = {}
+		v[1] = match_or_var(txt,"userdata:",".%S+",p[1])
+		if (v[1]) then
+			local c = class_info(v[1])
+			if not (c) then 
+				return "luabind:= error; no class info for userdata (not luabind class?)"
+			end
+			wrd = ""
+			local _strt, _end = string.find(txt,"%d+")
+			if (_strt and _end) then
+				wrd = string.sub(txt,_strt, _end)
+				wrd = string.lower(wrd)
+			end
+
+			local page = wrd ~= "" and tonumber(wrd) or 1
+
+			local sz = owner.console_size
+
+			if not (sz) or (sz == 0) then return "luabind:= error" end
+
+			local list_sz = 0
+			for k,v in pairs(class_names) do
+				list_sz = list_sz + 1
+			end
+
+			local page_count = math.ceil(list_sz/sz)
+
+			if (page > page_count) then
+				return "luabind:= invaild page"
+			end
+			owner:SendOutput("luabind:= class=%s",c.name)
+			owner:SendOutputList(c.methods,(page*sz)-sz,sz-1)
+			return
+		else
+			return "luabind:= no class/userdata specified. (ex. luabind select userdata:$npc$)"
+		end 
+	end
+	return "luabind:= type luabind help for a list of commands"
+end 
+
+-- level
+function cmd.level(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"<name> | [list]")
+	if not (wrd) then return end
+
+	if (wrd == "list") then
+
+		wrd = ""
+		local _strt, _end = string.find(txt,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+		end
+		local page = wrd ~= "" and tonumber(wrd) or 1
+
+		local levels = utils_data.collect_section(game_ini(),"level_maps_single")
+
+		local sz = owner.console_size
+		local list_sz = 0
+		for k,v in pairs(levels) do
+			list_sz = list_sz + 1
+		end
+
+		local page_count = math.ceil(list_sz/sz)
+
+		if (page > page_count) then
+			return "level:= Invaild page"
+		end
+
+		owner:SendOutput("level:= list of available levels by name [%s of %s]",page,page_count)
+		owner:SendOutputList(levels,(page*sz)-sz,sz-1)
+
+		return
+	end
+	
+	local level_name = level.name()
+	if (JumpToLevel(wrd)) then 
+		return "level:= level changer successfully created at your position from"..level_name.." to "..wrd.." (Spawning at first found gvid)"
+	end
+
+	--[[ depreciated
+	local levels = { 	["zaton_jupiter"] = {467.306884765625,55.5276184082031,12.9044094085693},
+						["zaton_pripyat"] = {467.206878662109,55.5276184082031,3.20440793037415},
+						["jupiter_zaton"] = {-7.12386798858643,14.484338760376,154.085464477539},
+						["jupiter_jupiter_underground"] = {460.005798339844,46.0688896179199,-295.460784912109},
+						["jupiter_pripyat"] = {-16.3238716125488,14.484338760376,142.785461425781},
+						["pripyat_zaton"] = {150.91047668457,22.3456954956055,-287.9228515625},
+						["pripyat_jupiter"] = {139.08171081543,22.3457069396973,-287.870025634766},
+						["pripyat_labx8"] = {-78.0360107421875,-7.04113388061523,100.684921264648},
+						["labx8_pripyat"] = {-78.062873840332,23.8045539855957,100.718994140625}
+	}
+	local level_name = level.name()
+	if (levels[level_name.."_"..wrd]) then
+		db.actor:set_actor_position(vector():set(levels[level_name.."_"..wrd][1],levels[level_name.."_"..wrd][2],levels[level_name.."_"..wrd][3]))
+		return "level:= teleporting player from "..level_name.." to "..wrd
+	end
+
+	local sim = alife()
+	local gg = game_graph()
+	local level,data
+	local default_vertex
+	local function create_lc(gvid,vertex)
+		local se_obj = sim:create("level_changer",db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id())
+		if (se_obj) then
+			bind_stalker_ext.REMOVE_ME_LC = se_obj.id
+			local lvid = vertex:level_vertex_id()
+			local pos = vertex:level_point()
+
+			data = utils_stpk.get_level_changer_data(se_obj)
+			if (data) then
+				data.dest_game_vertex_id = gvid
+				data.dest_level_vertex_id = lvid
+				data.dest_position = pos
+				data.dest_direction = VEC_ZERO
+				data.dest_level_name = level
+				data.silent_mode = 1
+				
+				data.shapes[1] = {}
+				data.shapes[1].shtype = 0
+				data.shapes[1].offset = VEC_ZERO
+				data.shapes[1].radius = 5
+				
+				data.hint = "level_changer_invitation"
+
+				utils_stpk.set_level_changer_data(data,se_obj)
+			end
+		end
+	end 
+	
+	for gvid=0, 4836 do
+		if gg:valid_vertex_id(gvid) then
+			vertex = gg:vertex(gvid)
+			level = sim:level_name(vertex:level_id())
+			if (level == wrd) then
+				if (not vertex.name or string.find(vertex:name(),"actor_spawn")) then
+					create_lc(gvid,vertex)
+					return "level:= level changer successfully created at your position from"..level_name.." to "..wrd.." (Actor spawn point found!)"
+				elseif not (default_vertex) then
+					default_vertex = vertex
+				end
+			end
+		else
+			break
+		end
+		gvid = gvid + 1
+	end
+	
+	if (default_vertex) then 
+		create_lc(gvid,vertex)
+		return "level:= level changer successfully created at your position from"..level_name.." to "..wrd.." (Spawning at first found gvid)"
+	end
+	--]]
+
+	return "level:= there is no level changer between "..level_name.." and "..wrd
+end
+
+function cmd.warpall(me,txt,owner,p)
+	local levels = utils_data.collect_section(game_ini(),"level_maps_single")
+	if (levels[1]) then
+		save_var(db.actor,"debug_warpall",1)
+		_G.JumpToLevel(levels[1])
+	end
+	return "warpall := warping to every single level then flushing log"
+end
+
+-- dev_debug
+function cmd.dev_debug(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[on | off]")
+	if not (wrd) then return end
+	if (wrd == "on") then
+		_G.DEV_DEBUG = true
+	elseif (wrd == "off") then
+		_G.DEV_DEBUG = false
+	end
+	return "dev_debug:= type dev_debug help for list of sub commands."
+end
+
+-- game_graph
+function cmd.game_graph(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[show | near | checkall]")
+	if not (wrd) then return end
+
+	if (wrd == "show") then
+		local gg = game_graph()
+		local vertex, level_name, lvid, pos, se_obj
+		local sim = alife()
+		local gvid = 0
+		local lgvid = 0
+		local level = level
+		while gg:valid_vertex_id(gvid) do
+			vertex = gg:vertex(gvid)
+			level_name = alife():level_name(vertex:level_id())
+			lvid = vertex:level_vertex_id()
+			pos = vertex:level_point()
+
+			se_obj = sim:create("medkit", pos, lvid, gvid)
+			level.map_add_object_spot_ser(se_obj.id, "treasure", level_name.." Gvid:"..gvid)
+
+			if (level_name == level.name()) then
+				lgvid = lgvid + 1
+			end
+			gvid = gvid + 1
+		end
+		return "game_graph:= spots created. There are "..lgvid.." in "..level.name().." and "..gvid.." total."
+	elseif (wrd == "near") then
+		local gg = game_graph()
+		local vertex, level_name, lvid, pos
+		local near_lvid, near_dist, near_gvid, dist
+		local gvid = 0
+		local lgvid = 0
+		local level = level
+		while gg:valid_vertex_id(gvid) do
+			vertex = gg:vertex(gvid)
+			level_name = alife():level_name(vertex:level_id())
+			if (level_name == level.name()) then
+				pos = vertex:level_point()
+
+				dist = db.actor:position():distance_to_sqr(pos)
+
+				if not (near_dist) then
+					near_gvid = gvid
+					near_dist = dist
+				end
+
+				if (dist < near_dist) then
+					near_gvid = gvid
+					near_dist = dist
+				end
+				lgvid = lgvid + 1
+			end
+			gvid = gvid + 1
+		end
+		return "game_graph:= nearest gvid = " .. near_gvid .. " [dist = " .. near_dist .. "] There are "..lgvid.." in "..level.name().." and "..gvid.." total."
+	elseif (wrd == "checkall") then
+		wrd = ""
+		local _strt, _end = string.find(txt,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+		end
+		local page = wrd ~= "" and tonumber(wrd) or 1
+		
+		local issues = {}
+		local gg = game_graph()
+		local vertex
+		local sim = alife()
+		for i=1,sim:max_id() - 1 do
+			local se_obj = sim:object(i)
+			if (se_obj) and not (gg:valid_vertex_id(se_obj.m_game_vertex_id)) then
+				issues[#issues+1] = se_obj:name()
+			end
+		end
+		
+		if (#issues == 0) then 
+			return "game_graph:= no issues found"
+		end
+		
+		local sz = owner.console_size
+		local page_count = math.ceil(#issues/sz)
+
+		if (page > page_count) then
+			return "game_graph:= Invalid page"
+		end
+
+		owner:SendOutput("game_graph:= list of objects with invalid game_vertex_ids [%s of %s]",page,page_count)
+		owner:SendOutputList(issues,(page*sz)-sz,sz-1)
+		return
+	end
+	return "game_graph:= type game_graph help for list of commands"
+end
+
+-- item
+function cmd.item(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[list <page> ]")
+	if not (wrd) then return end
+
+	if (wrd == "list") then
+		if not (se_item.registered_items) then
+			return "item:= error no registered_items list"
+		end
+
+		wrd = ""
+		local _strt, _end = string.find(txt,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+		end
+
+		local page = wrd ~= "" and tonumber(wrd) or 1
+		local sz = owner.console_size - 1
+
+		if not (sz) or (sz == 0) then return "item:= error" end
+
+		local list_sz = 0
+		for k,v in pairs(se_item.registered_items) do
+			list_sz = list_sz + 1
+		end
+
+		local page_count = math.ceil(list_sz/sz)
+
+		if (page > page_count) then
+			return "item:= Invaild page"
+		end
+
+		owner:SendOutput("item:= Registered Item List [%s of %s]",page,page_count)
+
+		local a = {}
+		for n in pairs(se_item.registered_items) do table.insert(a, n) end
+		table.sort(a)
+
+		local ind, out, k
+		for i=1,sz do
+			ind = (page*sz - sz) + i
+			k = ind > 0 and a[ind]
+			out = " "
+			if (k) then
+				out = string.format("%s [count: %s]",k,se_item.registered_items[k])
+			end
+			owner:SendOutput(out)
+		end
+		return
+	end
+	return "item:= type item help for a list of subcommands"
+end
+
+-- info
+function cmd.info(me,txt,owner,p)
+	local wrd,rest = check_and_set_help(me,txt,owner,"[list <page> | give | take | pas_b400 ]")
+	if not (wrd) then return end
+
+	if (wrd == "give") then
+		give_info(rest)
+		return "info:= info given"
+	elseif (wrd == "take") then
+		disable_info(rest)
+		return "info:= disabled"
+	elseif (wrd == "clear") then 
+		local function itr(id,info)
+			disable_info(info)
+		end
+		alife():iterate_info(0,itr)
+		return "info:= all info portions removed from actor"
+	elseif (wrd == "pas_b400") then
+		give_info("pas_b400_task_given")
+		give_info("pas_b400_underpass_start")
+		give_info("pas_b400_sr_elevator_1_passed")
+		give_info("pas_b400_canalisation_done")
+		give_info("pas_b400_done")
+		give_info("jup_b218_monolith_hired")
+		give_info("pas_b400_elevator_done")
+		give_info("pas_b400_sr_elevator_5")
+		give_info("pas_b400_track_done")
+		give_info("pas_b400_sr_track_4")
+		give_info("pas_b400_downstairs_done")
+		give_info("pas_b400_sr_downstairs_2")
+		give_info("pas_b400_tunnel_done")
+		give_info("pas_b400_snork_tunnel_4_attack")
+		give_info("pas_b400_snork_tunnel_2_jumped")
+		give_info("pas_b400_snork_tunnel_3_jumped")
+		give_info("pas_b400_sr_tunnel_5_in")
+		give_info("pas_b400_hall_done")
+		give_info("pas_b400_hall_monolith_squad_dead")
+		give_info("pas_b400_hall_monolith_snipers_dead")
+		give_info("pas_b400_way_done")
+		give_info("pas_b400_sr_way_2")
+		give_info("pas_b400_canalisation_snork_rl_spawned")
+		give_info("pas_b400_disabled_ui")
+		give_info("jup_a10_vano_agree_go_und")
+		give_info("leader_achievement_gained")
+		give_info("jup_b218_soldier_hired")
+
+		if (xr_conditions.squad_exist(db.actor,db.actor,{"jup_b15_zulus_squad"})) then
+			xr_effects.create_squad_member(db.actor,db.actor,{"jup_b218_vano_in_suit","jup_b15_zulus_squad","jup_a6_jup_b218_squad_member_arrive_walk"})
+			xr_effects.create_squad_member(db.actor,db.actor,{"pri_a15_sokolov_sci","jup_b15_zulus_squad","jup_a6_jup_b218_squad_member_arrive_walk"})
+			xr_effects.create_squad_member(db.actor,db.actor,{"jup_b4_monolith_squad_leader_freedom_mon_skin","jup_b15_zulus_squad","jup_a6_jup_b218_squad_member_arrive_walk"})
+		end
+		return "info:= jupiter underpass info given to actor"
+	end
+
+
+	if (wrd == "list") then
+		if not (xrs_debug_tools.actor_info) then
+			return "info:= actor_info empty"
+		end
+
+		wrd = ""
+		local _strt, _end = string.find(rest,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+		end
+
+		local page = wrd ~= "" and tonumber(wrd) or 1
+
+		local sz = owner.console_size-1
+
+		if not (sz) or (sz == 0) then return "info:= error" end
+
+		local list_sz = 0
+		for k,v in pairs(xrs_debug_tools.actor_info) do
+			list_sz = list_sz + 1
+		end
+
+		local page_count = math.ceil(list_sz/sz)
+		if (page > page_count) then
+			return list_sz > 0 and "info: nothing in list" or "info:= Invaild page"
+		end
+
+		owner:SendOutput("info:= Infoportions [%s of %s]",page,page_count)
+
+		local a = {}
+		for n in pairs(xrs_debug_tools.actor_info) do table.insert(a, n) end
+		table.sort(a)
+
+		local ind, out, k
+		for i=1,sz do
+			ind = (page*sz - sz) + i
+			k = ind > 0 and a[ind]
+			owner:SendOutput(k or " ")
+		end
+		return
+	end
+	return "info:= type info help for a list of subcommands"
+end
+
+-- cmd.inventory_owner
+function cmd.inventory_owner(me,txt,owner,p)
+	local wrd,rest = check_and_set_help(me,txt,owner,"[removeall]")
+	if (wrd == "removeall") then 
+		wrd = first_word(rest)
+		if (wrd == "help") then 
+			return "inventory_owner:= try 'inventory_owner removeall id:<number>'"
+		end 
+		
+		local id
+		for s in string.gmatch(txt,"id:(%d+)") do
+			id = tonumber(s)
+		end
+		if not (id) then
+			return "inventory_owner:= type 'inventory_owner removeall help'"
+		end
+		
+		local sim = alife()
+		local count = 0
+		for i=1,sim:max_id() - 1 do 
+			local se_obj = sim:object(i)
+			if (se_obj and se_obj.parent_id == id) then 
+				sim:release(se_obj,true)
+				count = count + 1
+			end
+		end
+		if (count > 0) then 
+			return "inventory_owner:= removed %s children from inventory_owner",count
+		end
+		return "inventory_owner:= failed to remove any children from inventory_owner"
+	end
+	return "inventory_owner:= type 'inventory_owner help' for a list of subcommands"
+end 
+
+-- cmd.antifreeze
+function antifreeze_switch(id)
+	local sim = alife()
+	local se_obj = sim:object(id)
+	if not (se_obj) then 
+		return true 
+	end 
+	if (se_obj:can_switch_offline()) then
+		utils_obj.switch_offline(se_obj.id)
+	elseif (se_obj:can_switch_online()) then
+		utils_obj.switch_online(se_obj.id)
+	end
+	return true
+end 
+function cmd.antifreeze(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"[npc [<time>]] (ex.1: antifreeze 5 | ex.2: antifreeze npc 5)")
+	
+	local function tele_to_actor(id)
+		local sim = alife()
+		local se_obj = sim:object(id)
+		if not (se_obj) then 
+			return true 
+		end
+		local cls = se_obj:clsid()
+		if (cls == clsid.online_offline_group_s) then
+			TeleportSquad(se_obj,db.actor:position(),db.actor:level_vertex_id(),db.actor:game_vertex_id())
+		elseif (IsStalker(nil,cls) or IsMonster(nil,cls)) then 
+			if (alife().teleport_object) then 
+				alife():teleport_object(se_obj,db.actor:game_vertex_id(),db.actor:level_vertex_id(),db.actor:position())
+			end
+		end
+		return true
+	end  
+	
+	local function repeater(a)
+		CreateTimeEvent(a,"antifreeze",wrd,antifreeze_switch,a)
+		return false
+	end
+	
+	if (wrd == "npc") then 
+		local _strt, _end = string.find(txt,"%d+")
+		if (_strt and _end) then
+			wrd = string.sub(txt,_strt, _end)
+			wrd = string.lower(wrd)
+		end
+
+		wrd = wrd ~= "" and tonumber(wrd) or 5
+
+		se_obj = alife_create("sim_default_stalker_0", db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id())
+		if not (se_obj) then 
+			return "antifreeze:= failed to create stalker "
+		end
+		CreateTimeEvent(se_obj.id,"repeater",10,repeater,se_obj.id)
+	else 
+		wrd = tonumber(wrd) or 5 
+		
+		if not (smart_terrain.nearest_to_actor_smart.id) then 
+			return "antifreeze:= no nearest smart"
+		end 
+		
+		local smart = alife_object(smart_terrain.nearest_to_actor_smart.id)
+		if not (smart) then 
+			return "antifreeze:= smart by id " .. smart_terrain.nearest_to_actor_smart.id .. "does not exist."
+		end 
+		
+		local se_obj = SIMBOARD:create_squad(smart,"stalker_sim_squad_novice")
+		if not (se_obj) then 
+			return "antifreeze:= failed to create squad "
+		end 
+		
+		se_obj.scripted_target = "actor"
+		
+		CreateTimeEvent(se_obj.id,"teleport",1,tele_to_actor,se_obj.id)
+		CreateTimeEvent(se_obj.id,"repeater",1,repeater,se_obj.id)
+	end
+	
+	return "antifreeze:= created object and teleported to your position!"
+end 
+
+function cmd.pstor_test(me,txt,owner,p)
+	local wrd = check_and_set_help(me,txt,owner,"saves 2000 boolean to db.actor using pstor_store")
+	if not (db.actor) then 
+		return "pstor_test:= actor not present"
+	end 
+	
+	for _ = 1, 2000 do
+		local var = tostring( math.random() ):sub( 1, 10 )
+		local val = tostring( math.random() ):sub( 1, 10 )
+		printf("%s | %s",var,val)
+		save_var( db.actor, var, val )
+	end
+
+	return "pstor_test:= successfully saved 2000 values to db.actor pstor"
+end
+
+debug_visuals = nil
+function cmd.debug_visuals(me,txt,owner,p)
+	local wrd,rest = check_and_set_help(me,txt,owner,"[all|<visual_name>]")
+	if (wrd) and (wrd == "all" or wrd ~= "") then
+		local check_all = wrd == "all"
+		
+		debug_visuals = {}
+		
+		local gvid = db.actor:game_vertex_id()
+		local pos = db.actor:position()
+
+		local dist = 1
+		local f = getFS()
+		local flist = f:file_list_open_ex("$game_meshes$",bit_or(FS.FS_ListFiles),"*.ogf")
+		local f_cnt = flist:Size()
+		for	it=0, f_cnt-1 do
+			local file = flist:GetAt(it)
+			local visual_name = file:NameFull():sub(1,-5)
+
+			if (check_all or string.find(visual_name,wrd)) then
+				if (string.find(visual_name,"actors\\") == 1 and not string.find(visual_name,"trader") and not string.find(visual_name,"lesnik")) then
+					local newpos = vector():set(pos)
+					newpos:add(vector():set(device().cam_dir):mul(dist))
+					newpos = vector():set(newpos.x,pos.y,newpos.z)
+					local lvid = level.vertex_id(newpos)
+					local se_obj = alife_create("sim_default_stalker_0",newpos,lvid,gvid)
+					if (se_obj) then
+						alife_create_item("wpn_pkm", se_obj)
+						--printf("%s visual:= %s",se_obj:name(),visual_name)
+						debug_visuals[se_obj.id] = visual_name
+					end
+					dist = dist + 1
+				end
+			end
+		end
+		return "debug_visuals:= done!"
+	end
+	return "debug_visuals:= type debug_visuals help for a list of subcommands."
+end
+
+function cmd.gulag(me,txt,owner,p)
+	local wrd,rest = check_and_set_help(me,txt,owner,"[export]")
+	if (wrd) then
+		if (wrd  == "export") then 
+			local sim = alife()
+			for i=1,sim:max_id() - 1 do
+				local se_obj = sim:object(i)
+				if se_obj and se_obj:clsid() == clsid.smart_terrain then 
+					gulag_general.load_job(se_obj,true)
+				end
+			end
+			return "gulag export done"
+		end
+	end
+	return "gulag:= type gulag help for a list of subcommands."
+end
+
+
+-- Tronex
+function cmd.alife_release(_,txt,x)
+	local common = (txt == "common")
+	local all = (txt == "all")
+	local sim = alife()
+	local c = 0
+	for id,_ in pairs(SIMBOARD.squads) do
+		local se_squad = sim:object(id)
+		if se_squad then
+			if common then
+				--if (not get_object_story_id(id)) then
+				if se_squad.common then
+					se_squad:remove_squad()
+					c = c + 1
+				end
+			elseif all then
+				se_squad:remove_squad()
+				c = c + 1
+			end
+		end
+	end
+	if c == 0 then
+		--x:SendOutput('!Nothing is released dummy. Try (alife_release all) or (alife_release common)')
+		x:SendOutput('!No squads found')
+	else
+		x:SendOutput('-Released %s stalkers and mutants: %s squads', txt, c)
+	end
+end
+
+function cmd.alife_print_npc(_,txt,x)
+
+-- alife_print_info all 			(print count of all npcs, works without stating "all" too)
+-- alife_print_info human 			(print count of all humans, communities sorted)
+-- alife_print_info human killer 	(print count of all humans that belong to mercs)
+-- alife_print_info monster 		(print count of all mutants)
+
+	local a = {}
+	local b = split(txt) or {}
+	if (not b[1]) then
+		b[1] = "all"
+	end
+	
+	local is_s = (b[1] == "human") or (b[1] == "all") or false
+	local is_m = (b[1] == "monster") or (b[1] == "all") or false
+	if (not is_s) and (not is_m) then
+		return
+	end
+	
+	local sim = alife()
+	for i=1,sim:max_id() - 1 do 
+		local se_obj = sim:object(i)
+		if (se_obj and se_obj.group_id ~= nil and se_obj.group_id ~= 65535) then 
+			if is_s and IsStalker(nil,se_obj:clsid()) then
+				local comm = se_obj:community()
+				if (not b[2]) or (b[2] and b[2] == comm) then
+					a[comm] = a[comm] and (a[comm] + 1) or 1
+				end
+			elseif (not b[2]) and is_m and IsMonster(nil,se_obj:clsid()) then
+				a["monster"] = a["monster"] and (a["monster"] + 1) or 1
+			end
+		end
+	end
+	
+	local tot = 0
+	x:SendOutput('___________________________________')
+	for k,v in pairs(a) do
+		tot = tot + v
+		x:SendOutput('NPC count of %s: %s',k,v)
+	end
+	x:SendOutput('NPC count of %s: %s',txt,tot)
+end
+
+function cmd.alife_print_squad(_,txt,x)
+
+-- alife_print_squad all 			(print count of all squads, works without stating "all" too)
+-- alife_print_squad human 			(print count of all human squads, communities sorted)
+-- alife_print_squad human killer 	(print count of all human squads that belong to mercs)
+-- alife_print_squad monster 		(print count of all mutant squads)
+
+	local a = {}
+	local b = split(txt) or {}
+	if (not b[1]) then
+		b[1] = "all"
+	end
+	
+	local is_s = (b[1] == "human") or (b[1] == "all") or false
+	local is_m = (b[1] == "monster") or (b[1] == "all") or false
+	if (not is_s) and (not is_m) then
+		return
+	end
+	
+	local sim = alife()
+	for id,v in pairs( SIMBOARD.squads ) do
+		local squad = sim:object(id)
+		if (squad) then
+			if (not b[2]) and is_m and (is_squad_monster[squad.player_id]) then
+				a[squad.player_id] = a[squad.player_id] and (a[squad.player_id] + 1) or 1
+			elseif is_s and (not is_squad_monster[squad.player_id]) and (not get_object_story_id(squad.id)) then
+				if (not b[2]) or (b[2] and b[2] == squad.player_id) then
+					a[squad.player_id] = a[squad.player_id] and (a[squad.player_id] + 1) or 1
+				end
+			end
+		end
+	end
+	
+	local tot = 0
+	x:SendOutput('___________________________________')
+	for k,v in pairs(a) do
+		tot = tot + v
+		x:SendOutput('Squad count of %s: %s',k,v)
+	end
+	x:SendOutput('Squad count of %s: %s',txt,tot)
+end
+
+function cmd.alife_report(_,txt,x)
+	local alife_tbl = {}
+	local clsid_tbl = {}
+	local clsid_tbl_1 = {
+		["actor"] = 90,
+		["art_bast_artefact"] = 0,
+		["art_black_drops"] = 1,
+		["art_cta"] = 3,
+		["art_dummy"] = 4,
+		["art_electric_ball"] = 5,
+		["art_faded_ball"] = 6,
+		["art_galantine"] = 7,
+		["art_gravi"] = 8,
+		["art_gravi_black"] = 2,
+		["art_mercury_ball"] = 9,
+		["art_needles"] = 10,
+		["art_rusty_hair"] = 11,
+		["art_thorn"] = 12,
+		["art_zuda"] = 13,
+		["artefact"] = 41,
+		["artefact_s"] = 102,
+		["bloodsucker"] = 14,
+		["bloodsucker_s"] = 108,
+		["boar"] = 15,
+		["boar_s"] = 109,
+		["burer"] = 16,
+		["burer_s"] = 110,
+		["car"] = 52,
+		["cat"] = 17,
+		["cat_s"] = 111,
+		["chimera"] = 29,
+		["chimera_s"] = 112,
+		["controller"] = 18,
+		["controller_s"] = 113,
+		["crow"] = 19,
+		["destrphys_s"] = 93,
+		["device_detector_advanced"] = 53,
+		["device_detector_elite"] = 54,
+		["device_detector_scientific"] = 57,
+		["device_detector_simple"] = 58,
+		["device_flare"] = 55,
+		["device_pda"] = 56,
+		["device_torch"] = 59,
+		["device_torch_s"] = 146,
+		["dog_black"] = 20,
+		["dog_red"] = 23,
+		["dog_s"] = 116,
+		["equ_exo"] = 60,
+		["equ_military"] = 61,
+		["equ_scientific"] = 62,
+		["equ_stalker"] = 63,
+		["equ_stalker_s"] = 65,
+		["equ_helmet_s"] = 70,
+		["flesh"] = 24,
+		["flesh_group"] = 25,
+		["flesh_s"] = 117,
+		["fracture"] = 26,
+		["fracture_s"] = 119,
+		["game_cl_artefact_hunt"] = 45,
+		["game_cl_capture_the_artefact"] = 46,
+		["game_cl_deathmatch"] = 47,
+		["game_cl_single"] = 48,
+		["game_cl_team_deathmatch"] = 49,
+		["game_sv_artefact_hunt"] = 129,
+		["game_sv_capture_the_artefact"] = 130,
+		["game_sv_deathmatch"] = 131,
+		["game_sv_single"] = 132,
+		["game_sv_team_deathmatch"] = 133,
+		["game_ui_artefact_hunt"] = 147,
+		["game_ui_capture_the_artefact"] = 148,
+		["game_ui_deathmatch"] = 149,
+		["game_ui_single"] = 150,
+		["game_ui_team_deathmatch"] = 151,
+		["gigant_s"] = 118,
+		["graph_point"] = 28,
+		["hanging_lamp"] = 94,
+		["helicopter"] = 50,
+		["helmet"] = 64,
+		["hlamp_s"] = 125,
+		["hud_manager"] = 74,
+		["inventory_box"] = 95,
+		["inventory_box_s"] = 140,
+		["level"] = 69,
+		["level_changer"] = 84,
+		["level_changer_s"] = 85,
+		["main_menu"] = 86,
+		["mp_players_bag"] = 87,
+		["nogravity_zone"] = 211,
+		["obj_antirad"] = 75,
+		["obj_antirad_s"] = 135,
+		["obj_attachable"] = 76,
+		["obj_bandage"] = 77,
+		["obj_bandage_s"] = 136,
+		["obj_bolt"] = 78,
+		["obj_bottle"] = 79,
+		["obj_bottle_s"] = 137,
+		["obj_breakable"] = 91,
+		["obj_climable"] = 92,
+		["obj_document"] = 80,
+		["obj_explosive"] = 81,
+		["obj_explosive_s"] = 138,
+		["obj_food"] = 82,
+		["obj_food_s"] = 139,
+		["obj_medkit"] = 83,
+		["obj_medkit_s"] = 142,
+		["obj_pda_s"] = 144,
+		["obj_phskeleton"] = 100,
+		["obj_phys_destroyable"] = 99,
+		["obj_physic"] = 96,
+		["online_offline_group"] = 88,
+		["online_offline_group_s"] = 89,
+		["phantom"] = 30,
+		["poltergeist"] = 31,
+		["poltergeist_s"] = 120,
+		["projector"] = 98,
+		["pseudo_gigant"] = 27,
+		["pseudodog_s"] = 121,
+		["psy_dog"] = 22,
+		["psy_dog_phantom"] = 21,
+		["psy_dog_phantom_s"] = 114,
+		["psy_dog_s"] = 115,
+		["rat"] = 32,
+		["script_actor"] = 134,
+		["script_heli"] = 51,
+		["script_object"] = 103,
+		["script_phys"] = 97,
+		["script_restr"] = 127,
+		["script_stalker"] = 35,
+		["script_zone"] = 101,
+		["smart_cover"] = 104,
+		["smart_terrain"] = 105,
+		["smart_zone"] = 106,
+		["smartcover_s"] = 107,
+		["snork"] = 33,
+		["snork_s"] = 122,
+		["space_restrictor"] = 126,
+		["spectator"] = 128,
+		["stalker"] = 34,
+		["team_base_zone"] = 214,
+		["torrid_zone"] = 215,
+		["trader"] = 36,
+		["tushkano"] = 37,
+		["tushkano_s"] = 123,
+		["wpn_ak74"] = 173,
+		["wpn_ak74_s"] = 152,
+		["wpn_ammo"] = 39,
+		["wpn_ammo_m209"] = 42,
+		["wpn_ammo_m209_s"] = 141,
+		["wpn_ammo_og7b"] = 43,
+		["wpn_ammo_og7b_s"] = 143,
+		["wpn_ammo_s"] = 40,
+		["wpn_ammo_vog25"] = 44,
+		["wpn_ammo_vog25_s"] = 145,
+		["wpn_auto_shotgun_s"] = 153,
+		["wpn_binocular"] = 174,
+		["wpn_binocular_s"] = 154,
+		["wpn_bm16"] = 175,
+		["wpn_bm16_s"] = 155,
+		["wpn_fn2000"] = 176,
+		["wpn_fort"] = 177,
+		["wpn_grenade_f1"] = 66,
+		["wpn_grenade_f1_s"] = 67,
+		["wpn_grenade_fake"] = 68,
+		["wpn_grenade_launcher"] = 178,
+		["wpn_grenade_launcher_s"] = 156,
+		["wpn_grenade_rgd5"] = 71,
+		["wpn_grenade_rgd5_s"] = 72,
+		["wpn_grenade_rpg7"] = 73,
+		["wpn_groza"] = 179,
+		["wpn_groza_s"] = 157,
+		["wpn_hpsa"] = 180,
+		["wpn_hpsa_s"] = 158,
+		["wpn_knife"] = 181,
+		["wpn_knife_s"] = 159,
+		["wpn_lr300"] = 182,
+		["wpn_lr300_s"] = 160,
+		["wpn_pm"] = 183,
+		["wpn_pm_s"] = 161,
+		["wpn_rg6"] = 184,
+		["wpn_rg6_s"] = 162,
+		["wpn_rpg7"] = 185,
+		["wpn_rpg7_s"] = 163,
+		["wpn_scope"] = 186,
+		["wpn_scope_s"] = 164,
+		["wpn_shotgun"] = 187,
+		["wpn_shotgun_s"] = 165,
+		["wpn_silencer"] = 188,
+		["wpn_silencer_s"] = 166,
+		["wpn_stat_mgun"] = 189,
+		["wpn_svd"] = 190,
+		["wpn_svd_s"] = 167,
+		["wpn_svu"] = 191,
+		["wpn_svu_s"] = 168,
+		["wpn_usp45"] = 192,
+		["wpn_usp45_s"] = 169,
+		["wpn_val"] = 193,
+		["wpn_val_s"] = 170,
+		["wpn_vintorez"] = 194,
+		["wpn_vintorez_s"] = 171,
+		["wpn_walther"] = 195,
+		["wpn_walther_s"] = 172,
+		["wpn_wmagaz"] = 196,
+		["wpn_wmaggl"] = 197,
+		["zombie"] = 38,
+		["zombie_s"] = 124,
+		["zone"] = 216,
+		["zone_acid_fog"] = 204,
+		["zone_bfuzz"] = 205,
+		["zone_bfuzz_s"] = 198,
+		["zone_campfire"] = 206,
+		["zone_dead"] = 207,
+		["zone_galant_s"] = 199,
+		["zone_galantine"] = 208,
+		["zone_mbald_s"] = 200,
+		["zone_mincer"] = 210,
+		["zone_mincer_s"] = 201,
+		["zone_mosquito_bald"] = 209,
+		["zone_radio_s"] = 202,
+		["zone_radioactive"] = 212,
+		["zone_rusty_hair"] = 213,
+		["zone_torrid_s"] = 203,
+	}
+		
+	for k,v in pairs(clsid_tbl_1) do
+		clsid_tbl[v] = k
+	end
+
+	local c = 0
+	local sim = alife()
+
+	for i=1, sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if (se_obj) then
+			c = c + 1
+			local cls = se_obj:clsid()
+			local sec = se_obj:section_name()
+			
+			if (not alife_tbl[cls]) then
+				alife_tbl[cls] = {}
+			end
+			alife_tbl[cls][sec] = alife_tbl[cls][sec] and (alife_tbl[cls][sec] + 1) or 1
+			
+		end
+	end
+	printf("-ALife total num of objects = %s",c)
+	printf("--------------------------------------")
+	
+	
+	printf("-ALife summery by class:")
+	for k,v in pairs(alife_tbl) do
+		local c = 0
+		for k2,v2 in pairs(v) do c = c + v2 end
+		printf("-cls[%s] = %s",clsid_tbl[k] or k,c)
+	end
+	printf("--------------------------------------")
+	
+	
+	printf("-ALife full report by class and section:")
+	for k,v in pairs(alife_tbl) do
+		for k2,v2 in pairs(v) do
+			printf("-cls[%s][%s] = %s",clsid_tbl[k] or k,k2,v2)
+		end
+	end
+	printf("--------------------------------------")
+	x:SendOutput('Done! see log')
+end
+
+function cmd.get_nearest_object(_,txt,x)
+	local b = split(txt) or {}
+	local dist,se_obj,obj
+	local nearest_obj,nearest_dist
+	local is_cam = b[1] == "cam"
+	local pos = is_cam and device().cam_pos or db.actor:position()
+	local sim = alife()
+	
+	for i=1, sim:max_id() - 1 do
+		se_obj = sim:object(i)
+		if (se_obj and (se_obj.parent_id ~= AC_ID)) then -- avoid items in inventory
+			obj = level.object_by_id(i)
+			if obj then
+				dist = pos:distance_to_sqr(obj:position())
+				if not (nearest_dist) then
+					nearest_dist = dist
+					nearest_obj = obj
+				end
+
+				if (dist < nearest_dist) then
+					nearest_dist = dist
+					nearest_obj = obj
+				end
+			end
+		end
+	end
+	
+	if nearest_obj then
+		x:SendOutput('---------------------')
+		x:SendOutput('-Nearest object found: %s', nearest_obj:name())
+		x:SendOutput('-Section: %s', nearest_obj:section())
+		x:SendOutput('-ID: %s', nearest_obj:id())
+		x:SendOutput('-Distance: %s', nearest_dist^0.5)
+	else
+		x:SendOutput('!No online object is found')
+	end
+end
+
+function cmd.get_npc_visual(_,__,x)
+	local npc, dist = utils_obj.get_nearest_stalker("cam")
+	if (not npc) then
+		x:SendOutput('-No NPC found')
+		return
+	end
+	
+	local id = npc:id()
+	local name = npc:character_name()
+	local comm = npc:character_community()
+	local visual = npc:get_visual_name()
+	
+	x:SendOutput('- Nearest NPC')
+	x:SendOutput('/ Distance: %s',dist)
+	x:SendOutput('/ id: %s',id)
+	x:SendOutput('/ Name: %s',name)
+	x:SendOutput('/ Community: %s',comm)
+	x:SendOutput('/ Visual: %s',visual)
+	
+	printf('- Nearest NPC')
+	printf('/ Distance: %s',dist)
+	printf('/ id: %s',id)
+	printf('/ Name: %s',name)
+	printf('/ Community: %s',comm)
+	printf('/ Visual: %s',visual)
+end
+
+function cmd.surge(_,txt,x)
+	if (txt == "start") and (surge_manager.is_finished()) then
+		surge_manager.start_surge()
+		x:SendOutput('Surge has started')
+	elseif (txt == "stop") and (surge_manager.is_started()) then
+		surge_manager.stop_surge()
+		x:SendOutput('Surge has stopped')
+	end
+end
+
+function cmd.psi_storm(_,txt,x)
+	if (txt == "start") and (psi_storm_manager.is_finished()) then
+		psi_storm_manager.start_psi_storm()
+		x:SendOutput('Psi-storm has started')
+	elseif (txt == "stop") and (psi_storm_manager.is_started()) then
+		psi_storm_manager.stop_psi_storm()
+		x:SendOutput('Psi-storm has stopped')
+	end
+end
+
+function cmd.ppe_effect(_,txt,x)
+	local b = split(txt) or {}
+	
+	if b[1] and level.present() and (db.actor ~= nil) and db.actor:alive() then
+		if (b[1] == "play") and b[2] then
+			level.remove_pp_effector(2009)
+			level.add_pp_effector(b[2] .. ".ppe", 2009, true)
+		elseif b[2] == "stop" then
+			level.remove_pp_effector(2009)
+		end
+	end
+end
+
+function cmd.set_rank(_,txt,x)
+	local rank = txt and tonumber(txt)
+	if rank and (rank > 0) and (rank < 56000) then
+		db.actor:set_character_rank(rank)
+		local str = strformat("Actor rank is now: %s",rank)
+		x:SendOutput(str)
+	end
+end
+
+function cmd.set_rep(_,txt,x)
+	local rept = txt and tonumber(txt)
+	if rept and (rept > -4000) and (rept < 4000) then
+		db.actor:set_character_reputation(rept)
+		local str = strformat("Actor reputation is now: %s",rept)
+		x:SendOutput(str)
+	end
+end
+
+function cmd.get_nearby_companion(_,txt,x)
+	local npc, dist = utils_obj.get_nearest_stalker("cam")
+	if (not npc) then
+		x:SendOutput('-No NPC found')
+		return
+	end
+	
+	local name = npc:name()
+	
+	if (not dialogs_axr_companion.is_non_story(nil,npc)) then
+		x:SendOutput('![%s] is a story NPC',name)
+		return
+	end
+	if (not dialogs_axr_companion.is_not_actor_companion(nil,npc)) then
+		x:SendOutput('![%s] is already a companion',name)
+		return
+	end
+	if (not dialogs_axr_companion.is_room_in_actor_squad(nil,npc)) then
+		x:SendOutput('!you dont have more room for another companion',name)
+		return
+	end
+	if (not dialogs_axr_companion.is_not_hostage_task_giver(db.actor,npc)) then
+		x:SendOutput('![%s] is a hostage',name)
+		return
+	end
+	
+	dialogs_axr_companion.become_actor_companion(db.actor,npc)
+	
+	x:SendOutput('![%s] squad become companions',name)
+end
+
+function cmd.map_marker(_,txt,x)
+	local b = split(txt) or {}
+	if not (b[1] and b[2]) then
+		return
+	end
+	local add = b[1] == "add" and true or false
+	local remov = b[1] == "remove" and true or false
+	local id = tonumber(b[2])
+	if (add or remov) and (type(id) == "number") and (id > 0) and (id < 65535) then
+		local se_obj = alife_object(id)
+		local obj = level.object_by_id(id)
+		local name = (se_obj and se_obj:section_name()) or (obj and obj:section()) or ""
+		if name ~= "" then
+			if add then
+				local str = "Marked\\nsection: " .. name .. "\\nid: " .. tostring(id)
+				level.map_add_object_spot_ser(id, "secondary_task_location", str)
+				x:SendOutput("Map marker for id: " .. id .. "has been added!")
+				return
+			else
+				level.map_remove_object_spot(id, "secondary_task_location")
+				x:SendOutput("Map marker for id: " .. id .. "has been removed!")
+				return
+			end
+		end
+	end
+	return
+end
+
+function cmd.scan_item_configs(_,txt,x)
+	x:SendOutput("scan_item_configs")
+	local scan_uses = (txt == "uses") and true or false
+		
+	local sfind = string.find
+	local exclude = {
+		["spawn_by_story_id"] = true,
+		["trader"] = true,
+		["discount_0"] = true,
+		["discount_1"] = true,
+		["discount_2"] = true,
+		["discount_3"] = true,
+		["discount_4"] = true,
+		["discount_5"] = true,
+		["discount_6"] = true,
+		["discount_7"] = true,
+		["discount_8"] = true,
+		["discount_9"] = true,
+		["discount_10"] = true,
+		["discount_trasher_1"] = true,
+		["discount_trasher_ld_1"] = true,
+		["discount_supplier_1"] = true,
+		["discount_barman_1"] = true,
+		["discount_barman_ld_1"] = true,
+		["discount_neutral_1"] = true,
+		["discount_special_1"] = true,
+		["discount_extra_1"] = true,
+		["mutant_loot_mod"] = true,
+		["mutant_loot_drop_sections"] = true,
+	}
+	
+	local function scan_file(path)
+		printf("--------------------------------------------")
+		printf("~scan_item_configs | target file: %s", path)
+		local ltx = ini_file(path)
+		ltx:section_for_each(function(section)
+			if (not exclude[section]) then
+				local n = ltx:line_count(section)
+				local result, id, value = "", "", ""
+				for i=0,n-1 do
+					result, id, value	= ltx:r_line_ex(section,i,"","")
+					if id then
+						local sec, uses = utils_item.get_defined_uses(id)
+						if (not ini_sys:section_exist(sec)) then
+							printf("!LTX SCAN: %s: [%s]->[%s] invalid", path, section, sec)
+						elseif scan_uses and (not uses) and (ini_sys:r_bool_ex(sec,"use_condition")) and (ini_sys:r_float_ex(sec,"max_uses")) then
+							printf("!LTX SCAN: %s: [%s]->[%s] lack uses", path, section, sec)
+						end
+					end
+				end
+			end
+		end)
+	end
+	
+	local all_pathes = {}
+	local fileList = getFS():file_list_open("$game_config$", "items\\trade\\", bit_or(FS.FS_ListFiles, FS.FS_RootOnly))
+	local count = fileList and fileList:Size() or 0
+	if count > 0 then
+		for i = 1, count do
+			local file_name = fileList:GetAt(i - 1):sub(1, -5)
+			if file_name then
+				all_pathes[#all_pathes + 1] = "items\\trade\\" .. file_name .. ".ltx"
+			end
+		end
+	end
+	
+	all_pathes[#all_pathes + 1] =  "items\\settings\\ph_box_generic.ltx"
+	all_pathes[#all_pathes + 1] =  "items\\settings\\treasure_manager.ltx"
+	--all_pathes[#all_pathes + 1] =  "items\\settings\\mutant_loot.ltx"
+	all_pathes[#all_pathes + 1] =  "items\\settings\\death_generic.ltx"
+	
+	for i=1,#all_pathes do
+		scan_file(all_pathes[i])
+	end
+	
+	return
+end
+
+function cmd.scan_unused_weapons(_,txt,x)
+	x:SendOutput("scan_unused_weapons")
+	
+	local sfind = string.find
+	
+	local weapon_secs = {}
+	local weapon_classes = {
+		["WP_KNIFE"]    = true,
+		["WP_HPSA"]     = true,
+		["WP_PM"]       = true,
+		["WP_ASHTG"]    = true,
+		["WP_BM16"]     = true,
+		["WP_AK74"]     = true,
+		["WP_GROZA"]    = true,
+		["WP_LR300"]    = true,
+		["WP_VAL"]      = true,
+		["WP_SVD"]      = true,
+		["WP_SVU"]      = true,
+		["WP_RG6"]      = true,
+		["WP_RPG7"]     = true,
+		["G_F1_S"]      = true,
+		["G_RGD5_S"]    = true,
+		["G_F1"] 	    = true,
+		["G_RGD5"] 	    = true,
+	}
+	
+	ini_sys:section_for_each(function(section)
+		local cls = ini_sys:r_string_ex(section,"class") or ""
+		if cls and cls ~= ""
+		and weapon_classes[cls]
+		and (not sfind(section,"hud"))
+		and (not sfind(section,"1p29"))
+		and (not sfind(section,"kobra"))
+		and (not sfind(section,"ps01"))
+		and (not sfind(section,"ac10632"))
+		and (not sfind(section,"ac11090"))
+		and (not sfind(section,"eot"))
+		and (not sfind(section,"acog"))
+		and (not sfind(section,"c-more"))
+		then
+			weapon_secs[section] = true
+		end
+	end)
+	
+	--------------------------------------------------------------------------------
+	
+	local function scan_trader_file(path)
+		printf("~scan_trader_configs | target file: %s", path)
+		local ltx = ini_file(path)
+		ltx:section_for_each(function(section)
+			if sfind(section,"supplies_") then
+				local n = ltx:line_count(section)
+				local result, id, value = "", "", ""
+				for i=0,n-1 do
+					result, id, value	= ltx:r_line_ex(section,i,"","")
+					if value and weapon_secs[id] then
+						weapon_secs[id] = nil
+					end
+				end
+			end
+		end)
+	end
+	
+	local all_trader_pathes = {}
+	local fileList = getFS():file_list_open("$game_config$", "items\\trade\\", bit_or(FS.FS_ListFiles, FS.FS_RootOnly))
+	local count = fileList and fileList:Size() or 0
+	if count > 0 then
+		for i = 1, count do
+			local file_name = fileList:GetAt(i - 1):sub(1, -5)
+			if file_name then
+				all_trader_pathes[#all_trader_pathes + 1] = "items\\trade\\" .. file_name .. ".ltx"
+			end
+		end
+	end
+
+	for i=1,#all_trader_pathes do
+		scan_trader_file(all_trader_pathes[i])
+	end
+	
+	--------------------------------------------------------------------------------
+	
+	local function scan_ai_file(path)
+		printf("~scan_ai_configs | target file: %s", path)
+		local ltx = ini_file(path)
+		local str_ex = str_explode
+		ltx:section_for_each(function(section)
+			local n = ltx:line_count(section)
+			local result, id, value = "", "", ""
+			for i=0,n-1 do
+				result, id, value	= ltx:r_line_ex(section,i,"","")
+				local t = str_ex(id,":")
+				if t and t[1] and weapon_secs[t[1]] then
+					weapon_secs[id] = nil
+				end
+			end
+		end)
+	end
+	--scan_ai_file("ai_tweaks\\xrs_rnd_npc_loadout.ltx")
+	
+	--------------------------------------------------------------------------------
+	
+	printf("~List of weapons that don't exist in traders profiles")
+	for k,v in pairs(weapon_secs) do
+		printf("/ [%s]",k)
+	end
+	
+	return
+end
+
+function cmd.scan_unused_icons(_,txt,x)
+	x:SendOutput("scan_unused_icons")
+	
+	local sfind = string.find
+	local icons = {}
+	
+	-- Read all icons
+	ini_sys:section_for_each(function(section)
+		local x = ini_sys:r_float_ex(section,"inv_grid_x")
+		if x then
+			local y = ini_sys:r_float_ex(section,"inv_grid_y")
+			local w = ini_sys:r_float_ex(section,"inv_grid_width") or 1
+			local h = ini_sys:r_float_ex(section,"inv_grid_height") or 1
+			icons[section] = { x = x , y = y , w = w , h = h}
+		end
+	end)
+	
+	printf("-sections total: %s", table_size(icons))
+	
+	-- Removed sections with duplicated pos
+	local to_remove = {}
+	for k,v in pairs(icons) do
+		if (not to_remove[k]) then
+			for k2,v2 in pairs(icons) do
+				if (k ~= k2) and (v.x == v2.x) and (v.y == v2.y) then
+					to_remove[k2] = true
+				end
+			end
+		end
+	end
+	for k,v in pairs(icons) do
+		if to_remove[k] then
+			icons[k] = nil
+		end	
+	end
+	
+	printf("-sections finale: %s", table_size(icons))
+	printf("-duplicated sections to remove: %s", table_size(to_remove))
+	
+	-- Gather all used 50,50 squares
+	local us = {}
+	for k,v in pairs(icons) do
+		for i=1,(v.w) do
+			for j=1,(v.h) do
+				local x = v.x + (i-1)
+				local y = v.y + (j-1)
+				if (not us[x]) then us[x] = {} end
+				us[x][y] = true
+			end
+		end
+		
+	end
+	
+	-- Gather all unused 50,50 squares
+	local unused = {}
+	for i=1,164 do -- x
+		for j=1,82 do -- y
+			local x = i-1
+			local y = j-1
+			if not (us[x] and us[x][y]) then
+				unused[#unused + 1] = {x = x , y = y}
+			end
+		end
+	end
+	
+	-- Print
+	printf("-unused size: %s", #unused)
+	for i=1,#unused do
+		printf("x = %s , y = %s", unused[i].x, unused[i].y)
+	end
+	
+	return
+end
+
+function cmd.scan_unused_level_logic(_,txt,x)
+	x:SendOutput("scan_unused_level_logic")
+	if not (txt) then return end
+	
+	local map = txt
+	local sfind = string.find
+
+	local function collect_files(path)
+		local fileList = getFS():file_list_open("$game_config$", "scripts\\" .. path, bit_or(FS.FS_ListFiles, FS.FS_RootOnly))
+		local count = fileList and fileList:Size() or 0
+		local tbl = {}
+		if count > 0 then
+			for i = 1, count do
+				local file_name = fileList:GetAt(i - 1):sub(1, -5)
+				if file_name then
+					tbl[#tbl + 1] = path .. file_name .. ".ltx"
+				end
+			end
+			return tbl
+		end
+	end
+	
+	local logic_files = collect_files(map .. "\\")
+	local smart_files = collect_files(map .. "\\smart\\")
+	
+	local lgc = {}
+	for i=1,#logic_files do
+		lgc[logic_files[i]] = true
+	end
+	
+	-- remove used files out of table
+	for i=1,#smart_files do
+		local smart_ini = ini_file("scripts\\" .. smart_files[i])
+		smart_ini:section_for_each(function(section)
+			if section == "exclusive" then
+				local n = smart_ini:line_count(section)
+				local result, id, value = "", "", ""
+				for i=0,n-1 do
+					result, id, value	= smart_ini:r_line_ex(section,i,"","")
+					if value and lgc[value] then
+						lgc[value] = nil
+					end
+				end
+			end
+		end)
+	end
+	
+	-- remove files with space restrictor/pysical objects out of table
+	for k,v in pairs(lgc) do
+		local logic_ini = ini_file("scripts\\" .. k)
+		logic_ini:section_for_each(function(section)
+			if sfind(section,"sr_") or sfind(section,"ph_") then
+				lgc[k] = nil
+			end
+		end)
+	end
+	
+	-- to delet
+	printf("~Unused logic files for %s:",map)
+	for k,v in pairs(lgc) do
+		printf(k)
+	end
+	
+	return
+end
+
+function cmd.print_outfits_props(_,txt,x)
+	x:SendOutput("[START] print outfit props")
+	
+	local outfit_cls = {
+		["o_helmet"]    = true,
+		["E_HLMET"]     = true,
+		["EQU_HLMET"]   = true,
+
+		["o_light"]     = true,
+
+		["E_STLK"]      = true,
+		["EQU_STLK"]    = true,
+		["o_medium"]    = true,
+		["o_sci"]       = true,
+
+		["o_heavy"]     = true,
+	}
+	
+	local outfit_type = {
+		["helmet"]              =  1 ,
+		["helmet_light"]        =  2 ,
+		["outfit"]              =  3 ,
+		["outfit_novice"]       =  4 ,
+		["outfit_trenchcoat"]   =  5 ,
+		["outfit_sunrise"]      =  6 ,
+		["outfit_lcs"]          =  7 ,
+		["outfit_explorer"]     =  8 ,
+		["outfit_sts"]          =  9 ,
+		["outfit_ps5"]          =  10,
+		["outfit_nbc"]          =  11,
+		["outfit_assault_vest"] =  12,
+		["outfit_seva"]         =  13,
+		["outfit_ssp"]          =  14,
+		["outfit_berill"]       =  15,
+		["outfit_skat"]         =  16,
+		["outfit_exolight"]     =  17,
+		["outfit_proto_exo"]    =  18,
+		["outfit_exoskeleton"]  =  19,
+		["outfit_nosorog"]      =  20,
+	}
+
+	local p_file = "outfits_props.txt"
+	local function write_file(text,...)
+		if not text then return end
+		local debug_file = io.open(p_file,"a+")
+
+		if ( debug_file == nil ) then
+			return
+		end
+
+		local i = 0
+		local p = {...}
+		local function sr(a)
+			i = i + 1
+			return tostring(p[i])
+		end
+		local output = string.gsub(text,"%%s",sr)
+		debug_file:write(output.."\n")
+		debug_file:close()
+		exec_console_cmd("load ~#I#:"..output)
+	end
+	
+	local tbl = {}
+	local cnt = 0
+	ini_sys:section_for_each( function(section)
+		local class = ini_sys:r_string_ex(section,"class")
+		local kind = ini_sys:r_string_ex(section,"kind") -- special class name for the sake of correct listing
+		if kind then
+			class = kind
+		end
+		if class and outfit_cls[class] then
+			cnt = cnt + 1
+			tbl[section] = {}
+			tbl[section].typ = ini_sys:r_string_ex(section,"repair_type") or "na"
+			tbl[section].indx = tbl[section].typ and outfit_type[tbl[section].typ] or 0
+			
+			tbl[section].cost = ini_sys:r_float_ex(section,"cost") or "na"
+			tbl[section].w = ini_sys:r_float_ex(section,"inv_weight") or "na"
+			tbl[section].cw = ini_sys:r_float_ex(section,"additional_inventory_weight") or "na"
+			tbl[section].arty = ini_sys:r_float_ex(section,"artefact_count") or "na"
+			tbl[section].intria = ini_sys:r_float_ex(section,"control_inertion_factor") or "na"
+			
+			tbl[section].p_b = ini_sys:r_float_ex(section,"burn_protection") or "na"
+			tbl[section].p_sh = ini_sys:r_float_ex(section,"shock_protection") or "na"
+			tbl[section].p_r = ini_sys:r_float_ex(section,"radiation_protection") or "na"
+			tbl[section].p_cb = ini_sys:r_float_ex(section,"chemical_burn_protection") or "na"
+			tbl[section].p_t = ini_sys:r_float_ex(section,"telepatic_protection") or "na"
+			tbl[section].p_st = ini_sys:r_float_ex(section,"strike_protection") or "na"
+			tbl[section].p_e = ini_sys:r_float_ex(section,"explosion_protection") or "na"
+			tbl[section].p_w = ini_sys:r_float_ex(section,"wound_protection") or "na"
+			tbl[section].p_fw = ini_sys:r_float_ex(section,"fire_wound_protection") or "na"
+			
+			tbl[section].hit_f = ini_sys:r_float_ex(section,"hit_fraction_actor") or "na"
+		end
+	end)
+	
+	write_file("","")
+	write_file("--------------------------------------")
+	write_file("SYMBOLS:")
+	write_file("","")
+	write_file("w = inventory weight")
+	write_file("cw = carry weight")
+	write_file("arty = artefact slots")
+	write_file("intria = control_inertion_factor")
+	write_file("p_b = burn_protection")
+	write_file("p_sh = shock_protection")
+	write_file("p_r = radiation_protection")
+	write_file("p_cb = chemical_burn_protection")
+	write_file("p_t = telepatic_protection")
+	write_file("p_st = strike_protection")
+	write_file("p_e = explosion_protection")
+	write_file("p_w = wound_protection")
+	write_file("p_fw = fire_wound_protection")
+	write_file("hit_f = hit_fraction_actor")
+	write_file("","")
+	write_file("--------------------------------------")
+	write_file("OUTFIT STATS:")
+	write_file("","")
+	local functor = function(t,a,b) return t[a].indx < t[b].indx end
+	for section,v in spairs(tbl,functor) do
+		write_file("%s 		= type:%s | cost:%s | w:%s | cw:%s | arty:%s | intria:%s | p_b:%s | p_sh:%s | p_r:%s | p_cb:%s | p_t:%s | p_st:%s | p_e:%s | p_w:%s | p_fw:%s | hit_f:%s ", section, v.typ, v.cost, v.w, v.cw, v.arty, v.intria, v.p_b, v.p_sh, v.p_r, v.p_cb, v.p_t, v.p_st, v.p_e, v.p_w, v.p_fw, v.hit_f)
+	end
+	
+	x:SendOutput("[END] print outfit props - %s outfits printed - see outfits_props.txt", cnt)
+end
+
+function cmd.release_target()
+	local o = level.get_target_obj()
+	if o then
+		alife_release_id(o:id())
+		x:SendOutput("-Released object: %s", o:name())
+	else
+		x:SendOutput("!No object found on cursor to release")
+	end
+end
+
+function cmd.release_id(_,txt,x)
+	local id = txt and tonumber(txt)
+	if (not id) then
+		x:SendOutput("!Missing ID to release. Ex: release_id 34132")
+		return
+	end
+	
+	local se_obj = alife_object(id)
+	if (not se_obj) then
+		x:SendOutput("!No server object by ID (%s) is found", id)
+		return
+	end
+	
+	x:SendOutput("-Released server object by ID (%s): %s", id, se_obj:name())
+	alife_release(se_obj)
+end
+
+function cmd.calc_containers_weight(_,txt,x)
+	local _cont = {}
+	
+	ini_sys:section_for_each(function(section)
+		local con, arty
+		if (string.find(section, "(lead.-_box)",3)) then
+			con = "lead_box"
+			arty = section:gsub("_lead_box", "")		
+		elseif (string.find(section, "(af.-_iam)",3)) then
+			con = "af_iam"
+			arty = section:gsub("_af_iam", "")
+		elseif (string.find(section, "(af.-_aac)",3)) then
+			con = "af_aac"
+			arty = section:gsub("_af_aac", "")
+		elseif (string.find(section, "(af.-_aam)",3)) then
+			con = "af_aam"
+			arty = section:gsub("_af_aam", "")
+		end
+		
+		if con and arty and ini_sys:section_exist(con) and ini_sys:section_exist(arty) then
+			local arty_w = ini_sys:r_float_ex(arty,"inv_weight")
+			local con_w = ini_sys:r_float_ex(con,"inv_weight")
+			local new_weight = arty_w + con_w
+			
+			if (new_weight ~= ini_sys:r_float_ex(section,"inv_weight")) then
+				_cont[section] = new_weight
+				printf("~ calc_containers_weight | calculated new weight for [%s]: %s", section, new_weight)
+			end
+		end
+	end)
+	
+	local function file_exists(path)
+		return io.open(path) ~= nil
+	end
+	
+	local cnt = 0
+	local function on_execute(path,filename,quit)
+		local fullpath = path.."\\"..filename
+		local ltx = io.open(fullpath,"rb")
+		if (ltx) then
+			local data = ltx:read("*all")
+			ltx:close()
+			if (data) then
+				
+				local need_save
+				for sec,wt in pairs(_cont) do
+					if (string.find(data,"["..sec.."]",nil,true)) then
+						
+						ltx = utils_data.cfg_file(fullpath)
+						if (ltx) then
+							
+							ltx:SetValue(sec, "inv_weight", wt)
+							need_save = true
+							cnt = cnt + 1
+							printf("% calc_containers_weight | saved inv_weight [%s]->[%s]", sec, wt)
+							
+						end
+					end
+				end
+				
+				if need_save then
+					ltx:SaveExt()
+					printf("- ui_item_editor | saved changes for {%s}", fullpath)
+				end
+				return
+			end
+		end
+	end
+	
+	local sp = getFS():update_path('$game_config$', "items\\items\\")
+	sp = string.sub(sp,0,string.len(sp)-1)
+	lua_ext.recurse_subdirectories_and_execute(sp,{"ltx"},on_execute)
+	
+	x:SendOutput("-(%s) Weight calculations for artefact containers is done", cnt)
+end
+
+function cmd.validate_wpn_upgrades(_,txt,x)
+	exec_console_cmd("clear_log")
+	x:SendOutput("-Started weapon upgrades scan")
+	
+	local ignore_param = {
+		["cost"] = true,
+		["value"] = true,
+	}
+	
+	local prop_minus = {
+		["prop_recoil"] = true,
+		["prop_weight"] = true,
+	}
+	
+	local scan_list = {}
+	local n, result, par, value = 0,"","",""
+	local s_find = string.find
+	local parameters = ui_debug_item.parameters["weapon"]
+	
+	ini_sys:section_for_each(function(section)
+		local valid_wpn = ini_sys:r_string_ex(section,"upgrades") and ini_sys:r_float_ex(section,"rpm") and (not s_find(section,"tch_")) and (not s_find(section,"mp_")) and (not s_find(section,"_base"))
+		if valid_wpn then
+			local sec = ini_sys:r_string_ex(section,"parent_section") or section	
+			
+			-- Gather upgrades
+			local upgrades = utils_item.get_upgrades_tree(section)
+			if upgrades and is_not_empty(upgrades) and (not scan_list[sec]) then
+				scan_list[sec] = {}
+				
+				for row,v in pairs(upgrades) do
+					for clmn,u in pairs(v) do
+						local u_sec = u.stats
+						--printf("~ [%s] scanning upgrade %s", sec, u_sec)
+						
+						n = ini_sys:line_count(u_sec)
+						for i=0,n-1 do
+							result, par, value = ini_sys:r_line_ex(u_sec,i,"","")
+							value = tonumber(value)
+							if value and (parameters[par]) and (not ignore_param[par]) then
+								if (not scan_list[sec][par]) then
+									scan_list[sec][par] = ini_sys:r_float_ex(sec,par)
+									--printf("- [%s] param: %s = %s", sec, par, scan_list[sec][par])
+								end
+								if scan_list[sec][par] then
+									scan_list[sec][par] = scan_list[sec][par] + value
+									--printf("- [%s] param modifier in upgr [%s]: %s = %s", sec, u_sec, par, value)
+								else
+									printf("! [%s] param [%s]: %s don't exist", sec, par)
+								end
+								
+							elseif value and (par == "value") and u.prop and (#u.prop == 1) then
+								if prop_minus[u.prop[1]] and (value > 0) then
+									printf("! [%s] with property [%s] has positive value, it should be the opposite", u_sec, u.prop[1])
+								elseif (prop_minus[u.prop[1]] == nil) and (value < 0) then
+									printf("! [%s] with property [%s] has negative value, it should be the opposite", u_sec, u.prop[1])
+								end
+							end
+						end
+					end
+				end
+			end
+			
+		end
+	end)
+	
+	for sec, v in pairs(scan_list) do
+		for par, val in pairs(v) do
+			local _min = parameters[par].min
+			local _max = parameters[par].max
+			if (val <= _min) or (val >= _max) then
+				printf("! [%s] param (%s) get fucked on full upgrade: %s", sec, par, val)
+			end
+		end
+	end
+	
+	printf("- Finished upgrades scan")
+	x:SendOutput("-Finished upgrades scan")
+end
+
+function cmd.validate_outfit_upgrades(_,txt,x)
+	exec_console_cmd("clear_log")
+	x:SendOutput("-Started outfit upgrades scan")
+	
+	local ignore_param = {
+		["cost"] = true,
+		["value"] = true,
+	}
+	
+	local scan_list = {}
+	local n, m, result, par, value, o_value = 0,0,"","","",""
+	local s_find = string.find
+	local parameters = ui_debug_item.parameters["outfit"]
+	
+	ini_sys:section_for_each(function(section)
+		local valid_outfit = ini_sys:r_string_ex(section,"upgrades") and ini_sys:r_string_ex(section,"bones_koeff_protection") and (not s_find(section,"tch_")) and (not s_find(section,"mp_")) and (not s_find(section,"_base"))
+		if valid_outfit then
+			local sec = ini_sys:r_string_ex(section,"parent_section") or section	
+			
+			-- Gather upgrades
+			local upgrades = utils_item.get_upgrades_tree(section)
+			if upgrades and is_not_empty(upgrades) and (not scan_list[sec]) then
+				scan_list[sec] = {}
+				
+				for row,v in pairs(upgrades) do
+					for clmn,u in pairs(v) do
+						local u_sec = u.stats
+						--printf("~ [%s] scanning upgrade %s", sec, u_sec)
+						
+						n = ini_sys:line_count(u_sec)
+						for i=0,n-1 do
+							result, par, value = ini_sys:r_line_ex(u_sec,i,"","")
+							o_value = value
+							value = tonumber(value)
+							if o_value and (parameters[par] or (par == "immunities_sect_add")) and (not ignore_param[par]) then
+								if (not scan_list[sec][par]) then
+									scan_list[sec][par] = ini_sys:r_float_ex(sec,par)
+									--printf("- [%s] param: %s = %s", sec, par, scan_list[sec][par])
+								end
+								if scan_list[sec][par] then
+									scan_list[sec][par] = scan_list[sec][par] + value
+									--printf("- [%s] param modifier in upgr [%s]: %s = %s", sec, u_sec, par, value)
+								
+								elseif (par == "immunities_sect_add") and o_value then
+									m = ini_sys:line_count(o_value)
+									for j=0,m-1 do
+										result, par, value = ini_sys:r_line_ex(o_value,j,"","")
+										value = tonumber(value)
+										if value and (parameters[par]) and (not ignore_param[par]) then
+											if (not scan_list[sec][par]) then
+												local immunity = ini_sys:r_string_ex(sec,"immunities_sect")
+												scan_list[sec][par] = ini_sys:r_float_ex(immunity,par)
+												--printf("- [%s] param: %s = %s", sec, par, scan_list[sec][par])
+											end
+											if scan_list[sec][par] then
+												scan_list[sec][par] = scan_list[sec][par] + value
+												--printf("- [%s] param modifier in upgr [%s]: %s = %s", sec, u_sec, par, value)
+											else
+												printf("! [%s] param [%s]: %s don't exist", sec, par)
+											end
+										end
+									end
+								else
+									printf("! [%s] param [%s]: %s don't exist", sec, par)
+								end
+							end
+						end
+					end
+				end
+			end
+			
+		end
+	end)
+	
+	for sec, v in pairs(scan_list) do
+		for par, val in pairs(v) do
+			local _min = parameters[par].min
+			local _max = parameters[par].max
+			if (val < _min) or (val > _max) then
+				printf("! [%s] param (%s) get fucked on full upgrade: %s", sec, par, val)
+			end
+		end
+	end
+	
+	printf("- Finished upgrades scan")
+	x:SendOutput("-Finished upgrades scan")
+end
+
+function cmd.dump_system_ini()
+	ini_sys:save_as('system_full.ltx')
+end
+
+function cmd.dump_section(_,txt)
+	if txt and not (txt == '') and ini_sys:section_exist(txt) then
+		utils_data.print_table(utils_data.parse_ini_section_to_array(ini_sys,txt), txt)
+	end
+end
+
+function cmd.test_squad(_,txt,o)
+	local comm = alife():actor():community():sub(7)
+	local sim = alife()
+	comm = comm == 'dolg' and 'duty' or comm
+	comm = comm == 'army' and 'military' or comm
+	local num = 3	
+	if txt and not (txt == '') then
+		num = tonumber(txt) or num
+	end
+	
+	local id = smart_terrain.nearest_to_actor_smart.id
+	local smart = id and alife_object(id)
+	
+	if smart then
+		local npc_sec = strformat('sim_default_%s_0', comm)
+		o:SendOutput('spawning %s [%s] at %s', num, npc_sec, smart:name())
+		
+		local squad = sim:create('online_offline_group',smart.position,smart.m_level_vertex_id,smart.m_game_vertex_id)
+
+		for i=1, num do
+			squad:add_squad_member(npc_sec, smart.position,smart.m_level_vertex_id,smart.m_game_vertex_id)
+		end
+		
+		squad:set_squad_relation()
+		squad:refresh()
+	
+		SIMBOARD:assign_squad_to_smart(squad, smart.id)
+
+		for k in squad:squad_members() do
+			local se_obj = k.object or k.id and sim:object(k.id)
+			if (se_obj) then
+				SIMBOARD:setup_squad_and_group(se_obj)
+			end
+		end	
+		squad.scripted_target = smart:name()
+		return 'ok'
+	end	
+	return 'no smart'
+end
+
+function cmd.toggle_all_talk(_,__,o)
+	local old = load_var(db.actor,"force_all_talk", false)
+	save_var(db.actor,"force_all_talk",not old)
+	o:SendOutput('force all talk: %s', not old)
+	return "warning, keeping this active may cause problems, disable as soon you talked to the unresponsive npc"
+end
\ No newline at end of file
diff --git a/gamedata/scripts/dialogs_mlr.script b/gamedata/scripts/dialogs_mlr.script
new file mode 100644
index 000000000..cce7b1039
--- /dev/null
+++ b/gamedata/scripts/dialogs_mlr.script
@@ -0,0 +1,1755 @@
+
+
+-- ######################################################################
+-- #=========================== PRECONDITIONS ==========================#
+-- ######################################################################
+
+--====================< Check if actor has required money  >====================--
+function inf_trader_buy_transitions1()
+	return mlr_utils.have_money(7000)
+end
+function inf_trader_buy_transitions2()
+	return mlr_utils.have_money(11000)
+end
+function inf_trader_buy_transitions3()
+	return mlr_utils.have_money(9000)
+end
+function inf_trader_buy_transitions4()
+	return mlr_utils.have_money(9000)
+end
+function inf_trader_buy_transitions5()
+	return mlr_utils.have_money(30000)
+end
+function inf_trader_buy_transitions6()
+	return mlr_utils.have_money(35000)
+end
+function have_money_to_tech_yard_guid_marsh()
+	return mlr_utils.have_money(800)
+end
+function have_money_to_marsh_post_guid_marsh()
+	return mlr_utils.have_money(300)
+end
+function have_money_to_marsh_pump_water_guid_marsh()
+	return mlr_utils.have_money(500)
+end
+function have_money_to_garbage_guid_bar()
+	return mlr_utils.have_money(700)
+end
+function have_money_to_military_guid_bar()
+	return mlr_utils.have_money(1000)
+end
+function have_money_to_jupiter_underground_guid_jup()
+	return mlr_utils.have_money(1500)
+end
+function have_money_to_zaton_guid_jup()
+	return mlr_utils.have_money(2000)
+end
+function have_money_to_red_forest_guid_jup()
+	return mlr_utils.have_money(2500)
+end
+function have_money_darkscape_guid_military()
+	return mlr_utils.have_money(3000)
+end
+function have_money_to_escape_guid_bar()
+	return mlr_utils.have_money(3000)
+end
+function have_money_to_yantar_guid_bar()
+	return mlr_utils.have_money(3500)
+end
+function have_money_to_pripyat_guid_jup()
+	return mlr_utils.have_money(4000)
+end
+function have_money_to_escp_guid_mil()
+	return mlr_utils.have_money(4500)
+end
+function have_money_agroprom_guid_military()
+	return mlr_utils.have_money(5000)
+end
+function have_money_to_pripyat_guid_zat()
+	return mlr_utils.have_money(5000)
+end
+function have_money_to_jupiter_guid_bar()
+	return mlr_utils.have_money(6000)
+end
+function have_pri_special_trader_mlr_2()
+	return mlr_utils.have_money(6500)
+end
+function have_mil_to_yant_on_heli2()
+	return mlr_utils.have_money(7000)
+end
+function have_pri_special_trader_mlr_3()
+	return mlr_utils.have_money(7000)
+end
+function have_money_to_radar_guid_pri()
+	return mlr_utils.have_money(8000)
+end
+function have_pri_special_trader_mlr_1()
+	return mlr_utils.have_money(8000)
+end
+function have_pri_special_trader_mlr_4()
+	return mlr_utils.have_money(9500)
+end
+function have_mil_to_yant_on_heli()
+	return mlr_utils.have_money(10000)
+end
+function have_pri_special_trader_mlr_5()
+	return mlr_utils.have_money(11000)
+end
+function have_pri_special_trader_mlr_8()
+	return mlr_utils.have_money(14000)
+end
+function have_pri_special_trader_mlr_6()
+	return mlr_utils.have_money(17000)
+end
+function have_pri_special_trader_mlr_9()
+	return mlr_utils.have_money(17000)
+end
+function have_pri_special_trader_mlr_12()
+	return mlr_utils.have_money(18000)
+end
+function have_pri_special_trader_mlr_7()
+	return mlr_utils.have_money(19000)
+end
+function have_pri_special_trader_mlr_10()
+	return mlr_utils.have_money(20000)
+end
+function have_pri_special_trader_mlr_11()
+	return mlr_utils.have_money(24000)
+end
+function have_money_to_stancia_guid_pri()
+	return mlr_utils.have_money(12000)
+end
+function have_pri_special_trader_mlr_17()
+	return mlr_utils.have_money(50000)
+end
+function have_pri_special_trader_mlr_15()
+	return mlr_utils.have_money(65000)
+end
+function have_pri_special_trader_mlr_16()
+	return mlr_utils.have_money(70000)
+end
+function have_pri_special_trader_mlr_14()
+	return mlr_utils.have_money(75000)
+end
+function have_pri_special_trader_mlr_13()
+	return mlr_utils.have_money(100000)
+end
+function have_pri_special_trader_mlr_18()
+	return mlr_utils.have_money(150000)
+end
+function have_money_povars_ammo_pkm_100()
+        return mlr_utils.have_money(7000)
+end
+function have_information_about_stash_barmen()
+	return mlr_utils.have_money(15000)
+end
+function totaliz_1()
+	return mlr_utils.have_money(1000)
+end
+function totaliz_2()
+	return mlr_utils.have_money(2500)
+end
+function totaliz_5()
+	return mlr_utils.have_money(5000)
+end
+
+
+--====================< Check if actor has required items  >====================--
+function has_wpn_protecta_task_noah_1(first_speaker, second_speaker)
+	return mlr_utils.have_item('wpn_protecta', 1)
+end 
+function has_1_11_af_medusa_kmb(first_speaker, second_speaker)
+	return mlr_utils.have_item('af_medusa_lead_box', 1)
+end 
+function have_blackbox_mlr(first_speaker, second_speaker)
+	return mlr_utils.have_item('blackbox_mlr', 1)
+end 
+function have_pri_a18_barter_9_19(first_speaker, second_speaker)
+	return mlr_utils.have_item('ammo_9x19_fmj', 100)
+end 
+function have_pri_a18_barter_5_56(first_speaker, second_speaker)
+	return mlr_utils.have_item('ammo_5.56x45_ss190', 100)
+end 
+function have_pri_a18_barter_f1(first_speaker, second_speaker)
+	return mlr_utils.have_item('grenade_f1', 20)
+end 
+function have_pri_a18_barter_rgd5(first_speaker, second_speaker)
+	return mlr_utils.have_item('grenade_rgd5', 10)
+end 
+function have_duty_patch_15(first_speaker, second_speaker)
+	return mlr_utils.have_item('dolg_patch', 15)
+end 
+function have_duty_patch_20(first_speaker, second_speaker) 
+	return mlr_utils.have_item('dolg_patch', 20)
+end
+function have_duty_patch_50(first_speaker, second_speaker) 
+	return mlr_utils.have_item('dolg_patch', 50)
+end 
+function have_duty_patch_65(first_speaker, second_speaker) 
+	return mlr_utils.have_item('dolg_patch', 65)
+end 
+function have_duty_patch_100(first_speaker, second_speaker) 
+	return mlr_utils.have_item('dolg_patch', 100)
+end 
+function have_csky_patch_for_lottery_10(first_speaker, second_speaker)
+	return mlr_utils.have_item('csky_patch', 25)
+end 
+function have_freedom_patch_for_lottery_10(first_speaker, second_speaker)
+	return mlr_utils.have_item('freedom_patch', 25)
+end 
+function have_stalker_patch_for_lottery_10(first_speaker, second_speaker)
+	return mlr_utils.have_item('stalker_patch', 25)
+end 
+function have_ecolog_patch_for_lottery_10(first_speaker, second_speaker)
+	return mlr_utils.have_item('ecolog_patch', 25)
+end 
+function have_bandit_patch_for_lottery_10(first_speaker, second_speaker)
+	return mlr_utils.have_item('bandit_patch', 25)
+end 
+function have_duty_patch_for_lottery_10(first_speaker, second_speaker)
+	return mlr_utils.have_item('dolg_patch', 25)
+end 
+function have_monolith_patch_for_lottery_10(first_speaker, second_speaker)
+	return mlr_utils.have_item('monolith_patch', 25)
+end 
+function have_army_patch_for_lottery_10(first_speaker, second_speaker)
+	return mlr_utils.have_item('army_patch', 25)
+end 
+function have_csky_patch_for_lottery_50(first_speaker, second_speaker)
+	return mlr_utils.have_item('csky_patch', 50)
+end 
+function have_freedom_patch_for_lottery_50(first_speaker, second_speaker)
+	return mlr_utils.have_item('freedom_patch', 50)
+end 
+function have_stalker_patch_for_lottery_50(first_speaker, second_speaker)
+	return mlr_utils.have_item('stalker_patch', 50)
+end 
+function have_ecolog_patch_for_lottery_50(first_speaker, second_speaker)
+	return mlr_utils.have_item('ecolog_patch', 50)
+end 
+function have_bandit_patch_for_lottery_50(first_speaker, second_speaker)
+	return mlr_utils.have_item('bandit_patch', 50)
+end 
+function have_duty_patch_for_lottery_50(first_speaker, second_speaker)
+	return mlr_utils.have_item('dolg_patch', 50)
+end 
+function have_monolith_patch_for_lottery_50(first_speaker, second_speaker)
+	return mlr_utils.have_item('monolith_patch', 50)
+end 
+function have_army_patch_for_lottery_50(first_speaker, second_speaker)
+	return mlr_utils.have_item('army_patch', 50)
+end
+
+function have_vodka5(first_speaker, second_speaker)
+	return mlr_utils.have_item('vodka', 5) 
+end 
+function have_vodka10(first_speaker, second_speaker) 
+	return mlr_utils.have_item('vodka', 10) 
+end 
+function have_vodka20(first_speaker, second_speaker) 
+	return mlr_utils.have_item('vodka', 20) 
+end
+function have_vodka15(first_speaker, second_speaker) 
+	return mlr_utils.have_item('vodka', 15) 
+end
+
+function has_lx8_history_document()
+	return (mlr_utils.have_item('lx8_history_documents') or mlr_utils.have_item('lx8_history_2_documents') or mlr_utils.have_item('lx8_history_3_documents'))
+end
+function has_controller_brain()
+	return mlr_utils.have_item('mutant_part_controller_glass')
+end
+function has_mlr_x8_documents()
+	return mlr_utils.have_item('mlr_x8_documents')
+end
+function has_af_electra_flash()
+	return mlr_utils.have_item('af_electra_flash')
+end
+function has_af_electra_moonlight()
+	return mlr_utils.have_item('af_electra_moonlight')
+end
+function has_af_soul()
+	return mlr_utils.have_item('af_soul')
+end
+function has_af_vyvert()
+	return mlr_utils.have_item('af_vyvert')
+end
+
+
+--====================< Check if actor can afford items  >====================--
+function can_afford_extra_item(txt)
+	local extra_ini = ini_file("plugins\\mlr.ltx")
+	local item = extra_ini:r_string_ex("extra_items", txt .. "_section") or ""
+	local count = extra_ini:r_float_ex("extra_items", txt .. "_count") or 0
+	if item and (item ~= "") and ini_sys:section_exist(item) and (count > 0) then
+		local cost = mlr_utils.get_cost_sect(item, count) 
+		if db.actor:money() >= cost then 
+			return true 
+		end 
+	end
+	return false
+end
+function can_afford_extra_med_1()
+	return can_afford_extra_item("med_1") 
+end
+function can_afford_extra_med_2()
+	return can_afford_extra_item("med_2")  
+end
+function can_afford_extra_med_3()
+	return can_afford_extra_item("med_3") 
+end
+function can_afford_extra_med_4()
+	return can_afford_extra_item("med_4") 
+end
+function can_afford_extra_med_5()
+	return can_afford_extra_item("med_5") 
+end
+function can_afford_extra_food_1()
+	return can_afford_extra_item("food_1") 
+end
+function can_afford_extra_food_2()
+	return can_afford_extra_item("food_2") 
+end
+function can_afford_extra_food_3()
+	return can_afford_extra_item("food_3") 
+end
+function can_afford_extra_food_4()
+	return can_afford_extra_item("food_4") 
+end
+function can_afford_extra_food_5()
+	return can_afford_extra_item("food_5") 
+end
+function can_afford_extra_ammo_1()
+	return can_afford_extra_item("ammo_1") 
+end
+function can_afford_extra_ammo_2()
+	return can_afford_extra_item("ammo_2") 
+end
+function can_afford_extra_ammo_3()
+	return can_afford_extra_item("ammo_3") 
+end
+function can_afford_extra_ammo_4()
+	return can_afford_extra_item("ammo_4") 
+end
+function can_afford_extra_ammo_5()
+	return can_afford_extra_item("ammo_5") 
+end
+function can_afford_extra_ammo_6()
+	return can_afford_extra_item("ammo_6") 
+end
+function can_afford_extra_ammo_7()
+	return can_afford_extra_item("ammo_7") 
+end
+function can_afford_extra_ammo_8()
+	return can_afford_extra_item("ammo_8") 
+end
+function can_afford_extra_ammo_9()
+	return can_afford_extra_item("ammo_9") 
+end
+function can_afford_extra_ammo_10()
+	return can_afford_extra_item("ammo_10") 
+end
+function can_afford_extra_ammo_11()
+	return can_afford_extra_item("ammo_11") 
+end
+function can_afford_extra_ammo_12()
+	return can_afford_extra_item("ammo_12") 
+end
+function can_afford_extra_ammo_13()
+	return can_afford_extra_item("ammo_13") 
+end
+function can_afford_extra_ammo_14()
+	return can_afford_extra_item("ammo_14") 
+end
+function can_afford_extra_ammo_15()
+	return can_afford_extra_item("ammo_15")
+end
+function can_afford_extra_ammo_16()
+	return can_afford_extra_item("ammo_16")
+end
+function can_afford_extra_ammo_17()
+	return can_afford_extra_item("ammo_17")
+end
+function can_afford_extra_ammo_18()
+	return can_afford_extra_item("ammo_18")
+end
+function can_afford_extra_ammo_19()
+	return can_afford_extra_item("ammo_19")
+end
+
+
+--====================< AWR  >====================--
+function awr_if_actor_has_1000(first_speaker, second_speaker)
+	return mlr_utils.have_money(1000)
+end 
+function awr_not_on_table(first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local npc_name = npc:section()
+	if not (db.actor:has_info(string.format("awr_%s_on_table", npc_name))) then
+		bind_awr.dout('dialogs', "Infoportion awr_%s_on_table not exist", npc_name)
+		return true
+	end
+end
+
+function toolkit_task_done_3(first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local npc_sec = npc:section()
+	if npc_sec and db.actor:has_info(npc_sec .. "_upgrade_tier_3") then
+		return true
+	end
+	return false
+end
+
+function not_toolkit_task_done_3(first_speaker, second_speaker)
+	return not toolkit_task_done_3(first_speaker, second_speaker)
+end
+
+--====================< Special  >====================--
+function check_debt (first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	get_debt_npc(npc)
+	if mlr_utils.load_var("debt_" .. tostring(npc:id())) then
+		return true
+	end
+	return false
+end
+function check_no_debt (first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	get_debt_npc(npc)
+	if (not mlr_utils.load_var("debt_" .. tostring(npc:id()))) then
+		return true
+	end
+	return false
+end
+function have_money_debt (first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local money = mlr_utils.load_var("debt_" .. tostring(npc:id()))
+	money = money + (money * 0.5)
+	if (first_speaker:money() >= money) then
+		return true
+	end
+	return false
+end
+
+function request_extra_items_on (first_speaker, second_speaker)
+	local actor = dialogs.who_is_actor(first_speaker, second_speaker)
+	local rank = ranks.get_obj_rank_name(actor)
+	if (rank == "professional" or rank == "veteran" or rank == "expert" or rank == "master" or rank == "legend") then
+     return true
+   else
+     return false
+   end
+end
+function request_extra_items_off (first_speaker, second_speaker)
+	local actor = dialogs.who_is_actor(first_speaker, second_speaker)
+	local rank = ranks.get_obj_rank_name(actor)
+	if (rank == "novice" or rank == "trainee" or rank == "experienced") then
+     return true
+   else
+     return false
+   end
+end
+function request_to_fly(actor)
+	local rank = ranks.get_obj_rank_name(actor)
+	if (rank == "professional" or rank == "veteran" or rank == "expert" or rank == "master" or rank == "legend") then
+     return true
+   else
+     return false
+   end
+end
+
+
+
+
+-- ######################################################################
+-- #============================== ACTIONS =============================#
+-- ######################################################################
+
+--====================< Take money from actor >====================--
+function give_money_to_jupiter_guid_bar(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 6000) 
+end
+function sell_money_to_tech_yard_guid_marsh(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 800) 
+end
+function give_information_about_stash_barmen(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 15000) 
+end
+function sell_money_povars_ammo_pkm_100(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 7000)
+end
+function give_pri_special_trader_mlr_1(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 8000) 
+end
+function give_pri_special_trader_mlr_2(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 6500) 
+end
+function give_pri_special_trader_mlr_3(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 7000) 
+end
+function give_pri_special_trader_mlr_4(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 9500) 
+end
+function give_pri_special_trader_mlr_5(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 11000) 
+end
+function give_pri_special_trader_mlr_6(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 17000) 
+end
+function give_pri_special_trader_mlr_7(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 19000) 
+end
+function give_pri_special_trader_mlr_8(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 14000) 
+end
+function give_pri_special_trader_mlr_9(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 17000) 
+end
+function give_pri_special_trader_mlr_10(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 20000) 
+end
+function give_pri_special_trader_mlr_11(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 24000) 
+end
+function give_pri_special_trader_mlr_12(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 18000) 
+end
+function give_pri_special_trader_mlr_13(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 100000) 
+end
+function give_pri_special_trader_mlr_14(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 75000) 
+end
+function give_pri_special_trader_mlr_15(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 65000) 
+end
+function give_pri_special_trader_mlr_16(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 70000) 
+end
+function give_pri_special_trader_mlr_17(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 50000) 
+end
+function give_pri_special_trader_mlr_18(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 150000) 
+end
+function sell_money_darkscape_guid_military(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 3000)
+end
+function sell_money_agroprom_guid_military(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 5000)
+end
+function give_mil_to_yant_on_heli2(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 7000) 
+end
+function give_mil_to_yant_on_heli(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 10000) 
+end
+function sell_money_to_marsh_pump_water_guid_marsh(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 500)
+end
+function sell_money_to_marsh_post_guid_marsh(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 300)
+end
+function sell_money_to_radar_guid_pri(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 8000)
+end
+function sell_money_to_pripyat_guid_zat(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 5000)
+end
+function sell_money_to_stancia_guid_pri(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 12000)
+end
+function sell_money_to_zaton_guid_jup(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 2000)
+end
+function sell_money_to_pripyat_guid_jup(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 4000)
+end
+function sell_money_to_red_forest_guid_jup(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 2500)
+end
+function sell_money_to_jupiter_underground_guid_jup(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 1500)
+end
+function sell_money_to_yantar_guid_bar(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 3500)
+end
+function sell_money_to_military_guid_bar(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 1000)
+end
+function sell_money_to_garbage_guid_bar(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 700)
+end
+function sell_money_to_escape_guid_bar(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 3000)
+end
+function sell_money_to_escp_guid_mil(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 4500)
+end
+function sell_money_to_jupiter_guid_bar(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 6000)
+end
+function sell_money_povars_ammo_pkm_100(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 7000)
+end
+function inf_trader_buy_transitions11(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 7000) 
+end
+function inf_trader_buy_transitions22(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 11000) 
+end
+function inf_trader_buy_transitions33(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 9000) 
+end
+function inf_trader_buy_transitions44(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 9000) 
+end
+function inf_trader_buy_transitions55(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 30000) 
+end
+function inf_trader_buy_transitions66(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 35000) 
+end
+function take_totaliz_1(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 1000) 
+end
+function take_totaliz_2(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 2500) 
+end
+function take_totaliz_5(first_speaker, second_speaker) 
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 5000) 
+end
+
+function take_cost_of_extra_item (first_speaker, second_speaker, txt)
+	local extra_ini = ini_file("plugins\\mlr.ltx")
+	local item = extra_ini:r_string_ex("extra_items", txt .. "_section") or ""
+	local count = extra_ini:r_float_ex("extra_items", txt .. "_count") or 0
+	if item and (item ~= "") and ini_sys:section_exist(item) and (count > 0) then
+		local cost = mlr_utils.get_cost_sect(item, count) 
+		if db.actor:money() >= cost then 
+			dialogs.relocate_money_from_actor(first_speaker, second_speaker, cost) 
+		end
+	end
+end
+function take_cost_of_extra_med_1(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "med_1") 
+end
+function take_cost_of_extra_med_2(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "med_2")  
+end
+function take_cost_of_extra_med_3(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "med_3") 
+end
+function take_cost_of_extra_med_4(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "med_4") 
+end
+function take_cost_of_extra_med_5(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "med_5") 
+end
+function take_cost_of_extra_food_1(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "food_1") 
+end
+function take_cost_of_extra_food_2(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "food_2") 
+end
+function take_cost_of_extra_food_3(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "food_3") 
+end
+function take_cost_of_extra_food_4(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "food_4") 
+end
+function take_cost_of_extra_food_5(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "food_5") 
+end
+function take_cost_of_extra_ammo_1(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_1") 
+end
+function take_cost_of_extra_ammo_2(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_2") 
+end
+function take_cost_of_extra_ammo_3(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_3") 
+end
+function take_cost_of_extra_ammo_4(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_4") 
+end
+function take_cost_of_extra_ammo_5(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_5") 
+end
+function take_cost_of_extra_ammo_6(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_6") 
+end
+function take_cost_of_extra_ammo_7(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_7") 
+end
+function take_cost_of_extra_ammo_8(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_8") 
+end
+function take_cost_of_extra_ammo_9(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_9") 
+end
+function take_cost_of_extra_ammo_10(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_10") 
+end
+function take_cost_of_extra_ammo_11(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_11") 
+end
+function take_cost_of_extra_ammo_12(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_12") 
+end
+function take_cost_of_extra_ammo_13(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_13") 
+end
+function take_cost_of_extra_ammo_14(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_14") 
+end
+function take_cost_of_extra_ammo_15(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_15")
+end
+function take_cost_of_extra_ammo_16(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_16")
+end
+function take_cost_of_extra_ammo_17(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_17")
+end
+function take_cost_of_extra_ammo_18(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_18")
+end
+function take_cost_of_extra_ammo_19(first_speaker, second_speaker)
+	take_cost_of_extra_item(first_speaker, second_speaker, "ammo_19")
+end
+
+
+--====================< Take items from actor >====================--
+function take_wpn_protecta_noah_task_1(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "wpn_protecta",1)
+end
+function take_af_electra_flash(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "af_electra_flash",1)
+end
+function take_af_electra_moonlight(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "af_electra_moonlight",1)
+end
+function take_af_soul(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "af_soul",1)
+end
+function take_af_vyvert(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "af_vyvert",1)
+end
+function take_blackbox_mlr(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "blackbox_mlr",1)
+end
+function take_pri_a18_barter_9_19(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "ammo_9x19_fmj",100)
+end
+function take_pri_a18_barter_5_56(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "ammo_5.56x45_ss190",100)
+end
+function take_pri_a18_barter_f1(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "grenade_f1",20)
+end
+function take_pri_a18_barter_rgd5(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "grenade_rgd5",10)
+end
+function reward_for_lx8_history_document(first_speaker, second_speaker)
+	if mlr_utils.have_item('lx8_history_documents') then
+		dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "lx8_history_documents")
+		dialogs.relocate_money_to_actor(first_speaker, second_speaker, 7000) 
+	end
+	if mlr_utils.have_item('lx8_history_2_documents') then
+		dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "lx8_history_2_documents")
+		dialogs.relocate_money_to_actor(first_speaker, second_speaker, 7000) 
+	end
+	if mlr_utils.have_item('lx8_history_3_documents') then
+		dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "lx8_history_3_documents")
+		dialogs.relocate_money_to_actor(first_speaker, second_speaker, 7000) 
+	end
+end
+function take_duty_patch_15(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "dolg_patch",15)
+end
+function take_duty_patch_20(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "dolg_patch",20)
+end
+function take_duty_patch_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "dolg_patch",50)
+end
+function take_duty_patch_65(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "dolg_patch",65)
+end
+function take_duty_patch_100(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "dolg_patch",100)
+end
+function take_part_controller_glass(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "mutant_part_controller_glass")
+end
+function take_vodka5(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "vodka",5)
+end
+function take_vodka10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "vodka",10)
+end
+function take_vodka20(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "vodka",20)
+end
+function take_vodka15(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "vodka",15)
+end
+function take_csky_patch_for_lottery_10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "csky_patch",25)
+end
+function take_duty_patch_for_lottery_10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "dolg_patch",25)
+end
+function take_freedom_patch_for_lottery_10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "freedom_patch",25)
+end
+function take_stalker_patch_for_lottery_10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "stalker_patch",25)
+end
+function take_ecolog_patch_for_lottery_10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "ecolog_patch",25)
+end
+function take_bandit_patch_for_lottery_10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "bandit_patch",25)
+end
+function take_monolith_patch_for_lottery_10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "monolith_patch",25)
+end
+function take_army_patch_for_lottery_10(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "army_patch",25)
+end
+function take_csky_patch_for_lottery_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "csky_patch",50)
+end
+function take_duty_patch_for_lottery_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "dolg_patch",50)
+end
+function take_freedom_patch_for_lottery_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "freedom_patch",50)
+end
+function take_stalker_patch_for_lottery_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "stalker_patch",50)
+end
+function take_ecolog_patch_for_lottery_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "ecolog_patch",50)
+end
+function take_bandit_patch_for_lottery_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "bandit_patch",50)
+end
+function take_monolith_patch_for_lottery_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "monolith_patch",50)
+end
+function take_army_patch_for_lottery_50(first_speaker, second_speaker)
+    dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "army_patch",50)
+end
+
+
+
+--====================< Give money to actor >====================--
+function take_money_from_army_blackbox(first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 5000) 
+end
+function take_money_from_haron_blackbox(first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 5000) 
+end
+function take_money_from_owl_blackbox(first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 7500) 
+end
+function take_money_from_lidership_blackbox(first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 10000) 
+end
+function total_reward_1000(actor,npc,p)
+	dialogs.relocate_money(db.actor,math.random(tonumber(2000),tonumber(4000)),"in")
+end
+function total_reward_2500(actor,npc,p)
+	dialogs.relocate_money(db.actor,math.random(tonumber(3500),tonumber(6000)),"in")
+end
+function total_reward_5000(actor,npc,p)
+	dialogs.relocate_money(db.actor,math.random(tonumber(7000),tonumber(15000)),"in")
+end
+function give_money_5000(first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 5000) 
+end
+function give_money_7500(first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 7500) 
+end
+function give_money_10000 (first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 10000) 
+end
+function give_money_15000 (first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 15000) 
+end
+function give_money_20000 (first_speaker, second_speaker) 
+	dialogs.relocate_money_to_actor(first_speaker, second_speaker, 20000) 
+end
+
+
+--====================< Give items to actor >====================--
+function give_staff_about_dog_marsh_part_two(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "bread", 3) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "conserva", 2) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "vodka", 2)  
+end
+function give_antirad_from_fanat(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "vodka")  
+end
+function give_freedom_set_mlr(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "svoboda_light_outfit")
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_mp5") 
+end
+function give_det_adva_from_fanat(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "detector_simple")  
+end
+function give_lead_box_from_fanat(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "lead_box")  
+end
+function give_bolts_from_fanat(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "bolt",5)  
+end
+function take_pri_special_trader_mlr_2(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_sig220_nimble")  
+end
+function take_pri_special_trader_mlr_3(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_usp_nimble")  
+end
+function take_pri_special_trader_mlr_4(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_mp5_nimble")  
+end
+function take_pri_special_trader_mlr_5(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_spas12_nimble")  
+end
+function take_pri_special_trader_mlr_6(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_protecta_nimble")  
+end
+function take_pri_special_trader_mlr_7(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_groza_nimble")  
+end
+function take_pri_special_trader_mlr_8(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_g36_nimble")  
+end
+function take_pri_special_trader_mlr_9(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_fn2000_nimble")  
+end
+function take_pri_special_trader_mlr_10(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_vintorez_nimble")  
+end
+function take_pri_special_trader_mlr_11(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_svu_nimble")  
+end
+function take_pri_special_trader_mlr_12(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_svd_nimble")  
+end
+function take_pri_special_trader_mlr_13(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "monolith_exo_outfit")  
+end
+function take_pri_special_trader_mlr_14(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "merc_exo_outfit")  
+end
+function take_pri_special_trader_mlr_15(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "bandit_exo_outfit")  
+end
+function take_pri_special_trader_mlr_16(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "monolith_scientific_outfit")  
+end
+function take_pri_special_trader_mlr_17(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "merc_scientific_outfit")  
+end
+function take_pri_special_trader_mlr_18(first_speaker, second_speaker) 
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_gauss")  
+end
+function take_pri_special_trader_mlr_1(first_speaker, second_speaker) 
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_desert_eagle_nimble") 
+end
+function give_sso_from_ashot_mlr(first_speaker, second_speaker)
+    dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "svoboda_scientific_outfit")
+end
+function give_wpn_svd_from_ashot_mlr(first_speaker, second_speaker)
+    dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_svd_nimble")
+end
+function give_seo_from_ashot_mlr(first_speaker, second_speaker)
+    dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "svoboda_exo_outfit")
+end
+function lottery_present_low_1(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_electra_sparkler")  
+end
+function lottery_present_low_2(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_gravi")  
+end
+function lottery_present_low_3(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_blood")  
+end
+function lottery_present_low_4(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_electra_flash")  
+end
+function lottery_present_low_5(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_medusa")  
+end
+function lottery_present_low_6(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_cristall")  
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_electra_moonlight")
+end
+function lottery_present_medium_1(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_night_star")  
+end
+function lottery_present_medium_2(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_vyvert")  
+end
+function lottery_present_medium_3(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_dummy_glassbeads")  
+end
+function lottery_present_medium_4(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_soul")  
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_glass")  
+end
+function lottery_present_hight_1(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_gold_fish")  
+end
+function lottery_present_hight_2(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_fireball")  
+end
+function lottery_present_hight_3(first_speaker, second_speaker) 
+dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_baloon")
+end
+function lottery_present_medium_5(first_speaker, second_speaker) 
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_electra_moonlight")
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_lr300") 
+	dialogs.relocate_item_section(second_speaker, "ammo_5.56x45_ap", "in",3)  
+	dialogs.relocate_item_section(second_speaker, "ammo_9x39_pab9", "in",3) 
+end
+function lottery_present_medium_6(first_speaker, second_speaker) 
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_gravi") 
+	dialogs.relocate_item_section(second_speaker, "medkit_scientic", "in",5)  
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_colt1911")  
+end
+function lottery_present_medium_7(first_speaker, second_speaker) 
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "af_vyvert")  
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "detector_elite") 
+	dialogs.relocate_item_section(second_speaker, "drug_anabiotic", "in",2)   
+end
+function lottery_present_hight_4(first_speaker, second_speaker) 
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "wpn_vintorez")
+	dialogs.relocate_item_section(second_speaker, "ammo_9x39_ap", "in",6)  
+end
+function lottery_present_hight_5(first_speaker, second_speaker) 
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "merc_scientific_outfit")
+	dialogs.relocate_item_section(second_speaker, "drug_anabiotic", "in",2)
+	dialogs.relocate_item_section(second_speaker, "medkit_scientic", "in",5)
+end
+function give_pri_a18_barter_9_19(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "ammo_9x18_pmm", "in",100)
+end
+function give_pri_a18_barter_5_56(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "ammo_5.45x39_fmj", "in",100)
+end
+function give_pri_a18_barter_f1(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "ammo_m209", "in",20)
+end
+function give_pri_a18_barter_rgd5(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "ammo_og-7b", "in",3)
+end
+function give_svd_ammo_from_ashot_mlr(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "ammo_7.62x54_7h1", "in",5)
+end
+function give_ammo_nato_from_ashot_mlr(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "ammo_5.56x45_ss190", "in",7)
+end
+function give_ammo_m209_from_ashot_mlr(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "ammo_m209", "in",20)
+end
+function give_army_grugs(first_speaker, second_speaker)
+dialogs.relocate_item_section(second_speaker, "medkit_army", "in",5)
+end
+function give_ecolog_grugs(first_speaker, second_speaker)
+dialogs.relocate_item_section(second_speaker, "medkit_scientic", "in",4)
+end
+function give_veles(first_speaker, second_speaker)
+dialogs.relocate_item_section(second_speaker, "detector_elite", "in",1)
+end
+function give_anabionic_drug(first_speaker, second_speaker)
+dialogs.relocate_item_section(second_speaker, "drug_anabiotic", "in",2)
+end
+
+function give_extra_item (first_speaker, second_speaker, txt)
+	local extra_ini = ini_file("plugins\\mlr.ltx")
+	local item = extra_ini:r_string_ex("extra_items", txt .. "_section") or ""
+	local count = extra_ini:r_float_ex("extra_items", txt .. "_count") or 0
+	if item and (item ~= "") and ini_sys:section_exist(item) and (count > 0) then
+		dialogs.relocate_item_section(second_speaker, item, "in", count) 
+	end
+end
+function give_extra_med_1(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "med_1") 
+end
+function give_extra_med_2(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "med_2")  
+end
+function give_extra_med_3(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "med_3") 
+end
+function give_extra_med_4(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "med_4") 
+end
+function give_extra_med_5(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "med_5") 
+end
+function give_extra_food_1(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "food_1") 
+end
+function give_extra_food_2(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "food_2") 
+end
+function give_extra_food_3(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "food_3") 
+end
+function give_extra_food_4(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "food_4") 
+end
+function give_extra_food_5(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "food_5") 
+end
+function give_extra_ammo_1(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_1") 
+end
+function give_extra_ammo_2(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_2") 
+end
+function give_extra_ammo_3(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_3") 
+end
+function give_extra_ammo_4(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_4") 
+end
+function give_extra_ammo_5(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_5") 
+end
+function give_extra_ammo_6(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_6") 
+end
+function give_extra_ammo_7(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_7") 
+end
+function give_extra_ammo_8(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_8") 
+end
+function give_extra_ammo_9(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_9") 
+end
+function give_extra_ammo_10(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_10") 
+end
+function give_extra_ammo_11(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_11") 
+end
+function give_extra_ammo_12(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_12") 
+end
+function give_extra_ammo_13(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_13") 
+end
+function give_extra_ammo_14(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_14") 
+end
+function give_extra_ammo_15(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_15")
+end
+function give_extra_ammo_16(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_16")
+end
+function give_extra_ammo_17(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_17")
+end
+function give_extra_ammo_18(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_18")
+end
+function give_extra_ammo_19(first_speaker, second_speaker)
+	give_extra_item(first_speaker, second_speaker, "ammo_19")
+end
+
+
+--====================< Travel to map >====================--
+function ds_soviet_store(actor,npc,p)
+mlr_utils.change_lvl('ds_soviet_store')
+end
+function zat_trash_station(actor,npc,p)
+mlr_utils.change_lvl('zat_trash_station')
+end
+function mil_to_yant_on_heli(actor,npc,p)
+mlr_utils.change_lvl('mil_to_yant_on_heli')
+end
+function jup_guid_bandit_cont(actor,npc,p)
+mlr_utils.change_lvl('jup_guid_bandit_cont')
+end
+function red_forest_guid_mon(actor,npc,p)
+mlr_utils.change_lvl('red_forest_guid_mon')
+end
+function l11_pripyat_guid_mon(actor,npc,p)
+mlr_utils.change_lvl('l11_pripyat_guid_mon')
+end
+function pripyat_guid_mon(actor,npc,p)
+mlr_utils.change_lvl('pripyat_guid_mon')
+end
+function jupiter_guid_mon(actor,npc,p)
+mlr_utils.change_lvl('jupiter_guid_mon')
+end
+function escp_guid_mil_speed(actor,npc,p)
+mlr_utils.change_lvl('escp_guid_mil_speed')
+end
+function agroprom_guid_military(actor,npc,p)
+mlr_utils.change_lvl('agroprom_guid_military')
+end
+function escape_guid_military(actor,npc,p)
+mlr_utils.change_lvl('escape_guid_military')
+end
+function darkscape_guid_military(actor,npc,p)
+mlr_utils.change_lvl('darkscape_guid_military')
+end
+function jup_bunker_guid(actor,npc,p)
+mlr_utils.change_lvl('jup_bunker_guid')
+end
+function agroprom_guid(actor,npc,p)
+mlr_utils.change_lvl('agroprom_guid')
+end
+function marsh_guid(actor,npc,p)
+mlr_utils.change_lvl('marsh_guid')
+end
+function escape_village_guid(actor,npc,p)
+mlr_utils.change_lvl('escape_village_guid')
+end
+function trucks_cemetery_guid(actor,npc,p)
+mlr_utils.change_lvl('trucks_cemetery_guid')
+end
+function stancia_guid(actor,npc,p)
+mlr_utils.change_lvl('stancia_guid')
+end
+function pripyat_2_guid(actor,npc,p)
+mlr_utils.change_lvl('pripyat_2_guid')
+end
+function radar_guid(actor,npc,p)
+mlr_utils.change_lvl('radar_guid')
+end
+function jupiter_underground_2_guid(actor,npc,p)
+mlr_utils.change_lvl('jupiter_underground_2_guid')
+end
+function zaton_guid(actor,npc,p)
+mlr_utils.change_lvl('zaton_guid')
+end
+function pripyat_guid(actor,npc,p)
+mlr_utils.change_lvl('pripyat_guid')
+end
+function l11_pripyat_guid(actor,npc,p)
+mlr_utils.change_lvl('l11_pripyat_guid')
+end
+function red_forest_guid(actor,npc,p)
+mlr_utils.change_lvl('red_forest_guid')
+end
+function l05_bar_guid(actor,npc,p)
+mlr_utils.change_lvl('l05_bar_guid')
+end
+function jupiter_underground_guid(actor,npc,p)
+mlr_utils.change_lvl('jupiter_underground_guid')
+end
+function yantar_guid(actor,npc,p)
+mlr_utils.change_lvl('yantar_guid')
+end
+function military_guid(actor,npc,p)
+mlr_utils.change_lvl('military_guid')
+end
+function garbage_guid(actor,npc,p)
+mlr_utils.change_lvl('garbage_guid')
+end
+function escape_guid(actor,npc,p)
+mlr_utils.change_lvl('escape_guid')
+end
+function jupiter_guid(actor,npc,p)
+mlr_utils.change_lvl('jupiter_guid')
+end
+function yantar_guid_from_freedom_base(actor,npc,p)
+mlr_utils.change_lvl('yantar_guid_from_freedom_base')
+end
+
+
+--====================< Increase good-will  >====================--
+function goodwill_for_blackbox_monolith_reward(a,b)
+	xr_effects.inc_faction_goodwill_to_actor(db.actor, nil, {"monolith", 100})
+end
+function goodwill_for_blackbox_army_reward(a,b)
+	xr_effects.inc_faction_goodwill_to_actor(db.actor, nil, {"army", 100})
+end
+function goodwill_for_blackbox_csky_reward(a,b)
+	xr_effects.inc_faction_goodwill_to_actor(db.actor, nil, {"csky", 100})
+end
+function goodwill_for_blackbox_freedom_reward(a,b)
+	xr_effects.inc_faction_goodwill_to_actor(db.actor, nil, {"freedom", 100})
+end
+function goodwill_for_blackbox_killer_reward(a,b)
+	xr_effects.inc_faction_goodwill_to_actor(db.actor, nil, {"killer", 100})
+end
+
+
+--====================< Spawn items >====================--
+function spawn_1_11_af_medusa_kmb(first_speaker, second_speaker)
+alife(alife_pripyat):create("af_medusa",vector():set(-249.45230102539,-13.491371154785,-29.858497619629),12990,386)
+end
+function spawn_povars_12_70(first_speaker, second_speaker)
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "ammo_12x70_buck", 3)
+end
+function spawn_povars_ammo_pkm_100(first_speaker, second_speaker)
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "ammo_pkm_100", 3)
+end
+function spawn_povars_9_18_6(first_speaker, second_speaker)
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "ammo_9x18_fmj", 4)
+end
+function spawn_povars_5_45_3(first_speaker, second_speaker)
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "ammo_5.45x39_fmj", 2)
+end
+function spawn_povars_5_45_6(first_speaker, second_speaker)
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "ammo_5.45x39_fmj", 4)
+end
+function spawn_povars_7_62(first_speaker, second_speaker)
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "ammo_7.62x54_7h1", 1)
+end
+function spawn_povars_berill(first_speaker, second_speaker)
+	dialogs.relocate_item_section_to_actor(first_speaker, second_speaker, "specops_outfit", 1)
+end
+function spawn_lx8_history_douemnts(first_speaker, second_speaker)
+	xr_effects.spawn_item_at_pos(first_speaker, second_speaker, {"lx8_history_documents"})
+	xr_effects.spawn_item_at_pos(first_speaker, second_speaker, {"lx8_history_2_documents"})
+	xr_effects.spawn_item_at_pos(first_speaker, second_speaker, {"lx8_history_3_documents"})
+end
+
+function give_recipe_cooking_1(first_speaker, second_speaker)
+	xr_effects.give_letter(first_speaker, second_speaker, {"recipe_cooking_1"})
+end
+
+
+--====================< Technical >====================--
+local community = {
+	["stalker"] = "Free Stalkers",
+	["monolith"] = "Monolith",
+	["csky"] = "Clear Sky",
+	["army"] = "Military",
+	["bandit"] = "Bandits",
+	["killer"] = "Mercenaries",
+	["ecolog"] = "Ecologists",
+	["dolg"] = "Duty",
+	["freedom"] = "Freedom",
+	["renegade"] = "Renegade",
+	["greh"] = "Sin",
+	["isg"] = "UNISG",
+	["zombied"] = "Zombies",
+	["trader"] = "Traders"
+}
+
+function show_goodwill_change_message(comm, comm_n, comm_e, is_gain) -- modified cause MLR is retarded
+	if (ui_options.get("gameplay/general/show_tip_reputation")) and comm then
+		--printf("-show_goodwill_change_message %s",comm)
+		local str_title = game.translate_string("st_news_goodwill_update_title")
+		local str_intro = is_gain and game.translate_string("st_news_goodwill_intro_1") or game.translate_string("st_news_goodwill_intro_lose_1")
+		local str_comm_txt = is_gain and game.translate_string("st_news_goodwill_main_1") or game.translate_string("st_news_goodwill_main_lose_1")
+
+		local str_comm = game.translate_string("st_dyn_news_comm_" .. comm .. "_8")
+		if comm_n then
+			local str_comm_n = game.translate_string("st_dyn_news_comm_" .. comm_n .. "_8")
+			str_comm = str_comm .. " " .. game.translate_string("st_dyn_news_and") .. " " .. str_comm_n
+		end
+		
+		local msg = str_intro .. " " .. strformat(str_comm_txt, str_comm)
+		
+		if comm_e then
+			local str_comm_e = game.translate_string("st_dyn_news_comm_" .. comm_e .. "_8")
+			local str_comm_e_txt = game.translate_string("st_news_goodwill_enemy_1")
+			msg = msg .. " " .. strformat(str_comm_e_txt, str_comm_e)
+		end
+		
+		db.actor:give_game_news(str_title, msg, "ui_inGame2_PD_storonnik_ravnovesiya", 5000, 10000)
+	end
+end
+
+function control()
+	local chance = 0.5
+	if (math.random() < chance) then
+		--if (not has_alife_info("completionist") and not has_alife_info("sim_stalker_help_harder")) then
+			if (db.actor:money() >= 500) then
+				message_robbery()
+			end
+		--end
+	end
+end
+function message_robbery()
+	local amount = math.floor(db.actor:money()*math.random(25,50)/100)
+	db.actor:give_money(-amount)
+	db.actor:give_game_news("You were robbed while sleeping and have lost: ", game.translate_string(tostring(amount)), "ui_inGame2_Dengi_otdani", 0, 3000)
+end
+function actor_set_freedom(actor, npc)
+   set_actor_true_community("freedom")
+   news_manager.send_tip(db.actor, game.translate_string("st_actor_in_freedom"))
+   xr_effects.inc_faction_goodwill_to_actor(db.actor, nil, {"freedom", 5000})
+end
+function actor_set_stalker(actor, npc)
+   set_actor_true_community("stalker")
+   news_manager.send_tip(db.actor, game.translate_string("st_actor_in_stalker"))
+end
+function merc_pri_grifon_mlr_task_target(task_id,field,p,tsk)
+	if (field == "target") then
+		if (task_id == "esc_m_trader_task_1") then
+			if (tsk.stage == 1) then
+				return tsk.task_giver_id
+			end
+
+			local smart = SIMBOARD.smarts_by_names["pri_b304_monsters_smart_terrain"]
+			local target_id = db.actor and load_var(db.actor,"merc_pri_grifon_mlr_task_3_target_id")
+			local se_target = target_id and alife_object(target_id)
+
+			if (se_target and smart.position:distance_to_sqr(se_target.position) > 2500) then
+				return target_id
+			end
+
+			return smart and smart.id or nil
+		end
+	end
+end
+function reward_for_blackbox_army()
+	game_statistics.increment_reputation(150)
+end
+function marsh_post_guid(first_speaker, second_speaker) 
+	level.add_pp_effector ("fade_in.ppe", 200, false)
+	db.actor:set_actor_position(vector():set(-294.81405639648,0.71730107069016,21.673492431641),3145,153)
+end 
+function marsh_pump_water_guid(first_speaker, second_speaker) 
+	level.add_pp_effector ("fade_in.ppe", 200, false)
+	db.actor:set_actor_position(vector():set(-7.9008584022522,0.46835023164749,-38.745407104492),138848,20)
+end 
+function marsh_old_church_guid(first_speaker, second_speaker) 
+	level.add_pp_effector ("fade_in.ppe", 200, false)
+	db.actor:set_actor_position(vector():set(314.69299316406,0.8691970705986,-134.10293579102),344628, 222)
+end 
+function marsh_tech_yard_guid(first_speaker, second_speaker) 
+	level.add_pp_effector ("fade_in.ppe", 200, false)
+	db.actor:set_actor_position(vector():set(381.63909912109,2.7934539318085,243.89410400391),392419, 98)
+end 
+function teleport_for_totaliz(first_speaker, second_speaker) 
+	local box = get_story_object("bar_arena_inventory_box")
+	if (box) then
+		local function transfer_object_item(item)
+			db.actor:transfer_item(item, box)
+		end
+		db.actor:inventory_for_each(transfer_object_item)
+		level.add_pp_effector ("fade_in.ppe", 200, false)
+		db.actor:set_actor_position(vector():set(139.61517333984,-13.390427589417,100.86038208008),37564,1710)
+	end 
+	local spawn_items = {}	
+	if	has_alife_info("totaliz_money_has_gone") then 
+		table.insert(spawn_items, "wpn_binoc")		
+	end
+	local k,v = 0,0
+	for k,v in pairs(spawn_items) do
+		alife_create_item(v, db.actor)
+	end	
+end	
+
+
+--====================< Give Task >====================--
+function give_look_for_cs_history_part_4()
+   task_manager.get_task_manager():give_task("task_look_for_cs_history_part_4")
+end
+function give_look_for_cs_history_part_3()
+   task_manager.get_task_manager():give_task("task_look_for_cs_history_part_3")
+end
+function give_look_for_cs_history_part_2()
+   task_manager.get_task_manager():give_task("task_look_for_cs_history_part_2")
+end
+function give_look_for_cs_history_part_1()
+   task_manager.get_task_manager():give_task("task_look_for_cs_history_part_1")
+end
+function give_task_fanat_training_1()
+   task_manager.get_task_manager():give_task("task_fanat_training_1")
+end
+function give_task_fanat_training_2()
+	task_manager.get_task_manager():give_task("task_fanat_training_2")
+	
+	-- Spawn Crystal artefact in Fanatic's stash
+	local sim = alife()
+	local box_id
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if se_obj and (se_obj:name() == "secret_fanat") then
+			box_id = i
+			break
+		end
+	end
+	local se_arty = box_id and alife_create("af_ball", VEC_ZERO, 0, 0, box_id, false)
+	if (se_arty) then
+		alife():register(se_arty)
+	end
+end
+function give_task_fanat_training_3()
+   task_manager.get_task_manager():give_task("task_fanat_training_3")
+end
+function give_gar_4_2_zombie_mlr_squad()
+   task_manager.get_task_manager():give_task("gar_4_2_zombie_mlr_squad")
+end
+function give_task_noah_1()
+   task_manager.get_task_manager():give_task("task_noah_1")
+end
+function give_task_noah_2()
+   task_manager.get_task_manager():give_task("task_noah_2")
+end
+
+
+--====================< News and Info  >====================--
+function total_battle_1_random()
+db.actor:give_info_portion(random_choice("total_fight_1_1", "total_fight_1_2", "total_fight_1_3", "total_fight_1_4", "total_fight_1_5"))
+end
+function total_battle_3_random()
+db.actor:give_info_portion(random_choice("total_fight_3_1", "total_fight_3_2", "total_fight_3_3", "total_fight_3_4", "total_fight_3_5"))
+end
+function total_battle_4_random()
+db.actor:give_info_portion(random_choice("total_fight_4_1", "total_fight_4_2", "total_fight_4_3", "total_fight_4_4", "total_fight_4_5"))
+end
+function total_battle_5_random()
+db.actor:give_info_portion(random_choice("total_fight_5_1", "total_fight_5_2", "total_fight_5_3"))
+end
+function total_battle_6_random()
+db.actor:give_info_portion(random_choice("total_fight_6_1", "total_fight_6_2", "total_fight_6_3"))
+end
+function total_battle_7_random()
+db.actor:give_info_portion(random_choice("total_fight_7_1", "total_fight_7_2", "total_fight_7_3"))
+end
+function total_battle_9_random()
+db.actor:give_info_portion(random_choice("total_fight_9_1", "total_fight_9_2", "total_fight_9_3"))
+end
+function disable_pri_special_trader_mlr_1(first_speaker, second_speaker)
+	db.actor:disable_info_portion("pri_special_trader_mlr_order_in_process")
+	db.actor:disable_info_portion("pri_special_trader_mlr_order_is_ready")
+	db.actor:disable_info_portion("order_pri_mlr_is_done")
+	db.actor:disable_info_portion("cancel_new_orders_pri_mlr")
+end
+
+
+--====================< Notes  >====================--
+function unlock_note_spirit()
+	SendScriptCallback("actor_on_interaction", "notes", nil, "note_from_spirit")
+end
+function unlock_note_aslan()
+	SendScriptCallback("actor_on_interaction", "notes", nil, "note_from_aslan")
+end
+function unlock_note_trunk()
+	SendScriptCallback("actor_on_interaction", "notes", nil, "note_from_trunk")
+end
+function unlock_note_meeker()
+	SendScriptCallback("actor_on_interaction", "notes", nil, "note_from_meeker")
+end
+function unlock_note_grifon()
+	SendScriptCallback("actor_on_interaction", "notes", nil, "note_from_grifon")
+end
+
+--====================< AWR  >====================--
+function awr_give_1000(first_speaker, second_speaker)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, 1000)
+end
+function awr_timer_msg_on(first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local npc_name = npc:section()
+	actor_menu.set_item_news('success', 'detail', "st_awr_timer_msg_on")
+	bind_awr.Lamp(npc_name, true)
+	bind_awr.dout('dialogs', "Start timer")
+	db.actor:give_info_portion(string.format('awr_%s_access', npc_name))
+	if db.actor:has_info(string.format('awr_%s_access', npc_name)) then
+		bind_awr.dout('dialogs', "Infoportion awr_%s_access received", npc_name)
+	end
+end
+
+--====================< Debt  >====================--
+function add_debt_5000 (first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local money = 5000
+	mlr_utils.save_var("debt_" .. tostring(npc:id()),money)
+end
+function add_debt_10000 (first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local money = 10000
+	mlr_utils.save_var("debt_" .. tostring(npc:id()),money)
+end
+function add_debt_15000 (first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local money = 15000
+	mlr_utils.save_var("debt_" .. tostring(npc:id()),money)
+end
+function add_debt_20000 (first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local money = 20000
+	mlr_utils.save_var("debt_" .. tostring(npc:id()),money)
+end
+function pay_off_debt (first_speaker, second_speaker)
+	local npc = dialogs.who_is_npc(first_speaker, second_speaker)
+	local money = mlr_utils.load_var("debt_" .. tostring(npc:id()))
+	money = money + (money * 0.5)
+	dialogs.relocate_money_from_actor(first_speaker, second_speaker, money)
+	local money = nil
+	mlr_utils.save_var("debt_" .. tostring(npc:id()),nil)
+end
+
+
+
+
+-- ######################################################################
+-- #================================ TEXT ==============================#
+-- ######################################################################
+
+--====================< Extra equipment  >====================--
+function buy_extra_item_dialog(txt)
+	local extra_ini = ini_file("plugins\\mlr.ltx")
+	local item = extra_ini:r_string_ex("extra_items", txt .. "_section") or ""
+	local count = extra_ini:r_float_ex("extra_items", txt .. "_count") or 0
+	if item and (item ~= "") and ini_sys:section_exist(item) and (count > 0) then
+		local name = ui_item.get_sec_name(item)
+		local cost = mlr_utils.get_cost_sect(item, count)
+		local str = strformat(game.translate_string("buy_extra_items_txt"), name, cost)
+		return str
+	end
+	return ""
+end
+function buy_extra_med_1()
+	return buy_extra_item_dialog("med_1") 
+end
+function buy_extra_med_2()
+	return buy_extra_item_dialog("med_2")  
+end
+function buy_extra_med_3()
+	return buy_extra_item_dialog("med_3") 
+end
+function buy_extra_med_4()
+	return buy_extra_item_dialog("med_4") 
+end
+function buy_extra_med_5()
+	return buy_extra_item_dialog("med_5") 
+end
+function buy_extra_food_1()
+	return buy_extra_item_dialog("food_1") 
+end
+function buy_extra_food_2()
+	return buy_extra_item_dialog("food_2") 
+end
+function buy_extra_food_3()
+	return buy_extra_item_dialog("food_3") 
+end
+function buy_extra_food_4()
+	return buy_extra_item_dialog("food_4") 
+end
+function buy_extra_food_5()
+	return buy_extra_item_dialog("food_5") 
+end
+function buy_extra_ammo_1()
+	return buy_extra_item_dialog("ammo_1") 
+end
+function buy_extra_ammo_2()
+	return buy_extra_item_dialog("ammo_2") 
+end
+function buy_extra_ammo_3()
+	return buy_extra_item_dialog("ammo_3") 
+end
+function buy_extra_ammo_4()
+	return buy_extra_item_dialog("ammo_4") 
+end
+function buy_extra_ammo_5()
+	return buy_extra_item_dialog("ammo_5") 
+end
+function buy_extra_ammo_6()
+	return buy_extra_item_dialog("ammo_6") 
+end
+function buy_extra_ammo_7()
+	return buy_extra_item_dialog("ammo_7") 
+end
+function buy_extra_ammo_8()
+	return buy_extra_item_dialog("ammo_8") 
+end
+function buy_extra_ammo_9()
+	return buy_extra_item_dialog("ammo_9") 
+end
+function buy_extra_ammo_10()
+	return buy_extra_item_dialog("ammo_10") 
+end
+function buy_extra_ammo_11()
+	return buy_extra_item_dialog("ammo_11") 
+end
+function buy_extra_ammo_12()
+	return buy_extra_item_dialog("ammo_12") 
+end
+function buy_extra_ammo_13()
+	return buy_extra_item_dialog("ammo_13") 
+end
+function buy_extra_ammo_14()
+	return buy_extra_item_dialog("ammo_14") 
+end
+function buy_extra_ammo_15()
+	return buy_extra_item_dialog("ammo_15")
+end
+function buy_extra_ammo_16()
+	return buy_extra_item_dialog("ammo_16")
+end
+function buy_extra_ammo_17()
+	return buy_extra_item_dialog("ammo_17")
+end
+function buy_extra_ammo_18()
+	return buy_extra_item_dialog("ammo_18")
+end
+function buy_extra_ammo_19()
+	return buy_extra_item_dialog("ammo_19")
+end
+
+local meeker_order = {
+	["DS"] = 8000,
+	["SIG"] = 6500,
+	["USP"] = 7000,
+	["MP"] = 9500,
+	["SPAS"] = 11000,
+	["STRIKE"] = 17000,
+	["STORM"] = 19000,
+	["G36"] = 14000,
+	["FN"] = 17000,
+	["VSS"] = 20000,
+	["SVY"] = 24000,
+	["SVD"] = 18000,
+	["ECZ_MON"] = 100000,
+	["ECZ_KIL"] = 75000,
+	["ECZ_BAN"] = 65000,
+	["SCI_MON"] = 70000,
+	["SCI_KIL"] = 50000,
+	["GAUSS"] = 150000,
+}
+function pri_special_trader_mlr3_1()
+	for info,money in pairs(meeker_order) do
+		if has_alife_info("pri_special_trader_mlr_" .. info) then
+			return strformat(game.translate_string("pri_special_trader_mlr3_1"), money)
+		end
+	end
+	return ""
+end
+
+--====================< Debt  >====================--
+local debt_npc -- script text don't take speakers as parameters, we need to use hacks
+function get_debt_npc(npc)
+	debt_npc = npc
+end
+
+function debt_register_0 ()
+	local str = strformat(game.translate_string("debt_register_0"), debt_npc:character_name())
+	return str
+end
+function debt_register_7 ()
+	local money = mlr_utils.load_var("debt_" .. tostring(debt_npc:id()))
+	money = money + (money * 0.5)
+	local str = strformat(game.translate_string("debt_register_7"), money)
+	return str
+end
+function debt_pay_off_2 ()
+	local money = mlr_utils.load_var("debt_" .. tostring(debt_npc:id()))
+	money = money + (money * 0.5)
+	local str = strformat(game.translate_string("debt_pay_off_2"), money)
+	return str
+end
+function st_debt_no_trade()
+	local str = game.translate_string("st_debt_no_trade_1")
+	return str
+end
\ No newline at end of file
diff --git a/gamedata/scripts/dynamic_news_manager.script b/gamedata/scripts/dynamic_news_manager.script
new file mode 100644
index 000000000..cebfc42fa
--- /dev/null
+++ b/gamedata/scripts/dynamic_news_manager.script
@@ -0,0 +1,2858 @@
+--[[ 
+> Dynamic News by ARS Team, xStream, Red75, Dexxx, Skunk, Xmk
+> Re-vamped by Alundaio for Call of Chernobyl
+> Re-vamped by First_Lieutenant_Skelja, senyaGTA, Letozz, Skeli, VanoSanturi, SashaRad, RadioactiveToilet for MLR 8.3
+> Re-vamped by Tronex for Call of Chernobyl, Call of Misery, Last Day, Anomaly, Dead Air. Last edit (2018/8/3)
+--]]
+
+
+------------------------------------------------------------
+-- Control
+------------------------------------------------------------
+enable_news = true		-- useful for pausing news if set to false
+local TimeFactor = 1	-- don't touch
+
+local shw_death_stalker, shw_death_mutant, shw_death_generic, shw_kill_wounded, shw_death_report, shw_found_artifact, shw_heli_call, shw_loot, shw_stash
+local shw_reaction
+local shw_weather, shw_time, shw_nearby_activity, shw_zombie
+local shw_bounty
+local shw_random_msg, shw_factions_report, shw_zone_activity, shw_found_dead, shw_surge
+local shw_companions
+local cycle_TickSpecial, cycle_TickRandom, cycle_TickCompanion, cycle_TickTask = 240,240,240,300
+local msg_duration
+local SOS_offline_time
+local SOS_offline_period = 60*4
+local SOS_warfare_cap_time
+local SOS_warfare_cap_period = 60*2
+local story_LL_trigger, story_MS_trigger = true, true
+
+function update_settings()
+	shw_death_stalker 	= ui_options.get("alife/dynamic_news/death_stalker_news")
+	shw_death_mutant 	= ui_options.get("alife/dynamic_news/death_mutant_news")
+	shw_death_generic 	= ui_options.get("alife/dynamic_news/generic_death_news")
+	shw_death_report 	= ui_options.get("alife/dynamic_news/death_report_news")
+	shw_kill_wounded 	= ui_options.get("alife/dynamic_news/kill_wounded_news")
+	shw_found_artifact	= ui_options.get("alife/dynamic_news/found_artifact_news")
+	shw_heli_call		= ui_options.get("alife/dynamic_news/heli_call_news")
+	shw_loot 			= ui_options.get("alife/dynamic_news/loot_news")
+	shw_stash			= false
+	
+	shw_reaction 		= ui_options.get("alife/dynamic_news/reaction_news")
+	
+	shw_weather 		= ui_options.get("alife/dynamic_news/weather_news")
+	shw_time			= ui_options.get("alife/dynamic_news/time_news")
+	shw_nearby_activity	= ui_options.get("alife/dynamic_news/nearby_activity_news")
+	shw_zombie			= ui_options.get("alife/dynamic_news/dumb_zombie_news")
+	
+	shw_bounty 			= ui_options.get("alife/dynamic_news/bounty_news")
+	
+	shw_random_msg 		= ui_options.get("alife/dynamic_news/random_msg_news")
+	shw_factions_report	= ui_options.get("alife/dynamic_news/factions_report_news")
+	shw_zone_activity	= ui_options.get("alife/dynamic_news/zone_activity_news")
+	shw_found_dead		= ui_options.get("alife/dynamic_news/found_dead_news")
+	shw_surge 			= ui_options.get("alife/dynamic_news/surge_news")
+	
+	shw_companions 		= ui_options.get("alife/dynamic_news/companions_news")
+
+	cycle_TickSpecial 	= ui_options.get("alife/dynamic_news/cycle_of_special_news") -- Time range: (value + 1) to (value x 2 + 1)
+	cycle_TickTask 		= ui_options.get("alife/dynamic_news/cycle_of_task_news") -- Time range: (value + 1) to (value x 2 + 1)
+	cycle_TickRandom 	= ui_options.get("alife/dynamic_news/cycle_of_random_news") -- Time range: (value + 1) to (value x 2 + 1)
+	cycle_TickCompanion = ui_options.get("alife/dynamic_news/cycle_of_companions_news") -- Time range: (value + 1) to (value x 2 + 1)
+	
+	msg_duration		= ui_options.get("alife/dynamic_news/message_duration")
+	
+	if (level.present()) then
+		ResetTimeEvent("DynamicNewsManager","TickSpecial",math.random(cycle_TickSpecial + 1, cycle_TickSpecial*2 + 1))
+		ResetTimeEvent("DynamicNewsManager","TickTask",math.random(cycle_TickTask + 1, cycle_TickTask*2 + 1))
+		ResetTimeEvent("DynamicNewsManager","TickRandom",math.random(cycle_TickRandom + 1, cycle_TickRandom*2 + 1))
+		ResetTimeEvent("DynamicNewsManager","TickCompanion",math.random(cycle_TickCompanion + 1, cycle_TickCompanion*2 + 1))
+	end
+end	
+
+
+------------------------------------------------------------
+-- Preparing / Delay
+------------------------------------------------------------
+local delay = nil
+local delay_start = nil
+local instance = nil -- don't touch
+function get_dynamic_news()
+	instance = instance or DynamicNewsManager()
+	return instance
+end
+
+function destroy_dynamic_news()
+	if (instance) then 
+		instance:destroy()
+	end
+	instance = nil
+end
+
+function actor_on_first_update()
+	delay = delay or time_global() + 7500
+end
+
+function actor_on_update()
+	if (delay and delay <= time_global()) then
+		if (not delay_start) then 
+			delay_start = time_global() + 20000
+		elseif (delay_start and delay_start <= time_global()) then
+			UnregisterScriptCallback("actor_on_first_update", actor_on_first_update)
+			UnregisterScriptCallback("actor_on_update", actor_on_update)
+			
+			get_dynamic_news()
+			update_settings()
+			
+			-- DRX Questlines trigger, runs once
+			if (not has_alife_info("drx_sl_start_news")) and IsStoryMode() then
+				get_dynamic_news():GossipTaskDRX()
+				db.actor:give_info_portion("drx_sl_start_news") 
+			end
+		end
+	end
+end
+
+function on_game_start()
+	
+	destroy_dynamic_news()
+		
+	local function on_game_load()
+		TimeFactor = level.get_time_factor()
+		RegisterScriptCallback("actor_on_first_update", actor_on_first_update)
+		RegisterScriptCallback("actor_on_update", actor_on_update)
+	end 
+	RegisterScriptCallback("on_game_load",on_game_load)
+	RegisterScriptCallback("on_option_change",update_settings)
+end
+
+
+--=========================================================================
+--///////////////////////////// Dynamic News //////////////////////////////
+--=========================================================================
+
+class "DynamicNewsManager"
+
+function DynamicNewsManager:__init()
+
+	-- Get player's faction
+	local comm = get_actor_true_community()
+	
+	self.channel_status = {
+		["general"]			= true,
+		["stalker"]  		= true,
+		["monolith"] 		= (comm == "monolith"),
+		["csky"]   			= true,
+		["army"] 			= (comm == "army"),
+		["killer"]   		= true,
+		["ecolog"]   		= true,
+		["dolg"]    		= true,
+		["freedom"]  		= true,
+		["bandit"]   		= true,
+		["greh"]	   		= (comm == "greh"),
+		["isg"]		   		= (comm == "isg"),
+		["renegade"]		= true,
+		["greh_npc"]	   	= true,
+		["army_npc"]   		= true,
+	}
+
+	self.queue = {
+		["general"]			= {},
+		["stalker"]  		= {},
+		["monolith"] 		= {},
+		["csky"]   			= {},
+		["army"] 			= {},
+		["killer"]   		= {},
+		["ecolog"]   		= {},
+		["dolg"]    		= {},
+		["freedom"]  		= {},
+		["bandit"]   		= {},
+		["greh"]	  		= {},
+		["isg"]		  		= {},
+		["renegade"]		= {},
+		["greh_npc"]	  	= {},
+		["army_npc"]  		= {}
+	}
+	
+	-- serious factions, no spam news
+	self.mono = {
+		["army_npc"] = true,
+		["greh_npc"] = true,
+		["greh"] = true,
+		["isg"] = true,
+		["trader"] = true,
+		["monolith"] = true,
+	}
+	
+	-- mysterious factions, their identity is not known to stalkers
+	self.unknown = {
+		["isg"] = true,
+	}
+	
+	self.response = {
+		["type"] = false,
+		["who"] = false,
+		["message"] = false
+	}
+	
+	self.spammer = {	
+		["show_about_death"] = 0,
+		["show_about_kill_wounded"] = 0,
+		["show_about_death_mutant"] = 0,
+		["show_about_death_response"] = 0,
+		["show_about_loot"] = 0
+	}
+	
+	self.counter = 0
+	self.max_cnt = 3	-- don't allow more than 3 messages in channels
+	
+	self.loot = {}
+	self.companions_list = dynamic_news_helper.list_actor_squad_by_id()
+	self.news_toggle = xr_conditions.surge_complete()
+	self.surge_shift = not xr_conditions.surge_started()
+	self.surge_type = ""
+	
+	self.sentences_fnames = utils_data.collect_translations("name_stalker_",true)
+	self.sentences_snames = utils_data.collect_translations("lname_private_",true)
+	
+
+	CreateTimeEvent("DynamicNewsManager","TickNews",10,self.TickNews,self)
+	CreateTimeEvent("DynamicNewsManager","TickQuick",10,self.TickQuick,self)
+	CreateTimeEvent("DynamicNewsManager","TickSpecial",10,self.TickSpecial,self)
+	CreateTimeEvent("DynamicNewsManager","TickTask",10,self.TickTask,self)
+	CreateTimeEvent("DynamicNewsManager","TickRandom",10,self.TickRandom,self)
+	CreateTimeEvent("DynamicNewsManager","TickCompanion",10,self.TickCompanion,self)
+	
+	RegisterScriptCallback("monster_on_death_callback",self)
+	--RegisterScriptCallback("monster_on_net_spawn",self)
+	RegisterScriptCallback("npc_on_death_callback",self)
+	--RegisterScriptCallback("npc_on_hear_callback",self)
+	RegisterScriptCallback("npc_on_get_all_from_corpse",self)
+end
+
+function DynamicNewsManager:destroy()
+	
+	RemoveTimeEvent("DynamicNewsManager","TickNews")
+	RemoveTimeEvent("DynamicNewsManager","TickQuick")
+	RemoveTimeEvent("DynamicNewsManager","TickSpecial")
+	RemoveTimeEvent("DynamicNewsManager","TickTask")
+	RemoveTimeEvent("DynamicNewsManager","TickRandom")
+	RemoveTimeEvent("DynamicNewsManager","TickCompanion")
+	
+	UnregisterScriptCallback("monster_on_death_callback",self)
+	--UnregisterScriptCallback("monster_on_net_spawn",self)
+	UnregisterScriptCallback("npc_on_death_callback",self)
+	--UnregisterScriptCallback("npc_on_hear_callback",self)
+	UnregisterScriptCallback("npc_on_get_all_from_corpse",self)
+end
+
+function DynamicNewsManager:TickNews()
+	if (enable_news == false) then
+		return true
+	end
+	
+	ResetTimeEvent("DynamicNewsManager","TickNews",math.random(5,20)) -- reset the timer, the function will get called again after 5 ~ 20 sec
+	--printf(">>> Dyn News: TickNews call")
+	
+	-- news state check
+	if self:NewsToggle() or (not item_device.is_pda_charged(true)) then
+		return false
+	end
+	
+	-- sending news
+	self.counter = self.counter - 1
+	if (self.counter < 0) then
+		self.counter = 0
+	end
+	
+	for ch,messages in pairs(self.queue) do
+		local c = #messages
+		local message = messages[c]
+		if (message) then
+			dynamic_news_helper.send_tip(message.Mg,message.Se, message.Dl, msg_duration,message.Ic,message.Snd,message.It)	-- send the news
+			
+			-- Prepare proper reaction
+			if message.Ty then -- if a (type) exists, send reaction message
+				self.response["type"] = message.Ty
+				if message.Id then 
+					self.response["who"] = message.Id 
+				end
+				ResetTimeEvent("DynamicNewsManager","TickQuick",math.random(5,6))
+			end
+			
+			messages[c] = nil -- dump the message
+			return false
+		end
+	end
+	
+	return false
+end
+
+function DynamicNewsManager:TickQuick()
+	if (enable_news == false) then
+		return true
+	end
+	
+	ResetTimeEvent("DynamicNewsManager","TickQuick",3600)
+	--printf(">>> Dyn News: TickQuick call")
+	
+	-- news state check
+	if self:NewsToggle() or (not item_device.is_pda_charged(true)) then
+		return false
+	end
+	
+	-- pick news
+	if (self.response["type"] == "artifact") and (self.response["who"]) and (shw_reaction) then
+		if (math.random(100) < 70) then
+			self:ResponseOnFoundArtefact(self.response["who"])
+		end
+		
+	elseif (self.response["type"] == "trade") and (self.response["who"]) and (shw_reaction) then
+		if (math.random(100) < 70) then
+			self:ResponseOnBoughtItems(self.response["who"])
+		end
+		
+	elseif (self.response["type"] == "loot") and (self.response["who"]) and (#self.loot > 0) then
+		self:GossipLoot(self.response["who"],self:GetLootBestItem(self.loot),self:GetLootValue(self.loot))
+		local c = #self.loot
+		if (c > 0) then
+			for i=1,c do
+				self.loot[i] = nil
+			end
+		end
+		
+	elseif (self.response["type"]) and (string.find(self.response["type"], "enemy_activity_")) and (self.response["who"]) and (shw_reaction) then
+		if (math.random(100) < 70) then
+			self:ResponseOnGossipNearbyActivity(self.response["who"],self.response["type"])
+		end
+		
+	elseif (self.response["type"] == "found_stash") and (shw_reaction) then
+		if (math.random(100) < 60) then
+			self:ResponseOnFoundStash()
+		end
+	
+	elseif (self.response["type"] == "dumb_zombie") and (shw_reaction) then
+		if (math.random(100) < 70) then
+			self:ResponseOnDumbZombie()
+		end
+		
+	elseif (self.response["type"] == "death_by_stalker") and (shw_reaction) then
+		local l = math.random(100)
+		if (l < 45) then -- %45 chance
+			if (self.response["who"]) then
+				self:ResponseOnDeathByStalker(self.response["who"])
+			end
+		elseif (l > 60) then -- %40 chance
+			self:ResponseOnDeathByStalker_Fake()
+		end
+		
+	elseif (self.response["type"] == "death_by_mutant") and (shw_reaction) then
+		local l = math.random(100)
+		if (l < 45) then
+			if (self.response["who"]) then
+				self:ResponseOnDeathByMutant(self.response["who"])
+			end
+		elseif (l > 60) then
+			self:ResponseOnDeathByMutant_Fake()
+		end
+		
+	elseif (self.response["type"] == "death_by_surge") and (shw_reaction) then
+		--if math.random(2) == 1 then -- %50 chance
+			--if (self.response["who"]) then
+				--self:ResponseOnDeathBySurges(self.response["who"])
+			--end
+		--else
+			self:ResponseOnDeathBySurges_Fake()
+		--end
+	end
+	
+	-- send news
+	local message = self.response["message"]
+	if (message) then
+		dynamic_news_helper.send_tip(message.Mg, message.Se, message.To, message.St, message.Ic, message.Snd, message.It)	-- (message,name,nil,nil,faction (default),sound,icon (use default icon))
+	end
+	
+	-- reset
+	self.response["type"] = false
+	self.response["who"] = false
+	self.response["message"] = false
+	
+	return false
+end
+
+function DynamicNewsManager:TickSpecial()
+	if (enable_news == false) then
+		return true
+	end
+	
+	ResetTimeEvent("DynamicNewsManager","TickSpecial",math.random(cycle_TickSpecial + 1, cycle_TickSpecial*2 + 1))
+	--printf(">>> Dyn News: TickSpecial call - time cycle: " .. cycle_TickSpecial)
+	
+	-- news state check
+	if self:NewsToggle() or (not item_device.is_pda_charged(true)) then
+		return false
+	end
+	
+	-- pick news
+	local pick_tbl = {shw_weather, shw_time, shw_nearby_activity, shw_zombie}
+	local picked_tbl = {}
+	for i=1,#pick_tbl do
+		if (pick_tbl[i] == true) then
+			table.insert(picked_tbl, i)
+		end
+	end
+	if #picked_tbl == 0 then
+		return false
+	end
+	local pick = picked_tbl[math.random(#picked_tbl)]
+	
+	if (pick == 1) then
+		self:GossipWeather()
+	elseif (pick == 2) then
+		self:GossipTime()
+	elseif (pick == 3) then
+		self:GossipNearbyActivity()
+	elseif (pick == 4) then
+		self:DumbZombie()
+	end
+	
+	return false
+end
+
+function DynamicNewsManager:TickTask()
+	if (enable_news == false) then
+		return true
+	end
+	
+	ResetTimeEvent("DynamicNewsManager","TickTask",math.random(cycle_TickTask + 1, cycle_TickTask*2 + 1))
+	--printf(">>> Dyn News: TickTask call - time cycle: " .. cycle_TickSpecial)
+	
+	-- news state check
+	if self:NewsToggle() or (not item_device.is_pda_charged(true)) then
+		return false
+	end
+	
+	if (shw_bounty) then 
+		if (sim_squad_bounty.check_close_squads()) then
+			self:GossipAlphaSquad()
+		else
+			self:GossipBounty()
+		end
+	end
+	
+	if IsStoryMode() and IsStoryPlayer() then
+		if (not has_alife_info("living_legend")) and story_LL_trigger then
+			self:GossipTaskLL()
+		elseif (not has_alife_info("mortal_sin")) and has_alife_info("living_legend_done") and story_MS_trigger then
+			self:GossipTaskMS()
+		elseif (not has_alife_info("operation_afterglow_info_about_done")) and has_alife_info("mortal_sin_zone_hero") then
+			self:GossipTaskOA()
+			db.actor:give_info_portion("operation_afterglow_info_about_done")
+		elseif (has_alife_info("operation_afterglow_transmission_report")) and (not has_alife_info("lttz_oa_army_degtyarev_jup_meet_msg")) then
+			local Ico = "ui_inGame2_Hero"
+			local Se = game.translate_string("army_degtyarev_jup_name")
+			local player_name = alife():actor():character_name()
+			local msg = game.translate_string("st_lttz_oa_army_degtyarev_jup_meet_msg")
+			msg = strformat(msg, player_name, Se)
+			
+			dynamic_news_helper.send_tip(msg, Se, math.random(10,20), 20, Ico, "news", "npc")
+			db.actor:give_info_portion("lttz_oa_army_degtyarev_jup_meet_msg")
+		end
+	end
+	
+	return false
+end
+
+function DynamicNewsManager:TickRandom()
+	if (enable_news == false) then
+		return true
+	end
+	
+	ResetTimeEvent("DynamicNewsManager","TickRandom",math.random(cycle_TickRandom + 1, cycle_TickRandom*2 + 1))
+	--printf(">>> Dyn News: TickRandom call - time cycle: " .. cycle_TickRandom)
+	
+	-- news state check
+	if self:NewsToggle() or (not item_device.is_pda_charged(true)) then
+		return false
+	end
+		
+	-- pick news
+	local pick_tbl = {shw_surge, shw_factions_report, shw_zone_activity, shw_found_dead, shw_random_msg}
+	local picked_tbl = {}
+	for i=1,#pick_tbl do
+		if (pick_tbl[i] == true) then
+			table.insert(picked_tbl, i)
+		end
+	end
+	if #picked_tbl == 0 then
+		return false
+	end
+	local pick = picked_tbl[math.random(#picked_tbl)]
+	
+	if (pick == 1) then
+		self:ReportNextEmission()
+	elseif (pick == 2) then
+		self:ReportByFaction()
+	elseif (pick == 3) then
+		self:ReportZoneActivity()
+	elseif (pick == 4) then
+		self:FoundDead()
+	elseif (pick == 5) then
+		self:SpamRandom()
+	end
+	
+	return false
+end
+
+function DynamicNewsManager:TickCompanion()
+	if (enable_news == false) then
+		return true
+	end
+	
+	if not shw_companions then
+		return true
+	end
+	
+	ResetTimeEvent("DynamicNewsManager","TickCompanion",math.random(cycle_TickCompanion + 1, cycle_TickCompanion*2 + 1))
+	--printf(">>> Dyn News: TickCompanion call - time cycle: " .. cycle_TickCompanion)
+	
+	-- news state check
+	if self:NewsToggle() or (not item_device.is_pda_charged(true)) then
+		return false
+	end
+	
+	-- check new and older companions
+	local is_new, sender, st, npc
+	is_new = true
+	sender = self:PickNewCompanion()
+	if not sender then
+		is_new = false
+		sender = self:PickCompanion()
+	end
+	
+	if (not sender) then										
+		return false
+	end
+	
+	-- pick news	
+	if is_new then -- new companions news
+		self:CompanionAboutActor(sender)
+	elseif (sender:position():distance_to(db.actor:position()) < 15) and (not sender:best_enemy()) then -- companions news
+		if (math.random(3) == 2) then	-- %30
+			self:CompanionAboutLevel(sender)
+		else
+			self:CompanionAboutLife(sender)
+		end
+	end
+	
+	return false
+end
+
+	
+------------------------------------------------------------
+-- Callbacks
+------------------------------------------------------------
+function DynamicNewsManager:monster_on_net_spawn(npc,se_obj)
+
+end 
+
+function DynamicNewsManager:monster_on_death_callback(victim,who)
+	--printf(">>> Dyn News: monster_on_death_callback callback")
+	if not (who and IsStalker(who) and shw_death_mutant) then	-- if the killer is unknown, go back
+		return 
+	end
+	
+	local say = false
+	if (self.spammer.show_about_death_mutant == 0) then
+		local l = math.random(1,2)	-- %50 chance
+		if l == 1 then
+			say = self:GossipDeathOfMutant(victim,who)
+		elseif l == 2 then 
+			say = self:SeenDeathOfMutant(victim,who)
+		end
+	end
+	
+	if (say) then
+		self.spammer.show_about_death_mutant = self.spammer.show_about_death_mutant + 1
+		if (self.spammer.show_about_death_mutant > 3) then
+			self.spammer.show_about_death_mutant = 0
+		end
+	end
+end
+
+function DynamicNewsManager:npc_on_death_callback(victim,who)
+	--printf(">>> Dyn News: npc_on_death_callback callback")
+	if not (db.actor and victim) then 
+		return 
+	end
+	
+	-- don't show victim info of private faction if actor is not one of them (SOS will be affected)
+	local comm = character_community(victim)
+	if not (self.channel_status[comm]) then 
+		return 
+	end
+	
+	-- don't show killer info if he's from a mysterious faction
+	if self:IsUnknownCommunity(who) then 
+		return 
+	end
+	
+	if not (who and who.clsid) then 
+		if (shw_death_generic and surge_manager.is_killing_all()) then
+			self:DeathBySurge(victim,who,comm)
+		end 
+		return
+	end
+	
+	if (shw_death_report) and (self.spammer.show_about_death_response == 1) then
+		if IsStalker(who) then
+			self:ReportDeathByStalker(victim,who)
+		elseif IsMonster(who) then
+			self:ReportDeathByMutant(victim,who)
+		end
+	end
+
+	local say = false
+	if (shw_death_stalker) and (self.spammer.show_about_death == 0) then
+		if IsStalker(who) then
+			say = self:SOSDeathByStalker(victim,who,comm)
+			if not (say) then -- if a stalker is NOT reporting on-going attack on him
+				local i = shw_death_generic and math.random(1,3)
+				if i == 1 then
+					self:DeathByStalker(victim,who,comm)
+				else
+					local sender = self:FindSpeaker(victim,who,false,nil,true)
+					if sender then
+						if sender:see(who) or sender:see(victim) then -- actually seeing
+							self:SeenDeathOfStalker(sender,victim,who,comm)
+						else
+							self:GossipDeathByStalker(sender,victim,who)
+						end
+					end
+				end
+			end
+		elseif IsMonster(who) then
+			say = self:SOSDeathByMutant(victim,who,comm)
+			if not (say) then
+				local i = shw_death_generic and math.random(1,2)
+				if i == 1 then
+					self:DeathByMutant(victim,who,comm)
+				else
+					local sender = self:FindSpeaker(victim,who,false,nil,true)
+					if sender and (sender:see(who) or sender:see(victim)) then
+						self:SeenDeathByMutant(sender,victim,who,comm)
+					end
+				end
+			end
+		end
+	end
+	
+	-- reset
+	if (say) then
+		self.spammer.show_about_death = self.spammer.show_about_death + 1 -- 0,1,2,3,4
+		if (self.spammer.show_about_death > 3) then
+			self.spammer.show_about_death = 0
+		end
+	end
+	
+	self.spammer.show_about_death_response = self.spammer.show_about_death_response + 1 --0,1,2
+	if (self.spammer.show_about_death_response > 2) then
+		self.spammer.show_about_death_response = 0
+	end
+end
+
+function DynamicNewsManager:npc_on_hear_callback(npc,who_id,s_type,sound_dist,sound_power,sound_position)
+
+end
+
+function DynamicNewsManager:npc_on_get_all_from_corpse(npc,corpse_npc,item,lootable_table) -- The looter, the looted and the loot.
+	--printf(">>> Dyn News: npc_on_get_all_from_corpse callback")
+	if not (shw_loot and db.actor and npc and item) then 
+		return
+	end
+	
+	-- using reaction channel cause we want a single loot message per corpse.
+	table.insert(self.loot,item)
+	self.response["who"] = npc
+	self.response["type"] = "loot"
+	
+	ResetTimeEvent("DynamicNewsManager","TickQuick",4)
+	
+end
+
+
+------------------------------------------------------------
+-- Utilities
+------------------------------------------------------------
+function DynamicNewsManager:PushToChannel(name,t,fifo) -- (name = faction , t = {message (translated), sender icon, news sound, name and faction of the sender, icon indicator (if its "npc" then use sender's icon), Type of news, Id of sender} , fifo = not used)
+	--printf(">>> Dyn News: PushToChannel call")
+	-- news state check
+	if (not enable_news)
+	or self:NewsToggle() -- necessary to prevent news stacking after surges.
+	or (not item_device.is_pda_charged(true))
+	or (self.counter > self.max_cnt)
+	then
+		return false
+	end
+	
+	local q = self.queue[name]	-- load the faction table in queue table
+	if (q) then
+		if (t.Mg) then 
+			for s in string.gmatch(t.Mg,"(st_dyn_news_ch_[%w%d_]*)") do
+				t.Mg = string.gsub(t.Mg,s,game.translate_string(s))
+			end
+		end
+		if (fifo) then
+			q[#q+1] = t
+		else
+			table.insert(q,1,t)
+		end
+		self.counter = self.counter + 1
+	end
+end
+
+function DynamicNewsManager:FindSpeakerNoVictim(who,same_as_who,not_in_combat) -- Find a speaker ( [game_object] the guy of interest | [boolean] if true, speaker must be from guy's community | [boolean] if true, speaker must not be in combat )
+	local comm_sender
+	local comm_who = who and character_community(who) or nil
+	local who_id = who and who:id() or nil
+	local t = {}
+	for i=1, #db.OnlineStalkers do
+		if (who_id == nil) or (db.OnlineStalkers[i] ~= who_id) then
+			local st = db.storage[db.OnlineStalkers[i]]
+			local npc = st and st.object or level.object_by_id(db.OnlineStalkers[i])
+			if (npc and IsStalker(npc,npc:clsid()) and npc:alive() and not get_object_story_id(db.OnlineStalkers[i])) then
+				if (not_in_combat == nil) or (not_in_combat == true and not npc:best_enemy()) or (not_in_combat ~= true) then
+					comm_sender = npc:character_community()
+					if (same_as_who == nil) or (comm_who == nil) or (same_as_who == true and comm_sender == comm_who) or (same_as_who == false and comm_sender ~= comm_who) then
+						if (self.channel_status[comm_sender]) then
+							t[#t+1] = npc
+						end
+					end
+				end
+			end
+		end
+	end
+	--printf(">>> Dyn News: FindSpeakerNoVictim pass - valid speakers: " .. #t)	
+	if (#t == 0) then
+		return nil
+	end
+	return t[math.random(#t)]
+end
+
+function DynamicNewsManager:FindSpeaker(victim,who,same_as_victim,same_as_who,not_in_combat,can_see) -- Find a speaker ( [game_object] the victim | [game_object] the killer | [boolean] if true, speaker must be from victim's community | [boolean] if true, speaker must be from killer's community | [boolean] if true, speaker must not be in combat | [boolean] if true, speaker must see the victim )
+	local comm = character_community(victim)
+	local comm_sender
+	local comm_who = character_community(who)
+	local who_id = who:id()
+	local t = {}
+	for i=1, #db.OnlineStalkers do
+		if (db.OnlineStalkers[i] ~= who_id) then
+			local st = db.storage[db.OnlineStalkers[i]]
+			local npc = st and st.object
+			if (npc and IsStalker(npc,npc:clsid()) and npc:alive() and not get_object_story_id(db.OnlineStalkers[i])) then
+				if (not_in_combat == nil) or (not_in_combat == true and not npc:best_enemy()) or (not_in_combat ~= true) then
+					comm_sender = npc:character_community()
+					if (same_as_victim == nil) or (same_as_victim == true and comm_sender == comm) or (same_as_victim == false and comm_sender ~= comm) then
+						if (same_as_who == nil) or (same_as_who == true and comm_sender == comm_who) or (same_as_who == false and comm_sender ~= comm_who) then
+							if (self.channel_status[comm_sender]) then
+								if (can_see == nil) or (can_see and npc:see(victim)) or (can_see == false) then
+									t[#t+1] = npc
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+	--printf(">>> Dyn News: FindSpeaker pass - valid speakers: " .. #t)	
+	if (#t == 0) then
+		return nil
+	end
+	return t[math.random(#t)]
+end
+
+function DynamicNewsManager:FindSpeakerWithEnemy(victim,who,same_as_victim,same_as_who,can_see) -- Find a speaker under attack ( [game_object] the victim | [game_object] the killer | [boolean] if true, speaker must be from victim's community | [boolean] if true, speaker must be from killer's community | [boolean] if true, speaker must see the victim )
+	local comm = character_community(victim)
+	local comm_sender
+	local comm_who = character_community(who)
+	local who_id = who:id()
+	local t = {}
+	for i=1, #db.OnlineStalkers do
+		if (db.OnlineStalkers[i] ~= who_id) then
+			local st = db.storage[db.OnlineStalkers[i]]
+			local npc = st and st.object
+			if (npc and IsStalker(npc,npc:clsid()) and npc:alive() and not get_object_story_id(db.OnlineStalkers[i]) and npc:best_enemy()) then
+				comm_sender = npc:character_community()
+				if (same_as_victim == nil) or (same_as_victim == true and comm_sender == comm) or (same_as_victim == false and comm_sender ~= comm) then
+					if (same_as_who == nil) or (same_as_who == true and comm_sender == comm_who) or (same_as_who == false and comm_sender ~= comm_who) then
+						if (self.channel_status[comm_sender]) then
+							if (can_see == nil) or (can_see and npc:see(victim)) or (can_see == false) then
+								t[#t+1] = npc
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+	--printf(">>> Dyn News: FindSpeakerWithEnemy pass - valid speakers: " .. #t)
+	if (#t == 0) then
+		return nil
+	end
+	return t[math.random(#t)]
+end
+
+function DynamicNewsManager:FindSpeakerRandom(not_in_combat,speaker_community) -- Find a random speaker ([boolean] if true, speaker must not be in combat | [string] if declared, speaker must belong to this community)
+	local comm_sender
+	local t = {}
+	for i=1, #db.OnlineStalkers do
+		local st = db.storage[db.OnlineStalkers[i]]
+		local npc = st and st.object or level.object_by_id(db.OnlineStalkers[i])
+		if (npc and IsStalker(npc,npc:clsid()) and npc:alive() and not get_object_story_id(db.OnlineStalkers[i])) then
+			if (not_in_combat == nil) or (not_in_combat == true and not npc:best_enemy()) or (not_in_combat ~= true) then
+				if (speaker_community == nil) or (speaker_community and npc:character_community() == speaker_community) then
+					comm_sender = npc:character_community()
+					if (self.channel_status[comm_sender]) or (speaker_community == "zombied") then -- must use channel_status["general"] for intended zombied case
+						t[#t+1] = npc
+					end
+				end
+			end
+		end
+	end
+	--printf(">>> Dyn News: FindSpeakerRandom pass - valid speakers: " .. #t)
+	if (#t == 0) then
+		return nil
+	end
+	return t[math.random(#t)]
+end
+
+function DynamicNewsManager:FindSpeakerAndTarget(not_in_combat,distance,speaker_community) -- Find a random speaker ([boolean] if true, speaker must not be in combat | [string] if declared, speaker must belong to this community)
+	local sender,target,comm_sender
+	local dis = distance or 300
+	local t1,t2 = {},{}
+	-- Find a sender
+	for i=1, #db.OnlineStalkers do
+		local st = db.storage[db.OnlineStalkers[i]]
+		local npc = st and st.object or level.object_by_id(db.OnlineStalkers[i])
+		if (npc and IsStalker(npc,npc:clsid()) and npc:alive() and not get_object_story_id(db.OnlineStalkers[i])) then
+			if (not_in_combat == nil) or (not_in_combat == true and not npc:best_enemy()) or (not_in_combat ~= true) then
+				if (speaker_community == nil) or (speaker_community and npc:character_community() == speaker_community) then
+					comm_sender = npc:character_community()
+					if (self.channel_status[comm_sender]) then
+						t1[#t1+1] = npc
+					end
+				end
+			end
+		end
+	end
+	if (#t1 == 0) then
+		return nil
+	end
+	
+	sender = t1[math.random(#t1)]
+	
+	if (not sender) then
+		return nil
+	end
+	
+	-- Find an enemy to sender
+	local sender_pos = sender:position()
+	local sender_comm = sender:character_community()
+	
+	local sim = alife()
+	local se_obj,clsid
+	for i=1,sim:max_id() - 1 do 
+		se_obj = sim:object(i)
+		clsid = se_obj and se_obj:clsid()
+		if clsid then
+			-- Check if its enemy stalker or monester
+			if ( IsStalker(nil,clsid) and (se_obj:community() ~= "trader") and game_relations.is_factions_enemies(sender_comm, se_obj:community()) ) or (IsMonster(nil,clsid)) then 
+				-- Check if its close to sender
+				if (se_obj.position:distance_to(sender_pos) < dis) and (se_obj.group_id ~= 65535) then
+					-- Check if its alive
+					if (se_obj:alive()) then
+						local st = db.storage[se_obj.id]
+						local npc = st and st.object or level.object_by_id(se_obj.id)
+						if npc then
+							t2[#t2+1] = npc
+						end
+					end
+				end
+			end
+		end
+	end
+	if (#t2 == 0) then
+		return nil
+	end
+	
+	target = t2[math.random(#t2)]
+	
+	--printf(">>> Dyn News: FindSpeakerAndTarget pass - valid speakers: " .. #t1 .. " - valid enemies to speaker: " .. #t2)
+	return sender,target
+end
+
+function DynamicNewsManager:FindSpeakerAnywhere(natural_only,faction) -- Find a random speaker ([boolean] if true, speaker must not be in combat | [string] if declared, speaker must belong to this community)
+	
+	local t = {}
+	local size_t = 0
+	
+	local sim = alife()
+	local act_comm = get_actor_true_community()
+	for i=1,sim:max_id() - 1 do 
+		local se_obj = sim:object(i)
+		if (se_obj and se_obj.group_id ~= 65535) then 
+			if IsStalker(nil,se_obj:clsid()) and se_obj:alive() and (se_obj:community() ~= "trader") then
+				local comm = se_obj:community()
+				if faction then
+					if (faction == comm) then
+						size_t = size_t + 1
+						t[size_t] = i
+					end
+				else
+					if natural_only then
+						if (not game_relations.is_factions_enemies(act_comm, comm)) then
+							size_t = size_t + 1
+							t[size_t] = i
+						end
+					else
+						size_t = size_t + 1
+						t[size_t] = i
+					end
+				end
+			end
+		end
+	end
+
+	return (size_t > 0) and t[math.random(size_t)] or nil
+end
+
+function DynamicNewsManager:IsCommunitySame(npc_1,npc_2) -- Check if both npcs are from the same factions
+	local comm_1 = npc_1:character_community()
+	if (npc_1:id() == AC_ID and comm_1 ~= "actor") then 
+		comm_1 = comm_1:sub(7)
+	end 
+	
+	local comm_2 = npc_2:character_community()
+	if (npc_2:id() == AC_ID and comm_2 ~= "actor") then 
+		comm_2 = comm_2:sub(7)
+	end 
+	
+	--printf(">>> Dyn News: IsCommunitySame | npc_1 community = " .. comm_1 .. " | npc_2 community = " .. comm_2)
+	return (comm_1 == comm_2)
+end
+
+function DynamicNewsManager:PickCompanion() -- pick a random companion
+	local npcs = dynamic_news_helper.list_actor_squad_by_id()
+	if #npcs == 0 then
+		return nil
+	end
+	
+	local picked = npcs[math.random(#npcs)]
+	
+	--printf(">>> Dyn News: help PickCompanion | #npcs = " .. #npcs)
+	return db.storage[picked] and db.storage[picked].object
+end
+
+function DynamicNewsManager:PickNewCompanion() -- pick a random "new" companion
+	local new_npcs = {}
+	local tbl_1 = dynamic_news_helper.list_actor_squad_by_id()
+	local tbl_2 = self.companions_list
+	local count = 1
+	local is_same = false
+	
+	if (#tbl_1 == 0) then
+		return false
+	end
+	
+	-- If there's new companions, put them in (new_npcs) table
+	for i=1,#tbl_1 do
+		if #tbl_2 > 0 then
+			for j=1,#tbl_2 do
+				if tbl_1[i] == tbl_2[j] then
+					is_same = true
+					break
+				end
+			end
+		end
+		if (not is_same) and tbl_1[i] then
+			new_npcs[count] = tbl_1[i]
+			count = count + 1
+			--printf(">>> Dyn News: help PickNewCompanion - found new companion!")
+		end
+		is_same = false
+	end
+	
+	if (#new_npcs == 0) then
+		return false
+	end
+	
+	-- If there's new companions, update the companions list
+	self.companions_list = dynamic_news_helper.list_actor_squad_by_id()
+	
+	local picked = new_npcs[math.random(#new_npcs)]
+	
+	--printf(">>> Dyn News: help PickNewCompanion | #new_npcs = " .. #new_npcs)
+	return db.storage[picked] and db.storage[picked].object
+end
+
+function DynamicNewsManager:GetLootValue(item_tbl) -- get value of whole loot
+	local value = 0
+	for i=1,#item_tbl do
+		value = value + item_tbl[i]:cost()
+	end
+	
+	--printf(">>> Dyn News: help GetLootValue | value = " .. value)
+	return value
+end
+
+function DynamicNewsManager:GetLootBestItem(item_tbl) -- get value of best looted item
+	local value = 0
+	local best_item
+	for i=1,#item_tbl do
+		if item_tbl[i]:cost() > value then
+			value = item_tbl[i]:cost()
+			best_item = item_tbl[i]
+		end
+	end
+
+	--printf(">>> Dyn News: help GetLootBestItem | best item's value: " .. value)
+	return best_item
+end
+
+function DynamicNewsManager:NewsToggle() -- turn off news if there is an emission, or player is underground
+	--printf(">>> Dyn News: help NewsToggle - self.surge_shift = " .. tostring(self.surge_shift) .. " - self.news_toggle = " .. tostring(self.news_toggle))
+	
+	-- necessary, otherwise the game will crash due to playing news sound before completely loading.
+	if device():is_paused() then	
+		return true
+	end
+		
+	-- disable news if player inside an invalid map.
+	if dynamic_news_helper.IsInvalidMap(level.name()) then
+		return true
+	end
+	
+	-- welcome message on new game, run once
+	if (not has_alife_info("trx_dynamic_news_welcome_to_network")) then
+		self:WelcomeToNetwork()
+		db.actor:give_info_portion("trx_dynamic_news_welcome_to_network") 
+		return true
+	end
+	
+	local news_state = true
+	
+	-- if a surge has started, or is underground ---> news go off, erase stored messages, set surge_type
+	if xr_conditions.surge_started() then
+		news_state = false
+		
+		if surge_manager and surge_manager.is_started() then 
+			self.surge_type = "emission"
+		elseif psi_storm_manager and psi_storm_manager.is_started() then 
+			self.surge_type = "storm"
+		end
+		
+		for ch,messages in pairs(self.queue) do
+			local c = #messages
+			while c > 0 do
+				local message = messages[c]
+				if (message) then
+					messages[c] = nil
+				end
+				c = c - 1
+			end
+		end
+	end
+	
+	-- if surge started (even on load) ---> set up surge_type, otherwise if surge finished (even on load) ---> send 'surge end' news
+	if self.surge_shift and xr_conditions.surge_started() then
+		self.surge_shift = false
+	elseif (not self.surge_shift) and xr_conditions.surge_complete() then
+		self.surge_shift = true
+		self:GossipEmissionEnd(self.surge_type)
+		--self:ReportDeathBySurge()
+	end
+	
+	-- run once at each surge
+	if news_state == (not self.news_toggle) then
+		self.news_toggle = news_state
+		local Msg
+		local num = math.random(5,10)
+		local Se = game.translate_string("st_dyn_news_sender_com_centre")
+		if news_state then 
+			Msg = game.translate_string("st_dyn_news_spc_commu_on")
+			dynamic_news_helper.send_tip(Msg,Se,num,msg_duration,"communication","welcome","gr")
+		else
+			Msg = game.translate_string("st_dyn_news_spc_commu_off")
+			dynamic_news_helper.send_tip(Msg,Se,num,msg_duration,"communication","communication_lost","gr")
+		end
+	end
+	
+	return (not news_state)
+end
+
+
+
+------------------------------------------------------------
+-- News
+------------------------------------------------------------
+function DynamicNewsManager:WelcomeToNetwork() -- Welcome message on new game
+	--printf(">>> Dyn News: WelcomeToNetwork - call")
+	local clr_1 = "%" .. "%c[255,160,160,190]"
+	local clr_2 = "%" .. "%c[255,220,220,220]"
+	
+	-- Count the number of stalkers across the zone, except monolith and zombies
+	local c = 1
+	local sim = alife()
+	for i=1,sim:max_id() - 1 do 
+		local se_obj = sim:object(i)
+		if (se_obj and IsStalker(nil,se_obj:clsid()) and se_obj:alive() and se_obj:community() ~= "zombied" and se_obj:community() ~= "monolith" and se_obj.group_id ~= 65535) then 
+			c = c + 1
+		end
+	end
+	
+	local se_actor = sim:actor()
+	
+	local Se = game.translate_string("st_dyn_news_sender_com_centre")
+	local msg = utils_data.parse_string_keys( game.translate_string("st_dyn_news_welcome_stalker") , {["clr_1"]=clr_1 , ["clr_2"]=clr_2 , ["name"]=se_actor:character_name() , ["number"]=tostring(c)} )
+	
+	dynamic_news_helper.send_tip(msg,Se, 0, 20,"communication","welcome","gr")
+
+	-- Reset
+	ResetTimeEvent("DynamicNewsManager","TickSpecial",math.random(cycle_TickSpecial + 1, cycle_TickSpecial*2 + 1))
+	ResetTimeEvent("DynamicNewsManager","TickTask",math.random(cycle_TickTask + 1, cycle_TickTask*2 + 1))
+	ResetTimeEvent("DynamicNewsManager","TickRandom",math.random(cycle_TickRandom + 1, cycle_TickRandom*2 + 1))
+	ResetTimeEvent("DynamicNewsManager","TickCompanion",math.random(cycle_TickCompanion + 1, cycle_TickCompanion*2 + 1))
+end
+
+--< Report News >--
+function DynamicNewsManager:DeathBySurge(victim,who,comm) -- Death by blowouts reports
+	--printf(">>> Dyn News: DeathBySurge - call")
+	local msg = strformat("%c[255,160,160,160]%s, %s.\\n%c[default]st_dyn_news_ch_found %s. st_dyn_news_ch_blowout.",victim:character_name(),game.translate_string(comm),dynamic_news_helper.GetPointDescription(victim))
+	self:PushToChannel("general",{Mg=msg,Ic="deth",Snd="news",Se=game.translate_string("st_dyn_news_ch_died"),It="gr",Ty="death_by_surge",Id=victim})
+	return true
+end
+
+function DynamicNewsManager:ReportDeathBySurge() -- Report casualties of surges (fake)
+	--printf(">>> Dyn News: ReportDeathBySurge - call")	
+
+	if (not shw_death_report) and ((not self.sentences_fnames) or (not self.sentences_fnames)) then
+		return false
+	end
+	
+	local clr_1 = "%c[255,160,160,190]"
+	local clr_2 = "%c[255,220,220,220]"
+	local known_num = math.random (4,9)
+	local msg = clr_1 .. game.translate_string("st_dyn_news_death_by_surge_start") .. clr_2
+	local finish = utils_data.parse_string_keys( game.translate_string("st_dyn_news_death_by_surge_end") , { ["num"] = tostring(math.random(5,30)) } )
+	local a,b,c,y1,y2,z1,z2,z3
+	
+	for i=1,known_num do
+		a = self.sentences_fnames[math.random(#self.sentences_fnames)]
+		b = self.sentences_snames[math.random(#self.sentences_snames)]
+		c = dynamic_news_helper.PickMap(level.name())
+		c = game.translate_string(c)
+		y1 = string.char(math.random(65,90))
+		y2 = string.char(math.random(65,90))
+		z1 = tostring(math.random(9))
+		z2 = tostring(math.random(9))
+		z3 = tostring(math.random(9))
+		msg = msg .. strformat("\\n%s-%s %s%s-%s%s%s, %s %s, %s.",clr_1,clr_2,y1,y2,z1,z2,z3,a,b,c)
+	end
+	
+	local Se = game.translate_string("st_dyn_news_sender_obituary")
+	msg = msg .. "\\n" .. clr_1 .. finish
+	
+	--dynamic_news_helper.send_tip(msg,Se,30,msg_duration,"death","beep_2","gr")
+	self:PushToChannel("general",{Mg=msg,Ic="death",Snd="beep_2",Se=Se,It="gr",Ty="death_by_surge",Dl=30})
+
+	-- special case for response message
+	self.response["type"] = "death_by_surge"
+	ResetTimeEvent("DynamicNewsManager","TickQuick",math.random(5,6))
+	
+	return true
+end
+
+function DynamicNewsManager:DeathByStalker(victim,who,comm) -- Found dead stalker by stalker
+	--printf(">>> Dyn News: DeathByStalker - call")
+	local cls = dynamic_news_helper.GetWeaponClass(who)
+	if (cls == 1 or cls == 9) then 
+		return false
+	end
+	local msg = strformat("%c[255,160,160,160]%s, %s.\\n%c[default]st_dyn_news_ch_found %s. %s.",victim:character_name(),game.translate_string(comm),dynamic_news_helper.GetPointDescription(victim),dynamic_news_helper.GetWeaponDescription(who,1))
+	self:PushToChannel("general",{Mg=msg,Ic="deth",Snd="news",Se=game.translate_string("st_dyn_news_ch_died"),It="gr",Ty="death_by_stalker",Id=victim})
+	return true
+end
+
+function DynamicNewsManager:ReportDeathByStalker(victim,who) -- Death Report of stalker killing stalker
+	--printf(">>> Dyn News: ReportDeathByStalker - call")
+	
+	if self:IsCommunitySame(victim,who) then
+		return false
+	end
+	
+	if self:IsUnknownCommunity(who) or self:IsUnknownCommunity(victim) then
+		return false
+	end
+	
+	local clr_1 = "%" .. "%c[255,160,160,190]"
+	local clr_2 = "%" .. "%c[255,220,220,220]"
+	local a = game.translate_string(who:character_community())
+	local b = game.translate_string(victim:character_community())
+	local c = dynamic_news_helper.GetPointDescription(victim)
+	local who_name = who:character_name()
+	if (who:id() == AC_ID) then
+		local sim = alife()
+		local se_actor = sim:actor()
+		who_name = se_actor:character_name()
+	end
+	
+	local Se = game.translate_string("st_dyn_news_sender_obituary")
+	local msg = utils_data.parse_string_keys( game.translate_string("st_dyn_news_spc_obituary_s") , {["clr_1"]=clr_1 , ["clr_2"]=clr_2 , ["who_name"]=who_name , ["who_comm"]=a , ["victim_name"]=victim:character_name() , ["victim_comm"]=b , ["where"]=c} )
+	
+	self:PushToChannel("general",{Mg=msg,Ic="death",Snd="no_sound",Se=Se,It="gr",Ty="death_by_stalker",Id=victim})
+	
+	return true
+end
+
+function DynamicNewsManager:DeathByMutant(victim,who,comm) -- Found dead stalker by mutant
+	--printf(">>> Dyn News: DeathByMutant - call")
+	local a = victim:character_name()
+	local b = game.translate_string(comm)
+	local c = dynamic_news_helper.GetPointDescription(victim)
+	local d 
+	if (ini_sys:r_string_ex("string_table","language") == "rus") then
+		d = dynamic_news_helper.GetMonsterDescription(who,7)
+	else
+		d = string.gsub(dynamic_news_helper.GetMonsterDescription(who,1),"(%l)?",string.upper("%1"),1)
+	end
+	local msg = strformat("%c[255,160,160,160]%s, %s.\\n%c[default]st_dyn_news_ch_found %s. %s.",a,b,c,d)
+	self:PushToChannel("general",{Mg=msg,Ic="deth",Snd="news",Se=game.translate_string("st_dyn_news_ch_died"),It="gr",Ty="death_by_mutant",Id=victim})
+	return true
+end 
+
+function DynamicNewsManager:ReportDeathByMutant(victim,who) -- Death Report by mutant killing stalker
+	--printf(">>> Dyn News: ReportDeathByMutant - call")
+	local clr_1 = "%" .. "%c[255,160,160,190]"
+	local clr_2 = "%" .. "%c[255,220,220,220]"
+	local a = string.gsub(dynamic_news_helper.GetMonsterDescription(who,1),"(%l)?",string.upper("%1"),1)
+	local b = game.translate_string(victim:character_community())
+	local c = dynamic_news_helper.GetPointDescription(victim)
+	
+	local Se = game.translate_string("st_dyn_news_sender_obituary")
+	local msg = utils_data.parse_string_keys( game.translate_string("st_dyn_news_spc_obituary_m") , {["clr_1"]=clr_1 , ["clr_2"]=clr_2 , ["victim_name"]=victim:character_name() , ["victim_comm"]=b , ["who"]=a , ["where"]=c} )
+	
+	self:PushToChannel("general",{Mg=msg,Ic="death",Snd="no_sound",Se=Se,It="gr",Ty="death_by_mutant",Id=victim})
+	
+	return true
+end
+
+function DynamicNewsManager:GossipDeathByStalker(sender,victim,who) -- hearing stalker killing a stalker
+	--printf(">>> Dyn News: GossipDeathByStalker - call")
+	local cls = dynamic_news_helper.GetWeaponClass(who)
+	if (cls == 1 or cls == 9) then 
+		return false
+	end
+	
+	if self:IsCommunitySame(victim,who) then
+		return false
+	end
+	
+	local sender = sender or self:FindSpeaker(victim,who,false,nil,true)
+	if self:IsSpecialNPC(sender) then
+		return false
+	end
+	
+	local tbl_1 = utils_data.collect_translations("st_dyn_news_builder_hear_",true)
+	local tbl_2 = utils_data.collect_translations("st_dyn_news_builder_ending_",true)
+	if (not tbl_1) or (not tbl_2) then
+		return false
+	end
+	
+	local a = tbl_1[math.random(#tbl_1)]
+	local b = dynamic_news_helper.GetWeaponDescription(who,2)
+	local c = dynamic_news_helper.GetPointDescription(victim)
+	local d = tbl_2[math.random(#tbl_2)]
+
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = strformat("%s %s %s. %s",a,b,c,d)
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:SOSDeathByStalker(victim,who,comm) -- stalker under stalkers attack
+	--printf(">>> Dyn News: SOSDeathByStalker - call")
+	local cls = dynamic_news_helper.GetWeaponClass(who)
+	if (cls == 1 or cls == 9) then 
+		return false
+	end
+	
+	if self:IsCommunitySame(victim,who) then
+		return false
+	end
+	
+	local sender = self:FindSpeakerWithEnemy(victim,who,true,false)
+	if self:IsSpecialNPC(sender) then
+		return false
+	end
+	
+	local a = dynamic_news_helper.GetCommunityDescription(sender,math.random(11,14))
+	local b,c = self:BuildSentenceStalkerEnemy(victim,who,0,30)
+	local d = dynamic_news_helper.GetPointDescription(victim)
+
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = strformat("%s %s %s %s!",a,b,c,d)
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="danger",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:SeenDeathOfStalker(sender,victim,who,comm) -- seeing stalker killing a stalker
+	--printf(">>> Dyn News: SeenDeathOfStalker - call")
+	local cls = dynamic_news_helper.GetWeaponClass(who)
+	if (cls == 1 or cls == 9) then 
+		return false
+	end
+	
+	if self:IsCommunitySame(victim,who) then
+		return false
+	end
+	
+	local sender = sender or self:FindSpeaker(victim,who,false,false,true)
+	if self:IsSpecialNPC(sender) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_builder_sight_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local a = tbl[math.random(#tbl)]
+	local b = dynamic_news_helper.GetCommunityDescription(who,math.random(1,2))
+	local c = dynamic_news_helper.GetWeaponDescription(who,math.random(4,8))
+	local d = dynamic_news_helper.GetCommunityDescription(victim,math.random(3,4))
+	local e = dynamic_news_helper.GetPointDescription(victim)
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = strformat("%s %s %s %s %s.",a,b,c,d,e)
+	
+	self:PushToChannel("general",{Mg=msg,Ic=sender:character_icon(),Snd="danger",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:SeenDeathOfMutant(victim,who) -- seeing stalker killing a mutant
+	--printf(">>> Dyn News: SeenDeathOfMutant - call")
+	local cls = dynamic_news_helper.GetWeaponClass(who)
+	if (cls == 1 or cls == 9) then 
+		return false
+	end
+	
+	local sender = self:FindSpeaker(victim,who,nil,false,true)
+	if self:IsSpecialNPC(sender) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_builder_sight_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local a = tbl[math.random(#tbl)]
+	local b = dynamic_news_helper.GetCommunityDescription(who,math.random(1,2))
+	local c = dynamic_news_helper.GetWeaponDescription(who,math.random(4,6))
+	local d = dynamic_news_helper.GetMonsterDescription(victim,1)
+	local e = dynamic_news_helper.GetPointDescription(victim)
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = strformat("%s %s %s %s %s.",a,b,c,d,e)	-- example "I just saw" "a loner" "shots" "a bloodsucker" "north east of road to rostok"
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="danger",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:SeenDeathByMutant(sender,victim,who,comm) -- seeing stalker killed by a mutant
+	--printf(">>> Dyn News: SeenDeathByMutant - call")
+	local sender = sender or self:FindSpeaker(victim,who,false,nil,true)
+	if self:IsSpecialNPC(sender) then
+		return false
+	end
+	
+	local tbl_1 = utils_data.collect_translations("st_dyn_news_builder_hear_",true) -- was sight
+	local tbl_2 = utils_data.collect_translations("st_dyn_news_builder_middle_",true)
+	local tbl_3 = utils_data.collect_translations("st_dyn_news_builder_ending_",true)
+	if (not tbl_1) or (not tbl_2) or (not tbl_3) then
+		return false
+	end
+
+	local a = tbl_1[math.random(#tbl_1)]
+	local b = tbl_2[math.random(#tbl_2)]
+	local c = dynamic_news_helper.GetPointDescription(victim)
+	local d = tbl_3[math.random(#tbl_3)]
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = strformat("%s %s %s.\\n%s",a,b,c,d)
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="danger",Se=Se,It="npc"})
+	
+	return true
+end 
+
+function DynamicNewsManager:GossipDeathOfMutant(victim,who,comm) -- hearing stalker killing a mutant
+	--printf(">>> Dyn News: GossipDeathOfMutant - call")
+	local cls = dynamic_news_helper.GetWeaponClass(who)
+	if (cls == 1 or cls == 9) then 
+		return false
+	end
+	
+	local sender = self:FindSpeaker(victim,who,nil,false,true)
+	if self:IsSpecialNPC(sender) then
+		return false
+	end
+	
+	local tbl_1 = utils_data.collect_translations("st_dyn_news_builder_hear_",true)
+	local tbl_2 = utils_data.collect_translations("st_dyn_news_builder_ending_",true)
+	if (not tbl_1) or (not tbl_2) then
+		return false
+	end
+	
+	local a = tbl_1[math.random(#tbl_1)]
+	local b = dynamic_news_helper.GetWeaponDescription(who,2)
+	local c = dynamic_news_helper.GetPointDescription(victim)
+	local d = tbl_2[math.random(#tbl_2)]
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = strformat("%s %s %s. %s",a,b,c,d)
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+	
+	return true
+end 
+
+function DynamicNewsManager:SOSDeathByMutant(victim,who) -- stalker under mutants attack
+	--printf(">>> Dyn News: SOSDeathByMutant - call")
+	local sender = self:FindSpeakerWithEnemy(victim,who,true,nil)
+	if self:IsSpecialNPC(sender) then
+		return false
+	end
+	
+	local a = dynamic_news_helper.GetCommunityDescription(sender,math.random(11,14))
+	local b = dynamic_news_helper.GetMonsterDescription(who,math.random(2,5))
+	local c = dynamic_news_helper.GetPointDescription(victim)
+
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = strformat("%s %s %s!",a,b,c)
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="danger",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:SOSBattleOffline(sq_v,sq_w) -- stalker under mutants/stalker attack in other maps
+	--printf(">>> Dyn News: SOSBattleOffline - call")
+	
+	if (not shw_death_stalker) then return end
+	
+	if self:NewsToggle() or (not item_device.is_pda_charged(true)) then -- necessary to prevent news stacking after surges.
+		return
+	end
+
+	if (not sq_v) or (not sq_w) then return end
+	
+	-- To prevent news spam
+	local curr_time = game.get_game_time()
+	if SOS_offline_time and (curr_time:diffSec(SOS_offline_time) < (SOS_offline_period * TimeFactor)) then
+		return
+	end
+	SOS_offline_time = curr_time
+	
+	if (not enable_news) then
+		return
+	end
+	
+	local members_v, members_w = {},{}
+	for k in sq_v:squad_members() do
+		members_v[#members_v + 1] = k.id
+	end
+	for k in sq_w:squad_members() do
+		members_w[#members_w + 1] = k.id
+	end
+	if (#members_w == 0) or (#members_v == 0) then
+		return
+	end
+	
+	local comm_v = sq_v:get_squad_community()
+	local comm_w = sq_w:get_squad_community()
+	local se_v = alife_object(members_v[math.random(#members_v)])
+	local se_w = alife_object(members_w[math.random(#members_w)])
+	local cls_v = se_v:clsid()
+	local cls_w = se_w:clsid()
+	
+	if IsMonster(nil,cls_v) or (not (self.channel_status[comm_v])) then 
+		return 
+	end
+	
+	if self.unknown[comm_w] then 
+		return 
+	end
+	
+	local comm_desc = game.translate_string("st_dyn_news_comm_" .. comm_v .. "_" .. tostring(6))
+	local a = game.translate_string("st_dyn_news_comm_" .. comm_v .. "_" .. tostring(math.random(11,14)))
+	local c = dynamic_news_helper.GetPointDescription(se_v)
+	
+	local b
+	if IsMonster(nil,cls_w) then
+		b = dynamic_news_helper.GetMonsterDescription(nil,math.random(2,5),se_w:section_name(),cls_w)
+	else
+		local b1,b2 = self:BuildSentenceStalkerEnemy_Offline(comm_w)
+		b = strformat("%s %s",b1,b2)
+	end
+	
+	local Se = strformat("%s, %s",se_v:character_name(),comm_desc)
+	local msg = strformat("%s %s %s!",a,b,c)
+	
+	--dynamic_news_helper.send_tip(msg,Se, nil, msg_duration,comm_v,"beep_1","gr")
+	self:PushToChannel(comm_v, {Mg=msg,Ic=comm_v,Snd="beep_1",Se=Se,It="gr"})
+end
+
+function DynamicNewsManager:SOSWarfareCapture(sq) -- stalker under mutants/stalker attack in other maps
+	--printf(">>> Dyn News: SOSBattleOffline - call")
+	
+	if self:NewsToggle() or (not item_device.is_pda_charged(true)) then -- necessary to prevent news stacking after surges.
+		return
+	end
+
+	if (not sq) then return end
+	
+	-- To prevent news spam
+	local curr_time = game.get_game_time()
+	if SOS_warfare_cap_time and (curr_time:diffSec(SOS_warfare_cap_time) < (SOS_warfare_cap_period * TimeFactor)) then
+		return
+	end
+	SOS_warfare_cap_time = curr_time
+	
+	local members = {}
+	for k in sq:squad_members() do
+		members[#members + 1] = k.id
+	end
+	if (#members == 0)then
+		return
+	end
+	
+	local comm = sq:get_squad_community()
+	local se_npc = alife_object(members[math.random(#members)])
+	local cls = se_npc:clsid()
+	
+	local sender_name = se_npc:character_name()
+	local sender_comm = game.translate_string("st_dyn_news_comm_" .. comm .. "_" .. tostring(6))
+	local fac_profile = dynamic_news_helper.GetFaction(sender_comm)
+	if (not fac_profile) then
+		return false
+	end
+	
+	local sender_type = fac_profile["type"]
+	local location = dynamic_news_helper.GetPointDescription(se_npc)
+	local lvl = alife():level_name(game_graph():vertex(se_npc.m_game_vertex_id):level_id())
+	local level_name = game.translate_string(lvl)
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_warfare_capture_" .. sender_type .. "_", true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender_name,sender_comm)
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["speaker"]=sender_name , ["map"]=level_name , ["location"]=location } )
+	
+	--dynamic_news_helper.send_tip(msg,Se, nil, msg_duration,comm,"beep_1","gr")
+	self:PushToChannel(comm, {Mg=msg,Ic=comm,Snd="beep_1",Se=Se,It="gr"})
+end
+
+function DynamicNewsManager:KillWounded(sender,victim,is_hostage) -- killing a wounded stalker
+	--printf(">>> Dyn News: KillWounded - call")
+	if not (shw_kill_wounded) then 
+		return false
+	end
+	
+	local squad = get_object_squad(sender)
+	if not (squad and squad:commander_id() == sender:id()) then
+		return false
+	end
+	
+	if (self.spammer.show_about_kill_wounded == 0) then
+		local tbl
+		if not (is_hostage) then
+			tbl = utils_data.collect_translations("st_dyn_news_gossip_kill_wounded_",true)
+		else 
+			tbl = utils_data.collect_translations("st_dyn_news_gossip_hostage_",true)			
+		end
+		if (not tbl) then
+			return false
+		end
+		
+		local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+		self:PushToChannel(sender:character_community(),{Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+		
+		return true
+	end
+	
+	self.spammer.show_about_kill_wounded = self.spammer.show_about_kill_wounded + 1 
+	if (self.spammer.show_about_kill_wounded  > 10) then
+		self.spammer.show_about_kill_wounded  = 0
+	end
+end 
+
+function DynamicNewsManager:RadioInHeli(sender,who)	-- requesting chopper assistance
+	--printf(">>> Dyn News: RadioInHeli - call")
+	if (not shw_heli_call) then
+		return false
+	end
+	
+	if self:IsSpecialNPC(sender) then
+		return false
+	end
+	
+	local a = dynamic_news_helper.GetPointDescription(who) 
+	local b = IsStalker(who) and dynamic_news_helper.GetCommunityDescription(who,math.random(1,2)) or dynamic_news_helper.GetMonsterDescription(who,6)
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_heli_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["where"]=a , ["what"]=b } )
+
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:FoundArtefact(sender,itm) -- stalker found an artifact
+	--printf(">>> Dyn News: FoundArtefact - call")
+	if (not shw_found_artifact) then
+		return false
+	end
+	
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	local inv_name = ui_item.get_sec_name(itm:section())
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_arte_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))	
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["what"]=inv_name } )
+
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc",Ty="artifact", Id=sender})
+	
+	return true
+end
+
+function DynamicNewsManager:FoundStash() -- reaction of angry stash owners
+	--printf(">>> Dyn News: FoundStash - call")
+	if not (shw_stash and self.sentences_fnames and self.sentences_snames) then
+		return false
+	end
+	
+	if (math.random(100) < 40) then -- %60 chance to ignore
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_found_stash_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s %s" , self.sentences_fnames[math.random(#self.sentences_fnames)] , self.sentences_snames[math.random(#self.sentences_snames)])
+	
+	self:PushToChannel("general",{Mg=tbl[math.random(#tbl)],Ic="common",Snd="beep_2",Se=Se,It="gr",Ty="found_stash"})
+
+	return true
+end
+
+function DynamicNewsManager:BoughtItems(sender,who,list) -- trading
+	--printf(">>> Dyn News: BoughtItems - call")
+	local sec = list[math.random(#list)]
+	local inv_name = ui_item.get_sec_name(sec)
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_buy_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["who"]=who:character_name() , ["what"]=inv_name } )
+
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc",Ty="trade", Id=sender})
+	
+	return true
+end
+
+function DynamicNewsManager:UpgradedItems(sender,who,wpn_sec,list) -- upgrading
+	--printf(">>> Dyn News: UpgradedItems - call")
+	local upgrade = list[math.random(#list)]
+	local upg_str = upgrade and ini_sys:r_string_ex(upgrade,"name")
+	local upg_name = upg_str and game.translate_string(upg_str)
+	local inv_name = wpn_sec and ui_item.get_sec_name(wpn_sec)
+	if not (upg_name and inv_name) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_upgrade_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["who"]=who:character_name() , ["what"]=inv_name , ["upgrade"]=upg_name } )
+
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc",Ty="upgrade", Id=sender})
+	
+	return true
+end
+
+function DynamicNewsManager:GossipLoot(sender,best_item,all_value) -- talk about the loot
+	--printf(">>> Dyn News: GossipLoot - call")
+	if not (sender and best_item and all_value) then
+		return false
+	end
+	
+	if (sender:character_community() == "monolith") then
+		return false
+	end
+	
+	-- limit the spam
+	self.spammer.show_about_loot = self.spammer.show_about_loot + 1
+	if (self.spammer.show_about_loot > 1) then
+		self.spammer.show_about_loot = 0
+	end
+	if (self.spammer.show_about_loot == 0) then
+		return false
+	end
+	
+	local tbl,msg
+	if (math.random(2) == 1) then
+		if all_value >= 1000 then
+			tbl = utils_data.collect_translations("st_dyn_news_loot_good_",true)
+		else
+			tbl = utils_data.collect_translations("st_dyn_news_loot_bad_",true)
+		end
+		if (not tbl) then 
+			return false 
+		end
+		msg = tbl[math.random(#tbl)]
+		
+	elseif best_item then
+		local item_name = ui_item.get_sec_name(best_item:section())
+		local tbl = utils_data.collect_translations("st_dyn_news_loot_item_",true)
+		if (not tbl) then
+			return false
+		end
+		msg	= utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["what"] = item_name } )
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self.response["message"] = {Mg=msg,Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc",To=false,St=msg_duration}
+	
+	return true
+end
+
+--< Random News >--
+function DynamicNewsManager:ReportNextEmission() --  news about expected surge's date
+	--printf(">>> Dyn News: ReportNextEmission - call")
+	local SM, SurgeType, last_surge_time, AccuracyTier, comm, Se, clr, msg, a, b, c, d, Tbl_msg
+	local IsEmission, IsPsiStorm = false, false
+	
+	-- %50 chance to pick blowout or psi-storm
+	if (math.random(2) == 1) then 
+		SurgeType = game.translate_string("st_dyn_news_surge_type_emission")
+		SM = surge_manager and surge_manager.SurgeManager
+		if (ui_options.get("alife/event/emission_state")) and (SM ~= nil and SM._delta ~= nil and not SM.started) then	-- if blowouts are enabled
+			last_surge_time = SM and SM.last_surge_time or game.get_game_time()
+			IsEmission = true
+		end
+	else
+		SurgeType = game.translate_string("st_dyn_news_surge_type_psi")
+		SM = psi_storm_manager and psi_storm_manager.PsiStormManager
+		if (ui_options.get("alife/event/psi_storm_state")) and (SM ~= nil and SM._delta ~= nil and not SM.started) then
+			last_surge_time = SM and SM.last_psi_storm_time or game.get_game_time()
+			IsPsiStorm = true
+		end
+	end
+	
+	-- preparing the news
+	if IsEmission or IsPsiStorm then
+		local g_time = game.get_game_time()
+		local surge_start = SM and math.floor(SM._delta - g_time:diffSec(last_surge_time))	-- time "till" next blowout (in second) = ( time of next surge[SCOPED] - (current time - last surge time)[SCOPED] )
+		
+		-- %50 chance to pick News from people or natural faction
+		if math.random(2) == 1 then
+			if (not self.sentences_fnames) or (not self.sentences_fnames) then
+				return false
+			end
+			comm = "common"
+			Se = strformat("%s %s", self.sentences_fnames[math.random(#self.sentences_fnames)] , self.sentences_snames[math.random(#self.sentences_snames)] )
+			Tbl_msg = utils_data.collect_translations("st_dyn_news_surge_template_",true)
+			if (not Tbl_msg) then return false end
+			a = Tbl_msg[math.random(#Tbl_msg)]
+			b = dynamic_news_helper.GetTimeString(math.floor(surge_start/3600), math.random(4))
+			if (a and b and SurgeType) then
+				msg = utils_data.parse_string_keys( a , {["what"]=SurgeType , ["when"]=b} )
+			end
+		else
+			comm = dynamic_news_helper.PickFaction(true)
+			if (not comm) then return false end
+			Se = strformat("%s, %s" , game.translate_string("st_faction_" .. comm) , game.translate_string("st_dyn_news_sender_private_ch"))
+			if ((comm == "ecolog") or (comm == "csky") or (comm == "dolg") or (comm == "army")) then 
+				AccuracyTier = 5
+			else 
+				AccuracyTier = math.random(5)
+			end
+			Tbl_msg = utils_data.collect_translations("st_dyn_news_surge_builder_start_" .. comm .. "_",true)
+			if (not Tbl_msg) then return false end
+			a = Tbl_msg[math.random(#Tbl_msg)]
+			Tbl_msg = utils_data.collect_translations("st_dyn_news_surge_builder_mid_",true)
+			if (not Tbl_msg) then return false end
+			b = Tbl_msg[math.random(#Tbl_msg)]
+			Tbl_msg = utils_data.collect_translations("st_dyn_news_surge_builder_end_" .. comm .. "_",true)
+			if (not Tbl_msg) then return false end
+			d = Tbl_msg[math.random(#Tbl_msg)]
+			c = dynamic_news_helper.GetTimeString(math.floor(surge_start/3600), AccuracyTier)
+			if (a and b and c and d and SurgeType) then
+				local msg_mid = utils_data.parse_string_keys( b , {["what"]=SurgeType , ["when"]=c} )
+				msg = utils_data.parse_string_keys( "$start $mid. $end." , {["start"]=a , ["mid"]=msg_mid , ["end"]=d} )
+			end
+		end
+	end
+	
+	if not (msg and comm and Se) then
+		return false
+	end
+	
+	--dynamic_news_helper.send_tip(msg,Se, nil, msg_duration,comm,"beep_1","gr")
+	self:PushToChannel("general",{Mg=msg,Ic=comm,Snd="beep_1",Se=Se,It="gr"})
+	
+	return true
+end
+
+function DynamicNewsManager:ReportByFaction() -- faction's news
+	--printf(">>> Dyn News: ReportByFaction - call")
+	local comm = dynamic_news_helper.PickFaction()
+	local Se = game.translate_string("st_faction_" .. comm)
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_spam_faction_" .. comm .. "_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local msg = tbl[math.random(#tbl)]
+	
+	--dynamic_news_helper.send_tip(tbl[math.random(#tbl)],Se, nil, msg_duration,comm,"beep_1","gr")
+	self:PushToChannel(comm, {Mg=msg,Ic=comm,Snd="beep_1",Se=Se,It="gr"})
+	
+	return true
+end
+
+function DynamicNewsManager:ReportZoneActivity() -- report activity of squads in other maps
+	
+	local stalkers = {} -- id
+	local enemies = {} -- community
+	local naturals = {} -- community
+	local monsters = {} -- clsid
+	
+	local sim = alife()
+	local gg = game_graph()
+	local sfind = string.find
+	local monster_tiers = faction_expansions.mutant_tier_by_clsid
+	local lvl_name = dynamic_news_helper.PickMap(level.name())
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if se_obj and (lvl_name == sim:level_name(gg:vertex(se_obj.m_game_vertex_id):level_id())) then
+			local cls = se_obj:clsid()
+			local sec = se_obj:section_name()
+			if IsStalker(nil,cls) and sfind(sec,"sim_default_") then
+				local comm = se_obj:community()
+				if (comm ~= "trader") and (comm ~= "zombied") then
+					stalkers[#stalkers + 1] = i
+				end
+			elseif IsMonster(nil,cls) and monster_tiers[cls] and (monster_tiers[cls] > 0) then
+				monsters[#monsters + 1] = cls
+			end
+		end
+	end
+	if (#stalkers == 0) then
+		return
+	end
+	
+	local sender_id = stalkers[math.random(#stalkers)]
+	local sender_se = alife_object(sender_id)
+	if (not sender_se) then
+		return false
+	end
+	
+	local sender_comm = sender_se:community()
+	local fac_profile = dynamic_news_helper.GetFaction(sender_comm)
+	if (not fac_profile) then
+		return false
+	end
+	
+	if not (self.channel_status[sender_comm]) then 
+		return 
+	end
+	
+	local sender_name = sender_se:character_name()
+	local sender_desc = game.translate_string("st_dyn_news_comm_" .. sender_comm .. "_" .. tostring(6))
+	local map = game.translate_string(lvl_name)
+	local location = dynamic_news_helper.GetPointDescription(sender_se)
+	local sender_type = fac_profile["type"]
+	if (ini_sys:r_string_ex("string_table","language") == "rus") then
+		map = game.translate_string("st_dyn_news_" .. lvl_name)
+	end
+	
+	for i=1,#stalkers do
+		local se_obj = sim:object(stalkers[i])
+		if se_obj then
+			local comm = se_obj:community()
+			if game_relations.is_factions_enemies(sender_comm, comm) then
+				enemies[#enemies + 1] = comm
+			elseif (sender_comm ~= comm) then
+				naturals[#naturals + 1] = comm
+			end
+		end
+	end
+	
+	local types = {"none"}
+	local target_desc = {}
+	target_desc["none"] = ""
+	
+	if (#enemies > 0) then
+		local enemy_comm = enemies[math.random(#enemies)]
+		target_desc["enemy"] = game.translate_string("st_dyn_news_comm_" .. enemy_comm .. "_8")
+		if (not self.unknown[enemy_comm]) then
+			types[#types + 1] = "enemy"
+		end
+	end
+	
+	if (#naturals > 0) then
+		local natural_comm = naturals[math.random(#naturals)]
+		target_desc["friend"] = game.translate_string("st_dyn_news_comm_" .. natural_comm .. "_8")
+		types[#types + 1] = "friend"
+	end
+	
+	if (#monsters > 0) then
+		local mutant_cls = monsters[math.random(#monsters)]
+		target_desc["mutant"] = dynamic_news_helper.GetMonsterDescription(nil,7,nil,mutant_cls)
+		if (ini_sys:r_string_ex("string_table","language") == "rus") then
+			target_desc["mutant"] = dynamic_news_helper.GetMonsterDescription(nil,6,nil,mutant_cls)
+		end
+		types[#types + 1] = "mutant"
+	end
+	
+	local target_type = types[math.random(#types)]
+	local target = target_desc[target_type]
+	
+	-- preparing the news
+	local tbl = utils_data.collect_translations("st_dyn_news_zone_activity_" .. sender_type .. "_" .. target_type .. "_",true)
+	if (not tbl) then
+		return false
+	end
+	local msg_pick = tbl[math.random(#tbl)]
+	
+	-- if news involving special character, see if they are alive
+	local special = {
+		["leader"] = "",
+		["trader"] = "",
+		["mechanic"] = "",
+		--["medic"] = "",
+		--["barman"] = "",
+		--["guide"] = "",
+	}
+	for k,v in pairs(special) do
+		if string.find(msg_pick,"$"..k) then
+			local npc_info = get_story_npc_info(fac_profile[k])
+			if npc_info then
+				special[k] = npc_info.name
+			else
+				printf("~ News couldn't be sent because it involves special character [%s], he's missing? \nMessage: %s", fac_profile[k], msg_pick)
+				return false
+			end
+		end
+	end
+	
+	local Se = game.translate_string("st_faction_" .. sender_comm)
+	local msg = utils_data.parse_string_keys( msg_pick , { ["speaker"]=sender_name , ["target"]=target , ["map"]=map , ["location"]=location , ["leader"]=special["leader"] , ["trader"]=special["trader"] , ["mechanic"]=special["mechanic"] } )
+	
+	--dynamic_news_helper.send_tip(msg,Se, nil, msg_duration,sender_comm,"beep_1","gr")
+	self:PushToChannel(sender_comm, {Mg=msg,Ic=sender_comm,Snd="beep_1",Se=Se,It="gr"})
+	
+end
+
+function DynamicNewsManager:SpamRandom() -- random news from all over the zone
+	--printf(">>> Dyn News: SpamRandom - call")
+	local clr_1 = "%" .. "%c[255,160,160,190]"
+	local clr_2 = "%" .. "%c[255,220,220,220]"
+	local tbl = utils_data.collect_translations("st_dyn_news_spam_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = game.translate_string("st_dyn_news_sender_com_centre")
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , {["clr_1"]=clr_1 , ["clr_2"]=clr_2} )
+	
+	--dynamic_news_helper.send_tip(msg,Se, nil, msg_duration,"common","beep_2","gr")
+	self:PushToChannel("general",{Mg=msg,Ic="common",Snd="beep_2",Se=Se,It="gr"})
+	
+	return true
+end
+
+function DynamicNewsManager:FoundDead() -- report dead body findings
+	--printf(">>> Dyn News: FoundDead - call")
+	if (not self.sentences_fnames) or (not self.sentences_fnames) then
+		return false
+	end
+	local clr_1 = "%" .. "%c[255,160,160,190]"
+	local clr_2 = "%" .. "%c[255,220,220,220]"
+	local a1 = self.sentences_fnames[math.random(#self.sentences_fnames)]
+	local b1 = self.sentences_snames[math.random(#self.sentences_snames)]
+	local a2 = self.sentences_fnames[math.random(#self.sentences_fnames)]
+	local b2 = self.sentences_snames[math.random(#self.sentences_snames)]
+	local c = dynamic_news_helper.PickMap(level.name())
+	c = game.translate_string(c)
+	local tbl = utils_data.collect_translations("st_dyn_news_death_reason_",true)
+	if (not tbl) then
+		return false
+	end
+	local y1 = string.char(math.random(65,90))
+	local y2 = string.char(math.random(65,90))
+	local z1 = tostring(math.random(9))
+	local z2 = tostring(math.random(9))
+	local z3 = tostring(math.random(9))
+	
+	local Se = strformat("%s %s",a1,b1)
+	local msg = utils_data.parse_string_keys( "$clr_1$death_report -$clr_2 $fname $sname, $map, $death_reason, $y1$y2-$z1$z2$z3" , {["clr_1"]=clr_1 , ["clr_2"]=clr_2 , ["death_report"]=game.translate_string("st_dyn_news_spc_death_report") , ["fname"]=a2 , ["sname"]=b2 , ["map"]=c , ["death_reason"]=tbl[math.random(#tbl)] , ["y1"]=y1 , ["y2"]=y2 , ["z1"]=z1 , ["z2"]=z2 , ["z3"]=z3})
+	
+	--dynamic_news_helper.send_tip(msg,Se, nil, msg_duration,"common","no_sound","gr")
+	self:PushToChannel("general",{Mg=msg,Ic="common",Snd="no_sound",Se=Se,It="gr"})
+	
+	return true
+end
+
+--< Special News >--
+function DynamicNewsManager:GossipTime() -- talk about time of day
+	--printf(">>> Dyn News: GossipTime - call")
+	if (not shw_time) then
+		return false
+	end
+	
+	local sender = self:FindSpeakerRandom()
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	local TimeStringPharse = dynamic_news_helper.GetTimePharseAsString()
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_time_" .. TimeStringPharse .. "_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self:PushToChannel(sender:character_community(),{Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:GossipWeather() -- talk about the weather
+	--printf(">>> Dyn News: GossipWeather - call")
+	
+	-- no weather news in night
+	local hrs = level.get_time_hours()
+	if (hrs >= 21) or (hrs < 5) then 
+		return false
+	end
+	
+	local sender = self:FindSpeakerRandom()
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	--type of weather: {"clear","partly","cloudy","foggy","rain","storm"}
+	local WeatherNews
+	local _WM = level_weathers.get_weather_manager()
+	local WeatherType = _WM:get_curr_weather()
+	
+	if not (WeatherType) then
+		return false
+	end
+	
+	-- weather accurate check
+	if (WeatherType == "rain") or (WeatherType == "storm") then
+		local RainFactor = level.rain_factor()
+		if (RainFactor >= 0.5) then
+			WeatherNews = "storm"
+		elseif (RainFactor > 0) and (RainFactor < 0.5) then
+			WeatherNews = "rain"
+		else -- if rainy weather but there's no actual rain
+			return false
+		end
+	elseif (WeatherType == "foggy") then
+		local FarDistance = weather.get_value_numric("fog_distance")
+		if FarDistance and (FarDistance < 200) then
+			WeatherNews = "foggy"
+		else -- if foggy weather but there's no actual fog
+			return false
+		end
+	elseif (level.rain_factor() <= 0) then
+		WeatherNews = WeatherType
+	else
+		return false
+	end
+		
+	local tbl = utils_data.collect_translations("st_dyn_news_weather_" .. WeatherNews .. "_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self:PushToChannel(sender:character_community(),{Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:GossipNearbyActivity() -- talk about movement of nearby enemy
+	--printf(">>> Dyn News: GossipNearbyActivity - call")
+	
+	local sender,target = self:FindSpeakerAndTarget(true,250)
+	if (not sender) or (not target) then
+		return false
+	end
+	
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+
+	local who
+	local activity = "enemy_activity_"
+	if IsStalker(target,target:clsid()) then
+		local target_comm = target:character_community()
+		
+		if self.unknown[target_comm] then
+			return false
+		end
+		if target_comm == "zombied" then
+			activity = activity .. "zombied"
+		else
+			activity = activity .. "stalker"
+		end
+		if (ini_sys:r_string_ex("string_table","language") == "rus") then
+			who = dynamic_news_helper.GetCommunityDescription(target,math.random(3,4))
+		else
+			who = dynamic_news_helper.GetCommunityDescription(target,math.random(1,4))
+		end
+		
+	elseif IsMonster(target,target:clsid()) then
+		local cls = dynamic_news_helper.GetMonsterDescription(target)
+		local tier = dynamic_news_helper.GetMutant(cls,"tier")
+		activity = activity .. "mutant_" .. tostring(tier)
+		who = dynamic_news_helper.GetMonsterDescription(target,1)
+	end
+	
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_" .. activity .. "_",true)
+	if (not tbl) or (not who) then
+		return false
+	end
+	
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , {["who"]=who} )
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="beep_2",Se=Se,It="npc",Ty=activity,Id=sender})
+	
+	return true
+end
+
+function DynamicNewsManager:DumbZombie() -- zombies trying to talk over the radio
+	--printf(">>> Dyn News: DumbZombie - call")
+	
+	local sender = self:FindSpeakerRandom(true,"zombied") -- must use channel_status["general"] for intended zombied case
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_dumb_zombie_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self:PushToChannel(sender:character_community(),{Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_2",Se=Se,It="npc",Ty="dumb_zombie"})
+	
+	return true
+end
+
+function DynamicNewsManager:monster_on_respawn(npc,near) -- report mutant activity [empty]
+
+end
+
+--< Task News >--
+function DynamicNewsManager:GossipBounty() -- talk about the player's bounty
+	--printf(">>> Dyn News: GossipBounty - call")
+
+	local bounty
+	for task_id,npc_id in pairs(axr_task_manager.bounties_by_id) do	-- loop across npcs on task list
+		bounty = db.storage[npc_id] and db.storage[npc_id].object
+		if (bounty and bounty:alive()) then 
+			break 
+		end
+	end
+	
+	if not (bounty and bounty:alive()) then	-- if the bounty npc is dead, return
+		return false
+	end
+
+	local sender = self:FindSpeakerNoVictim(bounty,false,true)
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_bounty_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["who"]=bounty:character_name() , ["where"]=dynamic_news_helper.GetPointDescription(bounty) } )
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:GossipAlphaSquad() -- talk about the player being a bounty
+	--printf(">>> Dyn News: GossipAlphaSquad - call")
+
+	local se_actor = alife():actor()
+	actor_name = se_actor:character_name()
+	
+	local sq = sim_squad_bounty.get_active_squads()
+	if (not sq) then return false end
+	
+	local alpha_npcs
+	for k,v in pairs(sq) do
+		alpha_npcs = alpha_npcs or {}
+		local se_sq = alife_object(k)
+		if se_sq and (se_sq:section_name() == v) and (simulation_objects.is_on_the_same_level(se_actor, se_sq)) then
+			for j in se_sq:squad_members() do
+				local npc = db.storage[j.id] and db.storage[j.id].object
+				if npc and npc:alive() then
+					alpha_npcs[npc:id()] = true
+				end
+			end
+		end
+	end
+	
+	if (not alpha_npcs) then	-- if no alpha squad nearby, return
+		return false
+	end
+	
+	local sender = self:FindSpeakerNoVictim(db.actor,false,true)
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	if alpha_npcs[sender:id()] then
+		return
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_bounty_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["who"]=actor_name , ["where"]=dynamic_news_helper.GetPointDescription(db.actor) } )
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:GossipTaskRepeatTimeout(task_id)
+	--printf(">>> Dyn News: GossipTaskRepeatTimeout - call")
+	local story_id = task_id:sub(1,-8)
+	local obj = get_story_object(story_id)
+	if not (obj) then 
+		return false 
+	end
+	
+	local sender = self:FindSpeakerNoVictim(nil,nil,true)
+	if (not sender) then 
+		return false 
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_hostage_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = strformat(tbl[math.random(#tbl)],obj:character_name())
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+
+	return true
+end
+
+function DynamicNewsManager:GossipTaskLL()
+	local actor_comm = get_actor_true_community()
+	local sender = self:FindSpeakerRandom(false,actor_comm)
+	if (not sender) then
+		return false
+	end
+	
+	local comm = sender:character_community()
+	if (not self.channel_status[comm]) or self.mono[comm] or self.unknown[comm] then 
+		return 
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_task_LL_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = tbl[math.random(#tbl)]
+	
+	self:PushToChannel(comm,{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+	story_LL_trigger = false
+	
+	return true
+end
+
+function DynamicNewsManager:GossipTaskMS()
+	local actor_comm = get_actor_true_community()
+	local sender = self:FindSpeakerRandom(false,actor_comm)
+	if (not sender) then
+		return false
+	end
+	
+	local comm = sender:character_community()
+	if (not self.channel_status[comm]) or self.mono[comm] or self.unknown[comm] then 
+		return 
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_gossip_task_MS_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = tbl[math.random(#tbl)]
+	
+	self:PushToChannel(comm,{Mg=msg,Ic=sender:character_icon(),Snd="news",Se=Se,It="npc"})
+	story_MS_trigger = false
+	
+	return true
+end
+
+function DynamicNewsManager:GossipTaskOA()
+	local actor_comm = get_actor_true_community()
+	local f = faction_expansions.faction[actor_comm]
+	local leader = f and f["leader"]
+	local npc_info = leader and get_story_npc_info(leader)
+	local Se = npc_info and npc_info.name
+	local Ico = npc_info and npc_info.icon
+	if not (Se and Ico) then
+		return
+	end
+	
+	local msg = game.translate_string("st_dyn_news_gossip_task_oa_" .. actor_comm)
+	
+	dynamic_news_helper.send_tip(msg, Se, math.random(20,30), 20, Ico, "news", "npc")
+end
+
+function DynamicNewsManager:GossipTaskDRX()
+	local actor_comm = get_actor_true_community()
+	local f = faction_expansions.faction[actor_comm]
+	local leader = f and f["leader"]
+	local npc_info = leader and get_story_npc_info(leader)
+	local Se = npc_info and npc_info.name
+	local Ico = npc_info and npc_info.icon
+	if not (Se and Ico) then
+		return
+	end
+	
+	local msg = game.translate_string("drx_sl_start_msg_" .. actor_comm)
+	local actor_name = alife():actor():character_name()
+	msg = strformat(msg,actor_name)
+	
+	dynamic_news_helper.send_tip(msg,Se, 0, 20,Ico,"news","npc")
+end
+
+--< Companions News >--
+function DynamicNewsManager:CompanionAboutLife(sender) -- companion chitchat
+	--printf(">>> Dyn News: CompanionAboutLife - call")
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	local alife = alife()
+	local se_actor = alife:actor()
+	local tbl
+	if (math.random(2) == 1) then
+		tbl = utils_data.collect_translations("st_dyn_news_companion_life_all_",true)
+	else
+		tbl = utils_data.collect_translations("st_dyn_news_companion_life_" .. sender:character_community() .. "_",true)
+	end
+	if (not tbl) then 
+		return false 
+	end
+	
+	local msg = tbl[math.random(#tbl)]
+	if string.match(msg,"$name") then
+		msg = utils_data.parse_string_keys( msg , { ["name"]=se_actor:character_name() } )
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),game.translate_string("st_dyn_news_sender_companion"))
+	
+	self:PushToChannel(sender:character_community(),{Mg=msg,Ic=sender:character_icon(),Snd="beep_2",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:CompanionAboutLevel(sender) -- companion talk about the current map
+	--printf(">>> Dyn News: CompanionAboutLevel call")
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	local lvl = level.name()
+	local tbl
+	if (dynamic_news_helper.GetFaction(sender:character_community(),"territory") == level.name()) then
+		tbl = utils_data.collect_translations("st_dyn_news_companion_level_home_",true)
+	else
+		tbl = utils_data.collect_translations("st_dyn_news_companion_level_" .. lvl .. "_",true)
+	end
+	if (not tbl) then 
+		return false 
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),game.translate_string("st_dyn_news_sender_companion"))
+	
+	self:PushToChannel(sender:character_community(),{Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc"})
+	
+	return true
+end
+
+function DynamicNewsManager:CompanionAboutActor(sender) -- companion talk about player's rank and reputation
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	local alife = alife()
+	local se_actor = alife:actor()
+	local a,b
+	local rep_tbl = {"terrible","really_bad","very_bad","bad","neutral","good","very_good","really_good","excellent"}
+	local rank_tbl = {"novice","trainee","experienced","professional","veteran","expert","master","legend"}
+	local actor_rep = utils_obj.get_reputation_name(db.actor:character_reputation())
+	local actor_rank = ranks.get_obj_rank_name(db.actor)
+	for i=1,#rep_tbl do
+		if string.match(actor_rep,rep_tbl[i]) then
+			if (i <= 4) then a = 1
+			elseif (i > 4) and (i < 7) then a = 2
+			elseif (i >= 7) then a = 3
+			end
+			break
+		end
+	end
+	for i=1,#rank_tbl do
+		if string.match(actor_rank,rank_tbl[i]) then
+			if (i < 3) then b = 1
+			elseif (i >= 3) and (i < 5) then b = 2
+			elseif (i >= 5) and (i < 7) then b = 3
+			elseif (i == 7) then b = 4
+			end
+			break
+		end
+	end
+	
+	local tbl
+	if (math.random(2) == 1) then
+		tbl = utils_data.collect_translations("st_dyn_news_companion_rep_" .. tostring(a) .. "_",true)
+	else
+		tbl = utils_data.collect_translations("st_dyn_news_companion_rank_" .. tostring(b) .. "_",true)
+	end
+	if (not tbl) then 
+		return false 
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),game.translate_string("st_dyn_news_sender_companion"))
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["name"]=se_actor:character_name() } )
+	
+	--printf(">>> Dyn News: CompanionAboutActor | Rank: " .. actor_rank .. ", Reputation: " .. actor_rep)
+	self:PushToChannel("general",{Mg=msg,Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc"})
+	
+	return true
+end
+
+--< Reaction News >--
+function DynamicNewsManager:GossipEmissionEnd(what) -- stalkers reacting about the surge
+	--printf(">>> Dyn News: GossipEmissionEnd - call")
+	if (not shw_reaction) or ((what ~= "emission") and (what ~= "storm")) then
+		return false
+	end
+	
+	local sender = self:FindSpeakerRandom()
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+		
+	local tbl = utils_data.collect_translations("st_dyn_news_surge_after_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	local msg = utils_data.parse_string_keys( tbl[math.random(#tbl)] , { ["what"]=what } )
+	
+	dynamic_news_helper.send_tip(msg,Se,math.random(10,15),msg_duration,sender:character_icon(),"beep_1","npc") -- no need for push to channel
+	self.surge_type	= "" -- reset
+	
+	return true
+end
+
+function DynamicNewsManager:ResponseOnFoundArtefact(who) -- react to people who found artifacts recently
+	--printf(">>> Dyn News: ResponseOnFoundArtefact - call")
+	local sender = self:FindSpeakerNoVictim(who,true,true) 
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_res_artefact_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc",To=false,St=msg_duration}
+	
+	return true
+end
+
+function DynamicNewsManager:ResponseOnFoundStash() -- react to people who lost their stashes
+	--printf(">>> Dyn News: ResponseOnFoundStash - call")
+	if (not self.sentences_fnames) or (not self.sentences_fnames) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_res_found_stash_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s %s" , self.sentences_fnames[math.random(#self.sentences_fnames)] , self.sentences_snames[math.random(#self.sentences_snames)])
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic="common",Snd="no_sound",Se=Se,It="gr",To=false,St=msg_duration}
+
+	return true
+end
+
+function DynamicNewsManager:ResponseOnBoughtItems(who) -- react to people who bought items recently
+	--printf(">>> Dyn News: ResponseOnBoughtItems - call")
+	local sender = self:FindSpeakerNoVictim(who,true,true)
+	if (not sender) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_res_trade_",true)
+	if (not tbl) then
+		return false
+	end
+
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc",To=false,St=msg_duration}
+	
+	return true
+end
+
+function DynamicNewsManager:ResponseOnGossipNearbyActivity(who,activity) -- react to people reporting nearby activity
+	--printf(">>> Dyn News: ResponseOnGossipNearbyActivity - call")
+	local sender = self:FindSpeakerNoVictim(who,true,true)
+	if (not sender) then
+		return false
+	end
+
+	local tbl = utils_data.collect_translations("st_dyn_news_res_" .. activity .. "_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc",To=false,St=msg_duration}
+
+	return true
+end
+
+function DynamicNewsManager:ResponseOnDumbZombie() -- react to dumb zombies being dumb
+	--printf(">>> Dyn News: ResponseOnDumbZombie - call")
+	local sender = self:FindSpeakerRandom(true)
+	if self:IsSpecialNPC(sender) or self:IsMonoCommunity(sender) then
+		return false
+	end
+
+	local tbl = utils_data.collect_translations("st_dyn_news_res_dumb_zombie_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc",To=false,St=msg_duration}
+
+	return true
+end
+
+function DynamicNewsManager:ResponseOnDeathByStalker(who) -- react to stalker's death by another stalker
+	--printf(">>> Dyn News: ResponseOnDeathByStalker - call")
+	local sender = self:FindSpeakerNoVictim(who,true,true)
+	if (not sender) then
+		return false
+	end
+
+	local tbl = utils_data.collect_translations("st_dyn_news_res_death_stalker_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc",To=false,St=msg_duration}
+
+	return true
+end
+
+function DynamicNewsManager:ResponseOnDeathByMutant(who) -- react to stalker's death by mutants
+	--printf(">>> Dyn News: ResponseOnDeathByMutant - call")
+	local sender = self:FindSpeakerNoVictim(who,true,true)
+	if (not sender) then
+		return false
+	end
+
+	local tbl = utils_data.collect_translations("st_dyn_news_res_death_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc",To=false,St=msg_duration}
+
+	return true
+end
+
+function DynamicNewsManager:ResponseOnDeathBySurges(who) -- react to stalker's death by surges [NOT USED]
+	--printf(">>> Dyn News: ResponseOnDeathBySurges - call")
+	local sender = self:FindSpeakerNoVictim(who,true,true)
+	if (not sender) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_res_death_surge_",true)
+	if (not tbl) then
+		return false
+	end
+
+	local Se = strformat("%s, %s",sender:character_name(),dynamic_news_helper.GetCommunityDescription(sender,6))
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic=sender:character_icon(),Snd="beep_1",Se=Se,It="npc",To=false,St=msg_duration}
+
+	return true
+end
+
+function DynamicNewsManager:ResponseOnDeathByStalker_Fake()	-- react to stalker's death by another stalker (fake)
+	--printf(">>> Dyn News: ResponseOnDeathByStalker_Fake - call")
+	if (not self.sentences_fnames) or (not self.sentences_fnames) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_res_fake_death_stalker_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s %s" , self.sentences_fnames[math.random(#self.sentences_fnames)] , self.sentences_snames[math.random(#self.sentences_snames)])
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic="common",Snd="no_sound",Se=Se,It="gr",To=false,St=msg_duration}
+
+	return true
+end
+
+function DynamicNewsManager:ResponseOnDeathByMutant_Fake() -- react to stalker's death by mutants (fake)
+	--printf(">>> Dyn News: ResponseOnDeathByMutant_Fake - call")
+	if (not self.sentences_fnames) or (not self.sentences_fnames) then
+		return false
+	end
+
+	local tbl = utils_data.collect_translations("st_dyn_news_res_fake_death_mutant_",true)
+	if (not tbl) then
+		return false
+	end
+	
+	local Se = strformat("%s %s" , self.sentences_fnames[math.random(#self.sentences_fnames)] , self.sentences_snames[math.random(#self.sentences_snames)])
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic="common",Snd="no_sound",Se=Se,It="gr",To=false,St=msg_duration}
+
+	return true
+end
+
+function DynamicNewsManager:ResponseOnDeathBySurges_Fake() -- react to stalker's death by surges (fake)
+	--printf(">>> Dyn News: ResponseOnDeathBySurges_Fake - call")
+	if (not self.sentences_fnames) or (not self.sentences_fnames) then
+		return false
+	end
+	
+	local tbl = utils_data.collect_translations("st_dyn_news_res_fake_death_surge_",true)
+	if (not tbl) then 
+		return false 
+	end
+	
+	local Se = strformat("%s %s" , self.sentences_fnames[math.random(#self.sentences_fnames)] , self.sentences_snames[math.random(#self.sentences_snames)])
+	
+	self.response["message"] = {Mg=tbl[math.random(#tbl)],Ic="common",Snd="no_sound",Se=Se,It="gr",To=30,St=msg_duration}
+
+	return true
+end
+
+
+------------------------------------------------------------
+-- Helpers
+------------------------------------------------------------
+function DynamicNewsManager:BuildSentenceStalkerEnemy(victim,who,mn,mx)
+	local comm_victim = victim:character_community()
+	local comm_who = who:character_community()
+	local comm, dist
+	local c = 0
+	for i=1, #db.OnlineStalkers do
+		if (db.OnlineStalkers[i] ~= who_id) then
+			local st = db.storage[db.OnlineStalkers[i]]
+			local npc = st and st.object or level.object_by_id(db.OnlineStalkers[i])
+			if (npc and IsStalker(npc,npc:clsid()) and npc:alive() and not get_object_story_id(db.OnlineStalkers[i])) then
+				comm = npc:character_community()	-- remove local
+				if (comm == comm_who) then
+					dist = victim:position():distance_to(npc:position())
+					if (dist < mx) or (dist > mn) then 
+						c = c + 1
+					end
+				end
+			end 
+		end
+		if (c >= 2) then 
+			break 
+		end
+	end
+
+	local sentences = {}
+	local string_count = 1
+	while true do 
+		local tr_s = game.translate_string("st_dyn_news_builder_attacked_"..string_count)
+		if (tr_s == "st_dyn_news_builder_attacked_"..string_count) then 
+			break
+		else 
+			table.insert(sentences,tr_s)
+		end
+		string_count = string_count + 1
+	end
+	
+	if (#sentences == 0) then 	
+		return false
+	end
+
+	if (c >= 2) then 
+		return sentences[math.random(#sentences)], dynamic_news_helper.GetCommunityDescription(who,math.random(9,10))
+	end
+
+	return sentences[math.random(#sentences)], dynamic_news_helper.GetCommunityDescription(who,math.random(7,8))
+end
+
+function DynamicNewsManager:BuildSentenceStalkerEnemy_Offline(comm_w)
+	local index = math.random(7,8)
+	if (math.random(100) < 50) then 
+		index = math.random(9,10)
+	end
+
+	local sentences = utils_data.collect_translations("st_dyn_news_builder_attacked_",true)
+	if (not sentences) then return false end
+
+	local comm_w_desc = game.translate_string("st_dyn_news_comm_" .. comm_w .. "_" .. index)
+
+	return sentences[math.random(#sentences)], comm_w_desc
+end
+
+function DynamicNewsManager:IsSpecialNPC(npc)
+	if (not npc) then return true end
+	
+	if string.find(npc:section(),"sim_default") then
+		return false
+	end
+	
+	return true
+end
+
+function DynamicNewsManager:IsMonoCommunity(npc)
+	if (not npc) then return true end
+	
+	local comm = character_community(npc)
+	if (npc:id() == AC_ID and comm ~= "actor") then 
+		comm = comm:sub(7)
+	end 
+	
+	if self.mono[comm] then
+		return true
+	end
+	
+	return false
+end
+
+function DynamicNewsManager:IsUnknownCommunity(npc)
+	if (not npc) then return true end
+	
+	local comm = character_community(npc)
+	if (npc:id() == AC_ID and comm ~= "actor") then 
+		comm = comm:sub(7)
+	end 
+	
+	if self.unknown[comm] then
+		return true
+	end
+	
+	return false
+end
+
+
+
+function get_story_npc_info(section)
+	if not (section and section ~= "") then
+		return
+	end
+	
+	local se_npc = get_story_se_object(section)
+	if se_npc then
+		local name = se_npc:character_name()
+		local icon = se_npc:character_icon()
+		return { name = name , icon = icon }
+	end
+	return
+end
\ No newline at end of file
diff --git a/gamedata/scripts/game_fast_travel.script b/gamedata/scripts/game_fast_travel.script
new file mode 100644
index 000000000..3bf225ee5
--- /dev/null
+++ b/gamedata/scripts/game_fast_travel.script
@@ -0,0 +1,209 @@
+------------------------------
+-- Fast Travel system
+-- author: Alundaio
+-- Modified: sLoPpYdOtBiGhOlE (marker names, menu and config options, etc)
+------------------------------
+local enabled = 0
+local combattravel = false
+local weighttravel = false
+local damagetravel = false
+local stormtravel = false
+local longnames = false
+local markermessage = false
+local notime = false
+local tsmarts = nil
+
+local function bbp_extra_weight()
+	local w = 0
+	
+	local function itr(npc,itm)
+		if (npc:is_on_belt(itm)) then
+			w = w + (itm and ((ini_sys:r_float_ex(itm:section(),"additional_inventory_weight") or 0) * itm:condition()) or 0)
+		end
+	end
+	db.actor:iterate_inventory(itr,db.actor)
+	
+	local bkpk = db.actor:item_in_slot(13)
+	w = w + (bkpk and ini_sys:r_float_ex(bkpk:section(),"additional_inventory_weight") or 0)
+	
+	return w
+end
+
+local function map_spot_menu_add_property(property_ui,id,level_name)
+	local se_obj = id > 0 and alife_object(id)
+	if not (se_obj) then
+		return
+	end
+	if (DEV_DEBUG) or (enabled > 0 and se_obj:clsid() == clsid.smart_terrain and tsmarts[se_obj:name()]) then
+		if (longnames) then
+				property_ui:AddItem(game.translate_string("st_pda_fast_travel_to").." ".. game.translate_string(level_name).." "..game.translate_string(se_obj:name()))
+		else
+				property_ui:AddItem(game.translate_string("st_pda_fast_travel_to").." "..game.translate_string(se_obj:name()))
+		end
+	end
+end
+
+local function map_spot_menu_property_clicked(property_ui,id,level_name,prop)
+	local se_obj = alife_object(id)
+	if not (se_obj) then
+		return
+	end
+
+	if (longnames) then
+		if (prop ~= (game.translate_string("st_pda_fast_travel_to").." "..game.translate_string(level_name).." "..game.translate_string(se_obj:name()))) then
+			return
+		end
+	else
+		if (prop ~= (game.translate_string("st_pda_fast_travel_to").." "..game.translate_string(se_obj:name()))) then
+			return
+		end
+	end
+
+	-- Prevent fast travel if in combat.
+	if not (combattravel) then
+		if not (is_empty(xr_combat_ignore.fighting_with_actor_npcs)) then
+			hide_hud_pda()
+			actor_menu.set_msg(1, game.translate_string("st_travel_event"),4)
+			return
+		end
+	end
+
+	-- Prevent fast travel while overloaded.
+	if not (weighttravel) then
+		local suit = db.actor:item_in_slot(7)
+		local diff = db.actor:get_total_weight() - db.actor:get_actor_max_walk_weight() - (suit and suit:get_additional_max_weight() or 0) - bbp_extra_weight()
+		if diff > 0 then
+			hide_hud_pda()
+			actor_menu.set_msg(1, game.translate_string("st_travel_overloaded"),4)
+			return
+		end
+	end
+
+	-- Prevent fast travel if bleeding and/or iradiated.
+	if not (damagetravel) then
+		local bleeding = db.actor.bleeding > 0
+		local radiation = db.actor.radiation > 0
+		if (bleeding or radiation) then
+			if (bleeding and radiation) then
+				actor_menu.set_msg(1, game.translate_string("st_sleep_bleeding_irradiated"),5)
+			elseif (bleeding) then
+				actor_menu.set_msg(1, game.translate_string("st_sleep_bleeding"),4)
+			elseif (radiation) then
+				actor_menu.set_msg(1, game.translate_string("st_sleep_irradiated"),4)
+			end
+			hide_hud_pda()
+			return
+		end
+	end
+
+	-- Prevent fast travel if an emission or psi-storm currently ongoing.
+	if not (stormtravel) then
+		if (xr_conditions.surge_started() or psi_storm_manager.is_started()) then
+			actor_menu.set_msg(1, game.translate_string("st_travel_event"),4)
+			hide_hud_pda()
+			return
+		end
+	end
+
+	-- forward time when traveling
+	if not (notime) then
+		local dist = db.actor:position():distance_to(se_obj.position)
+		level.change_game_time(0,math.floor(dist/1000)+math.random(0,2),math.random(1,59))
+		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
+
+	if (se_obj.online) then
+		db.actor:set_actor_position(se_obj.position)
+		hide_hud_pda()
+	else
+		ChangeLevel(se_obj.position, se_obj.m_level_vertex_id, se_obj.m_game_vertex_id, VEC_ZERO, true)
+	end
+end
+
+-- Used for Visit_Only mode, catches the player near the marker and updates things.
+local function actor_on_interaction(typ, obj, name)
+	if (enabled ~= 1) then
+		return
+	end
+	
+	if (typ ~= "smarts") then
+		return
+	end
+	
+	if not (tsmarts[name]) then
+		return
+	end
+	
+	if (level.map_has_object_spot(obj.id, "fast_travel") == 0) then
+		if (longnames) then
+			local smart = alife():object(obj.id)
+			local level_name = alife():level_name(smart and game_graph():vertex(smart.m_game_vertex_id):level_id())			
+			level.map_add_object_spot(obj.id, "fast_travel", game.translate_string(level_name).." "..game.translate_string(name))
+			if (markermessage) then
+				actor_menu.set_msg(1, game.translate_string(level_name).." "..game.translate_string(name).." "..game.translate_string("st_fast_travel_discovered"), 4)
+			end
+		else
+			level.map_add_object_spot(obj.id, "fast_travel", game.translate_string(name))
+			if (markermessage) then
+				actor_menu.set_msg(1, game.translate_string(name).." "..game.translate_string("st_fast_travel_discovered"), 4)
+			end
+		end
+	end
+end
+
+local st_list_1 = game.translate_string("ui_mm_travel_list_1")
+function update_settings()
+	enabled = ui_options.get("gameplay/fast_travel/state")
+	combattravel = ui_options.get("gameplay/fast_travel/on_combat")
+	weighttravel = ui_options.get("gameplay/fast_travel/on_overweight")
+	damagetravel = ui_options.get("gameplay/fast_travel/on_damage")
+	stormtravel = ui_options.get("gameplay/fast_travel/on_emission")
+	longnames = ui_options.get("gameplay/fast_travel/long_names")
+	markermessage = ui_options.get("gameplay/fast_travel/visit_message")
+	notime = ui_options.get("gameplay/fast_travel/time")
+
+	local faction = character_community(db.actor):sub(7)
+	local pini = ini_file("plugins\\faction_quick_travel.ltx")
+	tsmarts = utils_data.collect_section(pini,faction,true)
+
+	if not (is_empty(tsmarts)) then
+		local level_name
+		local sim,gg = alife(),game_graph()
+		for i=1,sim:max_id() - 1 do
+			local smart = sim:object(i)
+			if (smart and smart:clsid() == clsid.smart_terrain and tsmarts[smart:name()]) then
+				if (level.map_has_object_spot(i, "fast_travel")) then
+					level.map_remove_object_spot(i, "fast_travel")
+				end
+				if (enabled == 1) then
+					if (game_statistics.has_actor_visited_smart(smart:name()) == true) then
+						if (longnames) then
+							level_name = sim:level_name(smart and gg:vertex(smart.m_game_vertex_id):level_id())
+							level.map_add_object_spot(i, "fast_travel", game.translate_string(level_name).." "..game.translate_string(smart:name()))
+						else
+							level.map_add_object_spot(i, "fast_travel", game.translate_string(smart:name()))
+						end
+					end
+				elseif (enabled == 2) then
+					if (longnames) then
+						level_name = sim:level_name(smart and gg:vertex(smart.m_game_vertex_id):level_id())
+						level.map_add_object_spot(i, "fast_travel", game.translate_string(level_name).." "..game.translate_string(smart:name()))
+					else
+						level.map_add_object_spot(i, "fast_travel", game.translate_string(smart:name()))
+					end
+				end
+			end
+		end
+	end
+	return true
+end
+
+function on_game_start()
+	RegisterScriptCallback("map_spot_menu_add_property",map_spot_menu_add_property)
+	RegisterScriptCallback("map_spot_menu_property_clicked",map_spot_menu_property_clicked)
+	RegisterScriptCallback("on_game_load",update_settings)
+	RegisterScriptCallback("on_option_change",update_settings)
+	RegisterScriptCallback("actor_on_interaction", actor_on_interaction)
+end
\ No newline at end of file
diff --git a/gamedata/scripts/game_setup.script b/gamedata/scripts/game_setup.script
new file mode 100644
index 000000000..c23ae2ae3
--- /dev/null
+++ b/gamedata/scripts/game_setup.script
@@ -0,0 +1,556 @@
+--[[
+
+- Created by tdef
+- Updated by Tronex
+- Randomized world items on new game
+- Released blacklisted objects on new game
+- Created: 2018/10/27
+
+- 2019/31/3 script now read from config to set up
+- 2019/4/25 objects to release are now handled by another config
+- 2019/5/20 improved the way suffled consumables uses are set
+
+used ini:
+	items\settings\dynamic_item_spawn.ltx
+	plugins\new_game_setup.ltx
+
+set enable_debug to true, for debugging and map markers
+
+--]]
+
+-- these vehicles are supposed to shoot at you but call of misery broke them so they don't
+-- also you can board them, turn them on and drive around so should remove them?
+
+local ini_dyn
+local enable_debug = false
+local inited = false
+local sfind = string.find
+
+local world_itm_info = {}   -- [name] = {}
+local world_itm_off = {}    -- [name] = true
+
+local world_itm_num = {}	-- [name] = num
+local world_itm_on = {}		-- [id] = name
+
+local itm_list = {}
+local limited_uses = {}
+
+function get_itm_type(name)
+	if sfind(name,"kolbasa")
+	or sfind(name,"conserva")
+	or sfind(name,"bread")
+	then
+		return "food"
+	end
+	
+	if sfind(name,"energy")
+	or sfind(name,"vodka")
+	or sfind(name,"drink")
+	then
+		return "drink"
+	end
+	
+	if sfind(name,"drug")
+	or sfind(name,"antirad")
+	or sfind(name,"bandage")
+	or sfind(name,"medkit")
+	then
+		return "medical"
+	end
+	
+	--if sfind(name,"repair") then
+		--return "tool"
+	--end
+	
+	if sfind(name,"ammo") then
+		return "ammo"
+	end
+	
+	if sfind(name,"misc")
+	then
+		return "misc"
+	end
+	
+	return "NA"
+end
+
+function print_debug(...)
+	if enable_debug then
+		printf(...)
+	end
+end
+
+local marker_by_type = {
+	["kit"] = "item_kit",
+	["medical"] = "item_medical",
+	["food"] = "item_food",
+	["drink"] = "item_drink",
+	["ammo"] = "item_ammo",
+	["misc"] = "item_misc",
+}
+function add_marker(name, section, id, typ)
+	if enable_debug then
+		local spot = marker_by_type[typ] or marker_by_type["misc"]
+		level.map_add_object_spot_ser(id, spot, "Name: " .. name .. " \\nType: " .. typ .. " \\nSection: " .. section)
+	end
+end
+function remove_marker(id, typ)
+	if enable_debug then
+		local spot = marker_by_type[typ] or marker_by_type["misc"]
+		if (level.map_has_object_spot(id, spot) ~= 0) then
+			level.map_remove_object_spot(id, spot)
+		end
+	end
+end
+
+function init_settings()
+
+	if (inited) then return end
+	inited = true
+	
+	ini_dyn = ini_file("items\\settings\\dynamic_item_spawn.ltx")
+	
+	local n,m = 0,0
+	local result, id, value = "","",""
+	local name, info = "","",""
+	
+	-- Gather items list
+	n = ini_dyn:line_count("categories") or 0
+	for i=0,n-1 do
+		result, id, value	= ini_dyn:r_line_ex("categories",i,"","")
+		itm_list[id] = {}
+		
+		m = ini_dyn:line_count(id) or 0
+		for ii=0,m-1 do
+			result, name, info	= ini_dyn:r_line_ex(id,ii,"","")
+			if name and info then
+				for j=1,tonumber(info) do
+					local size = #itm_list[id] + 1
+					itm_list[id][size] = name
+					print_debug("- Game Setup | itm_list[%s][%s] = %s", id, size, name)
+				end
+			end
+		end
+	end
+	
+	-- Gather recorded items pos
+	n = ini_dyn:line_count("levels") or 0
+	for i=0,n-1 do
+		result, id, value	= ini_dyn:r_line_ex("levels",i,"","")
+		
+		m = ini_dyn:line_count(id) or 0
+		for ii=0,m-1 do
+			result, name, info	= ini_dyn:r_line_ex(id,ii,"","")
+			if name and info then
+				local t = str_explode(info,",")
+				if (#t == 6) and (t[1] ~= "NA") then
+					world_itm_info[name] = {
+						typ = t[1],
+						x = tonumber(t[2]),
+						y = tonumber(t[3]),
+						z = tonumber(t[4]),
+						lvl_id = tonumber(t[5]),
+						gm_id = tonumber(t[6]),
+					}
+				end
+			end
+		end
+	end
+	
+	-- Gather uses
+	n = ini_dyn:line_count("possible_uses") or 0
+	for i=0,n-1 do
+		result, id, value	= ini_dyn:r_line_ex("possible_uses",i,"","")
+		if id and value then
+			local t = str_explode(value,",")
+			limited_uses[id] = { tonumber(t[1]) or 1 , tonumber(t[2]) or 1 }
+		end
+	end
+	
+	-- Make list of non-spawned items
+	for name,info in pairs(world_itm_info) do
+		world_itm_off[name] = true
+	end
+	
+	for id,name in pairs(world_itm_on) do
+		world_itm_off[name] = nil
+	end
+	
+	print_debug("- Game Setup | world_itm_info: %s - world_itm_on: %s - world_itm_off: %s", size_table(world_itm_info), size_table(world_itm_on), size_table(world_itm_off))
+end
+
+function try_spawn_world_item(ignore)
+
+	-- Get spawn place name
+	local _name
+	if ignore then
+		if not (world_itm_off and size_table(world_itm_off) > 0) then
+			print_debug("! Game Setup | world_itm_off is nil or empty")
+			return
+		end
+		_name = random_key_table(world_itm_off)
+	else
+		local lvl_short = txr_routes.get_map(level.name())
+		local t = {}
+		
+		-- Gather validated item places to spawn at
+		for name,_ in pairs(world_itm_off) do
+			if (not sfind(name,lvl_short)) then
+				t[#t+1] = name
+			end
+		end
+		
+		_name = (#t > 0) and t[math.random(#t)]
+	end
+	
+	-- Return if not available place has been found
+	if (not _name) then
+		print_debug("! Game Setup | can't find available item place", _name)
+		return
+	end
+	
+	-- Return if place already has spawned item
+	for id,name in pairs(world_itm_on) do
+		if (name == _name) then
+			print_debug("! Game Setup | place {%s} is already occupied", _name)
+			return
+		end
+	end
+	
+	-- Get info
+	local info = world_itm_info[_name]
+	if (not info) then
+		print_debug("! Game Setup | no info is found for {%s}", _name)
+		return
+	end
+	
+	-- Get section
+	local itm_type = info.typ and itm_list[info.typ]
+	local section = itm_type and itm_type[math.random(#itm_type)]
+	if (not section) then
+		print_debug("! Game Setup | couldn't get section [%s] for type (%s)", section, info.typ)
+		return
+	end
+	
+	if (not ini_sys:section_exist(section)) then
+		print_debug("! Game Setup | section [%s] doesn't exist", section)
+		return
+	end
+	
+	-- Info check
+	if not (info.x and info.y and info.z and info.lvl_id and info.gm_id and true) then
+		print_debug("! Game Setup | item {%s} has wrong or incomplete info", name)
+		return
+	end
+	
+	-- Spawn and adjust uses/condition/ammo size
+	if IsItem("ammo",section) then
+		local pos = vector():set(info.x, info.y, info.z)
+		local se_obj = alife_create_item(section, {pos, info.lvl_id, info.gm_id})
+		if se_obj then
+			add_marker(_name, section, se_obj.id, info.typ)
+
+			world_itm_on[se_obj.id] = _name
+			world_itm_off[_name] = nil
+			
+			local box_size = ini_sys:r_u32(section, "box_size")
+			world_itm_num[_name] = math.random( math.ceil(box_size * 0.25) , math.ceil(box_size * 0.75) )
+			
+			print_debug("/ Game Setup | created ammo [%s](%s) - place: %s - size = %s", section, se_obj.id, _name, world_itm_num[_name])
+		else
+			print_debug("! Game Setup | ammo [%s] couldn't be created", section)
+		end
+	else
+		local pos = vector():set(info.x, info.y, info.z)
+		local se_obj = alife_create_item(section, {pos, info.lvl_id, info.gm_id})
+		if se_obj then
+			add_marker(_name, section, se_obj.id, info.typ)
+			
+			world_itm_on[se_obj.id] = _name
+			world_itm_off[_name] = nil
+			
+			-- Multi-use
+			if limited_uses[section] then
+				world_itm_num[_name] = math.random(limited_uses[section][1], limited_uses[section][2])
+				
+				print_debug("/ Game Setup | created multiuse item [%s](%s) - place: %s - uses = %s", section, se_obj.id, _name, world_itm_num[_name])
+				
+			else
+				local is_using_con = utils_item.is_degradable(nil, section)
+				if is_using_con then
+				
+					-- Parts
+					if IsItem("part",section) then
+						world_itm_num[_name] = random_choice(0.5,0.75,1)
+						print_debug("/ Game Setup | created degraded item [%s](%s) - place: %s - con = %s", section, se_obj.id, _name, world_itm_num[_name])
+						
+					-- Degradable items
+					else
+						world_itm_num[_name] = (math.random(30,70)/100)
+						print_debug("/ Game Setup | created degraded item [%s](%s) - place: %s - con = %s", section, se_obj.id, _name, world_itm_num[_name])
+					end
+				else
+					print_debug("/ Game Setup | created item [%s](%s)", section, se_obj.id)
+				end
+			end
+		else
+			print_debug("! Game Setup | item [%s] couldn't be created", section)
+		end
+	end
+end
+
+function is_world_item(id)
+	if id and world_itm_on[id] then	
+		--print_debug("! Game Setup | is_world_item[%s]", id)
+		return true
+	end
+	--print_debug("/ Game Setup | is_world_item[%s]", id)
+	return false
+end
+
+-- TODO IN 1.6 OR WHENEVER WE CAN EDIT ALL.SPAWN
+-- remove these 2 objects because vetham is making new office for medic and they get in the way
+
+function bar_medic_remove_stuff()
+	if not alife_storage_manager.get_state().duty_medic_fix then
+		alife_storage_manager.get_state().duty_medic_fix = true
+		for i=1,alife():max_id() - 1 do
+			local se = alife():object(i)
+			if se and (se:name() == 'bar_physic_object_mlr_0002' or se:name() == 'bar_physic_object_mlr_0003') then
+				alife():release(se)
+			end
+		end
+	end
+end
+
+-- TODO IN 1.6 OR WHENEVER WE CAN EDIT ALL.SPAWN
+-- remove these 4 objects because they're stuck in the train and physics impulse makes them jitter around at 5 fps
+
+function darkscape_remove_physics_objects()
+	if not alife_storage_manager.get_state().darkscape_phys_fix then
+		alife_storage_manager.get_state().darkscape_phys_fix = true
+		for i=1,alife():max_id() - 1 do
+			local se = alife():object(i)
+			if se and (se:name() == 'ds_physic_destroyable_object_0046' or se:name() == 'ds_physic_object_0009' or se:name() == 'ds_physic_object_0010' or se:name() == 'ds_physic_object_0002') then
+				alife():release(se)
+			end
+		end
+	end
+end
+
+-- TODO IN 1.6 OR WHENEVER WE CAN EDIT ALL.SPAWN
+-- delete the chair and move smart cover in this new position
+-- OR
+-- make the chair part of level geometry and delete the object
+-- OR
+-- find a way to make that specific object not react to physics
+
+function freedom_medic_fix()
+	if not alife_storage_manager.get_state().freedom_medic_fix then
+		alife_storage_manager.get_state().freedom_medic_fix = true
+		for i=1,alife():max_id() - 1 do
+			local se = alife():object(i)
+			if se then
+				if se:name() == 'mil_physic_object_0048' then
+					alife():release(se)
+				elseif se:name() == 'sc_freedom_medic_mlr' then
+					alife():teleport_object(i, 2165, 315401, vector():set(27.681089401245, -6.9381303787231, 17.38550567627))
+				end
+			end
+		end
+	end
+end
+
+-------------------------------
+-- 			CALLBACKS
+-------------------------------
+local function actor_on_first_update()
+
+	init_settings()
+	
+	freedom_medic_fix()
+	
+	bar_medic_remove_stuff()
+	
+	darkscape_remove_physics_objects()
+	
+	if alife_storage_manager.get_state().item_removal_done or IsTestMode() then
+		UnregisterScriptCallback("actor_on_first_update",actor_on_first_update)
+		return
+	end
+	
+	alife_storage_manager.get_state().item_removal_done = true
+	print_debug("- Game Setup | create dynamic items")
+	
+	local ini_setup = ini_file("plugins\\new_game_setup.ltx")
+	local enabled = true --ini_dyn:r_bool_ex("settings","enabled") or false
+	
+	if (not enabled) then
+		return
+	end
+	
+	-- Release static items and mines
+	local sim = alife()
+	local boxes = {}
+	for i=1, sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if se_obj then
+			local name = se_obj:name()
+			local cls = se_obj:clsid()
+			
+			if cls == clsid.inventory_box_s then
+				--print_debug('%s_%s is a box', i, name)
+				boxes[i] = true
+				
+			elseif ini_dyn:line_exist("replace_items",name) then
+				--print_debug('releasing %s', name)
+				--sim:release(se_obj, true)
+				alife_release(se_obj)
+			end
+			
+			if ini_setup:line_exist("remove_objects",name) then
+				print_debug('/ Game Setup | Releasing object (%s)', name)
+				
+				-- Clear inventory boxes from their manager
+				if (cls == clsid.inventory_box_s) then
+					treasure_manager.release_stash_by_id(se_obj.id)
+				end
+				
+				safe_release_manager.release(se_obj)
+			end
+		end
+	end
+	
+	-- Clear stashes
+	for i=1, sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if se_obj then
+			local name = se_obj:name()
+			if boxes[se_obj.parent_id] and (not sfind(name, 'mlr_strelok_item')) then
+				print_debug('/ Game Setup | Releasing {%s} from box', name)
+				--sim:release(se_obj, true)
+				alife_release(se_obj)
+			end
+		end
+	end
+	
+	-- Setup items
+	local multi = game_difficulties.get_eco_factor("random_items") or 0.5
+	multi = (multi < 1) and multi or 1
+	
+	local num = math.ceil(size_table(world_itm_off) * multi)
+		
+	for i=1,num do
+		try_spawn_world_item(true)
+	end
+	
+	print_debug("- Game Setup | world_itm_info: %s - world_itm_on: %s - world_itm_off: %s", size_table(world_itm_info), size_table(world_itm_on), size_table(world_itm_off))
+end
+
+local tg_stkr = 0
+local function actor_on_update()
+	if time_global() < tg_stkr then
+		return
+	end
+	
+	-- No need to process if actor is outside cordon / visited more levels / not a loner / Warfare is active
+	if (level.name() ~= "l01_escape") 
+	or IsWarfare()
+	or (game_statistics.get_statistic_count("level_changes") > 1)
+	or (get_actor_true_community() ~= "stalker")
+	then
+		UnregisterScriptCallback("actor_on_update",actor_on_update)
+		return
+	end
+
+	-- Remove common military or mutant squads
+	local on_act_lvl = simulation_objects.is_on_the_actor_level
+	for id,v in pairs( SIMBOARD.squads ) do
+		local squad = alife_object(id)
+		if squad and squad.common and (squad.player_id == "army") and on_act_lvl(squad) then
+			squad:remove_squad()
+			break
+		end
+	end
+
+	tg_stkr = time_global() + 10000
+end
+
+local function actor_on_item_take(obj)
+	local id = obj:id()
+	
+	if world_itm_on[id] then
+		local name = world_itm_on[id]
+		local section = obj:section()
+		
+		local info = world_itm_info[name]
+		if (not info) then
+			print_debug("! Game Setup | can't get info for {%s}", name)
+		end
+		
+		-- Spawn a new world item
+		try_spawn_world_item()
+		
+		-- Switch state
+		world_itm_on[id] = nil
+		world_itm_off[name] = true
+		
+		-- Read info
+		local num = world_itm_num[name]
+		if num then
+		
+			-- Ammo
+			if IsItem("ammo",section) then
+				obj:ammo_set_count(num)
+				print_debug("- Game Setup | taken world ammo [%s](%s) is set to %s ammo - info name: %s", section, id, num, name)
+				world_itm_num[name] = nil
+				
+			-- Multi-use
+			elseif limited_uses[section] then
+				alife_process_item( section, id , {uses = num} )
+				print_debug("- Game Setup | taken world consumable [%s](%s) is set to %s uses - info name: %s", section, id, num, name)
+				world_itm_num[name] = nil
+				
+			-- Condition
+			elseif utils_item.is_degradable(nil, section) then
+				alife_process_item( section, id , {cond = num} )
+				print_debug("- Game Setup | taken world degraded item [%s](%s) is set to %s condition - info name: %s", section, id, num, name)
+				world_itm_num[name] = nil
+			end
+			
+		-- Normal
+		else
+			print_debug("- Game Setup | taken world item [%s](%s) - info name: %s", section, id, uses, name)
+		end
+		
+		-- Send message
+		itms_manager.send_itm_msg(section)
+		
+		remove_marker(id, info.typ)
+	end
+	
+	-- Ammo aggregation (it's important to start ammo aggregation after sorting taken world ammo size first, to prevent issues)
+	if IsAmmo(obj) then
+		item_weapon.ammo_aggregation(obj)
+	end
+end
+
+local function save_state(m_data)
+	m_data.world_itm_on = world_itm_on
+	m_data.world_itm_num = world_itm_num
+	print_debug("# SAVING: world_itm_on [%s] - world_itm_num [%s]", size_table(world_itm_on), size_table(world_itm_num))
+end
+
+local function load_state(m_data)
+	world_itm_on = m_data.world_itm_on or {}
+	world_itm_num = m_data.world_itm_num or {}
+	print_debug("# LOADING: world_itm_on [%s] - world_itm_num [%s]", size_table(world_itm_on), size_table(world_itm_num))
+end
+
+function on_game_start()
+	RegisterScriptCallback("actor_on_first_update",actor_on_first_update)
+	RegisterScriptCallback("actor_on_update",actor_on_update)
+	RegisterScriptCallback("actor_on_item_take",actor_on_item_take)
+	RegisterScriptCallback("save_state",save_state)
+	RegisterScriptCallback("load_state",load_state)
+end
\ No newline at end of file
diff --git a/gamedata/scripts/gamemode_azazel.script b/gamedata/scripts/gamemode_azazel.script
new file mode 100644
index 000000000..538d18bd9
--- /dev/null
+++ b/gamedata/scripts/gamemode_azazel.script
@@ -0,0 +1,441 @@
+
+printd = warfare.printd
+
+function on_game_start()
+	RegisterScriptCallback("actor_on_before_death",actor_on_before_death)
+	RegisterScriptCallback("on_game_load",on_game_load)
+end
+
+function on_game_load()
+	if not (alife_storage_manager.get_state().enable_azazel_mode) then
+		return
+	end
+	
+	if (alife_storage_manager.get_state().enable_warfare_mode) and (not warfare_options.options.azazel_mode) then
+		return
+	end
+	
+	if (alife_storage_manager.get_state().azazel_death) then
+		alife_storage_manager.get_state().azazel_death = nil
+		actor_menu.set_msg(1, strformat(game.translate_string("st_death_count"),game_statistics.get_statistic_count("deaths")),8)
+		
+		-- Heal 
+		bind_stalker_ext.invulnerable_time = time_global() + 30000
+		heal_everything()
+
+		-- Transition
+		level.add_pp_effector("deimos1.ppe", 210410, false)
+	end
+end
+
+function actor_on_before_death(whoID,flags)
+	if not (alife_storage_manager.get_state().enable_azazel_mode) then
+		return
+	end
+	
+	local is_warfare = false
+	if (alife_storage_manager.get_state().enable_warfare_mode) and (warfare_options.options.azazel_mode) then
+		is_warfare = true
+	end
+
+	game_statistics.increment_statistic("deaths")
+	actor_menu.set_msg(1, strformat(game.translate_string("st_death_count"),game_statistics.get_statistic_count("deaths")),8)
+	
+	-- find victims
+	local sim = alife()
+	local gg = game_graph()
+	local avail_entities = {}
+	local squad_mates = {}
+	local avail_faction = {}
+	local avail_faction_level = {}
+	local actor_faction = alife():actor():community():sub(7)
+	local actor_level = game_graph():vertex(alife():actor().m_game_vertex_id):level_id()
+
+	local actor_position = global_position.from(alife():actor())
+
+	local respawn_as_nearest = warfare_options.options.azazel_respawn_as_nearest
+
+	--local faction_mates = {}
+	local sfind = string.find
+	for i=1,sim:max_id() - 1 do 
+		local se_obj = sim:object(i)
+
+		if (se_obj and IsStalker(nil, se_obj:clsid()) and se_obj:alive() and se_obj:community() ~= "zombied" and se_obj:community() ~= "trader" and se_obj.group_id ~= 65535 and (get_object_story_id(se_obj.group_id) == nil) and sfind(se_obj:name(),"sim_default_")) then
+			local faction = se_obj:community()
+
+			if is_warfare then
+				if (warfare_options.options.azazel_respawn_as_companions and axr_companions.companion_squads[se_obj.group_id]) then
+					local m = tonumber(warfare_options.options.azazel_companion_dist_mult)
+					local dist = warfare.distance_to_xz_sqr(global_position.from(alife():actor()), global_position.from(se_obj))
+	
+					local mi = tonumber(warfare_options.options.azazel_companion_min_respawn_dist)
+					local ma = tonumber(warfare_options.options.azazel_companion_max_respawn_dist)
+	
+					if (mi == 0 and ma == 0) then
+						avail_entities[#avail_entities + 1] = { i, dist }
+					elseif (mi == 0) then
+						if (dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					elseif (ma == 0) then
+						if (dist > math.pow(mi, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					else
+						if (dist > math.pow(mi, 2) and dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					end
+				end
+	
+				if (warfare_options.options.azazel_respawn_as_actor_faction and warfare.actor_faction == faction) then
+					local m = tonumber(warfare_options.options.azazel_same_faction_dist_mult)
+					local dist = warfare.distance_to_xz_sqr(global_position.from(alife():actor()), global_position.from(se_obj))
+	
+					local mi = tonumber(warfare_options.options.azazel_actor_faction_min_respawn_dist)
+					local ma = tonumber(warfare_options.options.azazel_actor_faction_max_respawn_dist)
+	
+					if (mi == 0 and ma == 0) then
+						avail_entities[#avail_entities + 1] = { i, dist }
+					elseif (mi == 0) then
+						if (dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					elseif (ma == 0) then
+						if (dist > math.pow(mi, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					else
+						if (dist > math.pow(mi, 2) and dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					end
+				end					
+				
+				if (warfare_options.options.azazel_respawn_as_allies and game_relations.is_factions_friends(warfare.actor_faction, faction)) then
+					local m = tonumber(warfare_options.options.azazel_friend_dist_mult)
+					local dist = warfare.distance_to_xz_sqr(global_position.from(alife():actor()), global_position.from(se_obj))
+	
+					local mi = tonumber(warfare_options.options.azazel_ally_min_respawn_dist)
+					local ma = tonumber(warfare_options.options.azazel_ally_max_respawn_dist)
+	
+					if (mi == 0 and ma == 0) then
+						avail_entities[#avail_entities + 1] = { i, dist }
+					elseif (mi == 0) then
+						if (dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					elseif (ma == 0) then
+						if (dist > math.pow(mi, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					else
+						if (dist > math.pow(mi, 2) and dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					end
+				end
+				
+				if (warfare_options.options.azazel_respawn_as_neutrals and not (game_relations.is_factions_friends(warfare.actor_faction, faction) or game_relations.is_factions_enemies(warfare.actor_faction, faction))) then
+					local m = tonumber(warfare_options.options.azazel_neutral_dist_mult)
+					local dist = warfare.distance_to_xz_sqr(global_position.from(alife():actor()), global_position.from(se_obj))
+	
+					local mi = tonumber(warfare_options.options.azazel_neutral_respawn_min_dist)
+					local ma = tonumber(warfare_options.options.azazel_neutral_respawn_max_dist)
+	
+					if (mi == 0 and ma == 0) then
+						avail_entities[#avail_entities + 1] = { i, dist }
+					elseif (mi == 0) then
+						if (dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					elseif (ma == 0) then
+						if (dist > math.pow(mi, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					else
+						if (dist > math.pow(mi, 2) and dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					end
+				end
+				
+				if (warfare_options.options.azazel_respawn_as_enemies and game_relations.is_factions_enemies(warfare.actor_faction, faction)) then
+					local m = tonumber(warfare_options.options.azazel_enemy_dist_mult)
+					local dist = warfare.distance_to_xz_sqr(global_position.from(alife():actor()), global_position.from(se_obj))
+	
+					local mi = tonumber(warfare_options.options.azazel_enemy_respawn_min_dist)
+					local ma = tonumber(warfare_options.options.azazel_enemy_respawn_max_dist)
+	
+					if (mi == 0 and ma == 0) then
+						avail_entities[#avail_entities + 1] = { i, dist }
+					elseif (mi == 0) then
+						if (dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					elseif (ma == 0) then
+						if (dist > math.pow(mi, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					else
+						if (dist > math.pow(mi, 2) and dist < math.pow(ma, 2)) then
+							avail_entities[#avail_entities + 1] = { i, dist }
+						end
+					end
+				end
+			else
+				avail_entities[#avail_entities + 1] = se_obj.id
+			end
+		end
+	end
+
+	if is_warfare then
+		if (warfare_options.options.azazel_respawn_as_nearest) then
+			table.sort(avail_entities, function(a, b)
+				return a[2] < b[2]
+			end)
+		else
+			warfare.shuffleTable(avail_entities)
+		end
+	end
+
+	if (#avail_entities == 0) then
+		actor_menu.set_msg(1, strformat(game.translate_string("st_death_count") .. " " .. game.translate_string("st_nobody_left_to_replace"),game_statistics.get_statistic_count("deaths")),10)
+		return
+	end
+
+	bind_stalker_ext.invulnerable_time = time_global() + 30000
+	db.actor:set_health_ex(1)
+
+	heal_everything()
+
+	-- Modified list for Anomaly starters-pack items
+	local ignore_list = {
+		["cash"] = true,
+		["device_flashlight"] = true,
+		
+		["bolt"] = true,
+		["device_pda"] = true,
+		["medkit_script"] = true,
+		["guitar_a"] = true,
+		["harmonica_a"] = true,
+		["anim_binoc"] = true,
+		["anim_knife"] = true,
+		["hand_radio"] = true,
+		["hand_radio_r"] = true,
+		["stick_bred"] = true,
+		["stick_kolbasa"] = true,
+		["stick_kolbasa_bred"] = true,
+		["wpn_knife"] = true,
+		["pda_for_nps"] = true,
+		["sigaret_for_nps"] = true,
+	}
+	
+	axr_companions.remove_all_from_actor_squad()
+
+	local se_obj
+	if is_warfare then
+		local selectedCommanderID = avail_entities[1][1]
+		se_obj = alife_object(selectedCommanderID)
+	else
+		se_obj = alife_object(avail_entities[math.random(#avail_entities)])
+	end
+
+	--[[ make squad actor companions
+	local squad = alife_object(se_obj.group_id)
+	if (squad) then
+		SIMBOARD:assign_squad_to_smart(squad, nil)
+		axr_companions.companion_squads[squad.id] = squad
+		for k in squad:squad_members() do 
+			if (k.id ~= se_obj.id) then
+				axr_companions.non_task_companions[k.id] = true
+				se_save_var(k.id,k.object:name(),"companion",true)
+				local member = db.storage[k.id] and db.storage[k.id].object 
+				if (member) then
+					axr_companions.setup_companion_logic(member,db.storage[k.id],false)
+				end
+			end
+		end
+	end
+	--]]
+
+	local se_actor = alife():actor()
+	
+	-- actor corpse 
+	local se_mimic = alife_create("stalker_azazel",se_actor.position,se_actor.m_level_vertex_id,se_actor.m_game_vertex_id)
+	if (se_mimic) then 
+		se_mimic:set_character_name(se_actor:character_name())
+		se_mimic:set_profile_name(se_actor:profile_name())
+		se_mimic:kill()
+		
+		local m_data = alife_storage_manager.get_se_obj_state(se_mimic,true)
+		if (m_data) then
+			m_data.icon_name = se_actor:character_icon()
+			m_data.visual = db.actor:get_visual_name()
+		end
+		
+		local function release_actor_item(temp, item)
+			local sec = item:section()
+			if (not ignore_list[sec]) then
+				if alife_release_id(item:id()) then
+					alife_create_item(sec,se_mimic)
+				end
+			end
+		end
+		db.actor:iterate_inventory(release_actor_item,nil)
+	end
+
+	-- copy data over to player
+	if (db.actor_binder and db.actor_binder.character_icon) then 
+		db.actor_binder.character_icon = se_obj:character_icon()
+		db.actor:set_character_icon(db.actor_binder.character_icon)
+	end
+
+	pda_actor.manual_control = false
+	
+	se_actor:set_character_name(se_obj:character_name())
+	
+	local faction = se_obj:community()
+	se_actor:set_rank(se_obj:rank())
+	set_actor_true_community(faction) -- update default faction
+	db.actor:set_character_reputation(se_obj:reputation())
+	db.actor:give_money(10*math.random(1,250)+500)
+
+	printf(tostring(faction))
+	
+	game_relations.set_community_goodwill_for_faction(faction)
+	--game_relations.change_faction_relations(faction, faction:sub(7), 2000, true)
+	
+	-- Force update of game_statistics rank/rept records.
+	game_statistics.check_for_rank_change(true)
+	game_statistics.check_for_reputation_change(true)
+	
+	-- copy all items except ignored
+	sim = alife()
+	for i=1,sim:max_id() - 1 do 
+		local se_item = sim:object(i)
+		if (se_item and se_item.parent_id == se_obj.id) then
+			local sec = se_item:section_name()
+			if not (ignore_list[sec]) then
+				give_object_to_actor(sec)
+			end
+		end
+	end
+
+	-- spawn suitable items
+	local npc_data = utils_stpk.get_stalker_data(se_obj)
+	local npc_visual = npc_data and npc_data.visual_name
+	local rank_name = ranks.get_obj_rank_name(db.actor)
+	
+	death_manager.try_spawn_ammo(db.actor)
+	death_manager.create_item_list(db.actor, faction, rank_name, false)
+	local outfit_id = death_manager.spawn_cosmetics(db.actor, AC_ID, faction, rank_name, npc_visual, true)
+	
+	if (not outfit_id) then
+		give_object_to_actor("novice_outfit") -- give novice outfit if no outfit is created
+	end
+	give_object_to_actor("device_pda_1") -- give PDA
+	give_object_to_actor("itm_backpack") -- give backpack
+	
+	
+	-- cancel all tasks
+	local task_info = task_manager.get_task_manager().task_info
+	
+	if #squad_mates < 1 then -- don't cancel any tasks if actor takes control of nearby squadmate
+		for task_id,tbl in pairs(task_info) do
+			--if not (tbl.storyline) then
+				tbl.forced_status = "fail"
+				tbl.cancelled_by_actor = true
+			--end
+		end
+	end
+
+	-- initiate transitition and removal of victim
+	local level_name = alife():level_name(game_graph():vertex(se_obj.m_game_vertex_id):level_id())
+	
+	if (level_name == level.name()) then
+		-- give bolt
+		local bolt_first = random_choice("bolt","bolt_bullet")
+		alife_create_item(bolt_first, db.actor)
+		
+		hide_hud_all()
+		db.actor:set_actor_position(se_obj.position)
+		--level.disable_input()
+		--level.remove_cam_effector(210409)
+		--level.add_cam_effector("camera_effects\\prison_1.anm", 210409, false, "gamemode_azazel.cam_effector_end")
+		heal_everything()
+		level.add_pp_effector("deimos1.ppe", 210410, false)
+		safe_release_manager.release(se_obj)
+	else
+		alife_storage_manager.get_state().bolt_first = random_choice("bolt","bolt_bullet") -- give bolt
+		
+		local pos = se_obj.position
+		local lvid = se_obj.m_level_vertex_id
+		local gvid = se_obj.m_game_vertex_id
+		level.add_pp_effector("deimos1.ppe", 210410, false)
+		safe_release_manager.release(se_obj)
+		alife_storage_manager.get_state().azazel_death = true
+		local function tele_me_now(id)
+			ChangeLevel(pos,lvid,gvid,VEC_ZERO, true)
+			return true
+		end
+		CreateTimeEvent(0,"tele",0,tele_me_now,se_obj.id)
+	end
+
+	-- skip surge due to bug with killing actor on switch
+	surge_manager.stop_surge()
+	if (psi_storm_manager.get_psi_storm_manager().started) then
+		psi_storm_manager.get_psi_storm_manager().finish(true)
+	end
+	
+	flags.ret_value = false
+end
+
+function cam_effector_end()
+	level.enable_input()
+	
+	bind_stalker_ext.invulnerable_time = nil
+	
+	-- xQd - degrade the condition of all weapons, equipped weapons should not be degraded further than 90%
+	local slot1, slot2
+	for i=2,3 do
+		local wpn = db.actor:item_in_slot(i)
+		if (wpn) then
+			if i == 2 then
+				slot1 = wpn:id()
+			else
+				slot2 = wpn:id()
+			end
+			wpn:set_condition(1 - (math.random(0,10)/100))
+		end
+	end
+	local function degrade_condition(temp, item)
+		local cls = item:clsid()
+		if IsWeapon(item,cls) and not(cls==clsid.wpn_grenade_rgd5_s or cls==clsid.wpn_grenade_f1_s) then
+			if slot1 and item:id() == slot1 then
+				return
+			end
+			if slot2 and item:id() == slot2 then
+				return 
+			end
+			item:set_condition(math.random(10,70)/100)
+		end
+	end
+	db.actor:iterate_inventory(degrade_condition,db.actor)
+end
+
+function heal_everything()
+	db.actor:set_health_ex(1)
+	db.actor.power = 1
+	db.actor.radiation = 0
+	db.actor.bleeding = 1
+	db.actor.satiety = 1
+	db.actor.psy_health = 1
+	arszi_psy.set_psy_health(1.0)
+end
+
+--Discord
+function get_possessed_lives()
+	local possessed_lives = tonumber(game_statistics.get_statistic_count("deaths")) or 0
+	return possessed_lives
+end
\ No newline at end of file
diff --git a/gamedata/scripts/item_radio.script b/gamedata/scripts/item_radio.script
new file mode 100644
index 000000000..7c46debf5
--- /dev/null
+++ b/gamedata/scripts/item_radio.script
@@ -0,0 +1,531 @@
+
+--[[
+
+	Made by Tronex
+	2018/10/15
+	
+	RF Receiver and sources management
+	2020/4/26: Added 3D UI to the detector
+
+--]]
+
+local enable_debug = false
+
+local bands = {
+	["ELF"] = { _min = 3		, _max = 30 		, _unit = game.translate_string("st_hz") 		},
+	["SLF"] = { _min = 30		, _max = 300 		, _unit = game.translate_string("st_hz") 		},
+	["ULF"] = { _min = 300		, _max = 3000 		, _unit = game.translate_string("st_hz") 		},
+	["VLF"] = { _min = 3		, _max = 30 		, _unit = game.translate_string("st_khz")		},
+	["LF"]  = { _min = 30		, _max = 300 		, _unit = game.translate_string("st_khz")		},
+	["MF"]  = { _min = 300		, _max = 3000 		, _unit = game.translate_string("st_khz")		},
+	["HF"]  = { _min = 3		, _max = 30 		, _unit = game.translate_string("st_mhz")		},
+	["VHF"] = { _min = 30		, _max = 300 		, _unit = game.translate_string("st_mhz")		},
+	["UHF"] = { _min = 300		, _max = 3000 		, _unit = game.translate_string("st_mhz")		},
+	["SHF"] = { _min = 3		, _max = 30			, _unit = game.translate_string("st_ghz")		},
+	["EHF"] = { _min = 30		, _max = 300		, _unit = game.translate_string("st_ghz")		},
+	["THF"] = { _min = 300		, _max = 3000		, _unit = game.translate_string("st_ghz")		},
+}
+
+local _band = bands["VHF"] -- used band
+local _min = _band._min
+local _max = _band._max
+local _unit = _band._unit
+local _range = 2
+local _freq = math.random(_min,_max)
+
+local _device = "detector_radio"
+local scan_time = 5000 -- 5 seconds
+local clamp = clamp
+
+-- Sounds
+local snd_on = sound_object("detectors\\RF\\on")
+local snd_off = sound_object("detectors\\RF\\off")
+
+local snd_noise = sound_object("detectors\\RF\\noise")
+local snd_white_noise = sound_object("detectors\\RF\\noise")
+local snd_emission = {}
+for i=1,8 do snd_emission[i] = sound_object("detectors\\RF\\emission\\noise_emission_" .. tostring(i)) end
+local snd_random = {}
+for i=1,13 do snd_random[i] = sound_object("detectors\\RF\\random\\random_" .. tostring(i)) end
+local snd_talk = {}
+for i=1,33 do snd_talk[i] = sound_object("detectors\\RF\\talk\\talk_" .. tostring(i)) end
+
+-- Sound path
+local path_beep = "detectors\\RF\\beep_02"
+local path_random = {}
+for i=1,13 do path_random[i] = "detectors\\RF\\random\\random_" .. tostring(i) end
+
+
+-- Database
+local RF_database = {
+	-- Stash
+	[clsid.inventory_box]     = { dist = 70 , snd = { path_beep } },
+	[clsid.inventory_box_s]   = { dist = 70 , snd = { path_beep } },
+	
+	-- Stalkers
+	--[clsid.script_stalker] 	  = { dist = 150 , snd = snd_talk },
+	
+	-- Artefacts
+	[clsid.artefact] 		  = { dist = 50 , snd = path_random },
+	[clsid.artefact_s] 		  = { dist = 50 , snd = path_random },
+	["af_ring"]	  			  = { dist = 50 , snd = path_random , freq = 23},
+	["af_electra_flash"]	  = { dist = 50 , snd = path_random , freq = 124},
+	["af_electra_moonlight"]  = { dist = 50 , snd = path_random , freq = 57},
+	["af_black_spray"]	 	  = { dist = 50 , snd = path_random , freq = 89},
+	["af_full_empty"]	 	  = { dist = 50 , snd = path_random , freq = 236},
+	["af_ice"]	 	 		  = { dist = 50 , snd = path_random , freq = 178},
+	["af_soul"]	 	 		  = { dist = 50 , snd = path_random , freq = 302},
+	["af_compass"]	 	 	  = { dist = 100 , snd = path_random , freq = 285},
+	["af_death_lamp"]	 	  = { dist = 200 , snd = path_random , freq = 321},
+	
+	-- Psy Mutants
+	[clsid.controller_s]      = { dist = 150  , snd = path_random , freq = 145},
+	--[clsid.psysucker_s]       = { dist = 150  , snd = path_random , freq = 67},
+	--[clsid.karlik_s]          = { dist = 150  , snd = path_random , freq = 244},
+	[clsid.burer_s]           = { dist = 150  , snd = path_random , freq = 106},
+	[clsid.poltergeist_s]     = { dist = 150  , snd = path_random , freq = 219},
+	[clsid.psy_dog_s]         = { dist = 150  , snd = path_random , freq = 190},
+	[clsid.psy_dog_phantom_s] = { dist = 150  , snd = path_random , freq = 197},
+}
+
+local active_sources = {} -- all online RF sources 
+local RF = {}	          -- sources to process
+local exclude = {}
+RF_stashes = {}           -- stored stashes with RF source
+RF_targets = {}           -- stored specific targets with RF source
+
+
+----------------------------------------------------------------------
+-- Utilities
+----------------------------------------------------------------------
+function print_dbg(fmt, ...)
+	if enable_debug then
+		printf("item_radio | " .. fmt, ...)
+	end
+end
+
+function get_freq()
+	return _freq
+end
+
+function change_freq(num)
+	local hud = actor_menu.get_last_mode()
+	if (hud ~= 0) or item_device.is_pda_active() then
+		return
+	end
+
+	local oldf = _freq
+	local newf = clamp(_freq + num, _min, _max)
+	_freq = newf
+	
+	--actor_menu.set_msg(1, tostring(_freq) .. " " .. _unit,3)
+	
+	SendScriptCallback("actor_on_frequency_change", oldf, newf)
+end
+
+function is_in_range(freq)
+	local a = math.abs(freq - _freq)
+	if (a < _range) then
+		return true
+	end
+	return false
+end
+
+function get_vol_range(freq)
+	local a = math.abs(freq - _freq)
+	if (a < _range) then
+		return (1 - a/_range)
+	end
+	return 0
+end
+
+function get_random_freq()
+	return math.random(_min,_max)
+end
+
+function add_stash(lvl,id, freq)
+	if lvl and RF_stashes[lvl] then
+		RF_stashes[lvl][id] = freq or get_random_freq()
+	end
+end
+function clear_stash(lvl,id)
+	if lvl and RF_stashes[lvl] then
+		RF_stashes[lvl][id] = nil
+	end
+end
+
+function add_target(id, freq, dist)
+	freq = freq or get_random_freq()
+	dist = dist or 200
+	RF_targets[id] = { freq = freq , dist = dist }
+end
+function clear_target(id)
+	if id then
+		RF_targets[id] = nil
+	end
+end
+
+function create_rf_table(id, cls, dist_pos, freq, dist, snd)
+	return {
+		id       = id,
+		clsid    = cls,
+		dist_pos = dist_pos,
+		freq     = freq,
+		dist     = dist,
+		snd      = snd,
+	}
+end
+
+function validate_RF_targets() -- Clear non-existing RF targets
+	for k,v in pairs(RF_targets) do
+		local se = alife_object(k)
+		if (not se) then
+			RF_targets[k] = nil
+		end
+	end
+end
+
+function scan_online_sources()
+	print_dbg("scan_online_sources")
+	local pos = db.actor:position()
+	
+	-- Search
+	empty_table(active_sources)
+	for obj in game_objects_without_actor_iter() do
+		local id = obj:id()
+		local sec = obj:section()
+		local cls = obj:clsid()
+		local dist_pos = pos:distance_to(obj:position())
+		
+		-- Specific Targets (Quests)
+		if RF_targets[id] and (dist_pos < RF_targets[id].dist) then
+			print_dbg("found active_source | section: %s - clsid: %s - distance: %s", sec, cls, dist_pos)
+			active_sources[#active_sources + 1] = create_rf_table( id, cls, dist_pos, RF_targets[id].freq, RF_targets[id].dist, { path_beep } )
+
+		-- Common RF Sources
+		elseif RF_database[cls] and (dist_pos < RF_database[cls].dist) then
+			print_dbg("found active_source | section: %s - clsid: %s - distance: %s", sec, cls, dist_pos)
+
+			-- Stash
+			if (cls == clsid.inventory_box_s) or (cls == clsid.inventory_box) then
+				local _level = level.name()
+				if RF_stashes[_level] and RF_stashes[_level][id] then
+					active_sources[#active_sources + 1] = create_rf_table( id, cls, dist_pos, RF_stashes[_level][id], RF_database[cls].dist, RF_database[cls].snd )
+				end
+
+			-- Artefacts
+			elseif (cls == clsid.artefact) or (cls == clsid.artefact_s) then
+				if RF_database[sec] then
+					active_sources[#active_sources + 1] = create_rf_table( id, cls, dist_pos, RF_database[sec].freq, RF_database[cls].dist, RF_database[cls].snd )
+				end
+			
+			-- Anything else
+			elseif RF_database[cls] and RF_database[cls].freq then
+				active_sources[#active_sources + 1] = create_rf_table( id, cls, dist_pos, RF_database[cls].freq, RF_database[cls].dist, RF_database[cls].snd )
+			end
+		end
+	end
+	
+	-- store closest 3 sources 
+	empty_table(RF)
+	empty_table(exclude)
+	for j=1,3 do
+		local smallest_distance = 200
+		local last_id = nil
+		for i=1,#active_sources do
+			if (not exclude[i]) and (active_sources[i].dist_pos < smallest_distance) then
+				smallest_distance = active_sources[i].dist_pos
+				last_id = i
+			end
+		end
+		if (last_id ~= nil) and (not exclude[last_id]) then
+			RF[#RF+1] = active_sources[last_id] -- fill
+			exclude[last_id] = true
+		end
+	end
+	if (#RF > 0) then
+		refresh = true -- require sounds update
+	end
+	print_dbg("active_sources: %s | RF: %s", #active_sources, #RF)
+end
+
+local d_state = false
+local vol_n = 0
+function sound_trigger(state)
+	if state and (not d_state) then
+		snd_on:play(db.actor, 0, sound_object.s2d)
+		d_state = true
+		vol_n = 0.7
+		snd_noise.volume = vol_n
+	elseif (not state) and d_state then
+		snd_off:play(db.actor, 0, sound_object.s2d)
+		d_state = false
+		vol_n = 0
+		snd_noise.volume = vol_n
+	end
+end
+
+
+----------------------------------------------------------------------
+-- UI
+----------------------------------------------------------------------
+local detector_rf_ui = nil
+local tg_led = 0
+local tg_emission = 0
+
+class "UI3D_RF" (CUIScriptWnd)
+function UI3D_RF:__init() super()
+	self:Show					(true)
+	self:Enable					(true)
+	self.freq					= nil
+
+	local xml					= CScriptXmlInit()
+	self.xml = xml
+	xml:ParseFile				("ui_detector_rf.xml")
+	xml:InitWindow				("detector_rfproxy", 0, self)
+
+	--self.m_area_b				= xml:InitStatic("detector_rfproxy:area_b", self)
+	self.m_area_r				= xml:InitStatic("detector_rfproxy:area_r", self)
+	
+	self.m_seg1					= xml:InitStatic("detector_rfproxy:seg1", self)
+	self.m_seg2					= xml:InitStatic("detector_rfproxy:seg2", self)
+	self.m_seg3					= xml:InitStatic("detector_rfproxy:seg3", self)
+	
+	self.m_led					= xml:InitStatic("detector_rfproxy:led", self)
+end
+
+function UI3D_RF:__finalize() 
+	detector_rf_ui = nil
+end
+
+function UI3D_RF:Update()
+	
+	CUIScriptWnd.Update(self)
+	
+	local tg = time_global()
+	
+	-- LED flashing
+	if (tg > tg_led + 1000) then
+		tg_led = tg
+		self.m_led:Show(not self.m_led:IsShown())
+	end
+	
+	-- Emissions
+	if GetEvent("surge", "state") or GetEvent("psi_storm", "state") then
+		if (tg > tg_emission + 200) then
+			tg_emission = tg
+			
+			self.m_led:Show((math.random(1,100) < 50) and true or false)
+			_freq = math.random(_min,_max)
+		else
+			return
+		end
+		
+	-- Normal readings
+	else
+		if self.freq == _freq then
+			return
+		end
+		self.freq = _freq
+	end
+
+	local s_freq = tostring(_freq)
+	local seg1, seg2, seg3
+	
+	if (_freq > 99) then
+		seg1 = strformat("green_%s", s_freq:sub(1, 1))
+		seg2 = strformat("green_%s", s_freq:sub(2, 2))
+		seg3 = strformat("green_%s", s_freq:sub(3, 3))
+	elseif (_freq > 9) then
+		seg1 = "green_0"
+		seg2 = strformat("green_%s", s_freq:sub(1, 1))
+		seg3 = strformat("green_%s", s_freq:sub(2, 2))
+	elseif (_freq > 0) then
+		seg1 = "green_0"
+		seg2 = "green_0"
+		seg3 = strformat("green_%s", s_freq:sub(1, 1))
+	else
+		seg1 = "green_0"
+		seg2 = "green_0"
+		seg3 = "green_0"
+	end
+	
+	self.m_seg1:InitTextureEx(seg1, "hud\\p3d")
+	self.m_seg2:InitTextureEx(seg2, "hud\\p3d")
+	self.m_seg3:InitTextureEx(seg3, "hud\\p3d")
+end
+
+function get_UI()
+	if (detector_rf_ui == nil) then
+		detector_rf_ui = UI3D_RF()
+	end
+	
+	return detector_rf_ui
+end
+
+
+----------------------------------------------------------------------
+-- Callbacks
+----------------------------------------------------------------------
+local tg_scan = 0
+local tg_random = math.random(20,40)*1000
+local snds = {}
+local refresh = false
+local emission = false
+local flag_10,flag_50
+
+local function server_entity_on_unregister(se_obj, typ)
+	RF_targets[se_obj.id] = nil
+	
+end
+
+local function actor_on_first_update()
+	-- create RF stashes
+	if is_empty(RF_stashes) then
+		local sim = alife()
+		local gg = game_graph()
+	
+		-- gather all stashes
+		local lvls = {}
+		for id,v in pairs(treasure_manager.caches) do
+			local se = sim:object(id)
+			if se then
+				local lvl = sim:level_name(gg:vertex(se.m_game_vertex_id):level_id())
+				lvls[lvl] = lvls[lvl] or {} -- create level table
+				lvls[lvl][#lvls[lvl] + 1] = id -- add stashes from the same level
+			end
+		end
+		
+		-- fill stashes table with a few selected targets
+		for lvl,v in pairs(lvls) do
+			RF_stashes[lvl] = {}
+			local size = (#v > 15) and #v or 0
+			for i=1,size,(size/5) do
+				local indx = math.ceil(i)
+				local id = v[indx]
+				RF_stashes[lvl][id] = get_random_freq()
+				
+				if enable_debug then
+					level.map_add_object_spot_ser(id, "treasure", "RF Source\\nFrequency: " .. tostring(RF_stashes[lvl][id])) -- test
+				end
+				
+				print_dbg("RF_stashes[%s][%s] = %s",lvl,id,RF_stashes[lvl][id])
+			end
+		end
+	end
+end
+
+local function actor_on_update()
+
+	-- return if radio detector is no active
+	local obj_det = db.actor:active_detector()
+	if not (obj_det and obj_det:section() == _device and obj_det:condition() >= obj_det:power_critical()) then
+		sound_trigger(false)
+		return
+	end
+	sound_trigger(true)
+	
+	-- Emissions
+	emission = GetEvent("surge", "state") or GetEvent("psi_storm", "state")
+	
+	-- Scan for any nearby radio wave source
+	local tg = time_global()
+	if (tg > tg_scan) then
+		tg_scan = tg + scan_time
+		scan_online_sources()
+	end
+	
+	-- Signal sounds
+	local vol_noise_lowest = 0.7
+	for i=1,#RF do
+		local obj = level.object_by_id(RF[i].id)
+		if obj and (not emission) then
+			local dist = db.actor:position():distance_to(obj:position())
+			if (dist < RF[i].dist) then
+				
+				local dist_ratio = dist / RF[i].dist
+				local pass_range = is_in_range(RF[i].freq)
+				local vol_range = get_vol_range(RF[i].freq)
+				
+				local vol_signal = pass_range and clamp( (1-dist_ratio) * vol_range , 0 , 1) or 0
+				local vol_noise = pass_range and clamp( dist_ratio * vol_range , 0.2 , 0.7 ) or 0.7
+				vol_noise_lowest = (vol_noise < vol_noise_lowest) and vol_noise or vol_noise_lowest
+				
+				print_dbg("RF[%s] - id: %s - RF dist: %s - current dist: %s - dist_ratio: %s", i, RF[i].id, RF[i].dist, dist, dist_ratio)
+				print_dbg("vol_range: %s - vol_signal: %s - vol_noise: %s", vol_range, vol_signal, vol_noise)
+				if (not snds[i]) or (snds[i] and (not snds[i]:playing())) or refresh then
+					local snd_pathes = RF[i].snd
+					snds[i] = sound_object(snd_pathes[math.random(#snd_pathes)])
+					snds[i]:play(db.actor, 0, sound_object.s2d)
+					print_dbg("snds[%s] - #s: %s", i, #snd_pathes)
+				end
+				snds[i].volume = vol_signal
+			end
+		end
+	end
+	vol_n = vol_noise_lowest
+
+	-- White noise sound
+	if (not snd_noise:playing()) then
+		snd_noise = emission and snd_emission[math.random(#snd_emission)] or snd_white_noise
+		snd_noise:play(db.actor, 0, sound_object.s2d)
+	end
+	snd_noise.volume = vol_n
+	refresh = false
+	
+	-- Random sounds
+	if (tg > tg_random) then
+		tg_random = tg + math.random(20,40)*1000
+		local snd_random_now = (math.random(100) > 50) and snd_random[math.random(#snd_random)] or snd_talk[math.random(#snd_talk)]
+		snd_random_now:play(db.actor, 0, sound_object.s2d)
+		snd_random_now.volume = math.random(10,100)/100
+	end
+end
+
+local function load_state(m_data)
+	RF_stashes = m_data.RF_stashes or {}
+	RF_targets = m_data.RF_targets or {}
+	_freq = m_data.RF_freq or math.random(_min,_max)
+end
+
+local function save_state(m_data)
+	validate_RF_targets()
+	
+	m_data.RF_stashes = RF_stashes
+	m_data.RF_targets = RF_targets
+	m_data.RF_freq = _freq
+end
+
+local function on_key_hold(key)
+	if (key == DIK_keys["DIK_LSHIFT"]) then
+		flag_10 = true
+	elseif (key == DIK_keys["DIK_LMENU"]) then
+		flag_50 = true
+	end
+end
+
+local function on_key_release(key)
+	local detector = db.actor:active_detector()
+	local wep = db.actor:active_item()
+	
+	if detector and (detector:section() == _device) and (not wep) then
+		local num = (flag_50 and 50) or (flag_10 and 10) or 1
+		if (key == DIK_keys["MOUSE_1"]) then
+			change_freq(num)
+		elseif (key == DIK_keys["MOUSE_2"]) then
+			change_freq(-num)
+		end
+	end
+	flag_10 = false
+	flag_50 = false
+end
+
+function on_game_start()
+	RegisterScriptCallback("on_key_hold",on_key_hold)
+	RegisterScriptCallback("on_key_release",on_key_release)
+	RegisterScriptCallback("save_state",save_state)
+	RegisterScriptCallback("load_state",load_state)
+	RegisterScriptCallback("actor_on_first_update",actor_on_first_update)
+	RegisterScriptCallback("actor_on_update",actor_on_update)
+	RegisterScriptCallback("server_entity_on_unregister",server_entity_on_unregister)
+end
diff --git a/gamedata/scripts/itms_manager.script b/gamedata/scripts/itms_manager.script
new file mode 100644
index 000000000..15917c961
--- /dev/null
+++ b/gamedata/scripts/itms_manager.script
@@ -0,0 +1,1534 @@
+
+--[[
+	itms_manager
+	by Alundaio
+	
+	Copyright (C) 2012 Alundaio
+	This work is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License
+	
+	Modified by Tronex:
+	2018/7/18 - Added support for new usable items (maps,craft)
+	2018/7/21 - Added the ability to gather/separate muti-use items
+	2018/7/26 - Added the ability to disassemble misc items
+	2018/7/26 - Rewrote a lot of function with better codes
+	2018/7/31 - Added new items, battery consumption for geiger counter and gps tracker
+	2018/8/2  - Drag artefacts on containers to put them in, container tool is no longer used
+	2019/2/16 - Organized the items in tables for global use
+	2019/9/19 - Bolt count manager
+	2020/3/18 - Cleaning
+--]]
+
+-- local uses = obj:get_remaining_uses()
+-- local max_uses = obj:get_max_uses()
+-- obj:set_remaining_uses(num)
+
+
+-- Prepare ini files
+ini_manager = ini_file("items\\settings\\itms_manager.ltx")
+ini_container = ini_file("items\\settings\\arty_container.ltx")
+ini_parts = ini_file("items\\settings\\parts.ltx")
+ini_craft = ini_file("items\\settings\\craft.ltx")
+ini_death = ini_file("items\\settings\\death_generic.ltx")
+ini_reward = ini_file("items\\settings\\item_rewards.ltx")
+
+local n = 0
+local result,id,value = "","",""
+local string_find = string.find
+local string_gsub = string.gsub
+
+-- Collect item sections of main tools
+itms_arty_container = utils_data.collect_section(ini_container,"containers",true) or {}
+
+local empty_syringe_items = {}
+n = ini_manager:line_count("empty_syringe_items")
+for i=0,n-1 do
+	result, id, value = ini_manager:r_line_ex("empty_syringe_items",i,"","")
+	if ini_sys:section_exist(id) then
+		empty_syringe_items[id] = true
+	end
+end
+
+item_rewards = {}
+ini_reward:section_for_each(function(section)
+	if (not item_rewards[section]) then
+		item_rewards[section] = {}
+	end
+	
+	n = ini_reward:line_count(section)
+	for i=0,n-1 do
+		result, id, value = ini_reward:r_line_ex(section,i,"","")
+		if ini_sys:section_exist(id) then
+			item_rewards[section][id] = ini_sys:r_float_ex(id,"tier") or 1
+		end
+	end
+end)
+
+item_combine = {}
+n = ini_craft:line_count("item_combination")
+for i=0,n-1 do
+	result, id, value = ini_craft:r_line_ex("item_combination",i,"","")
+	if id and value then
+		local str = str_explode(id,":")
+		if str[1] and str[2] and ini_sys:section_exist(str[1]) and ini_sys:section_exist(str[2]) and ini_sys:section_exist(value) then
+			if (not item_combine[str[1]]) then
+				item_combine[str[1]] = {}
+			end
+			item_combine[str[1]][str[2]] = value
+		else
+			printe("!ERROR item_combination | wrong section names")
+		end
+	end
+end
+
+
+-------------------------------
+-- CALLBACKS
+-------------------------------
+function on_game_start()
+	RegisterScriptCallback("actor_on_item_before_use",actor_on_item_before_use)
+	RegisterScriptCallback("actor_on_first_update",actor_on_first_update)
+	RegisterScriptCallback("actor_on_item_drop",actor_on_item_drop)
+	RegisterScriptCallback("actor_on_item_use",actor_on_item_use)
+	RegisterScriptCallback("actor_on_item_take",actor_on_item_take)
+	RegisterScriptCallback("ActorMenu_on_item_drag_drop",ActorMenu_on_item_drag_drop)
+	RegisterScriptCallback("ActorMenu_on_item_focus_receive",ActorMenu_on_item_focus_receive)
+	RegisterScriptCallback("save_state",save_state)
+end
+
+local old_booster = {}
+local boost_min = 0.00005
+local booster_string = {
+	["pwr"] = "ui_inv_power",
+	["psy"] = "ui_inv_outfit_telepatic_protection",
+	["bld"] = "ui_inv_bleeding",
+	["hp"] = "ui_inv_health",
+	["rad"] = "ui_inv_radiation",
+}
+function actor_on_item_before_use(obj,flags)
+	local sec = obj:section()
+	
+	-- no need to check for tools
+	if IsItem("tool",sec) then
+		--printf("- actor_on_item_before_use [%s] | ignore utility item", sec)
+		flags.ret_value = true
+		return
+	end
+	
+	local curr_booster = {}
+	local time_g = time_global()
+	local str = ""
+	local pass = true
+	
+	-- read important boosts
+	local period		= ini_sys:r_float_ex(sec, "boost_time") or 0
+	local rad_boost 	= ini_sys:r_float_ex(sec, "boost_radiation_restore") or 0
+	local psy_boost 	= ini_sys:r_float_ex(sec, "boost_telepat_protection") or 0
+	local bld_boost 	= ini_sys:r_float_ex(sec, "boost_bleeding_restore") or 0
+	local hp_boost 		= ini_sys:r_float_ex(sec, "boost_health_restore") or 0
+	local pwr_boost 	= ini_sys:r_float_ex(sec, "boost_power_restore") or 0
+	
+	-- if an item is required
+	local require_tool = ini_sys:r_string_ex(sec, "required_tool")
+	local obj_tool = require_tool and ini_sys:section_exist(require_tool) and db.actor:object(require_tool)
+	
+	-- store boosts in a table	
+	curr_booster["section"]   = sec
+	curr_booster["period"]	  = (period > 0) and (time_g + period*1000) or time_g
+	curr_booster["pwr"]     = (pwr_boost > boost_min) and pwr_boost or 0
+	curr_booster["psy"]   = (psy_boost > boost_min) and psy_boost or 0
+	curr_booster["bld"]  = (bld_boost > boost_min) and bld_boost or 0
+	curr_booster["hp"]    = (hp_boost > boost_min) and hp_boost or 0
+	curr_booster["rad"] = (rad_boost > boost_min) and rad_boost or 0
+	
+	-- A required tool is missing -> no eat
+	if require_tool and (not obj_tool) then
+		--printf("~ actor_on_item_before_use [%s] | require_tool [%s] is missing", sec, require_tool)
+		str = strformat(game.translate_string("st_itm_manager_missing_requirements"), ui_item.get_sec_name(require_tool))
+		pass = false
+	
+	-- older booster is still active
+	elseif old_booster["period"] and (old_booster["period"] > time_g) then
+		--printf("~ actor_on_item_before_use [%s] | older booster [%s] is still active", sec, old_booster['section'])
+		local weaker_effect
+		local stronger_effect
+		for k,v in pairs(curr_booster) do
+			if (k ~= "section") and (k ~= "period") then
+				local v2 = old_booster[k]
+				if v2  and (v > boost_min) and (v2 > boost_min) then
+					if (v <= v2) then
+						weaker_effect = k
+					else
+						stronger_effect = k
+					end
+				elseif (v2 == 0) and (v > boost_min) then
+					stronger_effect = k
+				end
+			end
+		end
+		
+		-- older booster has some stronger effect, while new one doesn't have any stronger effect
+		if weaker_effect and (not stronger_effect) then
+			--printf("~ actor_on_item_before_use [%s] | older booster [%s] has stronger effect: %s", sec, old_booster['section'], weaker_effect)
+			local boost_str = game.translate_string(booster_string[weaker_effect])
+			str = strformat(game.translate_string("st_itm_manager_greater_effect"),boost_str)
+			pass = false
+		end
+	-- prevent player to take anabiotic during combat
+	elseif sec == "drug_anabiotic" then
+		if (not is_empty(xr_combat_ignore.fighting_with_actor_npcs)) then
+			str = game.translate_string("st_anabiotic_combat")
+			pass = false
+		end
+	end
+	
+	-- to eat or not to eat
+	if pass then
+		--printf("- actor_on_item_before_use [%s] | pass = true", sec)
+		flags.ret_value = true
+		copy_table(old_booster, curr_booster)
+		if obj_tool then
+			utils_item.discharge(obj_tool)
+		end
+	else
+		--printf("! actor_on_item_before_use [%s] | pass = false", sec)
+		flags.ret_value = false
+		--alife_release(obj)
+		--alife_create_item(sec,db.actor)
+		
+		utils_xml.hide_menu()
+		actor_menu.set_msg(1, str,3)
+	end
+end
+
+function actor_on_first_update()
+
+	-- Delete base pda
+	local sim = alife()
+	local obj, se_obj
+	--[[
+	for i=1,sim:max_id() - 1 do
+		se_obj = sim:object(i)
+		if se_obj and (se_obj:section_name() == "device_pda") then
+			sim:release(se_obj,true)
+		end
+	end
+	--]]
+	
+	-- Delete animation items on actor
+	for sec,_ in pairs(GetItemList("release")) do
+		obj = db.actor:object(sec)
+		if obj then
+			alife_release(obj)
+		end
+	end
+	
+	-- Spawn bolts
+	local m_data = alife_storage_manager.get_state()
+	local bolt_first = m_data.bolt_first
+	if bolt_first then
+		alife_create_item(bolt_first, db.actor)
+		m_data.bolt_first = nil
+	end
+	
+	local bolt_slot = m_data.bolt_slot
+	if bolt_slot then
+		alife_create_item(bolt_slot, db.actor)
+	end
+	
+	local bolts = m_data.bolts
+	if bolts then
+		for sec,cnt in pairs(bolts) do
+			for i=1,cnt do
+				alife_create_item(sec, db.actor)
+			end
+		end
+	end
+	
+	-- Damage equipment
+	if (not has_alife_info("start_equippment_handled")) and (not IsTestMode()) then
+		CreateTimeEvent(0,"delay_new_game_autosave",4,new_game_equippment)
+	end
+	
+	-- Bolt manager
+	CreateTimeEvent("cycle","bolt_manager",60,bolt_manager)
+end
+
+function actor_on_item_drop(obj)
+	if not (obj) then
+		return
+	end
+	
+	if (db.actor:has_info("actor_made_wish_for_riches")) then 
+		db.actor:transfer_item(obj,db.actor)
+	elseif IsWeapon(obj) then
+		se_save_var(obj:id(), nil, "strapped_item", obj:condition())
+	end
+end
+
+function actor_on_item_use(obj)
+	if (db.actor:has_info("actor_made_wish_for_riches")) then
+		return 
+	end
+	
+	local sec = obj:section()
+	
+	
+	-- Strelok Notes
+	if (sec == "mlr_strelok_item_01") then
+		txr_routes.open_route("val","x18")
+		return
+
+	-- Deployable mgun
+	elseif (sec == "itm_deployable_mgun") then
+		use_deployable_mgun(obj)
+		return
+	
+	-- Watch
+	elseif (sec == "hand_watch") then
+		use_watch(obj)
+		return
+	
+	-- Chocolate Bar
+	elseif (sec == "chocolate") then
+		alife_create_item("chocolate_p", db.actor)
+		return
+		
+	-- Bolts pack
+	elseif (sec == "bolts_pack") then
+		local bolts = {}
+		local n = math.random(20,30)
+		for i=1,n do
+			local actor = db.actor
+			if math.random(1,100) > 50 then
+				bolts[#bolts + 1] = "bolt"
+			else
+				bolts[#bolts + 1] = "bolt_bullet"
+			end
+		end
+		utils_item.delay_event(bolts, nil, "bolts_pack", false, 5)
+		return
+		
+	-- give empty syringe on using some medical items
+	elseif empty_syringe_items[sec] then
+		alife_create_item("e_syringe", db.actor)
+	
+	-- weather radar
+	elseif (sec == "device_weather_radar") then
+		ui_debug_weather.activate()
+		return
+	end
+	
+	-- don't discharge items with no removal
+	if IsItem("multiuse_r",sec) then
+		local uses = obj:get_remaining_uses()
+		local max_uses = obj:get_max_uses()
+		if uses and max_uses and (uses < max_uses) then
+			obj:set_remaining_uses(uses + 1)
+		end
+	end
+end
+
+local str_itm_taken = game.translate_string("st_item_taken")
+function actor_on_item_take(obj)
+	local sec = obj:section()
+	
+	-- Play sound effect for item taking
+	play_item_sound(obj)
+	
+	if IsWeapon(obj) and se_load_var(item_id, nil, "strapped_item") then
+		se_save_var(obj:id(), nil, "strapped_item", nil)
+		
+	-- Explosive barrels
+	elseif (sec == "explosive_mobiltank") or (sec == "explosive_tank") then
+		local se_obj = alife_object(obj:id())
+		local fuel = tostring(math.random(6,8))
+		if se_obj then
+			alife_release(se_obj)
+			alife_create_item("explo_jerrycan_fuel", db.actor, {uses = 2})
+		end
+
+	-- Story special
+	elseif (sec == "main_story_1_quest_case") and (not has_alife_info("agr_u_bloodsucker_on_case")) then
+		db.actor:give_info_portion("agr_u_bloodsucker_on_case")
+		xr_effects.create_squad(nil,nil,{"agr_u_bloodsucker_3_squad","agr_u_bloodsucker"})
+	end
+	
+	-- Show notification
+	--local str = strformat(str_itm_taken, ui_item.get_sec_name(sec))
+	--actor_menu.set_msg(2, str)
+end
+
+function dropdrop_ArtyContainer(obj_1, obj_2, sec_1, sec_2) -- Put artefact in container
+	local cont = sec_2
+	local arty = sec_1
+	if ini_sys:section_exist(arty .. "_" .. cont) then
+		local cond = obj_1 and obj_1:condition()
+	
+		actor_effects.play_item_fx("container_tool_" .. cont .. "_dummy")
+		
+		alife_create_item(arty .. "_" .. cont, db.actor, { cond = cond } )
+		alife_release(obj_1)
+		alife_release(obj_2)
+	end
+end
+function dropdrop_Basic_Combination(obj_1, obj_2, sec_1, sec_2) -- Combine basic items
+	local sec_new = item_combine[sec_1][sec_2]
+	actor_effects.play_item_fx("item_combination")
+	alife_create_item(sec_new, db.actor)
+	alife_release(obj_1)
+	alife_release(obj_2)
+end
+function ActorMenu_on_item_drag_drop(obj_1, obj_2, slot_from, slot_to)
+
+	-- Check capability
+	if not (slot_from == EDDListType.iActorBag and slot_to == EDDListType.iActorBag) then
+        return
+    end
+	
+	local sec_1 = obj_1:section()
+	local sec_2 = obj_2:section()
+	
+	if itms_arty_container[sec_2] then
+		if (ini_sys:r_string_ex(sec_1,"class") == "ARTEFACT") or (ini_sys:r_string_ex(sec_1,"class") == "SCRPTART") then
+			dropdrop_ArtyContainer(obj_1, obj_2, sec_1, sec_2)
+		end
+
+	elseif item_combine[sec_1] and item_combine[sec_1][sec_2] then
+		dropdrop_Basic_Combination(obj_1, obj_2, sec_1, sec_2)
+	end
+end
+
+local focus_last_sec
+local focus_tbl = {}
+local focus_upgr = {}
+function ActorMenu_on_item_focus_receive(obj) -- highlight compatible items
+	--[[
+	local parent = obj:parent()
+	if not (parent and parent:id() == AC_ID) then 
+		return 
+	end
+	--]]
+	
+	local sec_focus = obj:section()
+	if (focus_last_sec ~= sec_focus) then
+		local id = obj:id()
+		focus_last_sec = sec_focus
+		empty_table(focus_tbl)
+		
+		local parent_sec = ini_sys:r_string_ex(sec_focus,"parent_section") or sec_focus
+		
+		-- For weapons
+		if IsWeapon(obj) then
+		
+			-- Ammo
+			local ammo = utils_item.get_ammo(sec_focus, id)
+			for i=1,#ammo do
+				focus_tbl[#focus_tbl + 1] = ammo[i]
+			end
+			
+			-- Scopes
+			local scopes = parse_list(ini_sys, parent_sec, "scopes")
+			for i=1,#scopes do
+				focus_tbl[#focus_tbl + 1] = scopes[i]
+			end
+			
+			local scope = utils_item.get_wpn_param(obj, sec_focus, "scopes_sect")
+			if scope and (obj:weapon_scope_status() == 2) then
+				focus_tbl[#focus_tbl + 1] = scope
+			end
+			
+			-- Silencer
+			local sil = utils_item.get_wpn_param(obj, sec_focus, "silencer_name")
+			if sil and (obj:weapon_silencer_status() == 2) then
+				focus_tbl[#focus_tbl + 1] = sil
+			end
+			
+			-- Grenade Launcher
+			local gl = utils_item.get_wpn_param(obj, sec_focus, "grenade_launcher_name")
+			if gl and (obj:weapon_grenadelauncher_status() == 2) then
+				focus_tbl[#focus_tbl + 1] = gl
+			end
+		end
+
+		-- Parts
+		local parts_str = ini_parts:r_string_ex("con_parts_list",parent_sec)
+		local parts = parts_str and (parts_str ~= "") and str_explode(parts_str,",")
+		if parts then
+			for i=1,#parts do
+				focus_tbl[#focus_tbl + 1] = parts[i]
+			end
+		end
+		
+		-- Repair kits
+		local repair_type = ini_sys:r_string_ex(parent_sec,"repair_type")
+		if repair_type and repair_type ~= "" then
+			for kit,v in pairs(GetItemList("repair")) do
+				if v[repair_type] then
+					focus_tbl[#focus_tbl + 1] = kit
+				end
+			end
+			--[[
+			for kit,v in pairs(GetItemList("workshop")) do
+				if v[repair_type] then
+					focus_tbl[#focus_tbl + 1] = kit
+				end
+			end
+			--]]
+		end
+		
+		-- Upgrade parts
+		local upgr_str = ini_sys:r_string_ex(parent_sec,"upgrades")
+		if upgr_str and upgr_str ~= "" then
+			if (not focus_upgr[parent_sec]) then
+				local upgr = parse_list(ini_sys,parent_sec,"upgrades")
+				focus_upgr[parent_sec] = {}
+				for i=1,#upgr do
+					extract_upgr_tools(focus_upgr[parent_sec], upgr[i])
+				end
+			end
+			for tool,_ in pairs(focus_upgr[parent_sec]) do
+				--printf("- upgrade part for [%s] -> [%s]", parent_sec, tool)
+				focus_tbl[#focus_tbl + 1] = tool
+			end
+		end
+		
+	end
+	
+	local inventory = GetActorMenu()
+	if not ((#focus_tbl > 0) or (inventory and inventory:IsShown())) then
+		return
+	end
+	
+	for i=1,#focus_tbl do 
+		inventory:highlight_section_in_slot(focus_tbl[i],EDDListType.iActorBag)
+		inventory:highlight_section_in_slot(focus_tbl[i],EDDListType.iPartnerTradeBag)
+		inventory:highlight_section_in_slot(focus_tbl[i],EDDListType.iDeadBodyBag)
+		inventory:highlight_section_in_slot(focus_tbl[i],EDDListType.iActorTrade)
+		inventory:highlight_section_in_slot(focus_tbl[i],EDDListType.iPartnerTrade)
+	end
+end
+
+function save_state(m_data) --// NOTE: bolts aren't saved in alife, so this is a temp solution
+	local bolts = {}
+	local function itr(obj)
+		local sec = obj:section()
+		if (sec == "bolt") or (sec == "bolt_bullet") then
+			if (not bolts[sec]) then
+				bolts[sec] = 0
+			end
+			bolts[sec] = bolts[sec] + 1
+		end
+		return false
+	end
+	db.actor:inventory_for_each(itr)
+	
+	m_data.bolts = bolts
+	m_data.bolt_slot = db.actor:item_in_slot(6) and db.actor:item_in_slot(6):section() or nil
+end
+
+
+-------------------------------
+-- ITEM OPTIONS (MENU)
+-------------------------------
+function menu_open(itm) -- return "open" name
+	local p = itm:parent()
+	if not (p and p:id() == AC_ID) then return end
+	if itms_arty_container[itm:section()] then return end -- default containers
+	
+	return game.translate_string("st_item_open")
+end
+
+function menu_unpack(itm) -- return "unpack" name
+	local p = itm:parent()
+	if not (p and p:id() == AC_ID) then return end
+	
+	return game.translate_string("st_item_unpack")
+end
+
+function menu_play(itm) -- return "Play" name
+	local p = itm:parent()
+	if not (p and p:id() == AC_ID) then return end
+	
+	return game.translate_string("st_item_play")
+end
+
+function menu_place(obj)  -- return "Place" name
+	return game.translate_string("st_item_place")
+end
+
+
+-------------------------------
+-- ITEM OPTIONS (FUNCTOR)
+-------------------------------
+function use_package(obj)
+	local sec = obj:section()
+	local content = parse_list(ini_manager, "package_content", sec)
+	if #content > 0 then
+		utils_item.delay_event(content, {obj:id()}, "package_content", false, 5)
+	end
+end
+
+function use_package_random(obj)
+	local sec = obj:section()
+	local content = ini_manager:r_string_ex("package_content",sec)
+	if not content then return end
+
+	local t = str_explode(content,",")
+	local pick = {}
+	for i=1,#t do
+		if (#pick < 6) and (math.random(100) < 50) then
+			pick[#pick+1] = t[i]
+		end
+	end
+	pick = #pick > 1 and pick or {t[1],t[2],t[3],t[4]}
+	
+	utils_item.delay_event(pick, {obj:id()}, "package_content", true, 5)
+end
+
+function use_deployable_mgun(obj)
+	local pos = vector():set(device().cam_pos)
+	pos:add(device().cam_dir:mul(3))
+	alife_create("deployable_mgun",pos,level.vertex_id(pos),db.actor:game_vertex_id())
+end
+
+function use_guitar(obj)
+	local n = math.random(28)
+	local snd = sound_object("music\\guitar_" .. tostring(n))
+	if (not snd) then return end
+	local period = snd:length()
+	snd:play_no_feedback(db.actor, 0, 0, db.actor:position(), 1.0, 1.0)
+	actor_effects.play_continuous_effect(period)
+end
+
+function use_harmonica(obj)
+	local n = math.random(5)
+	local snd = sound_object("music\\harmonica_" .. tostring(n))
+	if (not snd) then return end
+	local period = snd:length()
+	snd:play_no_feedback(db.actor, 0, 0, db.actor:position(), 1.0, 1.0)
+	actor_effects.play_continuous_effect(period)
+end
+
+function use_arty_container(obj)
+	local break_con
+	local break_arty
+	local sec = obj:section()
+	
+	if (string.find(sec, "(lead.-_box)",3)) then
+		break_con = "lead_box"
+		break_arty = sec:gsub("_lead_box", "")		
+	elseif (string.find(sec, "(af.-_iam)",3)) then
+		break_con = "af_iam"
+		break_arty = sec:gsub("_af_iam", "")
+	elseif (string.find(sec, "(af.-_aac)",3)) then
+		break_con = "af_aac"
+		break_arty = sec:gsub("_af_aac", "")
+	elseif (string.find(sec, "(af.-_aam)",3)) then
+		break_con = "af_aam"
+		break_arty = sec:gsub("_af_aam", "")
+	end
+	
+	if break_con and break_arty and ini_sys:section_exist(break_con) and ini_sys:section_exist(break_arty) then
+		local cond = obj:condition()
+		
+		_G.ARTY_FROM_CONT = true -- Hack to prevent player from exploting Artefacts Containers (gaining rank by recieving artefacts)
+		actor_effects.play_item_fx(break_con .. "_dummy")
+		alife_create_item(break_con, db.actor)
+		alife_create_item(break_arty, db.actor, { cond = cond } )
+		alife_release(obj)
+	end
+end
+
+function use_watch(obj)
+	local Y, M, D, h, mint, sec, ms = game.get_game_time():get()
+	local pharse = game.translate_string("st_dyn_news_day_part_am")
+	local mints = tostring(mint)
+	if (h > 12) then
+		h = h - 12
+		pharse = game.translate_string("st_dyn_news_day_part_pm") 
+	elseif (h == 12) then
+		pharse = game.translate_string("st_dyn_news_day_part_pm") 
+	elseif (h == 0) then
+		h = 12
+	end
+	if (mint < 10) then
+		mints = "0" .. tostring(mint)
+	end
+	utils_xml.hide_menu()
+	actor_menu.set_msg(1, tostring(h) .. ":" .. mints .. " " .. pharse , 3)
+end
+
+function use_place(obj)
+	local p = obj:parent()
+	if not (p and p:id() == AC_ID) then
+		return
+	end
+	
+	local section = obj:section()
+	alife_release_id(obj:id())
+		
+	local pos = db.actor:position()
+	pos:add(device().cam_dir:mul(1.2))
+	pos.y = db.actor:position().y + 1
+	local lvid = db.actor:level_vertex_id()
+	local gvid = db.actor:game_vertex_id()
+	local se_obj = alife_create(section,pos,lvid,gvid)
+	
+	local rot = device().cam_dir:getH()
+	se_obj.angle = vector():set(0,rot,0)
+end
+
+
+-------------------------------
+-- OTHERS
+-------------------------------
+function actor_on_trade(obj,sell_bye,money) -- bind_stalker on_trade
+
+end
+
+function actor_item_take(obj) -- bind_stalker on_item_take
+
+end
+
+function npc_on_item_take_from_box(npc,box,item)
+
+end
+
+function new_game_equippment()
+	-- Damage equipment
+	local function damage_items(actor,itm)
+		local sec = itm:section()
+		if (IsWeapon(itm) and (sec ~= "wpn_binoc_inv")) or IsOutfit(itm) or IsHeadgear(itm) or IsItem("device",sec) then
+			itm:set_condition(math.random(75,85)/100)
+		end
+	end
+	db.actor:iterate_inventory(damage_items,db.actor)
+	
+	give_info("start_equippment_handled")
+	
+	-- Override autosave
+	exec_console_cmd("save " .. user_name() .. " - autosave")
+	printf("- Autosaved new game")
+	
+	-- Override ammo type if required
+	local start_wpn_tbl = alife_storage_manager.get_state().start_wpn_ammo
+	if start_wpn_tbl then
+		for id, ammo_sec in pairs(start_wpn_tbl) do
+			local wpn = level.object_by_id(id)
+			if wpn then
+				local ammo_list = utils_item.get_ammo(wpn:section(), wpn:id())
+				local ammo_type
+				for i=1,#ammo_list do
+					if (ammo_list[i] == ammo_sec) then
+						ammo_type = i-1
+						break
+					end
+				end
+				if ammo_type then
+					local wpn_ammo_mag_size = ini_sys:r_u32(wpn:section(), "ammo_mag_size")
+					if wpn_ammo_mag_size then
+						wpn:unload_magazine()
+						wpn:set_ammo_type(ammo_type)
+						wpn:set_ammo_elapsed(wpn_ammo_mag_size )
+						printdbg("- New game weapon | [%s] - ammo type used: %s", wpn:section(), ammo_type)
+					end
+				end
+			end
+		end
+	end
+	
+	return true
+end
+
+function bolt_manager() -- limit bolt count in actor inventory
+	ResetTimeEvent("cycle","bolt_manager",60)
+	
+	local sim = alife()
+	local bolt_max_num = ini_manager:r_float_ex("settings","bolt_max_num") or 99
+	local cnt = 0
+	local id, sec, se_obj
+	
+	local function itr(temp, obj)
+		sec = obj:section()
+		if (sec == "bolt") or (sec == "bolt_bullet") then
+			cnt = cnt + 1
+			if (cnt > bolt_max_num) then
+				local se_obj = alife_object(obj:id())
+				if se_obj then
+					alife_release(se_obj)
+				end
+			end
+		end
+	end
+	db.actor:iterate_ruck(itr, nil)
+	
+	return false
+end
+
+function give_item_reward(num_of_items)
+	num_of_items = num_of_items or 1
+	local prior = {
+		["health"] = 2,
+		["rad"] = 2,
+		["drink"] = 2,
+		["food"] = 2,
+		["ammo"] = 2,
+		["battery"] = 0,
+	}
+	
+	local tot_power,tot_devices = 0,0
+	local ammo_suitable = {}
+	local ammo_avail = {}
+	local function itr(obj)
+		local sec = obj:section()
+		
+		-- Evaluate medkits
+		if item_rewards["items_health"][sec] then
+			prior["health"] = prior["health"] - 1
+		end
+		
+		-- Evaluate anti-rads
+		if item_rewards["items_rad"][sec] then
+			prior["rad"] = prior["rad"] - 1
+		end
+		
+		-- Evaluate drink
+		if item_rewards["items_drink"][sec] then
+			prior["drink"] = prior["drink"] - 1
+		end
+		
+		-- Evaluate food
+		if item_rewards["items_food"][sec] then
+			prior["food"] = prior["food"] - 1
+		end
+		
+		-- Evaluate devices power
+		if IsItem("device",sec) then
+			tot_devices = tot_devices + 1
+			tot_power = tot_power + (obj:condition() * 100)
+		end
+		
+		-- Evaluate weapons and ammo
+		if (sec ~= "wpn_binoc") and IsWeapon(obj) and (not IsMelee(obj)) then
+			local ammo = utils_item.get_ammo(obj:section(), obj:id())
+			if ammo and #ammo > 1 then
+				for i=1,#ammo do
+					local sec_ammo = ammo[i]
+					if item_rewards["items_ammo"][sec_ammo] then
+						ammo_suitable[sec_ammo] = true
+					end
+				end
+			end
+		end
+		
+		if IsItem("ammo",sec) then
+			ammo_avail[sec] = { cnt = obj:ammo_get_count() , box = IsItem("ammo",sec) }
+			--printf("ammo_avail[%s] = { cnt = %s | box = %s", sec, ammo_avail[sec].cnt, ammo_avail[sec].box)
+		end
+		
+		return false
+	end
+	db.actor:inventory_for_each(itr)
+	
+	-- Total power of devices is less than %50 -> need battery
+	if (tot_power < (50 * tot_devices)) then 
+		prior["battery"] = 1
+	end
+	
+	-- No enough ammo found for existing weapons -> need ammo
+	for sec,_ in pairs(ammo_suitable) do
+		local ammo = ammo_avail[sec]
+		if ammo and (ammo.cnt >= ammo.box) then
+			prior["ammo"] = prior["ammo"] - 1
+		end
+	end
+	
+	--[[
+	for k,p in pairs(prior) do
+		printf("- Prior[%s] = %s",k,p)
+	end
+	--]]
+	
+	-- Give actor items
+	for i=1,num_of_items do
+	
+		-- Search from higher to lower priority
+		local picker = {}
+		local pick_prior
+		local functor = function(t,a,b) return t[a] > t[b] end
+		for k,p in spairs(prior,functor) do
+			if (p > 0) then
+				if (not pick_prior) or (pick_prior == p) then
+					pick_prior = p
+					picker[#picker + 1] = k
+				end
+			end
+		end
+		
+		if pick_prior and (#picker > 0) then
+		
+			-- Pick random type of this priority
+			local item_reward
+			local k = picker[math.random(#picker)]
+			
+			-- Pick random item
+			if k == "health" then
+				item_reward = random_key_table(item_rewards["items_health"])	
+			elseif k == "rad" then
+				item_reward = random_key_table(item_rewards["items_rad"])
+			elseif k == "drink" then
+				item_reward = random_key_table(item_rewards["items_drink"])
+			elseif k == "food" then
+				item_reward = random_key_table(item_rewards["items_food"])
+			elseif k == "battery" then
+				item_reward = item_device.device_battery
+			elseif k == "ammo" then
+				item_reward = random_key_table(ammo_suitable)
+			end
+			
+			if item_reward then
+			
+				-- Reduce priority
+				prior[k] = prior[k] - 1
+				local amount = 1
+				
+				-- Give items
+				local box_size = IsItem("ammo",item_reward)
+				local max_uses = IsItem("multiuse",item_reward)
+				local uses = max_uses and (max_uses >= 2) and 2 or 1
+				if uses then
+					amount = math.random(1,uses)
+				end
+				alife_create_item(item_reward, db.actor, {uses = amount , ammo = box_size})
+				
+				-- Send news
+				news_manager.relocate_item(db.actor, "in", item_reward, amount)
+			end
+			break
+		end
+	end
+end
+
+function send_itm_msg(sec)
+	local str = strformat(game.translate_string("st_item_taken"), ui_item.get_sec_name(sec))
+	actor_menu.set_msg(2, str)
+end
+
+local upg_gr = {
+	["first"] = 1,
+	["secon"] = 2,
+	["third"] = 3,
+	["fourt"] = 4,
+	["fifth"] = 5,
+}
+local upg_ind = {
+	["a"] = 1,
+	["b"] = 2,
+	["c"] = 3,
+	["d"] = 4,
+	["e"] = 5,
+	["f"] = 6,
+}
+function extract_upgr_tools(t1, current_grp)
+
+	local elements = parse_list(ini_sys, current_grp, "elements")
+	
+	-- Gather groups and indexes
+	for i=1,#elements do -- search in upgrade group elements
+		for k,v in pairs(upg_gr) do
+			if string_find(elements[i],k) then -- if we found a legit element
+				local indx = elements[i]:sub(9,9) -- get the index
+				local upg_idx = indx and upg_ind[indx]
+				if upg_idx then
+					local prop = ini_sys:r_string_ex(elements[i],"property")
+					if prop then
+						local pr = str_explode(prop,",")
+						local tool = utils_item.get_upgrade_prop_tool(pr[1])
+						local num = ((upg_idx <= 2) and 1) or ((upg_idx <= 4) and 2) or 3
+						local sec_tool = tool and tool:gsub("%^d", tostring(num)) or nil
+						if sec_tool then
+							t1[sec_tool] = true
+						else
+							local sec = ini_sys:r_string_ex(elements[i],"section")
+							printdbg("! extract_upgr | can't generate tool for upgrade [%s], property: %s", sec, pr[1])
+						end
+					end
+				end
+			end
+		end
+	end
+	
+	-- Repeat
+	for i=1,#elements do
+		local next_grp = ini_sys:r_string_ex(elements[i],"effects")
+		if next_grp and (next_grp ~= "") then
+			extract_upgr_tools(t1,next_grp)
+		end
+	end
+end
+
+
+-------------------------------
+-- MULTI-USE ITEMS
+-------------------------------
+function relocate_item_to_actor(actor, npc, section, amount)
+	if (not actor) then 
+		return
+	end
+	
+	amount = amount or 1
+	local npc_inv = npc and (not IsItem("anim",section)) and utils_item.collect_amount(npc, section, 1) or {}
+	local sim = alife()
+	local cnt = amount
+	local max_uses = IsItem("multiuse",section) or 1
+	
+	while cnt > 0 do
+		-- Create or transfer object from npc
+		local id
+		if not is_empty(npc_inv) then
+			local id_pick = random_key_table(npc_inv)
+			local obj = id_pick and level.object_by_id(id_pick)
+			if obj then
+				npc:transfer_item(obj, actor)
+				npc_inv[id_pick] = nil
+				id = id_pick
+			end
+		else
+			local se_obj = alife_create_item(section, db.actor)
+			id = se_obj and se_obj.id
+			
+			-- Register PDA if found
+			if npc and id and item_device.device_npc_pda[section] then
+				ui_pda_npc_tab.register_pda(npc, section, id)
+			end
+		end
+
+		-- Set remaining uses if needed
+		if id then
+			cnt = cnt - max_uses
+			if cnt < 0 then
+				local uses = (max_uses - (-cnt))
+				process_item(section , id, {uses = uses} )
+			end
+		else
+			printe("!ERROR: relocate_item_to_actor | object for section [%s] is bugged!", section)
+			break
+		end
+	end
+	
+	local box_size = IsItem("ammo",section)
+	if box_size then
+		amount = amount * box_size
+	end
+	news_manager.relocate_item(actor, "in", section, amount)
+end
+
+function relocate_item_from_actor(actor, npc, section, amount)
+	if (not actor) then 
+		return
+	end
+	
+	if (npc == nil) then
+		--printe("!ERROR: Couldn't relocate_item_from_actor | no npc found!")
+	end
+	
+	amount = amount or 1
+	local cnt = amount
+	local max_uses = IsItem("multiuse",section)
+	local keep_itr = true
+	local function itr(temp, obj)
+		--printf("~relocate_item_from_actor | checked [%s]", obj:section())
+		if keep_itr and (obj and obj:section() == section) then
+			--printf("-relocate_item_from_actor | found needed section [%s]", section)
+			local uses = max_uses and obj:get_remaining_uses() or 1
+			cnt = cnt - uses
+			if (cnt >= 0) then
+				if npc then
+					actor:transfer_item(obj, npc)
+				else
+					alife_release_id(obj:id())
+				end
+				
+				if (cnt == 0) then
+					keep_itr = false
+				end
+			else
+				local remain_1 = -cnt
+				local remain_2 = max_uses - remain_1
+				process_item(section, obj:id(), {uses = remain_1})
+				if npc then
+					alife_create_item(section, npc, {uses = remain_2})
+				end
+				keep_itr = false
+			end
+		end
+	end
+	actor:iterate_inventory(itr, nil)
+	
+	if cnt > 0 then
+		printe("! ERROR: Couldn't relocate_item_from_actor | not enough item [%s] recolated! need %s more", section, cnt)
+	end
+	
+	local box_size = IsItem("ammo",section)
+	if box_size then
+		amount = amount * box_size
+	end
+	news_manager.relocate_item(actor, "out", section, amount)
+end
+
+
+-------------------------------
+-- Sound Effects
+-------------------------------
+local time_snd_prev = 0
+local snd_on_take = {
+	["coin"]    = {"interface\\items\\inv_items_money_coin_2"},
+	["bolt"]    = {"interface\\items\\inv_items_ammo_1"},
+	["paper"]   = {"interface\\items\\inv_items_money_paper"},
+	["bottle"]   = {"interface\\items\\inv_items_bottle_",1,2},
+	["pills"]   = {"interface\\items\\inv_items_pills_2"},
+	["part"]   = {"interface\\items\\inv_items_parts_",1,2},
+	["outfit"]  = {"interface\\items\\inv_items_cloth_",1,3},
+	["ammo"]    = {"interface\\items\\inv_items_ammo_",4,7},
+	["grenade"] = {"interface\\items\\inv_items_grenade_",1,2},
+	["knife"]    = {"interface\\items\\inv_items_knife_",1,2},
+	["weapon"]  = {"interface\\items\\inv_items_wpn_",1,2},
+	["other"]   = {"interface\\items\\inv_items_generic_",2,5},
+}
+
+function play_item_sound(item, vol)
+	if (not item) then
+		printe("!ERROR itms_manager | play_item_sound | no object recieved!")
+	end
+
+	local snd_type = SYS_GetParam(0,item:section(),"snd_on_take")
+	if not (snd_type and snd_type ~= "") then
+		return
+	end
+	
+	local snd = snd_on_take[snd_type]
+	if (not snd) then
+		return
+	end
+	
+	local snd_obj
+	if (#snd == 1) then
+		snd_obj = sound_object(snd[1])
+	else
+		snd_obj = sound_object(snd[1] .. tostring(math.random(snd[2],snd[3])))
+	end
+
+	local time_g = time_global()
+	if snd_obj and (time_g > time_snd_prev + 25) then
+		snd_obj:play(db.actor,0,sound_object.s2d)
+		snd_obj.volume = vol or 1
+	end
+	time_snd_prev = time_g
+end
+
+
+
+-------------------------------
+-- Item Processor
+-------------------------------
+local c_instance
+function get_item_processor()
+	if c_instance == nil then
+		c_instance = ItemProcessor()
+	end
+	return c_instance
+end
+
+function process_item(...)
+	if c_instance == nil then
+		c_instance = ItemProcessor()
+	end
+	return c_instance:Process_Item(...)
+end
+
+function create_item(...)
+	if c_instance == nil then
+		c_instance = ItemProcessor()
+	end
+	return c_instance:Create_Item(...)
+end
+
+class "ItemProcessor"
+function ItemProcessor:__init()
+	self.Remove = {}
+	self.Cond = {}
+	self.Uses = {}
+	self.Ammo = {}
+	
+	self.Debug = false -- true to debug
+	self.Cycles = 10
+end
+
+function ItemProcessor:update()
+	-- Process Condition
+	for id,con in pairs(self.Cond) do
+		local obj = level.object_by_id(id)
+		if obj then
+			if self.Debug then
+				printf("* ItemProcessor | processing condition | id: %s - con: %s", id, con)
+			end
+
+			obj:set_condition(con)
+			local new_con = obj:condition()
+			
+			if (new_con < con + 0.02) and (new_con > con - 0.02) then -- range check
+				self.Cond[id] = nil
+				
+				if self.Debug then
+					printf("# ItemProcessor | processing condition done | id: %s - con: %s", id, new_con)
+				end
+			else
+				self:Remove_Process(id,"!","can't set condition!")
+			end
+			
+		elseif alife_object(id) then
+			self:Remove_Process(id,"~","server object exists, no game object yet")
+			
+		else
+			self:Remove_Process(id,"!","no game object!")
+		end
+	end
+	
+	-- Process Uses
+	for id,uses in pairs(self.Uses) do
+		local obj = level.object_by_id(id)
+		if obj then
+			if self.Debug then
+				printf("* ItemProcessor | processing uses | id: %s - uses: %s", id, uses)
+			end
+
+			obj:set_remaining_uses(uses)
+			
+			if (obj:get_remaining_uses() == uses) then
+				self.Uses[id] = nil
+				
+				if self.Debug then
+					printf("# ItemProcessor | processing uses done | id: %s - con: %s", id, uses)
+				end
+			else
+				self:Remove_Process(id,"!","can't set uses!")
+			end
+			
+		elseif alife_object(id) then
+			self:Remove_Process(id,"~","server object exists, no game object yet")
+			
+		else
+			self:Remove_Process(id,"!","no game object!")
+		end
+	end
+	
+	-- Process Ammo
+	for id,ammo in pairs(self.Ammo) do
+		local obj = level.object_by_id(id)
+		if obj then
+			if self.Debug then
+				printf("* ItemProcessor | processing ammo | id: %s - ammo: %s", id, ammo)
+			end
+
+			obj:ammo_set_count(ammo)
+			
+			if (obj:ammo_get_count() == ammo) then -- range
+				self.Ammo[id] = nil
+				
+				if self.Debug then
+					printf("# ItemProcessor | processing ammo done | id: %s - con: %s", id, new_con)
+				end
+			else
+				self:Remove_Process(id,"!","can't set ammo!")
+			end
+			
+		elseif alife_object(id) then
+			self:Remove_Process(id,"~","server object exists, no game object yet")
+			
+		else
+			self:Remove_Process(id,"!","no game object!")
+		end
+	end
+end
+
+function ItemProcessor:Create_Item(section, owner, t)
+
+	t = t or {} 
+	
+	if section then
+		local uses
+		section, uses = self:Extract_Uses(section)
+		
+		if (ini_sys:section_exist(section)) then 
+		
+			-- Spawn object
+			local se_itm
+			if owner then
+			
+				-- Collect spawn data
+				local pos, lvi, gvi, pid, spawn_typ
+				if (type(owner) == "table") then
+					pos, lvi, gvi, pid = owner[1], owner[2], owner[3], owner[4]
+					if pid then
+						spawn_typ = "on custom object"
+					else
+						spawn_typ = "in world"
+					end
+				elseif (type(owner.id) == "function") then
+					pos, lvi, gvi, pid = owner:position(), owner:level_vertex_id(), owner:game_vertex_id(), owner:id()
+					spawn_typ = "on game object"
+				elseif owner.id then
+					pos, lvi, gvi, pid = owner.position, owner.m_level_vertex_id, owner.m_game_vertex_id, owner.id
+					spawn_typ = "on server object"
+				end
+				
+				-- Validate
+				if not (pos and lvi and gvi) then
+					callstack()
+					printe("! ItemProcessor | Missing spawn properties for [%s] | Spawn type: %s | pos: %s, lvi: %s, gvi: %s", section, spawn_typ, pos , lvi , gvi)
+					return nil
+				end
+				if self.Debug then
+					local obj_p = pid and alife_object(pid)
+					local name_p = obj_p and (obj_p.id == AC_ID and "actor" or obj_p:name()) or ""
+					spawn_typ = spawn_typ .. (obj_p and (" (".. name_p .. ")") or "")
+				end
+				
+				-- Ammo need unique process to spawn multi-objects, return result from here
+				if t.ammo and t.ammo > 0 and IsItem("ammo",section) then
+					
+					-- Replace damaged items with old if _NO_DAMAGED_AMMO allows it
+					if _NO_DAMAGED_AMMO and string_find(section,"verybad") then
+						local new_section = string_gsub(section,"verybad","bad")
+						if ini_sys:section_exist(new_section) then
+							section = new_section
+						end
+					end
+						
+					
+					local num_in_box = ini_sys:r_u32(section, "box_size")
+					local num = t.ammo
+					local se_tbl = {}
+					local sim = alife()
+					
+					local p_id = pid or 65535 -- because xray
+					while (num > num_in_box) do
+						se_tbl[#se_tbl+1] = sim:create_ammo(section, pos, lvi,	gvi, p_id, num_in_box)
+						alife_record( se_tbl[#se_tbl] , true )
+						num = num - num_in_box
+						
+						if self.Debug then
+							local se_ammo = se_tbl[#se_tbl]
+							printf("/ alife_create [%s] (%s) x%s ammo %s", section, se_ammo and se_ammo.id, num_in_box, spawn_typ)
+						end
+					end
+					
+					se_tbl[#se_tbl+1] = sim:create_ammo(section, pos, lvi,	gvi, p_id, num)
+					alife_record( se_tbl[#se_tbl] , true )
+					
+					if self.Debug then
+						local se_ammo = se_tbl[#se_tbl]
+						printf("/ alife_create [%s] (%s) x%s ammo %s", section, se_ammo and se_ammo.id, num, spawn_typ)
+					end
+					
+					return se_tbl
+					
+				-- Other items
+				else
+				
+					if pid then
+						se_itm = alife():create(section, pos, lvi, gvi, pid)
+					else
+						se_itm = alife():create(section, pos, lvi, gvi)
+					end
+
+					if self.Debug then
+						printf("/ alife_create [%s] (%s) on %s", section, se_itm and se_itm.id, spawn_typ)
+					end
+				end
+			else
+				printe("! ItemProcessor | Missing spawn owner for [%s]!", section)
+			end
+			
+			-- Process
+			if se_itm then
+				alife_record(se_itm,true)
+				
+				-- Multiuse items
+				if IsItem("multiuse",section) then
+					uses = uses or t.uses
+					
+					-- Send to process
+					if uses then
+						self.Uses[se_itm.id] = uses --self:Process_Item(section, se_itm.id, { uses = uses })
+					end
+				
+				-- Degradable items
+				elseif utils_item.is_degradable(nil, section) then
+					local cond = t.cond
+					
+					-- Parts
+					if t.cond_cr and t.cond_ct and IsItem(cond_ct,section) then
+						cond = (#t.cond_cr > 2) and self:Random_Choice(t.cond_cr) or self:Random_Condition(t.cond_cr)
+						
+					-- others
+					elseif t.cond_r then
+						cond = (#t.cond_r > 2) and self:Random_Choice(t.cond_r) or self:Random_Condition(t.cond_r)
+						
+					end	
+					
+					-- Send to process
+					if cond then
+						self.Cond[se_itm.id] = cond --self:Process_Item(section, se_itm.id, { cond = cond })
+					end
+				end
+				
+				return se_itm
+				
+			else
+				printe("!ERROR [%s] is not spawned by ItemProcessor",section)
+			end
+			
+		else
+			printe("! ItemProcessor | section [%s] doesn't exist!", section)
+		end
+		
+	else
+		printf("~ ItemProcessor | nothing is passed to process!")
+	end
+	
+	return nil
+end
+
+function ItemProcessor:Process_Item(section, id, t)
+	if t then
+		if t.uses then
+			self.Uses[id] = t.uses
+		
+		elseif t.cond then
+			self.Cond[id] = t.cond
+			
+		elseif t.ammo then
+			self.Ammo[id] = t.ammo
+			
+		elseif self.Debug then
+			--printf("* ItemProcessor | no process done for [%s] (%s)", section, id)
+		end
+	end
+end
+
+function ItemProcessor:Remove_Process(id, mark, str)
+	mark = mark or "~"
+	self.Remove[id] = self.Remove[id] and (self.Remove[id] + 1) or 0
+	if (self.Remove[id] > self.Cycles) then
+		self.Cond[id] = nil
+		self.Uses[id] = nil
+		self.Ammo[id] = nil
+		self.Remove[id] = nil
+		
+		if self.Debug then
+			local obj = level.object_by_id(id)
+			local p = obj and obj:parent()
+			printf("%s ItemProcessor | %s: (%s) [%s] - owner: (%s) [%s]", mark, str, id, obj and obj:section(), p and p:id() or "-", p and p:section())
+		end
+	end
+end
+
+function ItemProcessor:Random_Choice(arg)
+	if arg and (#arg > 0) then
+		local r = math.random(1, #arg)
+		return arg[r]
+	end
+end
+
+function ItemProcessor:Random_Condition(arg)
+	if arg and (#arg > 0) then
+		return (math.random(arg[1], arg[2])/100)
+	end
+end
+
+function ItemProcessor:Extract_Uses(sec_d)
+	local _, __, sec_u, uses = string_find(sec_d,"(.*)__(%d)")
+	if sec_u and uses and tonumber(uses) and ini_sys:section_exist(sec_u) then
+		return sec_u, tonumber(uses)
+	end
+	return sec_d
+end
+
+--------------------------------------------------------------------------------
+
+
+-------------------------------
+-- DEBUG
+-------------------------------
+function generate_boosters_list()
+	local config = ini_file_ex("booster_stats.ltx",true)
+	
+	ini_sys:section_for_each(function(section)
+		local cls = ini_sys:r_string_ex(section,"class")
+		if (cls == "II_FOOD") and (ini_sys:r_float_ex(section,"boost_time") > 0) then
+			local str = ""
+			str = str .. ("cost:" .. ini_sys:r_float_ex(section,"cost") .. "|")
+			str = str .. (ini_sys:r_float_ex(section,"max_uses") and ("uses:" .. ini_sys:r_float_ex(section,"max_uses") .. "|") or ("uses:1|"))
+			str = str .. ("boost_time:" .. ini_sys:r_float_ex(section,"boost_time") .. "|")
+			
+			if ini_sys:r_float_ex(section,"boost_max_weight") ~= 0 then
+				str = str .. ("boost_max_weight:" .. ini_sys:r_float_ex(section,"boost_max_weight") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_health_restore") ~= 0 then
+				str = str .. ("boost_health_restore:" .. ini_sys:r_float_ex(section,"boost_health_restore") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_power_restore") ~= 0 then
+				str = str .. ("boost_power_restore:" .. ini_sys:r_float_ex(section,"boost_power_restore") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_radiation_restore") ~= 0 then
+				str = str .. ("boost_radiation_restore:" .. ini_sys:r_float_ex(section,"boost_radiation_restore") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_bleeding_restore") ~= 0 then
+				str = str .. ("boost_bleeding_restore:" .. ini_sys:r_float_ex(section,"boost_bleeding_restore") .. "|")
+			end
+			
+			if ini_sys:r_float_ex(section,"boost_radiation_protection") ~= 0 then
+				str = str .. ("boost_radiation_protection:" .. ini_sys:r_float_ex(section,"boost_radiation_protection") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_telepat_protection") ~= 0 then
+				str = str .. ("boost_telepat_protection:" .. ini_sys:r_float_ex(section,"boost_telepat_protection") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_chemburn_protection") ~= 0 then
+				str = str .. ("boost_chemburn_protection:" .. ini_sys:r_float_ex(section,"boost_chemburn_protection") .. "|")
+			end
+			
+			if ini_sys:r_float_ex(section,"boost_burn_immunity") ~= 0 then
+				str = str .. ("boost_burn_immunity:" .. ini_sys:r_float_ex(section,"boost_burn_immunity") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_shock_immunity") ~= 0 then
+				str = str .. ("boost_shock_immunity:" .. ini_sys:r_float_ex(section,"boost_shock_immunity") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_radiation_immunity") ~= 0 then
+				str = str .. ("boost_radiation_immunity:" .. ini_sys:r_float_ex(section,"boost_radiation_immunity") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_telepat_immunity") ~= 0 then
+				str = str .. ("boost_telepat_immunity:" .. ini_sys:r_float_ex(section,"boost_telepat_immunity") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_chemburn_immunity") ~= 0 then
+				str = str .. ("boost_chemburn_immunity:" .. ini_sys:r_float_ex(section,"boost_chemburn_immunity") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_strike_immunity") ~= 0 then
+				str = str .. ("boost_strike_immunity:" .. ini_sys:r_float_ex(section,"boost_strike_immunity") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_wound_immunity") ~= 0 then
+				str = str .. ("boost_wound_immunity:" .. ini_sys:r_float_ex(section,"boost_wound_immunity") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_explosion_immunity") ~= 0 then
+				str = str .. ("boost_explosion_immunity:" .. ini_sys:r_float_ex(section,"boost_explosion_immunity") .. "|")
+			end
+			if ini_sys:r_float_ex(section,"boost_fire_wound_immunity") ~= 0 then
+				str = str .. ("boost_fire_wound_immunity:" .. ini_sys:r_float_ex(section,"boost_fire_wound_immunity") .. "|")
+			end
+			
+			config:w_value("temp", section, str)
+		end
+	end)
+	
+	config:save()
+end
\ No newline at end of file
diff --git a/gamedata/scripts/ka_travel.script b/gamedata/scripts/ka_travel.script
new file mode 100644
index 000000000..4b560e5c6
--- /dev/null
+++ b/gamedata/scripts/ka_travel.script
@@ -0,0 +1,345 @@
+------------------------------
+-- Immersive Travel
+-- author: SpikensbroR
+------------------------------
+
+smarts = {
+	zaton = "zat_stalker_base_smart",
+	jupiter = "jup_a6",
+	yantar = "yan_smart_terrain_6_4",
+	cordon = "esc_smart_terrain_2_12",
+	bar = "bar_visitors",
+	warehouses = "mil_smart_terrain_7_10",
+	city = "cit_killers",
+	agroprom = "agr_smart_terrain_1_6",
+	swamp = "mar_smart_terrain_base"
+}
+
+local relations = {
+	zaton = {"stalker"},
+	jupiter = {"freedom", "stalker"},
+	yantar = {"ecolog", "stalker"},
+	cordon = {"stalker"},
+	bar = {"dolg", "stalker"},
+	warehouses = {"freedom"},
+	city = {"killer"},
+	agroprom = {"army"},
+	swamp = {"csky"}
+}
+
+--	stalker = "loner"
+--	bandit = "bandit"
+--	csky = "clearsky"
+--	army = "military"
+--	dolg = "duty"
+--	freedom = "freedom"
+--	ecolog = "ecologist"
+--	monolith = "monolith"
+--	killer = "mercenary"
+
+local function get_smart_by_name(name)
+	local sim = alife()
+	
+	for i=1,sim:max_id() - 1 do 
+		local smart = sim:object(i)
+		if (smart and smart:clsid() == clsid.smart_terrain and smart:name() == name) then
+			return smart
+		end
+	end
+	
+	return nil
+end
+
+local function teleport_to(smart_key)
+	local smart = get_smart_by_name(smarts[smart_key])
+	local dist = db.actor:position():distance_to(smart.position)
+	
+	level.change_game_time(0,math.floor(dist/1000)+math.random(0,2),math.random(1,59))
+	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()
+	
+	ChangeLevel(smart.position, smart.m_level_vertex_id, smart.m_game_vertex_id, VEC_ZERO)
+end
+
+local function can_travel(cost)
+	-- Prevent travel if an emission or psi-storm currently ongoing.
+	if (xr_conditions.surge_started() or psi_storm_manager.is_started()) then
+		return false
+	end
+
+	return db.actor:money() > cost
+end
+
+local function get_travel_cost_for(smart_key)
+	local smart = get_smart_by_name(smarts[smart_key])
+	local dist = db.actor:position():distance_to(smart.position)
+	
+	return math.ceil(dist / 10) * 100
+end
+
+local function travel_to(a, b, smart_key)
+	dialogs.break_dialog(a, b)
+	dialogs.relocate_money_from_actor(a, b, get_travel_cost_for(smart_key))
+	teleport_to(smart_key)
+end
+
+local function text_travel_cost_for(smart_key)
+	return strformat(game.translate_string("ka_travel_dialog_cost"), get_travel_cost_for(smart_key))
+end
+
+local function in_proximity_of(smart_key)
+	local smart = get_smart_by_name(smarts[smart_key])
+	local dist = db.actor:position():distance_to(smart.position)
+	
+	return dist <= 45
+end
+
+local function is_enemy(smart_key)
+	local factions = relations[smart_key]
+	for key, value in pairs(factions) do
+		if (game_relations.is_factions_enemies(character_community(db.actor):sub(7), value)) then
+			return true
+		end
+	end
+	
+	return false
+end
+
+local function can_travel_to(smart_key)
+	return can_travel(get_travel_cost_for(smart_key))
+end
+
+-- Zaton
+
+function text_travel_to_zaton(a, b)
+	return text_travel_cost_for("zaton")
+end
+
+function can_travel_to_zaton_hard(a, b)
+	if (in_proximity_of("zaton")) then
+		return false
+	end
+	
+	if (is_enemy("zaton")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_zaton_soft(a, b)
+	return can_travel_to("zaton")
+end
+
+function travel_to_zaton(a, b)
+	travel_to(a, b, "zaton")
+end
+
+-- Jupiter
+
+function text_travel_to_jupiter(a, b)
+	return text_travel_cost_for("jupiter")
+end
+
+function can_travel_to_jupiter_hard(a, b)
+	if (in_proximity_of("jupiter")) then
+		return false
+	end
+	
+	if (is_enemy("jupiter")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_jupiter_soft(a, b)
+	return can_travel_to("jupiter")
+end
+
+function travel_to_jupiter(a, b)
+	travel_to(a, b, "jupiter")
+end
+
+-- Yantar
+
+function text_travel_to_yantar(a, b)
+	return text_travel_cost_for("yantar")
+end
+
+function can_travel_to_yantar_hard(a, b)
+	if (in_proximity_of("yantar")) then
+		return false
+	end
+		
+	if (is_enemy("yantar")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_yantar_soft(a, b)
+	return can_travel_to("yantar")
+end
+
+function travel_to_yantar(a, b)
+	travel_to(a, b, "yantar")
+end
+
+-- Cordon
+
+function text_travel_to_cordon(a, b)
+	return text_travel_cost_for("cordon")
+end
+
+function can_travel_to_cordon_hard(a, b)
+	if (in_proximity_of("cordon")) then
+		return false
+	end
+	
+	if (is_enemy("cordon")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_cordon_soft(a, b)
+	return can_travel_to("cordon")
+end
+
+function travel_to_cordon(a, b)
+	travel_to(a, b, "cordon")
+end
+
+-- Bar
+
+function text_travel_to_bar(a, b)
+	return text_travel_cost_for("bar")
+end
+
+function can_travel_to_bar_hard(a, b)
+	if (in_proximity_of("bar")) then
+		return false
+	end
+	
+	if (is_enemy("bar")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_bar_soft(a, b)
+	return can_travel_to("bar")
+end
+
+function travel_to_bar(a, b)
+	travel_to(a, b, "bar")
+end
+
+-- Army warehouses
+
+function text_travel_to_warehouses(a, b)
+	return text_travel_cost_for("warehouses")
+end
+
+function can_travel_to_warehouses_hard(a, b)
+	if (in_proximity_of("warehouses")) then
+		return false
+	end
+	
+	if (is_enemy("warehouses")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_warehouses_soft(a, b)
+	return can_travel_to("warehouses")
+end
+
+function travel_to_warehouses(a, b)
+	travel_to(a, b, "warehouses")
+end
+
+-- Dead city
+
+function text_travel_to_city(a, b)
+	return text_travel_cost_for("city")
+end
+
+function can_travel_to_city_hard(a, b)
+	if (in_proximity_of("city")) then
+		return false
+	end
+	
+	if (is_enemy("city")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_city_soft(a, b)
+	return can_travel_to("city")
+end
+
+function travel_to_city(a, b)
+	travel_to(a, b, "city")
+end
+
+-- Agroprom
+
+function text_travel_to_agroprom(a, b)
+	return text_travel_cost_for("agroprom")
+end
+
+function can_travel_to_agroprom_hard(a, b)
+	if (in_proximity_of("agroprom")) then
+		return false
+	end
+	
+	if (is_enemy("agroprom")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_agroprom_soft(a, b)
+	return can_travel_to("agroprom")
+end
+
+function travel_to_agroprom(a, b)
+	travel_to(a, b, "agroprom")
+end
+
+-- Great swamp
+
+function text_travel_to_swamp(a, b)
+	return text_travel_cost_for("swamp")
+end
+
+function can_travel_to_swamp_hard(a, b)
+	if (in_proximity_of("swamp")) then
+		return false
+	end
+	
+	if (is_enemy("swamp")) then
+		return false
+	end
+	
+	return true
+end
+
+function can_travel_to_swamp_soft(a, b)
+	return can_travel_to("swamp")
+end
+
+function travel_to_swamp(a, b)
+	travel_to(a, b, "swamp")
+end
\ No newline at end of file
diff --git a/gamedata/scripts/lua_help_ex.script b/gamedata/scripts/lua_help_ex.script
index 403e6c8bf..22b46fcf8 100644
--- a/gamedata/scripts/lua_help_ex.script
+++ b/gamedata/scripts/lua_help_ex.script
@@ -96,6 +96,9 @@
 
     alife() {
         void iterate_objects(function(se_obj))
+        void iterate_objects_without_actor(function(se_obj))
+        iterator objects_iter() // for obj in alife():objects_iter()
+        iterator objects_without_actor_iter() // for obj in alife():objects_without_actor_iter()
     }
 
     game {
@@ -134,16 +137,6 @@
         CUIStatic GetProgressStatic()
     }
 
-    class CUIStatic {
-    	void SetColorAnimation(string name, number flags, float delay)
-		void ResetColorAnimation()
-		void RemoveColorAnimation()
-    }
-
-    class particles_object {
-        void set_hud_mode(bool hud_mode)
-    }
-
     // Debug shapes
     enum DebugRenderType {
         line,
@@ -195,13 +188,13 @@
 
     // Query data from actor ray queries
     // Actor = Pick active ray from Weapon / Device / Camera
-	enum ETraceTarget {
-		Camera      = 0,
-		Weapon      = 1,
-		Device      = 2,
-		Actor       = 3,
-	}
-		
+    enum ETraceTarget {
+        Camera      = 0,
+        Weapon      = 1,
+        Device      = 2,
+        Actor       = 3,
+    }
+        
     level {
         float get_music_volume()
         void set_music_volume(float)
@@ -212,7 +205,7 @@
         void set_cam_custom_position_direction(Fvector position, Fvector direction, int smoothing)
         void set_cam_custom_position_direction(Fvector position, Fvector direction)
         void remove_cam_custom_position_direction()
-		
+        
         game_object get_target_obj(ETraceTarget)
         game_object get_target_obj()
         number get_target_dist(ETraceTarget)
@@ -398,7 +391,7 @@
         function get_actor_object_looking_at()
         function get_actor_person_looking_at()
         function get_actor_default_action_for_object()
-		function set_actor_box_y_offset(u32 box_num, float offset) --box_num:0 for stand, 1 for crouch, 2 for prone;
+        function set_actor_box_y_offset(u32 box_num, float offset) --box_num:0 for stand, 1 for crouch, 2 for prone;
         // Stalker NPCs
         function get_enable_anomalies_pathfinding()
         function set_enable_anomalies_pathfinding(bool)
@@ -462,39 +455,39 @@
         function remove_attachment(string)
         function remove_attachment(script_attachment)
         function iterate_attachments(function)
-		
-		// Shader/Textures
-		function get_shaders(bool)
-		function set_shader(number, string, string, bool)
-		function get_default_shaders(bool)
-		function reset_shader(number, bool)
-		
-		get_shaders(hud_mode)
-		hud_mode is optional and will default to false
-		returns a table of submesh IDs with subtables containing the shader and texture names of all submeshes of a model, table looks like this for example:
-		{
-		1 = 
-			{
-			texture = "act\act_face_mask_03",
-			shader = "models\model_pn",
-			},
-		2 = 
-			{
-			texture = "act\act_stalker_cskysun_2",
-			shader = "models\model_pn",
-			},
-		},
-		
-		get_default_shaders(hud_mode)
-		returns similar table as get_shaders but containing the default shader and texture names, even after they were changed by set_shader
-		
-		set_shader(id, shader, texture, hud_mode) can assign a new shader/texture to the submesh ID
-		id can be -1 to apply the shader/texture to all submeshes at once
-		shader/texture can be nil if you only want to apply one of them
-		hud_mode is optional and will default to false
-		
-		reset_shader(id, hud_mode)
-		same as set_shader but resets to the default shader/texture values, so you don't need to store them in a table to reset them later
+        
+        // Shader/Textures
+        function get_shaders(bool)
+        function set_shader(number, string, string, bool)
+        function get_default_shaders(bool)
+        function reset_shader(number, bool)
+        
+        get_shaders(hud_mode)
+        hud_mode is optional and will default to false
+        returns a table of submesh IDs with subtables containing the shader and texture names of all submeshes of a model, table looks like this for example:
+        {
+        1 = 
+            {
+            texture = "act\act_face_mask_03",
+            shader = "models\model_pn",
+            },
+        2 = 
+            {
+            texture = "act\act_stalker_cskysun_2",
+            shader = "models\model_pn",
+            },
+        },
+        
+        get_default_shaders(hud_mode)
+        returns similar table as get_shaders but containing the default shader and texture names, even after they were changed by set_shader
+        
+        set_shader(id, shader, texture, hud_mode) can assign a new shader/texture to the submesh ID
+        id can be -1 to apply the shader/texture to all submeshes at once
+        shader/texture can be nil if you only want to apply one of them
+        hud_mode is optional and will default to false
+        
+        reset_shader(id, hud_mode)
+        same as set_shader but resets to the default shader/texture values, so you don't need to store them in a table to reset them later
     }
 
     class CArtefact : CGameObject {
@@ -597,7 +590,7 @@
         function GetZoomRotateTime()
         function SetZoomRotateTime(float)
     }
-	
+    
     enum rq_target { (sum them up to target multiple types)
         rqtNone     = 0,
         rqtObject   = 1,
@@ -784,10 +777,10 @@
         function get_light_bone();
 
         -- Shader and Texture
-		function get_shaders()
-		function get_default_shaders()
-		function set_shader(number, string, string)
-		function reset_shader(number)
+        function get_shaders()
+        function get_default_shaders()
+        function set_shader(number, string, string)
+        function reset_shader(number)
     }
     
     Script Attachment Guide: https://igigog.github.io/anomaly-modding-book/tutorials/scripting/script-attachments.html
diff --git a/gamedata/scripts/pda.script b/gamedata/scripts/pda.script
new file mode 100644
index 000000000..f6d316971
--- /dev/null
+++ b/gamedata/scripts/pda.script
@@ -0,0 +1,664 @@
+local coc_ranking_array_size = 100				-- Top100
+local coc_ranking_list = {}
+local actor_rank_place
+dialog_closed = true
+
+----------------------------------------------------------------------------
+-- Engine->lua function calls 
+----------------------------------------------------------------------------
+
+-- PDA Tabs 
+-- It's now possible to add new button tabs to pda*.xml.
+-- You can use ActorMenu.get_pda_menu():GetActiveSection() to find out active pda tab
+-- UI returned must be CUIScriptWnd
+function set_active_subdialog(section)
+	--printf("set_active_subdialog | section=%s",section)
+	
+	-- For NPCs PDA
+	if (section == "eptNPC") then
+		local obj = db.actor:active_item() or db.actor:item_in_slot(14)
+		if obj then
+			local sec = obj and obj:section()
+			if item_device.device_npc_pda[sec] then
+				return ui_pda_npc_tab.get_ui( se_load_var(obj:id(), obj:name(), "info") )
+			end
+		end
+		
+		-- Fallback to normal UI
+		ActorMenu.get_pda_menu():SetActiveSubdialog("eptTasks")
+		return 
+	
+	-- For Actor PDA
+	elseif (section == "eptTasks") then 
+	
+	elseif (section == "eptRanking") then 
+	
+	elseif (section == "eptLogs") then 
+	
+	elseif (section == "eptRelations") then 
+		return ui_pda_relations_tab.get_ui()
+		
+	elseif (section == "eptContacts") then
+		if _G.WARFARE then
+			return ui_pda_warfare_tab.get_ui()
+		else
+			return ui_pda_contacts_tab.get_ui()
+		end
+		
+	elseif (section == "eptEncyclopedia") then
+		return ui_pda_encyclopedia_tab.get_ui()
+		
+	elseif (section == "eptRadio") then
+		return ui_pda_radio_tab.get_ui()
+		
+	end
+end 
+
+function pda_use() -- from engine?
+	return item_device.is_pda_charged()
+end
+
+function on_low_battery() -- from engine
+
+end
+
+local map_spot_property = {}
+function property_box_clicked(property_ui)
+	local list_item = property_ui:GetSelectedItem()
+	if not (list_item) then 
+		return 
+	end
+	local textControl = list_item:GetTextItem()
+	local prop = textControl:GetText()
+	--printf("prop=%s",prop)
+	SendScriptCallback("map_spot_menu_property_clicked",property_ui,map_spot_property.id,map_spot_property.level_name,prop)
+end 
+
+function property_box_add_properties(property_ui,id,level_name,hint)
+	map_spot_property.id = id 
+	map_spot_property.level_name = level_name
+	-- if (hint and hint ~= "") then
+		-- property_ui:AddItem(hint)
+	-- end
+	SendScriptCallback("map_spot_menu_add_property",property_ui,id,level_name,hint)
+end
+
+-- use actor_menu for other modes
+-- 10 =  Talk dialog  show
+-- 11 =  Talk dialog  hide
+function actor_menu_mode(mode)
+	if(mode==10) then
+		dialog_closed = false
+		for k,st in pairs(db.storage) do
+			if (st.object and st.object:is_talking() and st.object:id() ~= AC_ID) then
+				local id = st.object:id()
+				SetEvent("used_npc_id", id) -- stupid hack since sidorovich and forester don't have use_callback
+				local sound_theme = xr_sound.sound_table[id]
+				if sound_theme and sound_theme.reset then
+					sound_theme:reset(id)
+				end
+				local m_data = alife_storage_manager.get_state()
+				if not (m_data.actor_contacts) then 
+					m_data.actor_contacts = {}
+				end
+				m_data.actor_contacts[id] = true
+				break
+			end
+		end
+		Register_UI("Dialog")
+		--printf("---:>Talk Dialog show")
+	elseif(mode==11) then
+		--printf("---:>Talk Dialog hide")
+		SendScriptCallback("actor_on_leave_dialog",GetEvent("used_npc_id"))
+		SetEvent("used_npc_id", nil)
+		dialog_closed = true
+		Unregister_UI("Dialog")
+	end
+end
+
+function get_time_elapsed()
+	local s_time = level.get_start_time()
+	local seconds = tonumber(game.get_game_time():diffSec(s_time))
+	
+	if (seconds < 60) then 
+		return string.format("%d %s",seconds,game.translate_string("ui_st_secs"))
+	elseif (seconds < 3600) then 
+		return string.format("%d %s",seconds/60,game.translate_string("ui_st_mins"))
+	elseif (seconds < 86400) then 
+		return string.format("%d %s",seconds/60/60,game.translate_string("ui_st_hours"))
+	end
+	
+	return string.format("%d %s",seconds/60/60/24,game.translate_string("ui_st_days"))
+end 
+
+function get_stat(index) -- index= int        return string
+	if(index==0) then
+		return get_time_elapsed()
+	elseif(index==1) then
+		return tostring(game_statistics.get_statistic_count("emissions"))
+	elseif(index==2) then
+		return tostring(game_statistics.get_statistic_count("tasks_completed"))
+	elseif(index==3) then
+		return tostring(game_statistics.get_statistic_count("killed_monsters"))
+	elseif(index==4) then
+		return tostring(game_statistics.get_statistic_count("killed_stalkers"))
+	elseif(index==5) then
+		return tostring(game_statistics.get_statistic_count("boxes_smashed"))
+	elseif(index==6) then
+		return tostring(game_statistics.get_statistic_count("stashes_found"))
+	elseif(index==7) then
+		return tostring(game_statistics.get_statistic_count("psi_storms"))
+	elseif(index==8) then
+		return tostring(game_statistics.get_statistic_count("pdas_delivered"))
+	elseif(index==9) then
+		return tostring(game_statistics.get_statistic_count("helicopters_downed"))
+	elseif(index==10) then
+		return tostring(game_statistics.get_statistic_count("artefacts_detected"))
+	elseif(index==11) then
+		return tostring(game_statistics.get_statistic_count("wounded_helped"))
+	elseif(index==12) then 
+		return tostring(game_statistics.get_statistic_count("level_changes"))
+	elseif(index==13) then 
+		return tostring(game_statistics.get_statistic_count("enemies_surrendered"))
+	elseif(index==14) then 
+		return tostring(game_statistics.get_statistic_count("field_dressings"))
+	elseif(index==15) then 
+		return (ui_pda_encyclopedia_tab.get_articles_unlocked_count() .. "/" .. ui_pda_encyclopedia_tab.get_articles_count())
+	elseif(index==16) then 
+		return (game_achievements.get_achievements_unlocked_count() .. "/" .. game_achievements.get_achievements_count())
+	elseif(index==17) then 
+		return (game_statistics.get_actor_visited_levels_count() .. "/33")
+	elseif(index==18) then 
+		return (db.actor:money() .. " RU")
+	end
+	return ""
+end
+
+----------------------------------------------------------------------------
+-- Engine->lua function calls 
+----------------------------------------------------------------------------
+local primary_objects_tbl = {
+      {target="mar_2c_01_anomaly_spot",					        hint="st_mar_2c_01_anomaly_spot_name"},
+      {target="mar_2c_02_anomaly_spot",					        hint="st_mar_2c_02_anomaly_spot_name"},
+	  {target="ds_2c_01_anomaly_spot",					        hint="st_ds_2c_01_anomaly_spot_name"},
+      {target="ds_2c_02_anomaly_spot",					        hint="st_ds_2c_02_anomaly_spot_name"},
+      {target="ds_2c_03_anomaly_spot",					        hint="st_ds_2c_03_anomaly_spot_name"},
+      {target="ds_2c_04_anomaly_spot",					        hint="st_ds_2c_04_anomaly_spot_name"},
+	  {target="trc_2c_01_rift_anom_spot",					    hint="st_trc_2c_01_rift_anom_spot_name"},
+      {target="trc_2c_02_chem_anom_spot",					    hint="st_trc_2c_02_chem_anom_spot_name"},
+      {target="trc_2c_03_desolation_anom_spot",			        hint="st_trc_2c_03_desolation_anom_spot_name"},
+	  {target="esc_2c_01_high_hopes_anomaly_spot",		        hint="st_esc_2c_01_high_hopes_anomaly_spot_name"},
+	  {target="gar_2c_01_nwi_anomaly_spot",				        hint="st_gar_2c_01_nwi_anomaly_spot_name"},
+      {target="gar_2c_02_toaster_anomaly_spot",			        hint="st_gar_2c_02_toaster_anomaly_spot_name"},
+	  {target="agr_2c_01_hg_anomaly_spot",				        hint="st_agr_2c_01_hg_anomaly_spot_name"},
+	-- Undergound anomalies are commented out until we can have underground minimaps.
+	--{target="labx18_2c_01_deep_burn_anomaly_spot",	        hint="st_labx18_2c_01_deep_burn_anomaly_spot_name"},
+	--{target="labx18_2c_02_ff_anomaly_spot",			        hint="st_labx18_2c_02_ff_anomaly_spot_name"},
+	--{target="labx18_2c_03_elders_anomaly_spot",		        hint="st_labx18_2c_03_elders_anomaly_spot_name"},
+	--{target="labx18_2c_04_bioh_anomaly_spot",			        hint="st_labx18_2c_04_bioh_anomaly_spot_name"},
+	  {target="bar_2c_01_grant_anomaly_spot",				    hint="st_bar_2c_01_grant_anomaly_spot_name"},
+	  {target="ros_2c_01_tunnel_anomaly_spot",			        hint="st_ros_2c_01_tunnel_anomaly_spot_name"},
+      {target="ros_2c_02_crispy_train_anomaly_spot",		    hint="st_ros_2c_02_crispy_train_anomaly_spot_name"},
+      {target="ros_2c_03_yc_anomaly_spot",				        hint="st_ros_2c_03_yc_anomaly_spot_name"},
+	  {target="mil_2c_01_hw_anomaly_spot",				        hint="st_mil_2c_01_hw_anomaly_spot_name"},
+	  {target="yan_2c_01_cd_anomaly_spot",				        hint="st_yan_2c_01_cd_anomaly_spot_name"},
+	--{target="x16_lab_2c_01_fb_anomy_spot",			        hint="st_x16_lab_2c_01_fb_anomy_spot_name"},
+	  {target="cit_2c_01_ch_anomaly_spot",				        hint="st_cit_2c_01_ch_anomaly_spot_name"},
+      {target="cit_2c_02_pg_anomaly_spot",				        hint="st_cit_2c_02_pg_anomaly_spot_name"},
+	  {target="lim_2c_01_ls_anomaly_spot",				        hint="st_lim_2c_01_ls_anomaly_spot_name"},
+      {target="lim_2c_02_ib_anomaly_spot",				        hint="st_lim_2c_02_ib_anomaly_spot_name"},
+	  {target="rad_2c_01_bl_anomaly_spot",				        hint="st_rad_2c_01_bl_anomaly_spot_name"},
+      {target="rad_2c_02_pp_anomaly_spot",				        hint="st_rad_2c_02_pp_anomaly_spot_name"},
+	--{target="bun_2c_01_f_anomaly_spot",				        hint="st_bun_2c_01_f_anomaly_spot_name"},
+	--{target="bun_2c_02_gp_anomaly_spot",				        hint="st_bun_2c_02_gp_anomaly_spot_name"},
+	  {target="pri_2c_01_pp_anomaly_spot",				        hint="st_pri_2c_01_pp_anomaly_spot_name"},
+      {target="pri_2c_02_gt_anomaly_spot",				        hint="st_pri_2c_02_gt_anomaly_spot_name"},
+      {target="pri_2c_03_wr_anomaly_spot",				        hint="st_pri_2c_03_wr_anomaly_spot_name"},
+      {target="pri_2c_04_o_anomaly_spot",					    hint="st_pri_2c_04_o_anomaly_spot_name"},
+	  {target="aes_2c_01_ce_anomaly_spot",				        hint="st_aes_2c_01_ce_anomaly_spot_name"},
+      {target="aes_2c_02_p_anomaly_spot",					    hint="st_aes_2c_02_p_anomaly_spot_name"},
+	  {target="aes2_2c_01_bo_anomaly_spot",				        hint="st_aes2_2c_01_bo_anomaly_spot_name"},
+      {target="aes2_2c_02_at_anomaly_spot",				        hint="st_aes2_2c_02_at_anomaly_spot_name"},
+	--{target="sar_2c_01_r_anomaly_spot",				        hint="st_sar_2c_01_r_anomaly_spot_name"},
+	  {target="gen_2c_01_ss_anomaly_spot",				        hint="st_gen_2c_01_ss_anomaly_spot_name"},
+	  {target="mar_smart_terrain_11_3_anomaly_spot",		    hint="st_mar_smart_terrain_11_3_anomaly_spot_name"},
+      {target="mar_smart_terrain_10_10_anomaly_spot",		    hint="st_mar_smart_terrain_10_10_anomaly_spot_name"},
+      {target="mar_smart_terrain_base_anomaly_spot",		    hint="st_mar_smart_terrain_base_anomaly_spot_name"},
+      {target="mar_smart_terrain_8_8_anomaly_spot",		        hint="st_mar_smart_terrain_8_8_anomaly_spot_name"},
+      {target="mar_smart_terrain_12_2_anomaly_spot",		    hint="st_mar_smart_terrain_12_2_anomaly_spot_name"},
+      {target="mar_smart_terrain_3_7_anomaly_spot",		        hint="st_mar_smart_terrain_3_7_anomaly_spot_name"},
+      {target="mar_smart_terrain_3_3_anomaly_spot",		        hint="st_mar_smart_terrain_3_3_anomaly_spot_name"},
+	  {target="esc_smart_terrain_1_11_anomaly_spot",		    hint="st_esc_smart_terrain_1_11_anomaly_spot_name"},
+      {target="esc_smart_terrain_8_9_anomaly_spot",		        hint="st_esc_smart_terrain_8_9_anomaly_spot_name"},
+      {target="esc_smart_terrain_5_4_anomaly_spot",		        hint="st_esc_smart_terrain_5_4_anomaly_spot_name"},
+	  {target="gar_smart_terrain_3_7_anomaly_spot",		        hint="st_gar_smart_terrain_3_7_anomaly_spot_name"},
+      {target="gar_smart_terrain_3_7_anomaly_spot_2",		    hint="st_gar_smart_terrain_3_7_anomaly_spot_2_name"},
+      {target="gar_smart_terrain_2_4_anomaly_spot",		        hint="st_gar_smart_terrain_2_4_anomaly_spot_name"},
+      {target="gar_smart_terrain_6_7_anomaly_spot",		        hint="st_gar_smart_terrain_6_7_anomaly_spot_name"},
+      {target="gar_smart_terrain_5_6_anomaly_spot",		        hint="st_gar_smart_terrain_5_6_anomaly_spot_name"},
+      {target="gar_smart_terrain_1_7_anomaly_spot",		        hint="st_gar_smart_terrain_1_7_anomaly_spot_name"},
+	  {target="agr_smart_terrain_1_3_anomaly_spot",		        hint="st_agr_smart_terrain_1_3_anomaly_spot_name"},
+      {target="agr_smart_terrain_4_4_near_3_anomaly_spot",      hint="st_agr_smart_terrain_4_4_near_3_anomaly_spot_name"},
+      {target="agr_smart_terrain_5_7_anomaly_spot", 		    hint="st_agr_smart_terrain_5_7_anomaly_spot_name"},
+      {target="agr_smart_terrain_5_2_anomaly_spot", 		    hint="st_agr_smart_terrain_5_2_anomaly_spot_name"},
+      {target="agr_smart_terrain_1_2_anomaly_spot", 		    hint="st_agr_smart_terrain_1_2_anomaly_spot_name"},
+	  {target="val_smart_terrain_9_10_anomaly_spot",		    hint="st_val_smart_terrain_9_10_anomaly_spot_name"},
+      {target="val_smart_terrain_6_4_anomaly_spot",		        hint="st_val_smart_terrain_6_4_anomaly_spot_name"},
+      {target="val_smart_terrain_8_6_anomaly_spot",		        hint="st_val_smart_terrain_8_6_anomaly_spot_name"},
+      {target="val_smart_terrain_9_4_anomaly_spot",		        hint="st_val_smart_terrain_9_4_anomaly_spot_name"},
+      {target="val_smart_terrain_8_9_anomaly_spot",		        hint="st_val_smart_terrain_8_9_anomaly_spot_name"},
+	  {target="mil_smart_terrain_4_7_anomaly_spot",		        hint="st_mil_smart_terrain_4_7_anomaly_spot_name"},
+      {target="mil_smart_terrain_2_1_anomaly_spot",		        hint="st_mil_smart_terrain_2_1_anomaly_spot_name"},
+      {target="mil_smart_terrain_2_6_anomaly_spot",		        hint="st_mil_smart_terrain_2_6_anomaly_spot_name"},
+      {target="mil_smart_terrain_7_4_anomaly_spot",		        hint="st_mil_smart_terrain_7_4_anomaly_spot_name"},
+      {target="mil_smart_terrain_8_3_anomaly_spot",		        hint="st_mil_smart_terrain_8_3_anomaly_spot_name"},
+	  {target="yan_smart_terrain_2_5_anomaly_spot",		        hint="st_yan_smart_terrain_2_5_anomaly_spot_name"},
+      {target="yan_smart_terrain_zombi_spawn_anomaly_spot",		hint="st_yan_smart_terrain_zombi_spawn_anomaly_spot_name"},
+      {target="yan_smart_terrain_5_3_anomaly_spot",		        hint="st_yan_smart_terrain_5_3_anomaly_spot_name"},
+      {target="yan_smart_terrain_4_2_anomaly_spot",		        hint="st_yan_smart_terrain_4_2_anomaly_spot_name"},
+	  {target="red_smart_terrain_6_3_anomaly_spot",		        hint="st_red_smart_terrain_6_3_anomaly_spot_name"},
+      {target="red_smart_terrain_4_5_anomaly_spot",		        hint="st_red_smart_terrain_4_5_anomaly_spot_name"},
+      {target="red_smart_terrain_monsters_anomaly_spot",	    hint="st_red_smart_terrain_monsters_anomaly_spot_name"},
+      {target="red_smart_terrain_3_2_anomaly_spot",		        hint="st_red_smart_terrain_3_2_anomaly_spot_name"},
+      {target="red_smart_terrain_6_6_anomaly_spot",		        hint="st_red_smart_terrain_6_6_anomaly_spot_name"},
+      {target="red_smart_terrain_3_1_anomaly_spot",		        hint="st_red_smart_terrain_3_1_anomaly_spot_name"},
+	  {target="gen_smart_terrain_urod_anomaly_spot",		    hint="st_gen_smart_terrain_urod_anomaly_spot_name"},
+	  {target="trc_sim_13_anomal_zone_spot",				    hint="st_trc_sim_13_anomal_zone_spot_name"},
+	
+	-- POLE
+      {target="pol_smart_terrain_1_2_anomaly_spot",		        hint="st_pol_smart_terrain_1_2_anomaly_spot_name"},
+
+	-- MLR
+      {target="dasc_treesucker_state_spot",	                    hint="st_dasc_treesucker_state_name"},
+      {target="tc_smart_terrain_bandit_base_spot",	            hint="st_tc_bandit_base_name"},
+      {target="rad_smart_terrain_kpp_spot",	                    hint="st_tc_kpp_name"},
+      {target="rad_smart_terrain_vert_spot",	                hint="st_tc_vert_name"},
+      {target="radar_smart_terrain_first_zastava_spot",	        hint="st_radar_first_zastava_name"},
+      {target="rad_smart_terrain_bunker_spot",	                hint="st_rad_bunker_name"},
+      {target="red_smart_terrain_dark_yar_spot",	            hint="st_red_dark_yar_name"},
+      {target="red_smart_terrain_central_mine_spot",	        hint="st_red_central_mine_name"},
+      {target="red_smart_terrain_crap_spot",	                hint="st_red_crap_name"},
+      {target="agr_smart_terrai_SRI_spot",	                    hint="st_agr_SRI_name"},
+      {target="mar_smart_terrain_post_spot",	                hint="st_lim_post_vishka_name"},
+      {target="mar_smart_terrain_old_church_spot",	            hint="st_lim_old_church_name"},
+      {target="mar_smart_terrain_village_csky_spot",	        hint="st_lim_village_csky_name"},
+      {target="mar_smart_terrain_water_pump_station_spot",	    hint="st_lim_water_pump_station_name"},
+      {target="mar_smart_terrain_mechanic_yard_spot",	        hint="st_lim_mechanic_yard_name"},
+      {target="red_smart_terrain_bridge_spot",	                hint="st_lim_bridge_name"},
+      {target="red_smart_terrain_house_lesnik_spot",	        hint="st_lim_house_lesnik_name"},
+      {target="lim_smart_first_zastava_spot",	                hint="st_lim_zastava_name"},
+      {target="lim_smart_bubbles_spot",                  	    hint="st_lim_bubbles_name"},
+      {target="lim_smart_nonbuild_spot",		                hint="st_lim_nonbuild_name"},
+      {target="lim_smart_dyga_spot",		                    hint="st_lim_dyga_name"},
+      {target="ds_smart_administration_spot",	                hint="st_ds_administration_name"},
+      {target="ds_smart_market_spot",                  	        hint="st_ds_market_name"},
+      {target="ds_smart_house_of_culture_spot",		            hint="st_ds_HoC_name"},
+      {target="esc_smart_terrain_novice_village_spot",	        hint="st_novice_village_name"},
+      {target="esc_smart_terrain_south_blokpost_spot",	        hint="st_south_blokpost_name"},
+      {target="esc_smart_terrain_ATP_spot",		                hint="st_ATP_name"},
+      {target="esc_smart_terrain_elevator_spot",		        hint="st_elevator_name"},
+      {target="esc_smart_terrain_tunnel_electr_spot",		    hint="st_tunnel_electr_name"},
+      {target="esc_smart_terrain_neut_base_spot",		        hint="st_neut_base_name"},
+      {target="esc_smart_terrain_north_blockpost_spot",	        hint="st_north_blockpost_name"},
+      {target="dar_smart_terrain_farm_spot",		            hint="st_dar_farm_name"},
+      {target="dar_smart_terrain_complex_proizv_spot",	        hint="st_dar_complex_name"},
+      {target="mil_smart_terrain_bs_village_spot",	            hint="st_bs_village_name"},
+      {target="mil_smart_terrain_base_freedom_spot",		    hint="st_base_freedom_name"},
+      {target="mil_smart_terrain_border_spot",	                hint="st_border_name"},
+      {target="pri_smart_terrain_mon_base_spot",	            hint="st_mon_base_name"},
+      {target="pri_smart_terrain_hotel_poless_spot",		    hint="st_hotel_poless_name"},
+      {target="pri_smart_terrain_big_bus_station_spot",	        hint="st_big_bus_station_name"},
+      {target="gar_smart_terrain_6_3_baraholka_spot",		    hint="st_gar_baraholka_name"},
+      {target="gar_smart_terrain_dolg_outpost_spot",		    hint="st_gar_outpost_name"},
+      {target="gar_smart_terrain_3_5_angar_spot",		        hint="st_gar_angar_name"},
+      {target="bar_smart_terrain_bar100rent_spot",		        hint="st_bar100rent_name"},
+      {target="yan_smart_terrain_6_4_bunker_spot",		        hint="st_yanbunker_name"},
+      {target="yan_smart_terrain_proizvcomplex_spot",		    hint="st_yancomplex_name"},
+
+      {target="zat_b55_spot",		                            hint="st_zat_b55_name_land"},
+      {target="zat_b100_spot",	                                hint="st_zat_b100_name_land"},
+      {target="zat_b104_spot",	                                hint="st_zat_b104_name_land"},
+      {target="zat_b38_spot", 	                                hint="st_zat_b38_name_land"},
+      {target="zat_b40_spot",	                                hint="st_zat_b40_name_land"},
+      {target="zat_b56_spot",		                            hint="st_zat_b56_name_land"},
+      {target="zat_b5_spot",  	                                hint="st_zat_b5_name_land"},
+      {target="zat_a2_spot",  	                                hint="st_zat_a2_name_land"},
+      {target="zat_b20_spot",  	                                hint="st_zat_b20_name_land"},
+      {target="zat_b20_spot",		                            hint="st_zat_fire_name_land"},
+      {target="zat_b53_spot",		                            hint="st_zat_b53_name_land"},
+      {target="zat_b101_spot",	                                hint="st_zat_b101_name_land"},
+      {target="zat_b101_spot",	                                hint="st_zat_waste_name_land"},
+      {target="zat_b106_spot",	                                hint="st_zat_b106_name_land"},
+      {target="zat_b7_spot",  	                                hint="st_zat_b7_name_land"},
+      {target="zat_b14_spot",  	                                hint="st_zat_b14_name_land"},
+      {target="zat_b14_spot",		                            hint="st_zat_tide_name_land"},
+      {target="zat_b52_spot",  	                                hint="st_zat_b52_name_land"},
+      {target="zat_b39_spot",		                            hint="st_zat_b39_name_land"},
+      {target="zat_b33_spot",  	                                hint="st_zat_b33_name_land"},
+      {target="zat_b18_spot",  	                                hint="st_zat_b18_name_land"},
+      {target="zat_b54_spot",		                            hint="st_zat_b54_name_land"},
+      {target="zat_b12_spot",  	                                hint="st_zat_b12_name_land"},
+      {target="zat_b28_spot",  	                                hint="st_zat_b28_name_land"},
+      {target="zat_b103_spot",	                                hint="st_zat_b103_name_land"},
+      {target="jup_b1_spot",		                            hint="st_jup_b1_name_land"},
+      {target="jup_b46_spot",  	                                hint="st_jup_b46_name_land"},
+      {target="jup_b202_spot",	                                hint="st_jup_b202_name_land"},
+      {target="jup_b211_spot",	                                hint="st_jup_b211_name_land"},
+      {target="jup_b200_spot",	                                hint="st_jup_b200_name_land"},
+      {target="jup_b19_spot",  	                                hint="st_jup_b19_name_land"},
+      {target="jup_a6_spot",  	                                hint="st_jup_a6_name_land"},
+      {target="jup_b25_spot",  	                                hint="st_jup_b25_name_land"},
+      {target="jup_b25_spot",		                            hint="st_jup_earth_name_land"},
+      {target="jup_b6_spot",  	                                hint="st_jup_b6_name_land"},
+      {target="jup_b205_spot",	                                hint="st_jup_b205_name_land"},
+      {target="jup_b206_spot",	                                hint="st_jup_b206_name_land"},
+      {target="jup_b206_spot",	                                hint="st_jup_grove_name_land"},
+      {target="jup_b32_spot",  	                                hint="st_jup_b32_name_land"},
+      {target="jup_a10_spot",  	                                hint="st_jup_a10_name_land"},
+      {target="jup_b209_spot",	                                hint="st_jup_b209_name_land"},
+      {target="jup_b208_spot",	                                hint="st_jup_b208_name_land"},
+      {target="jup_a12_spot", 	                                hint="st_jup_a12_name_land"},
+      {target="jup_b212_spot",	                                hint="st_jup_b212_name_land"},
+      {target="jup_b9_spot",  	                                hint="st_jup_b9_name_land"},
+      {target="jup_b201_spot",	                                hint="st_jup_b201_name_land"},
+      {target="jup_a9_spot",  	                                hint="st_jup_a9_name_land"},
+
+      {target="pri_a28_spot",			                        hint="st_pri_a28_name_land"},
+      {target="pri_b36_spot",			                        hint="st_pri_b36_name_land"},
+      {target="pri_b303_spot",		                            hint="st_pri_b303_name_land"},
+      {target="pri_b301_spot",		                            hint="st_pri_b301_name_land"},
+      {target="pri_a17_spot",			                        hint="st_pri_a17_name_land"},
+      {target="pri_b306_spot",		                            hint="st_pri_b306_name_land"},
+      {target="pri_b306_spot",		                            hint="st_pri_plug_name_land"},
+      {target="pri_a16_spot",			                        hint="st_pri_a16_name_land"},
+      {target="pri_a25_spot",			                        hint="st_pri_a25_name_land"},
+      {target="pri_b35_spot",			                        hint="st_pri_b35_name_land"},
+      {target="pri_a21_spot",			                        hint="st_pri_a21_name_land"},
+      {target="pri_b304_spot",		                            hint="st_pri_b304_name_land"},
+      {target="pri_b304_spot",		                            hint="st_pri_bath_name_land"},
+      {target="pri_a18_spot",			                        hint="st_pri_a18_name_land"},
+      {target="pri_anomal_vulkan_spot",	                        hint="st_pri_b307_name_land"},
+      {target="pri_anomal_loza_spot",		                    hint="st_pri_b302_name_land"}
+}
+
+function fill_primary_objects()
+	for k,v in pairs(primary_objects_tbl) do
+		local obj_id = get_story_object_id(v.target)
+        --/ SGM in
+		if obj_id and (level.map_has_object_spot(obj_id,"primary_object") == 0) and has_alife_info(v.target) then
+			level.map_add_object_spot(obj_id, "primary_object", v.hint)
+		end
+        --/ SGM out
+	end
+	
+	local sleep_zones_tbl =
+	{	"mar_a3_sr_sleep_id",
+		"agr_sr_sleep_wagon_id",
+		"agr_sr_sleep_tunnel_id",
+		"agr_army_sleep_id",
+		"esc_basement_sleep_area_id",
+		"esc_secret_sleep_id",
+		"ds_farmhouse_sleep_id",
+		"val_abandoned_house_sleep_id",
+		"val_vagon_sleep_id",
+		"gar_dolg_sleep_id",
+		"gar_angar_sleep_id",
+		"bar_actor_sleep_zone_id",
+		"yan_bunker_sleep_restrictor_id",
+		"ros_vagon_sleep_id",
+		"mil_freedom_sleep_id",
+		"mil_smart_terran_2_4_sleep_id",
+		"rad_sleep_room_id",
+		"cit_merc_sleep_id",
+		"pri_monolith_sleep_id",
+		"pri_room27_sleep_id",
+		"zat_a2_sr_sleep_id",
+		"jup_a6_sr_sleep_id",
+	    "pri_a16_sr_sleep_id",
+	    "pol_secret_sleep_id"
+}
+	for i=1,#sleep_zones_tbl do
+		local obj_id = get_story_object_id(sleep_zones_tbl[i])
+		if (level.map_has_object_spot(obj_id, "ui_pda2_actor_sleep_location")==0) then
+			level.map_add_object_spot_ser(obj_id, "ui_pda2_actor_sleep_location", "st_ui_pda_sleep_place")
+		end
+	end
+end
+
+function add_quick_slot_items_on_game_start()
+	for i=0,3 do
+		exec_console_cmd( strformat("slot_%s %s",i, ini_sys:r_string_ex("actor","quick_item_"..tostring(i+1)) or "") )
+	end
+end
+
+----------------------------------------------------------------------------
+-- Scripted Callback Register
+----------------------------------------------------------------------------
+local function npc_on_net_spawn(npc,se_obj)
+	se_save_var(se_obj.id,se_obj:name(),"last_seen_level",level.name())
+	se_save_var(se_obj.id,se_obj:name(),"last_seen_time",game.get_game_time())
+end
+
+function on_game_start()
+	local function on_game_load()
+		if (not alife_storage_manager.get_state().enable_warfare_mode) then
+			CreateTimeEvent(0, "ScanForSpots", 2, discover_spots)
+		end
+	end
+	
+	RegisterScriptCallback("npc_on_net_spawn",npc_on_net_spawn)
+	RegisterScriptCallback("on_game_load",on_game_load)
+end
+
+-- mlr
+----------------------------------------------------------------------------
+-- Character Ranking
+----------------------------------------------------------------------------
+function get_coc_ranking_list()
+	for i=1,10 do
+		printf("- get_coc_ranking_list | id [%s] = %s", i , coc_ranking_list[i])
+	end
+	return coc_ranking_list
+end
+
+-- called from info_portions.script
+function calculate_rankings()
+	local t = {}
+	local sim = alife()
+	-- add actor to list
+	t[0] = sim:actor():rank()
+	
+	-- check all stalker server objects
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if (se_obj and IsStalker(nil,se_obj:clsid()) and se_obj:alive() and se_obj:community() ~= "zombied" and se_obj:community() ~= "trader") then
+			-- Check if object has a story id, if it does they are probably unique
+			local sid = story_objects.story_id_by_object_id[se_obj.id]
+			if not (sid) then
+				t[se_obj.id] = se_obj:rank()
+			end
+		end
+	end
+	
+	coc_ranking_list = iempty_table(coc_ranking_list)
+	local size_t = 0
+	-- sort by highest rank first
+	for id,rank in spairs(t, function(t,a,b) return t[a] > t[b] end) do
+		size_t = size_t + 1
+		coc_ranking_list[size_t] = id
+		if (id == AC_ID) then
+			actor_rank_place = size_t
+		end
+	end
+	
+	-- force actor into last visible slot + 1 on ranking list
+	coc_ranking_list[coc_ranking_array_size+1] = 0
+end
+
+-- called from engine! It's how many character rankings to display! u8 (max 255)
+function get_rankings_array_size()
+	return coc_ranking_array_size
+end	
+
+-- called from engine! must return bool!
+function coc_rankings_can_show(index)
+	if (has_alife_info("ui_pda_hide")) then
+		return false
+	end
+	local se_obj = coc_ranking_list[index] ~= nil and alife_object(coc_ranking_list[index])
+	if (se_obj) then
+		return true
+	end
+	return false
+end
+
+-- called from engine! must return string!
+function coc_rankings_set_name(index)
+	local se_obj = coc_ranking_list[index] ~= nil and alife_object(coc_ranking_list[index])
+	if (se_obj) then
+		return strformat("%s. %s",se_obj.id == AC_ID and actor_rank_place or index,se_obj:character_name())
+	end
+	return ""
+end
+
+-- called from engine! must return string!
+function coc_rankings_set_hint(index)
+	local se_obj = coc_ranking_list[index] ~= nil and alife_object(coc_ranking_list[index])
+	if (se_obj) then
+		if (se_obj.id == AC_ID) then
+			--TODO: Maybe some stats for player, like rank points per minute; if such a thing is possible.
+			return ""
+		else
+			local return_str = ""
+			
+			-- DEBUG REMOVE ME LATER
+			if(DEV_DEBUG and ui_options.get("other/debug_hud") == true) then
+				return_str = se_obj:profile_name() .. [[ \n]] .. se_obj:character_icon() .. [[ \n]]
+			end 
+			
+			-- stalker stats
+			local m_data = alife_storage_manager.get_se_obj_state(se_obj)
+			if (m_data) then
+				local last_seen_level = m_data.last_seen_level
+				local last_seen_time = m_data.last_seen_time and m_data.last_seen_time.dateToString and m_data.last_seen_time:dateToString(game.CTime.DateToDay)
+				
+				if (last_seen_level and last_seen_time) then
+					return_str = return_str .. game.translate_string("st_last_seen") .. ": " .. game.translate_string(last_seen_level) .. " (" .. last_seen_time .. ")"
+						
+					if (m_data["killed_stalkers"]) then
+						return_str = return_str .. [[ \n]] .. game.translate_string("st_stalkers_killed") .. ": " .. tostring(m_data["killed_stalkers"])
+					end
+					if (m_data["killed_monsters"]) then
+						return_str = return_str .. [[ \n]] .. game.translate_string("st_mutants_killed") .. ": " .. tostring(m_data["killed_monsters"])
+					end
+					if (m_data["artefacts_found"]) then
+						return_str = return_str .. [[ \n]] .. game.translate_string("st_artefacts_found") .. ": " .. tostring(m_data["artefacts_found"])
+					end
+					if (m_data["wounded_helped"]) then
+						return_str = return_str .. [[ \n]] .. game.translate_string("st_wounded_helped") .. ": " .. tostring(m_data["wounded_helped"])
+					end
+					if (m_data["corpse_looted"]) then
+						return_str = return_str .. [[ \n]] .. game.translate_string("st_corpse_looted") .. ": " .. tostring(m_data["corpse_looted"])
+					end
+					if (m_data["items_sold"]) then
+						return_str = return_str .. [[ \n]] .. game.translate_string("st_items_sold") .. ": " .. tostring(m_data["items_sold"])
+					end
+				end 
+			end
+			return return_str
+		end
+	end
+	return ""
+end
+
+-- called from engine! must return string!
+function coc_rankings_set_description(index)
+	local se_obj = coc_ranking_list[index] ~= nil and alife_object(coc_ranking_list[index])
+	if (se_obj) then
+			local faction_color = "%c[255,255,255,1]"
+		if (game_relations.is_factions_enemies(db.actor:character_community(),se_obj:community())) then
+			faction_color = "%c[255,255,1,1]"
+		elseif (game_relations.is_factions_friends(db.actor:character_community(),se_obj:community())) then
+			faction_color = "%c[255,1,255,1]"
+		end
+		
+		local reputation = se_obj:reputation()
+		
+		local repu_color = "%c[255,255,255,1]"
+		if (reputation <= -500) then
+			repu_color = "%c[255,255,1,1]"
+		elseif (reputation >= 500) then
+			repu_color = "%c[255,1,255,1]"
+		end
+		
+		local faction_str = game.translate_string("ui_st_community") .. ": " .. faction_color .. game.translate_string(se_obj:community()) .. "%c[default]"
+		local rank_str = game.translate_string("ui_st_rank") .. ": " .. "%c[255,215,215,215]" .. game.translate_string("st_rank_"..ranks.get_se_obj_rank_name(se_obj)) .. " %c[255,110,110,255]" .. se_obj:rank() .. "%c[default]"
+		local repu_str = game.translate_string("ui_st_reputation") .. ": " .. repu_color .. game.translate_string(utils_obj.get_reputation_name(reputation)) .. "%c[default]"
+		
+		return strformat([[ %s \n %s \n %s]],faction_str,rank_str,repu_str)
+	end
+	return ""
+end
+
+-- called from engine! must return string!
+function coc_rankings_set_icon(index)
+	local se_obj = coc_ranking_list[index] ~= nil and alife_object(coc_ranking_list[index])
+	if (se_obj) then
+		local icon_name
+		if (se_obj.id == AC_ID) then 
+			if (ui_options.get("gameplay/general/outfit_portrait") == true) then
+				local outfit = db.actor:item_in_slot(7)
+				if (outfit) then 
+					local icon = ini_sys:r_string_ex(outfit:section(),"character_portrait")
+					if (icon and icon ~= "") then
+						return icon
+					end
+				end 
+			end
+			icon_name = db.actor:character_icon()
+		else
+			local npc = db.storage[se_obj.id] and db.storage[se_obj.id].object
+			if (npc) then
+				icon_name = npc:character_icon() 
+			else 
+				icon_name = se_obj:character_icon()
+			end
+		end
+		return icon_name and icon_name ~= "" and icon_name or "ui\\ui_noise"
+	end
+	return ""
+end
+
+function coc_rankings_show_border(index)
+	local se_obj = coc_ranking_list[index] ~= nil and alife_object(coc_ranking_list[index])
+	return se_obj and se_obj.id == AC_ID or false
+end
+
+local distance_tbl = {
+	["l12_stancia"] = 45,
+	["l12_stancia_2"] = 45,
+	["l11_hospital"] = 30,
+	["l10_limansk"] = 35,
+	["l06_rostok"] = 30,
+	["k02_trucks_cemetery"] = 45,
+}
+function discover_spots()
+	ResetTimeEvent(0,"ScanForSpots",3)
+	
+	local actor = db.actor
+	for k,v in pairs(primary_objects_tbl) do
+		if actor:dont_has_info(v.target) then
+			local obj_id = get_story_object_id(v.target)
+			if obj_id and db.storage[obj_id] and db.storage[obj_id].object then
+				local n_dist = distance_tbl[level.name()] or 40
+				if (db.storage[obj_id].object:position():distance_to(actor:position()) <= n_dist) then
+					give_info(v.target)
+					game_statistics.increment_rank(10)
+					actor_menu.set_fade_msg( game.translate_string(v.hint), 5, nil, "device\\pda\\spot_discovered" )
+					--news_manager.send_tip(actor,game.translate_string(v.hint),0,"tourist",5000,nil,game.translate_string("st_revealled_area"))
+					fill_primary_objects()
+				end	
+			end
+		end
+	end
+end
\ No newline at end of file
diff --git a/gamedata/scripts/story_objects.script b/gamedata/scripts/story_objects.script
new file mode 100644
index 000000000..562847cfb
--- /dev/null
+++ b/gamedata/scripts/story_objects.script
@@ -0,0 +1,78 @@
+-- Lua class for managing story_objects.
+
+object_id_by_story_id = {}
+story_id_by_object_id = {}
+
+function register(obj_id,story_id)
+	if (object_id_by_story_id[story_id] and object_id_by_story_id[story_id] ~= obj_id) then 
+		printf("~ Story Objects | Multiple objects trying to use same story_id %s",story_id)
+		return
+	end
+	object_id_by_story_id[story_id] = obj_id
+	story_id_by_object_id[obj_id] = story_id
+end
+
+function unregister(id)
+	if (story_id_by_object_id[id]) then 
+		object_id_by_story_id[story_id_by_object_id[id]] = nil
+		story_id_by_object_id[id] = nil
+	elseif (object_id_by_story_id[id]) then
+		story_id_by_object_id[object_id_by_story_id[id]] = nil	
+		object_id_by_story_id[id] = nil
+	end
+end
+
+function check_spawn_ini_for_story_id(se_obj)
+	--printf("checking obj[%s] for story_id!!!",se_obj:name())
+	local spawn_ini = se_obj:spawn_ini()
+	if not (spawn_ini) then 
+		--printf("check_spawn_ini_for_story_id: no spawn ini for %s",se_obj:name())
+	elseif (spawn_ini:section_exist("story_object")) then
+		local result, id, value	= spawn_ini:r_line("story_object",0,"","")
+		--printf("check_spawn_ini_for_story_id: %s | %s = %s",se_obj:name(),id,value)
+		if (id and id ~= "") then
+			-- support for:
+			-- [story_object]
+			-- story_id = some_story_id_string
+			-- ***or***
+			-- [story_object]
+			-- some_story_id_string
+			if (id == "story_id" and value ~= "") then
+				register(se_obj.id , value)
+				--printf("/ Story Objects 1 | register (%s) = %s", se_obj.id, value)
+			else
+				register(se_obj.id, id)
+				--printf("/ Story Objects 2 | register (%s) = %s", se_obj.id, id)
+			end
+		end
+		return
+	end
+	local story_id = ini_sys:r_string_ex(se_obj:section_name(),"story_id")
+	if story_id ~= nil then
+		register(se_obj.id , story_id)
+		--printf("/ Story Objects 3 | register (%s) = %s", se_obj.id, story_id)
+	end
+end
+
+
+-----------------------------------------------------------
+-- A walk-around for story items since they don't register
+item_object_id_by_story_id = {}
+function get_story_se_item(story_id)
+	if (item_object_id_by_story_id[story_id] == nil) then
+		local sim = alife()
+		local found = false
+		for i=1,sim:max_id() - 1 do
+			local se_obj = sim:object(i)
+			if se_obj and (se_obj:section_name() == story_id) then -- assuming that section is similar to the story id
+				--printf("/ Story Objects | found [%s] with id (%s)", story_id, i)
+				found = i
+				break
+			end
+		end
+		item_object_id_by_story_id[story_id] = found
+	end
+	
+	local id = item_object_id_by_story_id[story_id]
+	return id and alife_object(id)
+end
\ No newline at end of file
diff --git a/gamedata/scripts/tasks_agent_rescue.script b/gamedata/scripts/tasks_agent_rescue.script
new file mode 100644
index 000000000..aaca5a442
--- /dev/null
+++ b/gamedata/scripts/tasks_agent_rescue.script
@@ -0,0 +1,542 @@
+--[[
+-- Created by tdef
+-- Modified by Tronex
+-- Added: 2018/12/15
+-- Last edit: 2019/7/6
+-- Pull undercover agent out from the enemy squad
+
+	Parameters for precondition
+		P[1] = (string) task_id
+		P[2] = (string) task giver faction, if "nil" then it will get it from task giver object
+		P[3] = (bool) if true, defined factions in "status_functor_params" are enemies. otherwise, it will generate enemy faction list based on defined factions
+		P[4] = (bool) if true, includes scripted squads
+		P[5] = (num) scan mode (1 to 5)
+			1 = same level
+			2 = same or nearby levels
+			3 = neaby levels only
+			4 = far levels
+			5 = all levels
+	
+	task_loadout_spy: the weapon carried by the spy, that's how you identify him. You can set as many weapons sections here (seperated by ,) and the script will pick one
+	task_loadout_other: the weapon carried by other members, that's how you distinguish them from the spy. You can set as many weapons sections here (seperated by ,) and the script will pick one per member
+	task_msg_on_join: the message spy send when he's freed from his squad
+	task_msg_on_leave: the message spy send after you escort him to the task giver
+	
+	Example of usage in configs:
+		precondition = validate_spy_task( mil_smart_terrain_7_7_freedom_leader_stalker_task_2 : freedom : true : false : 3 )
+		target_functor = spy_task_target_functor
+		status_functor = spy_task_status_functor
+		status_functor_params = dolg
+		task_loadout_spy = wpn_svd
+		task_loadout_other = wpn_ak74
+		task_msg_on_join = mil_smart_terrain_7_7_freedom_leader_stalker_task_2_msg_join
+		task_msg_on_leave = mil_smart_terrain_7_7_freedom_leader_stalker_task_2_msg_leave
+		on_job_descr = %=setup_spy_task( mil_smart_terrain_7_7_freedom_leader_stalker_task_2 )%
+--]]
+
+local faction_list = { -- List of factions targeted in agent rescue tasks
+	"stalker",
+	"dolg",
+	"freedom",
+	"csky",
+	"ecolog",
+	"killer",
+	"army",
+	"bandit",
+	--"monolith",
+}
+
+local blacklisted_maps = { -- List of maps to skip in scans
+	-- North
+	["l13_generators"]        = true,
+	["l12_stancia_2"]         = true,
+	["l12_stancia"]           = true,
+	["l11_pripyat"]           = true,
+	["l10_radar"]             = true,
+	["l11_hospital"]          = true,
+	-- Underground
+	["jupiter_underground"]   = true,
+	["labx8"]                 = true,
+	["l03u_agr_underground"]  = true,
+	["l04u_labx18"]           = true,
+	["l08u_brainlab"]         = true,
+	["l10u_bunker"]           = true,
+	["l12u_control_monolith"] = true,
+	["l12u_sarcofag"]         = true,
+	["l13u_warlab"]           = true,
+	-- Other
+	["l05_bar"] 			  = true,
+	["fake_start"]            = true,
+}
+
+local cache = {}
+
+local enable_debug = false
+local sfind = string.find
+
+function printl(...)
+	if enable_debug then
+		printf(...)
+	end
+end
+
+
+---------------------------< Utility >---------------------------
+function generate_squad_loadout(task_id)
+	local sq_loadout = {}
+	local sq_loadout_table = parse_list(task_manager.task_ini,task_id,"task_loadout_other")
+	if (#sq_loadout_table == 0) then
+		sq_loadout = {"wpn_ak74","ammo_5.45x39_fmj"}
+	else
+		local wpn = sq_loadout_table[math.random(#sq_loadout_table)]
+		local ammo = parse_list(ini_sys,wpn,"ammo_class") or {}
+		if ini_sys:section_exist(wpn) and (#ammo > 0) then
+			sq_loadout = { wpn , ammo[math.random(#ammo)] }
+		else
+			sq_loadout = {"wpn_ak74","ammo_5.45x39_fmj"}
+		end
+	end
+	return sq_loadout
+end
+	
+function join_message(task_id, id)
+	local se_obj = alife_object(id)
+	if se_obj then
+		local str = task_manager.task_ini:r_string_ex(task_id, "task_msg_on_join") or 'spy_task_join'
+		local name, icon = game.translate_string(se_obj:character_name()), se_obj:character_icon()
+		dynamic_news_helper.send_tip(game.translate_string(str), name,nil,nil, icon, nil, 'npc')
+		return
+	end
+	printf('! join_message: se_obj (%s) is nil!', id)
+end
+
+function leave_message(task_id, id)
+	local se_obj = alife_object(id)
+	if se_obj then
+		local str = task_manager.task_ini:r_string_ex(task_id, "task_msg_on_leave") or 'spy_task_leave'
+		local name, icon = game.translate_string(se_obj:character_name()), se_obj:character_icon()
+		dynamic_news_helper.send_tip(game.translate_string(str), name,nil,nil, icon, nil, 'npc')
+		return
+	end
+	printf('! leave_message: se_obj (%s) is nil!', id)
+end
+
+function postpone_for_next_frame(task_id, squad_id)
+	local squad = alife_object(squad_id)
+	if (squad) then
+
+		-- Location
+		local location = alife():level_name(game_graph():vertex(squad.m_game_vertex_id):level_id())
+		for k in squad:squad_members() do
+			local se_obj = k.object or alife_object(k.id)
+			if se_obj then
+				location = dynamic_news_helper.GetPointDescription(se_obj)
+				break
+			end
+		end
+		local str_location = game.translate_string("st_location") .. " " .. location
+		
+		-- Community
+		local str_comm = ""
+		local community = squad.player_id
+		if is_squad_monster[community] then
+			str_comm = game.translate_string("st_sq_type") .. " " .. game.translate_string(community)
+		else
+			str_comm = game.translate_string("st_mm_new_game_faction_2") .. " " .. game.translate_string(community)
+		end
+		
+		-- Build News
+		local news_caption = game.translate_string(task_manager.task_ini:r_string_ex(task_id, "title")) or "error"
+		local news_text = str_comm .. "\\n " .. str_location
+		local news_ico = news_manager.tips_icons[squad.player_id] or task_manager.task_ini:r_string_ex(task_id, "icon") or "ui_iconsTotal_mutant"
+		--local news_ico = task_manager.task_ini:r_string_ex(task_id, "icon") or "ui_iconsTotal_mutant"
+		--local news_text = str_location
+		db.actor:give_talk_message2(news_caption, news_text, news_ico, "iconed_answer_item")
+	end
+	return true
+end
+
+
+---------------------------< Target functor >---------------------------
+local stage_tgt_f = {}
+
+stage_tgt_f[1] = function(task, task_id)
+	local var =  load_var(db.actor, task_id)
+	if var then
+		return var.squad_id
+	end
+	return nil
+end
+
+stage_tgt_f[2] = function(tsk, task_id)
+	return tsk.task_giver_id
+end
+
+stage_tgt_f[3] = function(tsk, task_id)
+	return tsk.task_giver_id
+end
+
+task_functor.spy_task_target_functor = function(task_id,field,p,tsk)
+	if not (db.actor and tsk) then return nil end
+	local stage = tsk.stage
+	if stage_tgt_f[stage] then 
+		return stage_tgt_f[stage](tsk,task_id)
+	end
+	return nil
+end
+
+
+---------------------------< Status functor >---------------------------
+local stage_f = {}
+
+stage_f[0] = function(task, task_id) -- setup stage
+	local var =  load_var(db.actor, task_id)
+	if (not var) then
+		printf('var nil in task %s', task_id)
+		return "fail"
+	end
+	
+	local squad_id = var.squad_id
+	if (not squad_id) then
+		printf('squad_id nil in task %s', task_id)
+		return "fail"
+	end
+	
+	local squad = alife_object(squad_id)
+	if (not squad) then
+		printf('se_squad nil in task %s', task_id)
+		return "fail"
+	end
+	
+	local members = {}
+	for k in squad:squad_members() do
+		members[k.id] = true
+		printl('~ %s | squad member: %s', task_id, k.id)
+	end
+	local spy_id = random_key_table(members)
+	printl('~ %s | spy: %s', task_id, spy_id)
+	
+	-- Spy loadout
+	local spy_loadout = {}
+	local spy_loadout_table = parse_list(task_manager.task_ini,task_id,"task_loadout_spy")
+	if (#spy_loadout_table == 0) then
+		spy_loadout = {"wpn_svd","ammo_7.62x54_ap"}
+	else
+		local wpn = spy_loadout_table[math.random(#spy_loadout_table)]
+		local ammo = parse_list(ini_sys,wpn,"ammo_class") or {}
+		if ini_sys:section_exist(wpn) and (#ammo > 0) then
+			spy_loadout = { wpn , ammo[math.random(#ammo)] }
+		else
+			spy_loadout = {"wpn_svd","ammo_7.62x54_ap"}
+		end
+	end
+	
+	local sim = alife()
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if se_obj then
+			if se_obj.parent_id
+			and (se_obj.parent_id == spy_id)
+			and sfind(se_obj:section_name(),"wpn_") 
+			then -- release all guns from spy
+				printl('- %s | releasing weapon %s from spy %s', task_id, se_obj:section_name(), se_obj.parent_id)
+				alife_release(se_obj)		
+				
+			elseif se_obj.parent_id
+			and (not (se_obj.parent_id == spy_id))
+			and members[se_obj.parent_id]
+			and sfind(se_obj:section_name(),spy_loadout[1])
+			then -- release spy gun from other members and give replacement weapon
+				printl('- %s | releasing gun %s from member %s', task_id, se_obj:section_name(), se_obj.parent_id)
+				
+				local sq_loadout = generate_squad_loadout(task_id)
+				for i=1,#sq_loadout do
+					alife_create(sq_loadout[i], se_obj.position, se_obj.m_level_vertex_id, se_obj.m_game_vertex_id, se_obj.parent_id)
+				end
+				alife_release(se_obj)
+			end
+		end
+	end
+	
+	-- give weapon to spy
+	local se_spy = alife_object(spy_id)
+	for i=1,#spy_loadout do
+		alife_create_item(spy_loadout[i], se_spy)
+		printl('- %s | given [%s] to spy %s', spy_loadout[i], task_id, spy_id)
+	end
+	
+	-- save var
+	var.spy_id = spy_id
+	save_var(db.actor, task_id, var)
+	
+	printl('- %s | returning stage 1', task_id)
+	return 1
+	
+end
+
+stage_f[1] = function(task, task_id) -- fail if spy dies, make spy friend if last member of squad
+	local var =  load_var(db.actor, task_id)
+	if (not var) then
+		printf('var nil in task %s', task_id)
+		return "fail"
+	end
+	
+	local squad_id = var.squad_id
+	local spy_id = var.spy_id
+
+	local se_squad = alife_object(squad_id)
+	if not se_squad then
+		printf('se_squad nil in task %s', task_id)
+		return "fail"
+	end
+	
+	local se_spy = spy_id and alife_object(spy_id)
+	if not se_spy then
+		printf('se_spy nil in task %s', task_id)
+		return "fail"
+	end
+	
+	if (not se_spy:alive()) then
+		printf('se_spy has died in task %s', task_id)
+		return "fail"
+	end
+	
+	
+	local function only_spy_left()
+		for k in se_squad:squad_members() do
+			if not (k.id == spy_id) then
+				-- printl('other member left %s', k.id)
+				return false
+			end
+		end
+		return true
+	end
+	
+	-- make companion and change to giver faction
+	if only_spy_left() then
+		local npc = level.object_by_id(spy_id)
+		if (not npc) then
+			printl('! %s | stage 1: spy alone offline', task_id)
+			return "fail"
+		end
+		
+		npc:set_relation(game_object.friend,db.actor)
+		npc:set_character_community(var.giver_comm, 0, 0 )
+		
+		printl('- %s | spy is friend and same faction', task_id)
+		
+		axr_companions.companion_squads[squad_id] = se_squad
+		
+		local se_spy = alife_object(spy_id)
+		local sname = se_spy:name()
+		se_save_var(spy_id,sname,"companion",true)
+		se_save_var(spy_id,sname,"companion_cannot_dismiss",true)
+		se_save_var(spy_id,sname,"companion_cannot_teleport",nil)
+		axr_companions.setup_companion_logic(npc,db.storage[spy_id],false,true)
+		
+		printl('- %s | spy is companion', task_id)
+		
+		join_message(task_id, spy_id)
+		
+		printl('- %s | returning stage 2', task_id)
+		return 2
+	end
+end
+
+stage_f[2] = function(tsk, task_id) -- if close enough to giver then release companion
+	local var =  load_var(db.actor, task_id)
+	if (not var) then
+		printf('var nil in task %s', task_id)
+		return "fail"
+	end
+	
+	local squad_id = var.squad_id
+	local spy_id = var.spy_id
+	local spy_obj = spy_id and level.object_by_id(spy_id)
+	local se_squad = squad_id and alife_object(squad_id)
+	if (not se_squad) then
+		printf('se_squad nil in task %s', task_id)
+		return "fail"
+	end
+	
+	-- For some funny reason, I encoutered a bug where engine can't get the game object, but it works for the server object of task giver
+	local se_giver = alife_object(tsk.task_giver_id)
+	local obj_giver = level.object_by_id(tsk.task_giver_id)
+	local pos_giver = obj_giver and obj_giver:position() or se_giver and se_giver.position
+	
+	local distance = pos_giver and spy_obj and pos_giver:distance_to_sqr(spy_obj:position()) or 9999
+	if (distance < 100) then 
+		
+		-- printl('distance: %s', distance)
+		
+		se_squad.scripted_target = nil
+		se_squad.current_action = nil
+		axr_companions.companion_squads[se_squad.id] = nil
+
+
+		xr_logic.restore_scheme_and_logic(spy_obj)
+		spy_obj:disable_info_portion("npcx_is_companion")
+		spy_obj:disable_info_portion("npcx_beh_cannot_dismiss")
+
+		local se_spy = alife_object(spy_id)
+		if se_spy then
+			local sname = se_spy:name()
+			se_save_var(spy_id,sname,"companion",nil)
+			se_save_var(spy_id,sname,"companion_cannot_dismiss",nil) 
+			se_save_var(spy_id,sname,"companion_cannot_teleport",nil)
+	
+			printl('- %s | spy left party', task_id)
+		end
+		
+		leave_message(task_id, spy_id)
+		
+		-- need to remove squad, player_id remains the original so it can get targeted by other tasks
+		SIMBOARD:remove_squad(se_squad)
+		
+		
+		printl('- %s | returning stage 3', task_id)
+		return 3
+	end
+	
+	if (not spy_obj) then
+		-- spy offline, probably other level, teleport to player
+		TeleportSquad(se_squad,db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id())
+		-- TODO: check if it causes continuous tp because gets teleported but update after that is still offline
+	end
+end
+
+task_status_functor.spy_task_status_functor = function(tsk,task_id)
+	if not (db.actor and tsk) then return end
+	local stage = tsk.stage
+	local ret = stage_f[stage] and stage_f[stage](tsk,task_id) or stage
+	-- printl('setting task stage to %s', ret)
+	if tonumber(ret) then
+		tsk.stage = ret
+	else
+		return ret
+	end
+end
+
+
+---------------------------< Precondition >---------------------------
+local function evaluate_squad(targets, id, squad, faction_lookup, is_scripted)
+	if faction_lookup[squad.player_id] then
+		local smart_id = squad.current_target_id
+		local smrt = smart_id and SIMBOARD.smarts[smart_id]
+		local smart = smrt and smrt.smrt
+		local smart_name = smart and smart:name()
+		if (squad:npc_count() > 1)
+		and ((not smart_name) or (smart_name and (simulation_objects.base_smarts[smart_name] ~= true)))
+		and (is_scripted or (not squad:get_script_target()))
+		then
+			targets[#targets + 1] = id
+			printl("squad (%s){%s} is added to targets", id, squad:name())
+		end
+	end
+end
+
+xr_conditions.validate_spy_task = function(actor, npc, p)
+	if not (p and #p >= 5) then
+		return false
+	end
+
+	local task_id = p[1]
+	if cache[task_id] and cache[task_id].squad_id and alife_object(cache[task_id].squad_id) then
+		return true
+	end
+	
+	local giver_faction = p[2]
+	local is_enemy = p[3] == "true" and true or false
+	local is_scripted = p[4] == "true" and true or false
+	local scan_mode = p[5] and tonumber(p[5]) or 5
+	
+	local faction_lookup = {}
+	local actor_level = level.name()
+	
+	if (giver_faction == "nil") then
+		local giver_id = GetEvent("used_npc_id")
+		local se_giver = alife_object(giver_id)
+		giver_faction = se_giver:community()
+	end
+	printl("giver_faction: %s", giver_faction)
+	
+	-- Build list of enemy factions
+	local p_status = parse_list(task_manager.task_ini,task_id,"status_functor_params",true)
+	if (is_enemy) then
+		faction_lookup = p_status
+	else
+		for i=1,#faction_list do
+			local fac = faction_list[i]
+			if game_relations.is_factions_enemies(giver_faction,fac) then
+				faction_lookup[fac] = true
+				printl("Enemy faction: %s", fac)
+			end
+		end
+	end
+	if is_empty(faction_lookup) then
+		printe("! %s | no faction_lookup table", task_id)
+		return false
+	end
+	
+	-- Search for suitable targets
+	local targets = {}
+	local sim = alife()
+	local gg = game_graph()
+	for id,v in pairs(SIMBOARD.squads) do
+		local squad = alife_object(id)
+		if squad then
+			local lvl = sim:level_name(gg:vertex(squad.m_game_vertex_id):level_id())
+			if (not blacklisted_maps[lvl]) then
+				local is_online = squad.online
+				local is_nearby = sfind(simulation_objects.config:r_value(actor_level, "target_maps", 0, ""), lvl)
+				if ((scan_mode == 1) and is_online) -- same level
+				or ((scan_mode == 2) and (is_online or is_nearby)) -- same + nearby level
+				or ((scan_mode == 3) and is_nearby) -- nearby levels only
+				or ((scan_mode == 4) and (not (is_online or is_nearby))) -- far levels only
+				or (scan_mode == 5) -- anywhere
+				then
+					evaluate_squad(targets, id, squad, faction_lookup, is_scripted)
+				end
+			end
+		end
+	end
+	
+	if #targets > 0 then
+		local squad_id = targets[math.random(#targets)]
+		cache[task_id] = {
+			squad_id = squad_id,
+			giver_comm = giver_faction,
+		}
+		printdbg("- %s | total targets: %s - selected squad: %s", task_id, #targets, squad_id)
+		return true
+	end
+	
+	printdbg("! %s | not targets found", task_id)
+	return false
+end
+
+
+---------------------------< Effects >---------------------------
+xr_effects.setup_spy_task = function(actor, npc, p)
+	if not (p and p[1]) then
+		return false
+	end
+	local task_id = p[1]
+	
+	if cache[task_id] then
+		local squad_id = cache[task_id].squad_id
+		local squad = squad_id and alife_object(squad_id)
+		if squad then
+			squad.stay_time = game.get_game_time()
+			sim_offline_combat.task_squads[squad_id] = true
+			local tbl = {
+				squad_id = squad_id,
+				giver_comm = cache[task_id].giver_comm,
+			}
+			save_var(db.actor, task_id, tbl)
+			printdbg("- %s | Cached result = squad_id (%s) [%s]", task_id, squad_id, squad.player_id)
+			
+			CreateTimeEvent(0,"setup_spy_task",0,postpone_for_next_frame,task_id, squad_id)
+		end
+	end
+end
\ No newline at end of file
diff --git a/gamedata/scripts/tasks_anomaly_scanner.script b/gamedata/scripts/tasks_anomaly_scanner.script
new file mode 100644
index 000000000..b08c7f5a2
--- /dev/null
+++ b/gamedata/scripts/tasks_anomaly_scanner.script
@@ -0,0 +1,159 @@
+-- For special cases because some anomalies zones have different cfg names
+local cfg_to_name = {
+	["zaton_b56_anomal_zone"] = "zat_b56_anomal_zone",
+}
+
+local name_to_cfg = {}
+for k,v in pairs(cfg_to_name) do
+	name_to_cfg[v] = k
+end
+
+--==========================================< Utility >==========================================--
+local anomaly_id = {}
+function get_anomaly_id(task_id, name_id)
+	local sim = alife()
+	for i=1, sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if se_obj then
+			local name = se_obj:name()
+			name = cfg_to_name[name] or name
+			if (name == name_id) then
+				anomaly_id[task_id] = i
+				return i
+			end
+		end
+	end
+	return nil
+end
+
+--==========================================< Task >==========================================--
+xr_conditions.validate_anomaly_scanner_field = function(actor, npc, p)
+	if not (p and p[1]) then
+		return
+	end
+	
+	local anom_tot = parse_list(task_manager.task_ini,p[1],"possible_anomalies")
+	local anom = {}
+	for i=1,#anom_tot do
+		if (not has_alife_info("anomaly_scanner_" .. anom_tot[i] .. "_done")) then
+			anom[#anom + 1] = anom_tot[i]
+		end
+	end
+	
+	if (#anom > 0) then
+		return true
+	end
+	
+	return false
+end
+
+xr_effects.pick_anomaly_scanner_field = function(actor, npc, p)
+	if not (p and p[1]) then
+		return
+	end
+	
+	local anom_tot = parse_list(task_manager.task_ini,p[1],"possible_anomalies")
+	local anom = {}
+	for i=1,#anom_tot do
+		if (not has_alife_info("anomaly_scanner_" .. anom_tot[i] .. "_done")) then
+			anom[#anom + 1] = anom_tot[i]
+		end
+	end
+	
+	if (#anom == 0)then
+		return
+	end
+	
+	dialogs.relocate_item_section(db.actor, "jup_b32_scanner_device", "in", 1)
+	
+	local anom_pick = anom[math.random(#anom)]
+	save_var(db.actor, p[1], anom_pick)
+end
+
+xr_effects.give_info_anomaly_scanner_field = function(actor, npc, p)
+	if not (p and p[1]) then
+		return
+	end
+	
+	local anom = load_var(db.actor, p[1])
+	if anom then
+		db.actor:give_info_portion("anomaly_scanner_" .. anom .. "_done")
+	end
+end
+
+task_functor.anomaly_scanner_task_target = function( task_id, field, p, tsk )
+	
+	if (not db.actor) then
+		if (field == "target") then return
+		elseif (field == "title") then return ""
+		elseif (field == "descr") then return ""
+		end
+		return
+	end
+
+	local anom_name = load_var(db.actor,task_id)
+	local anom_id = anomaly_id[task_id] or anom_name and get_anomaly_id(task_id, anom_name)
+	--printf("Scanner: name:%s - id: %s", anom_name, anom_id)
+	
+	if (field == "target") then
+		if (tsk.stage == 0) then
+			local se_obj = get_story_se_object( "jup_b32_scanner_device" )
+			if (se_obj) then 
+				return se_obj.id
+			end
+		elseif (tsk.stage == 1) then
+			if anom_id then
+				return anom_id
+			end
+		elseif (tsk.stage == 2) then
+		
+		elseif (tsk.stage == 3) then
+			return tsk.task_giver_id
+		end
+	elseif (field == "descr") then
+		if (tsk.stage == 0) then
+			return game.translate_string("jup_b6_scientist_nuclear_physicist_task_1_text0")
+		elseif (tsk.stage == 1) then
+			if anom_id then
+				return game.translate_string("jup_b6_scientist_nuclear_physicist_task_1_text1_0")
+			else
+				return game.translate_string("jup_b6_scientist_nuclear_physicist_task_1_text1_1")
+			end
+		elseif (tsk.stage == 2) then
+			return game.translate_string("jup_b6_scientist_nuclear_physicist_task_1_text2")
+		elseif (tsk.stage == 3) then
+			return game.translate_string("jup_b6_scientist_nuclear_physicist_task_1_text3")
+		end
+	end
+end
+
+task_status_functor.anomaly_scanner_task_status = function(tsk, task_id)
+	if not ( db.actor ) then
+		return
+	end
+	
+	local anom_name = load_var(db.actor,task_id)
+	anom_name = name_to_cfg[anom_name] or anom_name
+	local anomaly = anom_name and db.anomaly_by_name[anom_name]
+				
+	local scanner = "jup_b32_scanner_device"
+	if (tsk.stage == 0) then
+		if (db.actor:object(scanner)) then
+			tsk.stage = 1
+		end
+	elseif (tsk.stage == 1) and (anomaly) and (anomaly.object) then
+		local distance = heli_alife.distance_2d_sqr(db.actor:position(),anomaly.object:position())
+		if (heli_alife.distance_2d_sqr(db.actor:position(),anomaly.object:position()) <= 5^2) then
+			tsk.stage = 2
+		end
+	elseif (tsk.stage == 2) and (anomaly) and (anomaly.object) then
+		give_info("jup_b32_scanner_can_place")
+		if (heli_alife.distance_2d_sqr(db.actor:position(),anomaly.object:position()) > 5^2) then
+			tsk.stage = 1
+			disable_info("jup_b32_scanner_can_place")
+		elseif not (db.actor:object(scanner)) then
+			tsk.stage = 3
+			disable_info("jup_b32_scanner_can_place")
+		end
+	end
+end
\ No newline at end of file
diff --git a/gamedata/scripts/tasks_bounty.script b/gamedata/scripts/tasks_bounty.script
new file mode 100644
index 000000000..b90f9e185
--- /dev/null
+++ b/gamedata/scripts/tasks_bounty.script
@@ -0,0 +1,245 @@
+local faction_list = { -- List of factions targeted in bounty quests
+	"stalker",
+	"dolg",
+	"freedom",
+	"csky",
+	"ecolog",
+	"killer",
+	"army",
+	"bandit",
+	"monolith",
+	"renegade",
+}
+
+local blacklisted_maps = { -- List of maps to skip in scans
+	-- North
+	["l13_generators"]        = true,
+	["l12_stancia_2"]         = true,
+	["l12_stancia"]           = true,
+	["l11_pripyat"]           = true,
+	["l10_radar"]             = true,
+	["l11_hospital"]          = true,
+	-- Underground
+	["jupiter_underground"]   = true,
+	["labx8"]                 = true,
+	["l03u_agr_underground"]  = true,
+	["l04u_labx18"]           = true,
+	["l08u_brainlab"]         = true,
+	["l10u_bunker"]           = true,
+	["l12u_control_monolith"] = true,
+	["l12u_sarcofag"]         = true,
+	["l13u_warlab"]           = true,
+	
+	["fake_start"]            = true
+}
+
+local bounty_cache = {}
+
+local function is_smart_valid(squad_id)
+	local squad = alife_object(squad_id)
+	if squad then
+		local smart_id = squad.assigned_target_id
+		if smart_id then
+			local smrt = SIMBOARD.smarts[smart_id]
+			local smart = smrt and smrt.smrt
+			if smart and (simulation_objects.base_smarts[smart:name()] == true) then
+				--printf("setup_bounty_task | squad (%s) is targeting a base smart [%s]", squad_id, smart:name())
+				return false
+			end
+		end
+	end
+	return true
+end
+	
+---------------------------< Effects >---------------------------
+xr_effects.setup_bounty_task = function(actor,npc,p)
+-- p[1]: task_id
+-- p[2]: true = scan all factions except for p[4], false = scan listed factions (p[4]+)
+-- p[3]: true = scan npcs in current and connected levels only, false = scan all
+-- p[4]+: factions that can be targetted; can be list
+
+	axr_task_manager.bounties_by_id[p[1]] = nil 
+	
+	local valid_targets = {["enemy"]={},["neutral"]={}}
+	local other_targets = {["enemy"]={},["neutral"]={}}
+	local sim = alife()
+	local comm
+	local sfind = string.find
+	
+	local faction_lookup = {}
+	
+	-- p[2] == true: pick up all other factions | false == pick up listed factions
+	if (p[2] == "true") then
+		for i=1,#faction_list do
+			if (faction_list[i] ~= p[4]) then
+				faction_lookup[faction_list[i]] = true
+			end
+		end
+	else
+		for i=4,#p do 
+			faction_lookup[p[i]] = true
+		end
+	end
+	
+	--for k,v in pairs (faction_lookup) do
+		--printf("setup_bounty_task | faction_lookup[" .. k .. "] = true")
+	--end
+	
+	local function find_stalker(id, se_obj)
+		-- find random sim stalker
+		if se_obj
+		and (id ~= 0 and IsStalker(nil,se_obj:clsid()) and se_obj:alive() and sfind(se_obj:section_name(),"sim_default") and get_object_story_id(id) == nil)
+		and (se_obj.group_id ~= 65535 and get_object_story_id(se_obj.group_id) == nil)
+		then
+			comm = alife_character_community(se_obj)
+			if (faction_lookup[comm] == true) then
+				local relation = game_relations.get_squad_goodwill_to_actor_by_id(se_obj.group_id)
+				if (valid_targets[relation]) then
+					return valid_targets[relation], relation
+				end
+			end
+		end
+	end
+
+	local target_id
+	local r
+	
+	-- make sure cached ids are still valid
+	if (bounty_cache[p[1]]) then 
+		for i=#bounty_cache[p[1]],1,-1 do
+			local id = bounty_cache[p[1]][i]
+			local se_obj = sim:object(id)
+			local t,rela = find_stalker(id,se_obj) 
+			if (se_obj and t == nil) then
+				table.remove(bounty_cache[p[1]],i)
+			end
+		end
+	end
+		
+	-- show up to only 3 targets
+	if (bounty_cache[p[1]] == nil or #bounty_cache[p[1]] < 3) then
+		local gg = game_graph()
+		for id = 1, sim:max_id() - 1 do
+			local se_obj = sim:object(id)
+			local t,rela = find_stalker(id,se_obj)
+			local map = t and sim:level_name(gg:vertex(se_obj.m_game_vertex_id):level_id())
+			if (t) and (not blacklisted_maps[map]) and is_smart_valid(se_obj.group_id) then
+				if (p[3] == "true") then
+					if simulation_objects.is_on_the_nearby_level(sim:actor(), se_obj) then
+					--if simulation_objects.is_on_the_same_level(sim:actor(), se_obj) or simulation_objects.is_on_the_linked_level(sim:actor(), se_obj) then
+						t[#t+1] = id
+						--printf("setup_bounty_task | valid target (" .. tostring(id) .. "): " .. alife_character_community(se_obj) .. " | level: " .. map)
+					else
+						table.insert(other_targets[rela],id)
+						--printf("setup_bounty_task | other target (" .. tostring(id) .. "): " .. alife_character_community(se_obj) .. " | level: " .. map)
+					end
+				else
+					t[#t+1] = id
+					--printf("setup_bounty_task | valid target {anywhere} (" .. tostring(id) .. "): " .. alife_character_community(se_obj) .. " | level: " .. map)
+				end
+			end
+		end
+		
+		-- random chance to prioritize neutral target over enemy
+		local typ = "enemy"
+		local rnd = math.random(1,100)
+		if (rnd < 10) then -- 20
+			typ = "neutral"
+		end
+		--printf("setup_bounty_task | target type: " .. typ)
+		
+		if (#valid_targets[typ] <= 0) then
+			valid_targets[typ] = other_targets[typ]
+		end
+		
+		target_id = valid_targets[typ][math.random(#valid_targets[typ])] or valid_targets.enemy[math.random(#valid_targets.enemy)] or valid_targets.neutral[math.random(#valid_targets.neutral)]
+		if (target_id) then 
+			if not (bounty_cache[p[1]]) then 
+				bounty_cache[p[1]] = {}
+			end
+			table.insert(bounty_cache[p[1]],target_id)
+		end
+	else
+		target_id = bounty_cache[p[1]][math.random(#bounty_cache[p[1]])]
+	end
+	
+	if (target_id == nil or target_id == AC_ID) then
+		printf("! %s - no target found for task",p[1])
+		return
+	end
+		
+	axr_task_manager.bounties_by_id[p[1]] = target_id
+	
+	local se_target = alife_object(target_id)
+	if not (se_target) then
+		printe("! %s - no server object could be retrieved for (%s)",p[1],target_id)
+		return
+	end
+	
+	local target_squad = se_target and se_target.group_id and se_target.group_id ~= 65535 and alife_object(se_target.group_id)
+	if target_squad then
+		sim_offline_combat.task_squads[target_squad.id] = true
+	end
+	
+	-- Save var
+	local target_comm = alife_character_community(se_target)
+	local level_target = sim:level_name(game_graph():vertex(se_target.m_game_vertex_id):level_id())
+	local level_task = level.name()
+	local tbl = {
+		lvl_task = level_task,
+		lvl_target = level_target,
+		target_id = target_id,
+		target_comm = target_comm,
+	}
+	save_var(db.actor, p[1], tbl)
+	printdbg("- %s | setup_bounty_task | target_id: %s - target_comm: %s - lvl_task: %s - lvl_target: %s", p[1], target_id, target_comm, level_task, level_target)
+
+	local function postpone_for_next_frame(target_id)
+		local news_caption = game.translate_string(task_manager.task_ini:r_string_ex(p[1], "title")) or "error"
+		local news_text = game.translate_string("st_mm_new_game_name") .. " " .. se_target:character_name() .. "\\n " .. game.translate_string("st_mm_new_game_faction_2") .. " " .. game.translate_string(se_target:community()) .. "\\n " .. game.translate_string("st_location") .. " " .. game.translate_string(level_target)
+		db.actor:give_talk_message2(news_caption, news_text, se_target:character_icon(), "iconed_answer_item")
+		return true
+	end
+	CreateTimeEvent(0,"setup_bounty_task",0,postpone_for_next_frame,target_id)
+end 
+
+
+---------------------------< Task functor >---------------------------
+task_functor.general_bounty_task = function(task_id,field,p,tsk)
+	if (field == "target") then
+		if (tsk) then
+			if (tsk.stage == 1) then
+				return tsk.task_giver_id or nil
+			end
+
+			return axr_task_manager.bounties_by_id[task_id] or nil
+		end
+	end
+end
+
+
+---------------------------< Task Status functor >---------------------------
+task_status_functor.bounty_task = function(tsk,task_id)
+	if not (axr_task_manager.is_task_giver_valid(tsk)) then
+		return "fail"
+	end
+
+	if (tsk.stage == 0) then
+		local id = axr_task_manager.bounties_by_id[task_id]
+		if not (id) then
+			return "fail"
+		end
+		local se_obj = id and alife_object(id)
+		if not (se_obj) then
+			return "fail"
+		end
+		if not (IsStalker(nil,se_obj:clsid())) then
+			return "fail"
+		end
+		if not (se_obj:alive()) then
+			tsk.stage = 1
+		end
+	elseif (tsk.stage == 254) then
+		return "fail"
+	end
+end
diff --git a/gamedata/scripts/tasks_defense.script b/gamedata/scripts/tasks_defense.script
new file mode 100644
index 000000000..8d924293a
--- /dev/null
+++ b/gamedata/scripts/tasks_defense.script
@@ -0,0 +1,573 @@
+
+-- =======================================================================================
+-- Created by tdef
+-- Last modification: 2019/02/06
+-- Defend the barrier from monolith/zombies invasion
+-- =======================================================================================
+
+local ti2ta = utils_data.CTime_to_table
+local ta2ti = utils_data.CTime_from_table
+local send_tip = dynamic_news_helper.send_tip
+local MONO_SQUADS 		= 6	--10
+local ZOMB_SQUADS 		= 8	--15
+local STARTING_SQUADS 	= 3	--5
+local CHAT_DEL 			= 5 -- seconds
+local DEBUG 			= false
+
+function printl(frmt, ...)
+	if DEBUG then printf(strformat('!tasks_defense: ' .. frmt, ...)) end
+end
+
+-------------------------
+--2d distance between 2 vectors
+--a,b		: vectors, either object.position or vector():set(x,y,z)
+-------------------------
+local function dist2d_sqr( a, b )
+	return (b.x-a.x)^2 + (b.z-a.z)^2
+end
+
+-------------------------
+--2d distance between 2 objects
+--a,b		: id of objects
+-------------------------
+local function dist2d_id_sqr(a,b)
+	local sim = alife()
+	local ao = sim:object(a)
+	local bo = sim:object(b)
+	-- printf("ao %s bo %s",ao,bo)
+	-- printf("ao.pos %s bo.pos %s",ao.position,bo.position)
+	if ao and bo then
+		return dist2d_sqr(ao.position,bo.position)
+	else
+		return nil
+	end
+end
+
+if DEBUG then
+	add_console_command('start_barrier_monolith', function() db.actor:give_info_portion("barrier_defense_monolith_announced") end)
+	add_console_command('start_barrier_zombie', function() db.actor:give_info_portion("barrier_defense_zombie_announced") end)
+end
+
+
+--============================================< Callbacks >============================================--
+local MDATA
+function save_state(mdata)
+	mdata.defense_task_data = MDATA
+end
+
+function load_state(mdata)
+	if mdata.defense_task_data then
+		printf('loading mdata')
+		MDATA = mdata.defense_task_data
+		--utils_data.print_table(MDATA)
+	else
+		printf('new mdata')
+		MDATA = {}
+		MDATA.barrier_defense_monolith = {}
+		MDATA.barrier_defense_zombie = {}
+		MDATA.allow_surge = true
+	end
+end
+
+function f_chatter(opponent, stage)
+	printl('f_chatter(%s, %s)',opponent,stage)
+	local name, icon = get_random_stalker_chatter()
+	if name and icon then
+		send_tip(game.translate_string("barrier_defense_"..opponent.."_chatter_"..math.random(1,7)),name,nil,nil, icon, nil, 'npc')
+	else
+		printf('error: get_random_stalker_chatter returned nil')
+	end
+	if stage < 3 then 
+		stage = stage + 1
+		CreateTimeEvent(math.random(999),"chatter",CHAT_DEL,f_chatter,opponent,stage)
+	end
+	return true
+end
+
+function f_expire(x)
+	xr_effects.barrier_defense_news(nil,nil,{'end',x})
+	return true
+end
+
+function actor_on_first_update()
+	-- needs to be delayed because it runs before loading actually finishes so players dont see first message
+	local delay = 20 -- seconds
+	printl('actor_on_first_update')
+	
+	if barrier_defense_available('barrier_defense_monolith') then
+		-- if DEBUG then db.actor:give_info_portion("TRIGGERED_M") end
+		CreateTimeEvent(0,"give_info",delay,function() 
+			db.actor:give_info_portion("barrier_defense_monolith_announced") 
+			send_tip(game.translate_string("barrier_defense_monolith_announce"),game.translate_string("mil_freedom_leader_name"),nil,nil, 'ui_inGame2_lukash', nil, 'npc')
+			MDATA.barrier_defense_monolith.last_msg_time = ti2ta(game.get_game_time())
+			CreateTimeEvent(math.random(999),"chatter",CHAT_DEL,f_chatter,'monolith',0)
+			return true 
+		end)
+	elseif barrier_defense_available('barrier_defense_zombie') then
+		-- if DEBUG then db.actor:give_info_portion("TRIGGERED_Z") end
+		CreateTimeEvent(0,"give_info",delay,function() 
+			db.actor:give_info_portion("barrier_defense_zombie_announced") 
+			send_tip(game.translate_string("barrier_defense_zombie_announce"),game.translate_string("mil_freedom_leader_name"),nil,nil, 'ui_inGame2_lukash', nil, 'npc')
+			MDATA.barrier_defense_zombie.last_msg_time = ti2ta(game.get_game_time())
+			CreateTimeEvent(math.random(999),"chatter",CHAT_DEL,f_chatter,'zombie',0)
+			return true 
+		end)
+	end
+	
+	if db.actor:has_info('barrier_defense_monolith_announced') then 
+		local last1 = MDATA.barrier_defense_monolith.last_msg_time and ta2ti(MDATA.barrier_defense_monolith.last_msg_time)
+		local delta1 = last1 and game.get_game_time():diffSec(last1) / (3600 * 24) or 100
+
+		if delta1 > 1 then
+			db.actor:disable_info_portion('barrier_defense_monolith_announced')
+			CreateTimeEvent(math.random(999),"chatter",delay,f_expire,'monolith')
+		end
+
+	end
+	if db.actor:has_info('barrier_defense_zombie_announced') then 
+		local last2 = MDATA.barrier_defense_zombie.last_msg_time and ta2ti(MDATA.barrier_defense_zombie.last_msg_time)
+		local delta2 = last2 and game.get_game_time():diffSec(last2) / (3600 * 24) or 100
+		if delta2 > 1 then
+			db.actor:disable_info_portion('barrier_defense_zombie_announced')
+			CreateTimeEvent(math.random(999),"chatter",delay,f_expire,'zombie')
+		end
+	end
+end
+
+function skip_surge(t)
+	if MDATA and MDATA.allow_surge == false then
+		t.allow = false
+	end
+end
+
+function on_game_start()
+	RegisterScriptCallback("actor_on_first_update",actor_on_first_update)
+	RegisterScriptCallback("save_state",save_state)
+	RegisterScriptCallback("load_state",load_state)
+	
+	RegisterScriptCallback("on_before_surge",skip_surge)
+	RegisterScriptCallback("on_before_psi_storm",skip_surge)
+	
+	if DEBUG then RegisterScriptCallback("npc_on_update",npc_on_update) end
+end
+
+function npc_on_update(npc)
+	local be = npc:best_enemy()
+	if be and be:id() == 0 then
+		npc:kill(npc)
+	end
+end
+
+--============================================< Logic >============================================--
+local RAND_S
+function get_random_stalker_chatter()
+	if not RAND_S then 
+		RAND_S = {}
+		for i=1,alife():max_id() - 1 do 
+			local se_obj = alife_object(i)
+			if 
+				se_obj and 
+				IsStalker(nil, se_obj:clsid()) and 
+				se_obj:alive() and 
+				not game_relations.is_factions_enemies(se_obj:community(),"freedom") and 
+				string.find(se_obj:name(),'default') and
+				not (se_obj:community() == 'bandit') and
+				not (se_obj:community() == 'trader')
+			then
+				table.insert(RAND_S,{game.translate_string(se_obj:character_name()),se_obj:character_icon()})
+				if #RAND_S > 10 then break end
+			end
+		end
+	end
+	if #RAND_S < 1 then
+		return nil, nil
+	end
+	
+	local i = math.random(#RAND_S)
+	local x = table.remove(RAND_S, i)
+	return x[1],x[2]
+end
+
+function get_closest_freedom()
+	local mind = 9999999
+	local ret = nil
+	for i,v in ipairs(db.OnlineStalkers) do 
+		local se_obj = alife_object(v)
+		if 
+			se_obj and 
+			IsStalker(nil, se_obj:clsid()) and 
+			se_obj:alive() and
+			se_obj:community() == 'freedom' and
+			string.find(se_obj:name(),'default')
+		then
+			local dist = dist2d_id_sqr(0,v)
+			if dist < mind then
+				mind = dist
+				ret = v
+			end
+		end
+	end
+	if ret then
+		local se_obj = alife_object(ret)
+		return game.translate_string(se_obj:character_name()),se_obj:character_icon()
+	end
+	return nil, nil
+end
+
+function mid_news(str)
+	local name, icon = get_closest_freedom()
+	if name and icon then
+		send_tip(game.translate_string("barrier_defense_"..str.."_midchatter"),name,nil,nil, icon, nil, 'npc')
+	else
+		printf('get_closest_freedom returned nil')
+	end
+end
+
+function barrier_defense_available(tid)
+	printl('barrier_defense_available(%s)',tid)
+	-- dont crash
+	if not db.actor then return false end
+	
+	-- dont trigger if already had message
+	if db.actor:has_info('barrier_defense_monolith_announced') then return false end
+	if db.actor:has_info('barrier_defense_zombie_announced') then return false end
+	
+	-- dont trigger if quest already started
+	if axr_task_manager.ongoing_tasks['barrier_defense_monolith'] then return false end
+	if axr_task_manager.ongoing_tasks['barrier_defense_zombie'] then return false end
+	
+	-- printl('barrier_defense_available(%s) AAA',tid)
+	-- dont trigger if hostile to freedom
+	-- should check vs default_comm in gameplay_disguise but what if disguise is disabled? it it nil? or what?
+	if game_relations.is_factions_enemies(character_community(db.actor),"freedom") then return false end
+	
+	if not MDATA then return false end
+	-- printl('barrier_defense_available(%s) BBB',tid)
+	
+	-- dont trigger if game started less than a week ago
+	if game.get_game_time():diffSec(level.get_start_time()) < 3600 * 24 * 7 and not DEBUG then return false end
+	
+	-- printl('barrier_defense_available(%s) CCC',tid)
+	-- dont trigger if less than a week passed since last defense, either joined or skipped
+	local last1 = MDATA.barrier_defense_monolith.last_msg_time and ta2ti(MDATA.barrier_defense_monolith.last_msg_time)
+	-- printl('barrier_defense_available(%s) CCC1',tid)
+	local last2 = MDATA.barrier_defense_zombie.last_msg_time and ta2ti(MDATA.barrier_defense_zombie.last_msg_time)
+	-- printl('barrier_defense_available(%s) CCC2',tid)
+	local delta1 = last1 and game.get_game_time():diffSec(last1) / (3600 * 24) or 100
+	-- printl('barrier_defense_available(%s) CCC3',tid)
+	local delta2 = last2 and game.get_game_time():diffSec(last2) / (3600 * 24) or 100
+	-- printl('barrier_defense_available(%s) CCC4',tid)
+	local delta = math.min(delta1, delta2)
+	-- printf('delta - %s', delta)
+	if delta < 7 then 
+		printl('not enough time since last mission')
+		return false 
+	end
+	-- printl('barrier_defense_available(%s) DDD',tid)
+	
+	-- dont trigger if last check was done less than a day ago to prevent changing level until triggered
+	-- printf('MDATA[tid].last_check_time -> %s',MDATA[tid].last_check_time)
+	if MDATA[tid].last_check_time then
+		-- printf('checking MDATA[tid].last_check_time')
+		local lct = ta2ti(MDATA[tid].last_check_time)
+		local delta = game.get_game_time():diffSec(lct) / (3600 * 24)
+		-- printf('delta2 - %s', delta2)
+		if delta < 1 then 
+			printf('not enough time since last check')
+			return false 
+		end
+	end
+	MDATA[tid].last_check_time = ti2ta(game.get_game_time())
+	-- printl('barrier_defense_available(%s) EEE',tid)
+	-- local function pret(x)
+		-- -- printf('chance: %s',x)
+		-- return x
+	-- end
+	
+	local chance = DEBUG and -1 or ((tid == 'barrier_defense_monolith') and 0.75 or 0.5)
+	
+	-- local ret = pret(math.random()) > chance
+	local ret = math.random() > chance
+	-- printf('ret %s', ret)
+	return ret
+end
+
+function barrier_defense_monolith_start(a,b) -- dialog
+	-- printf('barrier_defense_monolith_start')
+	local gid = a:id()> 0 and a:id() or b:id()
+	MDATA.barrier_defense_monolith.giver = gid
+	MDATA.barrier_defense_monolith.defenders = {}
+	MDATA.barrier_defense_monolith.attackers = {}
+	MDATA.barrier_defense_monolith.squads_left = MONO_SQUADS
+	
+	local sq
+	
+	sq = SIMBOARD:create_squad(SIMBOARD.smarts_by_names['mil_smart_terrain_7_8'],"barrier_defense_squad")
+	MDATA.barrier_defense_monolith.defenders[sq.id] = true
+	-- printf('def: %s',sq.id)
+	
+	sq = SIMBOARD:create_squad(SIMBOARD.smarts_by_names['mil_smart_terrain_7_8'],"barrier_defense_squad")
+	MDATA.barrier_defense_monolith.defenders[sq.id] = true
+	-- printf('def: %s',sq.id)
+		
+	-- printf('init done, start task')
+	MDATA.allow_surge = false
+	task_manager.get_task_manager():give_task('barrier_defense_monolith')
+end
+
+function barrier_defense_zombie_start(a,b) -- dialog
+	-- printf('barrier_defense_zombie_start')
+	local gid = a:id()> 0 and a:id() or b:id()
+	MDATA.barrier_defense_zombie.giver = gid
+	MDATA.barrier_defense_zombie.defenders = {}
+	MDATA.barrier_defense_zombie.attackers = {}
+	MDATA.barrier_defense_zombie.squads_left = ZOMB_SQUADS
+	
+	local sq
+	
+	sq = SIMBOARD:create_squad(SIMBOARD.smarts_by_names['mil_smart_terrain_7_8'],"barrier_defense_squad")
+	MDATA.barrier_defense_zombie.defenders[sq.id] = true
+	-- printf('def: %s',sq.id)
+	
+	local spawn_l = 'barrier_spawn_'..math.random(1,9)
+	sq = SIMBOARD:create_squad_at_named_location(spawn_l,'barrier_zombie_squad')
+	
+	local spawn_l = 'barrier_spawn_'..math.random(1,9)
+	sq = SIMBOARD:create_squad_at_named_location(spawn_l,'barrier_zombie_squad')
+		
+	-- printf('init done, start task')
+	MDATA.allow_surge = false
+	task_manager.get_task_manager():give_task('barrier_defense_zombie')
+end
+
+function barrier_defense_monolith_complete(a,b)
+	MDATA.allow_surge = true
+	task_manager.get_task_manager():set_task_completed('barrier_defense_monolith')
+	xr_effects.barrier_defense_clean_flags(nil,nil,{'monolith'})
+	local r = {}
+	r.joint = 1
+	
+	local w1, w2 = db.actor:item_in_slot(2), db.actor:item_in_slot(3)
+	if w1 then
+		local s	= ini_sys:r_string_ex(w1:section(), "ammo_class")
+		if (s) then
+			local ammos = str_explode(s,",") 
+			r[ammos[1]] = math.random(4,6)
+		end
+	end
+	if w2 then
+		local s	= ini_sys:r_string_ex(w2:section(), "ammo_class")
+		if (s) then
+			local ammos = str_explode(s,",") 
+			r[ammos[1]] = math.random(4,6)
+		end
+	end
+	
+	local sim = alife()
+	for k,v in pairs(r) do
+		news_manager.relocate_item(db.actor, 'in', k, v)
+		for i=1,v do
+			alife_create_item(k, db.actor)
+		end
+	end
+	
+	local amt = 40000
+	news_manager.relocate_money(db.actor, 'in', amt)
+	db.actor:give_money(amt)
+end
+
+function barrier_defense_zombie_complete(a,b)
+	MDATA.allow_surge = true
+	task_manager.get_task_manager():set_task_completed('barrier_defense_zombie')
+	xr_effects.barrier_defense_clean_flags(nil,nil,{'zombie'})
+	local r = {}
+	r.vodka = 1
+	r.drug_psy_blockade = 2
+	
+	local w1, w2 = db.actor:item_in_slot(2), db.actor:item_in_slot(3)
+	if w1 then
+		local s	= ini_sys:r_string_ex(w1:section(), "ammo_class")
+		if (s) then
+			local ammos = str_explode(s,",") 
+			r[ammos[1]] = math.random(2,4)
+		end
+	end
+	if w2 then
+		local s	= ini_sys:r_string_ex(w2:section(), "ammo_class")
+		if (s) then
+			local ammos = str_explode(s,",") 
+			r[ammos[1]] = math.random(2,4)
+		end
+	end
+	
+	local sim = alife()
+	for k,v in pairs(r) do
+		news_manager.relocate_item(db.actor, 'in', k, v)
+		for i=1,v do
+			alife_create_item(k, db.actor)
+		end
+	end
+	
+	local amt = 25000
+	news_manager.relocate_money(db.actor, 'in', amt)
+	db.actor:give_money(amt)
+	
+end
+
+function task_functor.barrier_defense_target_functor(task_id)
+	if db.actor and MDATA[task_id] and MDATA[task_id].giver and (db.actor:has_info('barrier_defense_monolith_finished') or db.actor:has_info('barrier_defense_zombie_finished')) then
+		return MDATA[task_id].giver
+	end
+	
+	local dist = 999999
+	local sm = SIMBOARD.smarts_by_names['mil_smart_terrain_3_8']
+	local ret = sm.id
+	
+	if MDATA[task_id] and MDATA[task_id].attackers then
+		for k,v in pairs(MDATA[task_id].attackers) do
+			if alife_object(k) then
+				local newd = dist2d_id_sqr(0,k)
+				if newd < dist then
+					ret = k
+					dist = newd
+				end
+			end
+		end
+	end
+	
+	return ret
+end
+
+
+--============================================< Conditions >============================================--
+function xr_conditions.all_attackers_dead(a,b,c)
+	-- printf('all_attackers_dead start')
+	local tid = c and c[1]
+	
+	if not tid then
+		printf('all_attackers_dead: called without arguments')
+		return
+	end
+	
+	if not MDATA[tid] then return false end
+	
+	for k,v in pairs(MDATA[tid].attackers) do
+		local so = alife_object(k)
+		if so then 
+			-- printf('all_attackers_dead end false') 
+			return false 
+		end
+	end
+	
+	-- printf('all_attackers_dead end true')
+	return true
+end
+
+function xr_conditions.distance_to_barrier(a,b,c)
+-- mil_smart_terrain_3_8
+	-- printf('distance_to_barrier %s, %s', c[1], c[2])
+	if not (c and c[1] and c[2] and tonumber(c[2])) then
+		printf('distance_to_barrier: missing or malformed arguments, must be ("le" or "ge":number)')
+		return
+	end
+	
+	local sm = SIMBOARD.smarts_by_names['mil_smart_terrain_3_8']
+	local dist = dist2d_id_sqr(0,sm.id)
+	local d = tonumber(c[2]) ^ 2
+	if c[1] == 'le' then return dist <= d end
+	if c[1] == 'ge' then return dist >= d end
+	printf('distance_to_barrier: unknown comparison requested, got %s expected "ge" or "le"', c[1])
+end
+
+
+--============================================< Effects >============================================--
+function xr_effects.barrier_defense_first_spawn(a,b,c)
+-- barrier_monolith_squad
+-- barrier_spawn
+-- barrier_defense_monolith
+	-- printf('barrier_defense_monolith_first_spawn')
+	if not (c and c[1] and (c[1]=='zombie' or c[1]=='monolith')) then
+		printf('barrier_defense_first_spawn: missing or unexpected arguments, must be "zombie" or "monolith"')
+		return
+	end
+	
+	local squad_s = 'barrier_'..c[1]..'_squad'
+	
+	for i=1,STARTING_SQUADS do
+		local spawn_l = 'barrier_spawn_'..math.random(1,9)
+		local sq = SIMBOARD:create_squad_at_named_location(spawn_l,squad_s)
+		-- sq.rush_to_target = true
+		MDATA['barrier_defense_'..c[1]].attackers[sq.id] = true
+	end	
+	-- printf('barrier_defense_monolith_first_spawn end')
+end
+
+function xr_effects.on_barrier_defense_squad_death(a,b,c)
+	local tid = c[1]
+	
+	if c[1] == 'barrier_defense_freedom' then
+		sq = SIMBOARD:create_squad(SIMBOARD.smarts_by_names['mil_smart_terrain_4_7'],"barrier_defense_squad")
+		if sq and sq:commander_id() and alife_object(sq:commander_id()) then
+			local se_obj = alife_object(sq:commander_id())
+			local name, icon = game.translate_string(se_obj:character_name()), se_obj:character_icon()
+			send_tip(game.translate_string('barrier_defense_reinforcements_'..math.random(1,4)),name,nil,nil, icon, nil, 'npc')
+		else
+			printf('squad commander still doesnt exist?')
+		end
+		-- MDATA.barrier_defense_zombie.defenders[sq.id] = true
+	else
+		local squad_s = tid == "barrier_defense_monolith" and 'barrier_monolith_squad' or 'barrier_zombie_squad'
+		
+		-- printf('on_death_sq triggered')
+		local count = MDATA[tid].squads_left
+		if count > 0 then
+			if DEBUG then printf('left %s', count) end
+			local spawn = 'barrier_spawn_'..math.random(1,9)
+			local rpg = (count < 3 and tid == "barrier_defense_monolith") and '_rpg' or ''
+			local sq = SIMBOARD:create_squad_at_named_location(spawn, squad_s..rpg)
+			MDATA[tid].attackers[sq.id] = true
+			
+			if count == 2 and tid=='barrier_defense_monolith' then
+				mid_news('monolith')
+			end
+			
+			if count == 5 and tid=='barrier_defense_zombie' then
+				mid_news('zombie')
+			end
+			
+			MDATA[tid].squads_left = count - 1
+		end
+	end
+end
+
+function xr_effects.barrier_defense_clean_flags(a,b,c)
+-- barrier_defense_
+	db.actor:disable_info_portion('barrier_defense_'..c[1]..'_first_spawn')
+	db.actor:disable_info_portion('barrier_defense_'..c[1]..'_finished')
+	db.actor:disable_info_portion('barrier_defense_'..c[1]..'_announced')
+end
+
+function xr_effects.barrier_defense_news(a,b,c)
+	if c and c[1] and c[2] and (c[2] == 'monolith' or c[2] == 'zombie') then
+		local x = c[1]
+		if x == 'start' then
+			send_tip(game.translate_string('barrier_defense_'..c[2]..'_start_announce'),game.translate_string("mil_freedom_leader_name"),nil,nil, 'ui_inGame2_lukash', nil, 'npc')
+			return
+		end
+		
+		if x == 'end' then
+			MDATA.allow_surge = true -- Re-enable emissions
+			send_tip(game.translate_string('barrier_defense_'..c[2]..'_end_announce'),game.translate_string("mil_freedom_leader_name"),nil,nil, 'ui_inGame2_lukash', nil, 'npc')
+			return
+		end
+		
+		if x == 'escape' then
+			MDATA.allow_surge = true -- Re-enable emissions
+			send_tip(game.translate_string('barrier_defense_'..c[2]..'_run_announce'),game.translate_string("mil_freedom_leader_name"),nil,nil, 'ui_inGame2_lukash', nil, 'npc')
+			return
+		end
+		printf('barrier_defense_news: first argument must be "start", "end" or "escape"')
+	else
+		printf('barrier_defense_news: missing or wrong arguments, must be ([start,end,escape]:[zombie,monolith])')
+	end
+end
diff --git a/gamedata/scripts/tasks_delivery.script b/gamedata/scripts/tasks_delivery.script
new file mode 100644
index 000000000..fdeef58ce
--- /dev/null
+++ b/gamedata/scripts/tasks_delivery.script
@@ -0,0 +1,351 @@
+
+local delivery_task_id -- stores id of talking npc
+local delivery_tasks = {} -- collect delivery task sections
+local faction_list = { -- List of factions that can be delivered for
+	"stalker",
+	"dolg",
+	"freedom",
+	"csky",
+	"ecolog",
+	"killer",
+	"army",
+	"bandit",
+	"monolith",
+	"isg",
+	"renegade",
+}
+
+function on_game_start()
+
+	-- Collect delivery tasks
+	task_manager.task_ini:section_for_each(function(section)
+		local status_functor = task_manager.task_ini:r_string_ex(section,"status_functor")
+		if (status_functor == "delivery_task") then
+			delivery_tasks[#delivery_tasks + 1] = section
+			--printdbg("- Found delivery task: %s", section)
+		end
+	end)
+end
+
+function is_delivery_task(section)
+	for i=1,#delivery_tasks do
+		if delivery_tasks[i] == section then
+			return true
+		end
+	end
+	return false
+end
+
+
+--==========================================< Effects >==========================================--
+-- p[1]: task id
+-- p[2]: true = targeted npc must be from the same task giver faction
+-- p[3]: true = target an anomaly in far location
+-- p[+4]: quest items section (package)
+local delivery_cache = {}
+xr_effects.on_init_delivery_task = function(actor,npc,p)
+	if (not p) or (p and (#p < 4)) then
+		return
+	end
+	local var = p[1]
+	local same_faction = (p[2] == "true")
+	local far_location = (p[3] == "true")
+	local item_1_sec = p[math.random(4,#p)]
+	if (not ini_sys:section_exist(item_1_sec)) then
+		printe("! %s TASK ERROR: xr_effects.create_delivery_quest - can't find item section [%s]", var, tostring(item_1_sec))
+		--return
+	end
+	
+	local task_giver = mob_trade.GetTalkingNpc()
+	local task_giver_id = task_giver:id()
+	local task_giver_comm = character_community(task_giver)
+	local task_giver_name = task_giver:character_name()
+	local target_id
+	
+	-- Get target
+	local sim = alife()
+	if delivery_cache[var] and delivery_cache[var][task_giver_id] then
+		target_id = delivery_cache[var][task_giver_id]
+	else
+		local blacklisted_maps = xr_effects.blacklisted_maps
+		
+		local faction_lookup = {}
+		faction_lookup[task_giver_comm] = true
+		if (not same_faction) then
+			for i=1,#faction_list do
+				if (faction_list[i] ~= task_giver_comm) and (not game_relations.is_factions_enemies(task_giver_comm, faction_list[i])) and (not game_relations.is_factions_enemies(character_community(db.actor), faction_list[i])) then
+					faction_lookup[faction_list[i]] = true
+				end
+			end
+		end
+		
+		local targets = {}
+		local gg = game_graph()
+		local sfind = string.find
+		for i=1,sim:max_id() - 1 do 
+			local se_obj = sim:object(i)
+			-- Search for common npcs
+			if (se_obj and IsStalker(nil,se_obj:clsid()) and se_obj:alive() and sfind(se_obj:section_name(),"sim_default") and get_object_story_id(i) == nil) then
+				-- Search in natural factions
+				local comm = alife_character_community(se_obj)
+				if (faction_lookup[comm] == true) then
+					-- Search for squad commanders
+					local squad = se_obj.group_id and se_obj.group_id ~= 65535 and alife_object(se_obj.group_id)
+					if squad and (squad:commander_id() == se_obj.id) and sfind(squad:section_name(),"sim_squad") and (squad.current_action == 1) then
+						-- Search in far/nearby locations. Exclude same level, blacklisted areas and undergrounds
+						local lvl_name = sim:level_name( gg:vertex(se_obj.m_game_vertex_id):level_id())
+						if (not blacklisted_maps[lvl_name]) and (not simulation_objects.is_on_the_same_level(sim:actor(), se_obj)) then
+							if far_location and (not simulation_objects.is_on_the_linked_level(sim:actor(), se_obj)) then 
+								targets[#targets + 1] = i
+							elseif (not far_location) then
+								targets[#targets + 1] = i
+							end
+						end
+					end
+				end
+			end
+		end
+		
+		if (#targets == 0) then
+			printf("! %s TASK ERROR: xr_effects.create_delivery_quest - no target found!", var)
+			return
+		end
+		
+		target_id = targets[math.random(#targets)]
+		
+		if (not delivery_cache[var]) then
+			delivery_cache[var] = {}
+		end
+		delivery_cache[var][task_giver_id] = target_id -- cache
+	end
+	
+	-- Save var
+	local se_target = alife_object(target_id)
+	if (not se_target) then
+		return
+	end
+	local target_comm = alife_character_community(se_target)
+	local level_target = sim:level_name(game_graph():vertex(se_target.m_game_vertex_id):level_id())
+	local level_task = level.name()
+	local tbl = {
+		lvl_task = level_task,
+		lvl_target = level_target,
+		task_giver_comm = task_giver_comm,
+		task_giver_name = task_giver_name,
+		target_id = target_id,
+		target_comm = target_comm,
+		item_1_sec = item_1_sec 
+	}
+	save_var(db.actor, var, tbl)
+	printdbg("- %s | on_init_delivery_task | giver_comm: %s - target_id: %s - item_1_sec: %s - lvl_task: %s - lvl_target: %s", var, task_giver_comm, target_id, item_1_sec, level_task, level_target)
+	
+	-- Show info
+	local function postpone_for_next_frame(target_id)
+		local news_caption = game.translate_string(task_manager.task_ini:r_string_ex(p[1], "title")) or "error"
+		local news_text = game.translate_string("st_mm_new_game_name") .. " " .. se_target:character_name() .. "\\n " .. game.translate_string("st_mm_new_game_faction_2") .. " " .. game.translate_string(se_target:community()) .. "\\n " .. game.translate_string("st_location") .. " " .. game.translate_string(level_target)
+		db.actor:give_talk_message2(news_caption, news_text, se_target:character_icon(), "iconed_answer_item")
+		return true
+	end
+	CreateTimeEvent(0,"on_init_delivery_task",0,postpone_for_next_frame,target_id)
+end
+
+
+--==========================================< Task functors >==========================================--
+task_functor.general_delivery = function(task_id,field,p,tsk)
+	if (not db.actor) or (not tsk) then
+		return
+	end
+	
+	if (field == "target") then
+		local var = load_var(db.actor, task_id)
+		if (not var) then
+			return
+		end
+	
+		if (tsk.stage == 0) then
+			return var.item_1_id
+		end
+		
+		if (tsk.stage == 1) then
+			return var.target_id
+		end
+	end
+end
+
+task_functor.general_delivery_desc = function(task_id,field,p,tsk)
+	if not db.actor then return '' end
+	local var = load_var(db.actor, task_id)
+	local str = ""
+	if tsk and tsk.stage and var then
+		local task_giver_comm = game.translate_string("st_dyn_news_comm_" .. var.task_giver_comm .. "_1")
+		local item_1_sec = var.item_1_sec and ui_item.get_sec_name(var.item_1_sec)
+		str = game.translate_string(task_id .. "_text_" .. tostring(tsk.stage))
+		str = utils_data.parse_string_keys(str, {["comm"]=task_giver_comm , ["item_1"]=item_1_sec} )
+	end
+	return str
+end
+
+task_status_functor.delivery_task = function(tsk,task_id)
+	if (not db.actor) or (not tsk) then
+		return
+	end
+	
+	local var = load_var(db.actor, task_id)
+	if (not var) then return end
+	local stage = tsk.stage
+	
+	-- Give quest item upon accepting the quest
+	if (not has_alife_info(task_id .. "_quest_item_received")) and (var.item_1_sec) then
+		local se_item_1 = alife_create_item(var.item_1_sec, db.actor)
+		if not (se_item_1 and se_item_1.id) then return end
+		
+		printdbg("- %s | quest_item_received: %s",task_id, var.item_1_sec)
+		local t = var
+		t.item_1_id = se_item_1.id
+		save_var(db.actor, task_id, t)
+		
+		db.actor:give_info_portion(task_id .. "_quest_item_received")
+		news_manager.relocate_item(db.actor, "in", var.item_1_sec, 1)
+		return
+	end
+	
+	local item_1_obj = var.item_1_id and alife_object(var.item_1_id)
+	
+	local se_target = var.target_id and alife_object(var.target_id) -- server object
+	local target = se_target and db.storage[se_target.id] and db.storage[se_target.id].object or nil -- game object
+	local is_enemy = false --game_relations.is_factions_enemies(get_actor_true_community(), var.target_comm)
+	
+	-- if the target has vanished or dead or become an enemy, complete the quest
+	if (not se_target) or (target and (not target:alive())) or is_enemy then
+		return "fail"
+	end
+	
+	-- Save task giver squad id
+	if (not var.target_squad_id) then
+		local target_squad = se_target and se_target.group_id and se_target.group_id ~= 65535 and alife_object(se_target.group_id)
+		if target_squad then
+			sim_offline_combat.task_squads[target_squad.id] = true
+			var.target_squad_id = target_squad.id
+			save_var(db.actor, task_id, var)
+			
+			-- Reset stay time once
+			if (not target_squad:get_script_target()) and (target_squad.current_action == 1) then
+				target_squad.stay_time = game.get_game_time() 
+			end
+		end
+	end
+	
+
+	-- stage: 0
+	-- status: player accepted the quest
+	-- objective: take the quest item
+	-- marker: quest item
+	if stage == 0 then
+		-- if actor retrieved item 1
+		if utils_item.has_item_by_id(nil, var.item_1_id , var.item_1_sec) then
+			tsk.stage = 1
+			
+		-- if item 1 vanished, fail the quest
+		else 
+			if (not item_1_obj) or (item_1_obj and (item_1_obj:section_name() ~= var.item_1_sec)) then
+				return "fail"
+			end
+		end
+	end
+	
+	-- stage: 1
+	-- status: player has the quest item
+	-- objective: deliver it to the target
+	-- marker: target npc
+	if stage == 1 then
+		-- if actor lost item 1 recently
+		if (not utils_item.has_item_by_id(nil, var.item_1_id , var.item_1_sec)) then
+			tsk.stage = 0
+		end
+	end
+	
+	-- stage: 2 (not used, this quest is completed via dialog)
+	-- status: player has delivered the quest item
+	if stage == 2 then
+		return "complete"
+	end
+end
+
+
+--==========================================< Target dialog >==========================================--
+
+dialogs.check_delivery_task_npc = function(actor,npc,p) -- must be called first -- precondition: Check if the talking npc is our target
+	for i=1,#delivery_tasks do
+		--printf("-check_delivery_task_npc | scan %s",delivery_tasks[i])
+		local var = load_var(db.actor, delivery_tasks[i])
+		if var and (var.target_id == npc:id()) then
+			printdbg("/ check_delivery_task_npc | found for %s", delivery_tasks[i])
+			delivery_task_id = delivery_tasks[i]
+			break
+		end
+	end
+	if (not delivery_task_id) then
+		return false
+	end
+	return true
+end
+
+dialogs.actor_has_package = function(actor,npc,p) -- precondition: Check if actor has item 1
+	local var = load_var(db.actor, delivery_task_id)
+	if var and (utils_item.has_item_by_id(nil, var.item_1_id , var.item_1_sec)) then
+		return true
+	end
+	return false
+end
+
+dialogs.complete_simulation_task = function(actor,npc,p) -- action: Complete the task
+	local var = load_var(db.actor, delivery_task_id)
+	if var then
+		local target_squad_id = var.target_squad_id
+		if target_squad_id then
+			sim_offline_combat.task_squads[target_squad_id] = nil -- clear
+		end
+	
+		task_manager.get_task_manager():set_task_completed(delivery_task_id)
+		--dialogs.relocate_item_section_from_actor(actor, npc, var.item_1_sec,1)
+	end
+end
+
+xr_effects.remove_delivery_item = function(actor,npc,p) -- action: remove package from actor inventory
+	local task_id = p and p[1]
+	local var = task_id and load_var(db.actor, task_id)
+	if not (var and var.item_1_sec) then	
+		printe("! remove_delivery_item - no var found")
+		return
+	end
+	
+	local npc = mob_trade.GetTalkingNpc()
+	if npc then
+		dialogs.relocate_item_section_from_actor(db.actor, npc, var.item_1_sec,1)
+	else
+		local item = db.actor:object(var.item_1_sec)
+		local se_item = item and alife_object(item:id())
+		if se_item then
+			alife_release(se_item)
+		end
+	end
+end
+
+-- script_text: Script text to show task giver name
+dialogs.st_simulation_task_stext_0 = function(actor,npc,p)
+	local var = load_var(db.actor, delivery_task_id)
+	local str = game.translate_string("st_" .. delivery_task_id .. "_0")
+	if var then
+		str = utils_data.parse_string_keys(str, {["name"]=var.task_giver_name} )
+	end
+	return str
+end
+
+dialogs.st_simulation_task_stext_1 = function(actor,npc,p)
+	local var = load_var(db.actor, delivery_task_id)
+	local str = game.translate_string("st_" .. delivery_task_id .. "_1")
+	if var then
+		str = utils_data.parse_string_keys(str, {["name"]=var.task_giver_name} )
+	end
+	return str
+end
diff --git a/gamedata/scripts/tasks_measure.script b/gamedata/scripts/tasks_measure.script
new file mode 100644
index 000000000..8281c89b6
--- /dev/null
+++ b/gamedata/scripts/tasks_measure.script
@@ -0,0 +1,587 @@
+--[[
+	Made by Tronex
+	Last Edit: 2019/7/9
+	Anomalies measurement
+	
+	Parameters for precondition
+		P[1] = (string) task_id
+		P[2] = (num) scan mode (1 to 5)
+			1 = same level
+			2 = same or nearby levels
+			3 = neaby levels only
+			4 = far levels
+			5 = all levels
+		P[3] = (true) spawn a mutant squad to target the player, see the note below
+		P[4] = (string) section of measurement device
+		p[5+] = (string) anomaly types to target (see table below)1
+		
+	You can specify which mutant squads to spawn and target the player by listing them in "task_measure_mutants", the script will pick one and spawn it once actor take measurement
+	
+	Example of usage in configs:
+		precondition = {=validate_measure_task(simulation_task_50:true:true:detector_anomaly:chemical:acidic:electric:thermal:gravitational)} true, false
+		target_functor = general_measure
+		status_functor = measure_task
+		task_measure_mutants = simulation_lurker,simulation_bloodsucker_1_2,simulation_psysucker,simulation_psy_dog,simulation_snork_2_3,simulation_fracture,simulation_cat,simulation_mix_dogs,simulation_pseudodog
+		on_job_descr = %=setup_measure_task(simulation_task_50)%
+		on_complete = %=inc_goodwill_by_tasker_comm(simulation_task_50:50) =reward_random_money_by_dist(simulation_task_50:3500:4500:0.2) =reward_random_item(beer:vodka:vodka2:cigarettes_lucky:cigarettes_russian) =remove_quest_item(simulation_task_50) -simulation_task_50_quest_item_received -simulation_task_50_measurment_finished -simulation_task_50_measurment_enemy =pstor_reset(simulation_task_50)%
+		on_fail 	= %-simulation_task_50_quest_item_received -simulation_task_50_measurment_finished -simulation_task_50_measurment_enemy =pstor_reset(simulation_task_50)%
+--]]
+
+local measurment_started = {} -- make sure that measurement is on-going
+local anomaly_measure_dist = 10
+
+local anomaly_types = { -- only target these anomalies
+--[[
+	["zone_field_acidic_strong"] = true,
+	["zone_field_acidic_average"] = true,
+	["zone_field_acidic_weak"] = true,
+	
+	["zone_field_thermal_weak"] = true,
+	["zone_field_thermal_average"] = true,
+	["zone_field_thermal_strong"] = true,
+	
+	["zone_field_radioactive_weak"] = true,
+	["zone_field_radioactive_average"] = true,
+	["zone_field_radioactive_strong"] = true,
+	
+
+	["zone_radioactive_weak"] = true,
+	["zone_radioactive_average"] = true,
+	["zone_radioactive_strong"] = true,
+	
+	["zone_mine_static_weak"] = true,
+	["zone_mine_static_average"] = true,
+	["zone_mine_static_strong"] = true,
+	
+	["zone_witches_galantine_weak"] = true,
+	["zone_witches_galantine_average"] = true,
+	["zone_witches_galantine_strong"] = true,
+--]]
+	
+	["chemical"] = {
+		["zone_mine_chemical_weak"] = true,
+		["zone_mine_chemical_average"] = true,
+		["zone_mine_chemical_strong"] = true,
+	},
+	["acidic"] = {
+		["zone_mine_acidic_weak"] = true,
+		["zone_mine_acidic_average"] = true,
+		["zone_mine_acidic_strong"] = true,
+	},
+	["electric"] = {
+		["zone_mine_electric_weak"] = true,
+		["zone_mine_electric_average"] = true,
+		["zone_mine_electric_strong"] = true,
+	},
+		
+	["thermal"] = {
+		["zone_mine_thermal_weak"] = true,
+		["zone_mine_thermal_average"] = true,
+		["zone_mine_thermal_strong"] = true,
+	},
+	["gravitational"] = {
+		["zone_mine_gravitational_weak"] = true,
+		["zone_mine_gravitational_average"] = true,
+		["zone_mine_gravitational_strong"] = true,
+	},
+}
+
+local blacklisted_maps = { -- List of maps to skip in scans
+	-- North
+	["l13_generators"]        = true,
+	["l12_stancia_2"]         = true,
+	["l12_stancia"]           = true,
+	["l11_pripyat"]           = true,
+	["l10_radar"]             = true,
+	["l11_hospital"]          = true,
+	
+	-- Underground
+	["jupiter_underground"]   = true,
+	["labx8"]                 = true,
+	["l03u_agr_underground"]  = true,
+	["l04u_labx18"]           = true,
+	["l08u_brainlab"]         = true,
+	["l10u_bunker"]           = true,
+	["l12u_control_monolith"] = true,
+	["l12u_sarcofag"]         = true,
+	["l13u_warlab"]           = true,
+	
+	["fake_start"]            = true,
+	
+	["l01_escape"]            = true,
+	["l05_bar"]               = true,
+	["l02_garbage"]           = true,
+}
+
+local cache = {}
+
+--==========================================< Utilities >==========================================--
+-- param 1: squad section to spawn
+-- param 2: minimum allowed spawn distance to actor
+-- param 3: maximum allowed spawn distance to actor
+function spawn_squad_dynamic(squad_section, min_distance , max_distance)
+	--printf("-spawn_squad_dynamic")
+	
+	-- Search for possible smart
+	local spawn_smrt
+	local spawn_smrts = {}
+	local function search(min_distance, max_distance, mode)
+		for name,smart in pairs( SIMBOARD.smarts_by_names ) do
+			local dist = smart.position:distance_to(db.actor:position())
+			if (smart.online) and (simulation_objects.available_by_id[smart.id] == true) and (dist > min_distance) and (dist < max_distance) then
+				local smrt = SIMBOARD.smarts[smart.id]
+				if ( smrt ) then
+					local pass = true
+					for k,v in pairs( smrt.squads ) do
+						local squad = alife_object(k)
+						if (squad and squad.current_target_id and squad.current_target_id == smart.id and not squad:get_script_target()) then
+							if (mode == 1) then
+								pass = false
+								printdbg("-spawn_squad_dynamic / [%s] is not a possible smart on mode %s, distance: %s",name,mode,dist)
+							elseif (not is_squad_monster[squad.player_id]) then
+								pass = false
+								printdbg("-spawn_squad_dynamic / [%s] is not a possible smart on mode %s, distance: %s",name,mode,dist)
+							end
+						end
+					end
+					if pass then
+						printdbg("-spawn_squad_dynamic / [%s] is a possible smart found on search mode(%s), distance: %s",name,mode,dist)
+						spawn_smrts[#spawn_smrts+1] = name
+					end
+				end
+			end
+		end
+	end
+	search(min_distance, max_distance, 1) -- mode 1: search for non-controlled smarts
+	if (#spawn_smrts == 0) then search(min_distance, max_distance, 2) end -- mode 2: search for non-controlled smarts or controlled by mutants
+	if (#spawn_smrts == 0) then
+		printdbg("-spawn_squad_dynamic / no smart found to spawn mutants, your ass is safe")
+		return
+	end
+	
+	spawn_smrt = spawn_smrts[math.random(#spawn_smrts)]
+	printdbg("-spawn_squad_dynamic / [%s] is the chosen smart",spawn_smrt)
+	
+	-- Spawn squad and target the player
+	local sq = sim_board.get_sim_board():create_squad(SIMBOARD.smarts_by_names[spawn_smrt],squad_section)
+	sq.scripted_target = "actor"
+	sq.rush_to_target = true
+end
+
+function postpone_for_next_frame(task_id,level_target)
+	local news_caption = game.translate_string(task_manager.task_ini:r_string_ex(task_id, "title")) or "error"
+	local news_text = game.translate_string("st_location") .. " " .. game.translate_string(level_target)
+	db.actor:give_talk_message2(news_caption, news_text, "ui_inGame2_PD_Opitniy_stalker", "iconed_answer_item")
+	return true
+end
+
+--==========================================< Precondition >==========================================--
+xr_conditions.validate_measure_task = function(actor,npc,p)
+	if not (p and (#p >= 5)) then
+		printe("! ERROR - %s | not enough parameters for on_init_measure_task!",p[1])
+		return false
+	end
+	local task_id = p[1]
+	
+	if (not db.actor:is_talking()) then
+		printe("! ERROR validate_measure_task | actor is not talking")
+		return
+	end
+	local task_giver = mob_trade.GetTalkingNpc()
+	local task_giver_id = task_giver:id()
+	
+	-- Already cached
+	if cache[task_id] and cache[task_id][task_giver_id] then
+		return true
+	end
+	
+	-- Gather info
+	local scan_mode = tonumber(p[2]) or 4
+	local monster_allow = (p[3] == "true") and true or false
+	local item_1_sec = ini_sys:section_exist(p[4]) and p[4] or nil
+	if (not item_1_sec) then
+		printe("! ERROR - %s | can't find item section!",task_id)
+		return false
+	end
+	local target_types = {}
+	for i=5,#p do
+		target_types[p[i]] = true
+	end
+
+	local task_giver_comm = character_community(task_giver)
+	local task_giver_name = task_giver:character_name()
+	local target_id
+	
+	-- Get target
+	local sim = alife()
+	local ano_tbl = {}
+	for typ,v in pairs(anomaly_types) do
+		if target_types[typ] then
+			for sec,_ in pairs(v) do
+				ano_tbl[sec] = true
+			end
+		end
+	end
+	
+	local targets = {}
+	local actor_level = level.name()
+	local gg = game_graph()
+	local sfind = string.find
+	local dyn_anomalies = bind_anomaly_field and bind_anomaly_field.dyn_anomalies or {}
+	for i=1,sim:max_id() - 1 do 
+		local se_obj = sim:object(i)
+		if se_obj and ano_tbl[se_obj:section_name()] then
+			local lvl_name = sim:level_name( gg:vertex(se_obj.m_game_vertex_id):level_id())
+			if (not blacklisted_maps[lvl_name]) -- not in a blacklisted level
+			and (not (dyn_anomalies[lvl_name] and dyn_anomalies[lvl_name][i] ~= nil)) -- not a dynamic anomaly
+			then
+				local is_online = se_obj.online
+				local is_nearby = sfind(simulation_objects.config:r_value(actor_level, "target_maps", 0, ""), lvl_name)
+				if ((scan_mode == 1) and is_online) -- same level
+				or ((scan_mode == 2) and (is_online or is_nearby)) -- same + nearby level
+				or ((scan_mode == 3) and is_nearby) -- nearby levels only
+				or ((scan_mode == 4) and (not (is_online or is_nearby))) -- far levels only
+				or (scan_mode == 5) -- anywhere
+				then
+					targets[#targets + 1] = i
+				end
+			end
+		end
+	end
+	
+	if (#targets == 0) then
+		printf("! %s | No anomaly found!",task_id)
+		return false
+	end
+	
+	-- Pick Target
+	target_id = targets[math.random(#targets)]
+	local se_target = alife_object(target_id)
+	if (not se_target) then
+		printe("! %s | cant get server object of anomaly (%s)!",task_id,target_id)
+		return false
+	end
+
+	-- Cache
+	if (not cache[task_id]) then
+		cache[task_id] = {}
+	end
+	cache[task_id][task_giver_id] = {
+		target_id = target_id,
+		task_giver_comm = task_giver_comm,
+		item_1_sec = item_1_sec,
+		monster = monster_allow
+	}
+	
+	return true
+end
+
+
+--==========================================< Effect >==========================================--
+xr_effects.setup_measure_task = function(actor,npc,p)
+	if not (p and p[1]) then
+		printe("! ERROR setup_measure_task missing task_id")
+		return false
+	end
+	
+	local task_id = p[1]
+	local task_giver = mob_trade.GetTalkingNpc()
+	local task_giver_id = task_giver:id()
+	local tbl = task_giver_id and cache[task_id] and cache[task_id][task_giver_id]
+	if (not tbl) then
+		printe("! %s | can't get cached result", task_id)
+		return false
+	end
+	
+	local se_target = tbl.target_id and alife_object(tbl.target_id)
+	if (not se_target) then
+		printe("! %s | cant get server object of anomaly (%s)!", task_id, tbl.target_id)
+		return false
+	end
+
+	local level_task = level.name()
+	local level_target = alife():level_name(game_graph():vertex(se_target.m_game_vertex_id):level_id())
+	local var = { 
+		lvl_task = level_task,
+		lvl_target = level_target,
+		task_giver_comm = tbl.task_giver_comm,
+		target_id = tbl.target_id,
+		item_1_sec = tbl.item_1_sec,
+		monster = tbl.monster
+	}
+	save_var(db.actor, task_id, var)
+	printdbg("-%s | setup_measure_task | task_giver_comm: %s - target_id: %s - item_1_sec: %s - lvl_task: %s - lvl_target: %s", task_id, var.task_giver_comm, var.target_id, var.item_1_sec, level_task, level_target)
+	
+	-- Show info
+	CreateTimeEvent(0,"setup_measure_task",0,postpone_for_next_frame,task_id,level_target)
+end
+
+
+--==========================================< Target functors >==========================================--
+task_functor.general_measure = function(task_id,field,p,tsk)
+	if (not db.actor) or (not tsk) then
+		return
+	end
+	
+	if (field == "target") then
+		local var = load_var(db.actor, task_id)
+		if (not var) then
+			return
+		end
+	
+		if (tsk.stage == 0) then
+			return var.item_1_id
+		end
+		
+		if (tsk.stage == 1) then
+			return var.target_id
+		end
+		
+		if (tsk.stage == 2) then
+			return var.target_id --nil
+		end
+		
+		if (tsk.stage == 3) then
+			return tsk.task_giver_id
+		end
+	end
+end
+
+
+--==========================================< Status functor >==========================================--
+task_status_functor.measure_task = function(tsk,task_id)
+	if (not db.actor) or (not tsk) then
+		return
+	end
+	
+	local var = load_var(db.actor, task_id)
+	if (not var) then return end
+	local stage = tsk.stage
+	
+	-- Give quest item upon accepting the quest
+	if (not has_alife_info(task_id .. "_quest_item_received")) and (var.item_1_sec) then
+		local se_item_1 = alife_create_item(var.item_1_sec, db.actor)
+		if not (se_item_1 and se_item_1.id) then return end
+		
+		printdbg("-%s | quest_item_received: %s",task_id, var.item_1_sec)
+		local t = var
+		t.item_1_id = se_item_1.id
+		save_var(db.actor, task_id, t)
+		
+		db.actor:give_info_portion(task_id .. "_quest_item_received")
+		news_manager.relocate_item(db.actor, "in", var.item_1_sec, 1)
+		return
+	end
+	
+	local item_1_obj = var.item_1_id and level.object_by_id(var.item_1_id)
+	local flag_1 = has_alife_info(task_id .. "_measurment_finished")
+	local flag_2 = has_alife_info(task_id .. "_measurment_enemy")
+	local se_target = var.target_id and alife_object(var.target_id)
+	
+	
+	-- stage: 0
+	-- status: player accepted the quest
+	-- objective: take the quest item
+	-- marker: quest item
+	if stage == 0 then
+		-- if actor retrieved item 1
+		if utils_item.has_item_by_id(nil, var.item_1_id , var.item_1_sec) then
+		
+			-- if actor took enough measurement
+			if flag_1 then
+				tsk.stage = 3
+			else
+				tsk.stage = 1
+			end
+		
+		-- if item 1 vanished, fail the quest
+		else 
+			if (not item_1_obj) or (item_1_obj and (item_1_obj:section() ~= var.item_1_sec)) then
+				return "fail"
+			end
+		end
+	end
+	
+	-- stage: 1
+	-- status: player has the quest item
+	-- objective: go to the target anomaly
+	-- marker: target anomaly
+	if stage == 1 then
+		-- if actor is close to target
+		if (se_target.position:distance_to(db.actor:position()) <= anomaly_measure_dist) then
+			tsk.stage = 2
+		end
+		
+		-- if actor took enough measurement
+		if flag_1 then
+			tsk.stage = 3
+		end
+		
+		-- if actor lost item 1 recently
+		if (not utils_item.has_item_by_id(nil, var.item_1_id , var.item_1_sec)) then
+			tsk.stage = 0
+		end
+	end
+	
+	-- stage: 2
+	-- status: player has arrived to the anomaly
+	-- objective: take measurement
+	-- marker: target anomaly
+	if stage == 2 then
+		-- if distance is far, return to stage 1
+		if (se_target.position:distance_to(db.actor:position()) > anomaly_measure_dist) then
+			measurment_started[task_id] = false
+			close_measurement_hud()
+			tsk.stage = 1
+		end
+		
+		-- if actor took enough measurement
+		if flag_1 then
+			measurment_started[task_id] = false
+			close_measurement_hud()
+			tsk.stage = 3
+		end
+		
+		-- if actor lost item 1 recently
+		if (not utils_item.has_item_by_id(nil, var.item_1_id , var.item_1_sec)) then	
+			measurment_started[task_id] = false
+			close_measurement_hud()
+			tsk.stage = 0
+		end
+		
+		-- spawn mutant squad
+		if var.monster and (not flag_2) then
+			local mutants = parse_list(task_manager.task_ini,task_id,"task_measure_mutants")
+			if (#mutants > 0) then
+				spawn_squad_dynamic(mutants[math.random(#mutants)], 50, 200)
+			end
+			db.actor:give_info_portion(task_id .. "_measurment_enemy") 
+		end
+	
+		-- start measurement
+		local active_detector = db.actor:active_detector()
+		if tsk.stage == 2 and active_detector and (active_detector:id() == var.item_1_id) then
+			if (not measurment_started[task_id]) then
+				measurment_started[task_id] = true
+				start_measurement_hud(task_id)
+			end
+		else
+			measurment_started[task_id] = false
+			close_measurement_hud()
+		end
+	end
+	
+	-- stage: 3
+	-- status: player had taken measurements 
+	-- objective: return to the task giver
+	-- marker: taske giver
+	if stage == 3 then
+		close_measurement_hud()
+		-- if actor lost item 1 recently
+		if (not utils_item.has_item_by_id(nil, var.item_1_id , var.item_1_sec)) then
+			tsk.stage = 0
+		end
+	end
+end
+
+
+--==========================================< Description functor >==========================================--
+task_functor.general_measure_desc = function(task_id,field,p,tsk)
+	if (not db.actor) then return "" end
+	local var = load_var(db.actor, task_id)
+	local str = ""
+	if tsk and tsk.stage and var then
+		local task_giver_comm = game.translate_string("st_dyn_news_comm_" .. var.task_giver_comm .. "_1")
+		local item_1_sec = var.item_1_sec and ui_item.get_sec_name(var.item_1_sec)
+		str = game.translate_string(task_id .. "_text_" .. tostring(tsk.stage))
+		str = utils_data.parse_string_keys(str, {["comm"]=task_giver_comm , ["item_1"]=item_1_sec} )
+	end
+	return str
+end
+
+
+----------------------------------------------------------------------
+-- UI
+----------------------------------------------------------------------
+local det_anomaly_ui = nil
+local det_anomaly_state = false
+local det_anomaly_state2 = false
+
+function start_measurement_hud(task_id)
+	det_anomaly_state = task_id
+end
+
+function close_measurement_hud()
+	det_anomaly_state = false
+end
+
+
+class "UI3D_Anomaly" (CUIScriptWnd)
+
+function UI3D_Anomaly:__init() super()
+	self:Show					(true)
+	self:Enable					(true)
+	
+	self.step					= 0
+	self.step_tot				= 10
+	self.timer					= 2000
+	self.tg						= 0
+	self.beep                   = "detectors\\detector_8" -- sound file
+	
+	local xml					= CScriptXmlInit()
+	self.xml = xml
+	xml:ParseFile				("ui_detector_anomaly.xml")
+	xml:InitWindow				("detector_anomaly", 0, self)
+
+	self.m_seg = {}
+	for i=1,self.step_tot do
+		self.m_seg[i]					= xml:InitStatic("detector_anomaly:seg" .. i, self)
+	end
+	
+	--self.m_led_g					= xml:InitStatic("detector_anomaly:led_green", self)
+	--self.m_led_o					= xml:InitStatic("detector_anomaly:led_orange", self)
+end
+
+function UI3D_Anomaly:__finalize() 
+	det_anomaly_ui = nil
+end
+
+function UI3D_Anomaly:Update()
+	
+	CUIScriptWnd.Update(self)
+	
+	local tg = time_global()
+	if (tg < self.tg) then
+		return
+	end
+	self.tg = tg + self.timer
+
+	if det_anomaly_state then
+		self.step = self.step + 1
+		utils_obj.play_sound(self.beep)
+		
+		if has_alife_info(det_anomaly_state .. "_measurment_finished") then
+			det_anomaly_state = false
+			self.step = 0
+		
+		elseif (self.step > self.step_tot) then
+			db.actor:give_info_portion(det_anomaly_state .. "_measurment_finished")
+			det_anomaly_state = false
+			self.step = 0
+		end
+	else
+		self.step = 0
+	end
+	
+	for i=1,self.step_tot do
+		self.m_seg[i]:InitTextureEx( (i <= self.step) and "green_seg_ano" or "green_black_ano", "hud\\p3d")
+	end
+end
+
+function get_UI()
+	if (det_anomaly_ui == nil) then
+		det_anomaly_ui = UI3D_Anomaly()
+	end
+	
+	return det_anomaly_ui
+end
diff --git a/gamedata/scripts/trans_outfit.script b/gamedata/scripts/trans_outfit.script
new file mode 100644
index 000000000..ec726d960
--- /dev/null
+++ b/gamedata/scripts/trans_outfit.script
@@ -0,0 +1,44 @@
+function ReadOutfitBlindnessKoeff(section)
+   if ini_sys:line_exist(section,"npc_blindness_koeff") then
+      return ini_sys:r_float(section,"npc_blindness_koeff")
+   else
+      return 80
+   end
+end
+
+
+function transparent_gg() 
+	local  range1, dist_act_npc 
+	local outfit_in_slot=db.actor:item_in_slot(7)
+	if db.actor == nil then 
+		return nil 
+	end  
+	if db.actor:item_in_slot(7) == nil then 
+		range1 = 80  
+	elseif outfit_in_slot~=nil and ReadOutfitBlindnessKoeff(outfit_in_slot:section())>0.0 then
+		range1 = ReadOutfitBlindnessKoeff(outfit_in_slot:section())
+	else 
+		range1 = 80 
+	end  
+
+	for obj_around in game_objects_without_actor_iter() do
+		local id = obj_around:id()
+		if IsStalker(obj_around) then
+			local alife_obj = alife():object(id)
+			dist_act_npc = db.actor:position():distance_to(alife_obj.position)
+			if dist_act_npc <= 120 then  
+				obj_around:set_range(range1)
+			else 
+				obj_around:set_range(80) 
+			end 
+		end 
+	end
+end 
+
+function timer_trans() 
+	timer_transparent = timer_transparent + 1 
+	if timer_transparent >= 50 then 
+		timer_transparent = 0 
+		transparent_gg() 
+	end 
+end
\ No newline at end of file
diff --git a/gamedata/scripts/treasure_manager.script b/gamedata/scripts/treasure_manager.script
new file mode 100644
index 000000000..917d9b847
--- /dev/null
+++ b/gamedata/scripts/treasure_manager.script
@@ -0,0 +1,778 @@
+--[[
+==============================================
+-- Tronex
+-- 2019/5/29
+-- Anomaly Treasure manager
+-- Based on CoC treasure manager
+
+Overview
+--------
+-- This script spawns loot, randomly, inside all INVBOX class objects. Loot is determined on new game start and stored
+-- within the .scoc as a string. When the cache is opened, the loot is spawned.
+
+Operation
+---------
+-- A list of all possible item sections is picked from treasure_manager.ltx
+-- Items are divided by kinds and tiers in their sections
+-- Item kind acts as the group the item belongs to. While tier detemine the importance of the item among others in the same group
+--
+-- The script will pick items to stash based on their kind and tiers, all is configurable by treasure_manager.ltx
+-- Items will get picked randomly based on tier and kind until stash weight get "filled"
+-- Item's kind detemine item's chance to appear and it's impact on the remaining weight
+-- Item's tier acts as a multiplier for item's kind stats. So higher tiers will have rarer chances and higher impacts
+-- A stash get a random "weight" to allow a certain amount of items inside.
+-- Everytime an item is added to the stash, the remaining weight will decreased based on item's "impact"
+--==============================================
+--]]
+
+-- config
+ini_treasure = ini_file("items\\settings\\treasure_manager.ltx")
+local enable_debug = false
+
+-- Stash storage
+caches = {}
+local caches_count = 0
+local caches_blacklist = {}
+local caches_rare = {}
+
+
+-- Stats and Shuffle tables
+local stash_common = {
+	min_weight = 0,
+	max_weight = 0,
+	kind_val   = {},
+	tier_val   = {},
+	kind_list  = {},
+	tier_list  = {},
+}
+
+local stash_rare = {
+	min_weight = 0,
+	max_weight = 0,
+	kind_val   = {},
+	tier_val   = {},
+	kind_list  = {},
+	tier_list  = {},
+	
+	reward_bonus = {},
+	task_num = 7,
+	start_chance = 60,
+}
+
+stash_bonus = {}
+
+-- Item list
+local item_list = {} -- item_list[kind][tier] = {all suitable items}
+local dbg_items = {}
+
+-- Item properties
+local item_prop_table = { cond_r = {30,70} , cond_ct = "part" , cond_cr = {0.5,0.75,1} , ammo = math.random(10,30) }
+
+local blacklisted_maps = { -- List of maps to skip for marked stashes
+	-- North
+	["l13_generators"]        = true,
+
+	-- Underground
+	["jupiter_underground"]   = true,
+	["labx8"]                 = true,
+	["l03u_agr_underground"]  = true,
+	["l04u_labx18"]           = true,
+	["l08u_brainlab"]         = true,
+	["l10u_bunker"]           = true,
+	["l12u_control_monolith"] = true,
+	["l12u_sarcofag"]         = true,
+	["l13u_warlab"]           = true,
+	
+	["fake_start"]            = true
+}
+
+------------------------------------------------------------------------------------------------------------------
+--							MAIN
+------------------------------------------------------------------------------------------------------------------
+function init_settings()
+	local n = 0
+	local junk, kind, value = "", "", ""
+	
+	-- Names of blacklisted stashes
+	n = ini_treasure:line_count("blacklist_stashes_names")
+	for i=0, n-1 do
+		junk, kind, value = ini_treasure:r_line("blacklist_stashes_names" , i , "", "")
+		caches_blacklist[kind] = true
+	end
+	
+	-- Names of rare stashes
+	n = ini_treasure:line_count("rare_stashes_names")
+	for i=0, n-1 do
+		junk, kind, value = ini_treasure:r_line("rare_stashes_names" , i , "", "")
+		caches_rare[kind] = true
+	end
+	
+	-- Common stashes settings
+	stash_common.min_weight = ini_treasure:r_float_ex("settings_common" , "min_weight")
+	stash_common.max_weight = ini_treasure:r_float_ex("settings_common" , "max_weight")
+	
+	local num_of_tiers = ini_treasure:r_float_ex("settings_common" , "num_of_tiers") or 5
+	for i=1,num_of_tiers do	stash_common.tier_list[#stash_common.tier_list + 1] = i end
+	
+	n = ini_treasure:line_count("kind_tier_effect_common")
+	junk, kind, value = "", "", ""
+	for i=0, n-1 do
+		junk, kind, value = ini_treasure:r_line("kind_tier_effect_common" , i , "", "")
+		if kind and value then
+			local str = str_explode(value,",")
+			if (#str >= (2 + num_of_tiers*2)) then
+				stash_common.kind_val[kind] = { chance = tonumber(str[1]) , weight = tonumber(str[2]) }
+				stash_common.tier_val[kind] = {}
+				stash_common.kind_list[#stash_common.kind_list + 1] = kind
+				for tier=1,num_of_tiers do
+					stash_common.tier_val[kind][tier] = { chance_multi = tonumber(str[(tier*2) + 1]) , weight_multi = tonumber(str[(tier*2) + 2]) }
+				end
+			end
+		end
+	end
+	
+	-- Rare stashes settings
+	stash_rare.min_weight = ini_treasure:r_float_ex("settings_rare" , "min_weight")
+	stash_rare.max_weight = ini_treasure:r_float_ex("settings_rare" , "max_weight")
+	stash_rare.reward_bonus = parse_list(ini_treasure,"settings_rare","reward_bonus")
+	stash_rare.task_num = ini_treasure:r_float_ex("settings_rare" , "completed_task_num")
+	stash_rare.start_chance = ini_treasure:r_float_ex("settings_rare" , "start_chance")
+	
+	num_of_tiers = ini_treasure:r_float_ex("settings_rare" , "num_of_tiers") or 5
+	for i=1,num_of_tiers do	stash_rare.tier_list[#stash_rare.tier_list + 1] = i end
+	
+	n = ini_treasure:line_count("kind_tier_effect_rare")
+	junk, kind, value = "", "", ""
+	for i=0, n-1 do
+		junk, kind, value = ini_treasure:r_line("kind_tier_effect_rare" , i , "", "")
+		if kind and value then
+			local str = str_explode(value,",")
+			if (#str >= (2 + num_of_tiers*2)) then
+				stash_rare.kind_val[kind] = { chance = tonumber(str[1]) , weight = tonumber(str[2]) }
+				stash_rare.tier_val[kind] = {}
+				stash_rare.kind_list[#stash_rare.kind_list + 1] = kind
+				for tier=1,num_of_tiers do
+					stash_rare.tier_val[kind][tier] = { chance_multi = tonumber(str[(tier*2) + 1]) , weight_multi = tonumber(str[(tier*2) + 2]) }
+				end
+			end
+		end
+	end
+	
+	-- Generate item list, based on possible economy type
+	local eco = 1
+	local config = axr_main.config
+	if (config:r_value("character_creation","new_game_economy_treasure",2)) then
+		eco = config:r_value("character_creation","new_game_economy_treasure",2)
+		config:w_value("character_creation","new_game_economy_treasure")
+	else
+		eco = alife_storage_manager.get_state().diff_eco and alife_storage_manager.get_state().diff_eco["type"] or eco
+	end
+
+	local sfind = string.find
+	n = ini_treasure:line_count("possible_items")
+	junk, section, value = "", "", ""
+	for i=0, n-1 do
+		junk, section, value = ini_treasure:r_line("possible_items" , i , "", "")
+		
+		local allowed = true
+		local no_eco = value and value ~= "" and str_explode(value,",") or {}
+		for j=1,#no_eco do
+			if (tonumber(no_eco[j]) == eco) then
+				allowed = false
+				break
+			end
+		end
+		
+		if allowed then
+			-- Check if its multi use
+			local sec, uses = utils_item.get_defined_uses(section)
+			local max_uses,cost = 1,0
+			local sec_p = section
+			if sec and uses and ini_sys:section_exist(sec) then
+				max_uses = ini_sys:r_float_ex(sec,"max_uses") or uses
+				sec_p = sec
+			end
+			
+			-- Get price, kind, tier
+			if (max_uses > 1) or ini_sys:section_exist(section) then
+				uses = uses or 1
+				local cost = (ini_sys:r_float_ex(sec_p,"cost") * (uses/max_uses) or 0)
+				local kind = ini_sys:r_string_ex(sec_p,"kind")
+				local tier = ini_sys:r_float_ex(sec_p,"tier")
+				if (cost > 1) and kind and tier then
+					
+					-- Reduce tier of used items
+					local lost_uses = max_uses - uses
+					tier = math.ceil(tier - (lost_uses/2))
+					tier = clamp(tier,1,5)
+					
+					if (not item_list[kind]) then
+						item_list[kind] = {}
+					end
+					
+					if (not item_list[kind][tier]) then
+						item_list[kind][tier] = {}
+					end	
+					
+					local t = item_list[kind][tier]
+					t[#t+1] = section
+				else
+					printf("!WARNING treasure_manager.init_settings | item [%s] is missing info | kind: %s - tier: %s", section, kind, tier)
+				end
+			end
+		end
+	end
+
+	-- stash bonus
+	n = ini_treasure:line_count("stash_bonus")
+	junk, section, value = "", "", ""
+	for i=0, n-1 do
+		junk, section, value = ini_treasure:r_line("stash_bonus" , i , "", "")
+		
+		local allowed = true
+		local no_eco = value and value ~= "" and str_explode(value,",") or {}
+		for j=1,#no_eco do
+			if (tonumber(no_eco[j]) == eco) then
+				allowed = false
+				break
+			end
+		end
+		
+		if allowed then
+			stash_bonus[#stash_bonus + 1] = section
+		end
+	end
+end
+
+last_secret = nil
+local last_type
+function create_random_stash(no_spot, hint, bonus_items, spawn_local, inv_box)
+	-- Search for a suitable stash
+	local id, name, desc, hint = get_random_stash(no_spot, hint, spawn_local, inv_box)
+	
+	-- Generate hint
+	local str = name
+	if desc and hint then
+		str = "%c[255,255,160,0]" .. name .. "\\n%c[default]" .. desc .. "\\n%c[160,100,100,200]" .. (hint or "")
+	end
+	
+	-- Attach content
+	if id then
+		set_random_stash(no_spot, str, bonus_items, id)
+	else
+		printe("! ERROR create_random_stash | no server object for id (%s)", id)
+	end
+end
+
+function get_random_stash(no_spot, hint, spawn_local, inv_box)
+	--printf("[lrs]get_random_stash(%s,%s,%s,%s)",no_spot,hint,bonus_items,spawn_local)
+	last_secret = nil
+
+	if (caches_count <= 0) then
+		return
+	end
+
+	last_secret = true
+
+	-- Make sure settings are prepared
+	if is_empty(item_list) then
+		init_settings()
+	end
+	
+	-- Create a temporary table to use math.random
+	local t = {}
+	local size_t = 0
+	for id,v in pairs(caches) do
+		local suitable = true
+		
+		-- (inv_box = true) Only scan inventory boxes
+		if inv_box then
+			local se_box = alife_object(id)
+			if (not se_box) then
+				suitable = false
+			elseif (se_box:clsid() ~= clsid.inventory_box_s) or caches_blacklist[se_box:name()] then
+				suitable = false
+			end
+			
+		end
+		
+		if suitable and (v == false) and (no_spot or box_in_valid_map(id)) then -- false means box is available
+			if (spawn_local) then
+				if (box_in_same_map(id)) then
+					size_t = size_t + 1
+					t[size_t] = id
+				end
+			else
+				size_t = size_t + 1
+				t[size_t] = id
+			end
+		end
+	end
+
+	-- Return if no stashe is left
+	local index = size_t > 0 and math.random(size_t)
+	if not (index) then
+		return
+	end
+
+	-- Pick stash id
+	local id = t[index]
+	local se_stash = id and alife_object(id)
+	if not (se_stash) then
+		caches[id] = nil
+		caches_count = caches_count - 1
+		return
+	end
+	
+	local stash_name = tostring(se_stash:name())
+	local lvl = alife():level_name(game_graph():vertex(se_stash.m_game_vertex_id):level_id())
+	local str = string.find(stash_name,"level_prefix_inventory_box") and (lvl .. "_") or ""
+	local is_rare = caches_rare[str .. stash_name] and true or false
+	
+	local spot
+	if no_spot and (type(no_spot) == "string") then
+		spot = no_spot
+	else
+		spot =  is_rare and "treasure_searched" or "treasure"
+	end
+	
+	-- Create hint
+	if (no_spot ~= true and level.map_has_object_spot(id,spot) == 0) then
+		if string.find(stash_name,"level_prefix") ~= nil then
+			stash_name = string.gsub(stash_name,"level_prefix",lvl,1)
+		end
+	
+		local name = "st_" .. stash_name .. "_name"
+		local descr = "st_" .. stash_name .. "_descr"
+		local new_name = game.translate_string(name)
+		local new_descr = game.translate_string(descr)
+	
+		if (new_name == name) or (descr == new_descr) then
+			return id, hint
+		else
+			return id, new_name, new_descr, hint
+		end
+	end
+	
+	return id, hint
+end
+
+function set_random_stash(no_spot, hint, bonus_items, id, dbg)
+
+	-- Make sure settings are prepared
+	if is_empty(item_list) then
+		init_settings()
+	end
+	
+	-- Check if its rare stash
+	local is_rare = false
+	local se_obj = (not dbg) and alife_object(id)
+	if se_obj then
+		local name = se_obj:name()
+		local lvl = alife():level_name(game_graph():vertex(se_obj.m_game_vertex_id):level_id())
+		local str = string.find(name,"level_prefix_inventory_box") and (lvl .. "_") or ""
+		
+		--is_rare = caches_rare[str .. name] and true or false
+	end
+	
+	-- Rare stashes contain toolkits, they are rewarded if player completed a number of tasks
+	if db.actor and (no_spot ~= true) and (type(no_spot) ~= "string") then -- it has to be a marked non-ISG stash
+		local cnt = load_var(db.actor, "toolkit_reward_count") or 0
+		local factor = stash_rare.start_chance * (cnt / stash_rare.task_num)
+		if (cnt >= stash_rare.task_num) and (math.random(100) < factor) then
+		
+			-- Shift to next toolkit
+			local last_index = load_var(db.actor, "toolkit_reward_last")
+			local new_index = last_index and (last_index + 1) or 1
+			if (new_index > #stash_rare.reward_bonus) then
+				new_index = 1
+			end
+			
+			-- Reset toolkits vars
+			save_var(db.actor, "toolkit_reward_last",new_index)
+			save_var(db.actor, "toolkit_reward_count",0)
+			
+			-- Add to content
+			local toolkit = stash_rare.reward_bonus[new_index]
+			if bonus_items then
+				table.insert(bonus_items,toolkit)
+			else
+				bonus_items = {toolkit}
+			end
+
+			-- Mark as Rare stash
+			is_rare = true
+		end
+	end
+	
+	local min_weight = is_rare and stash_rare.min_weight or stash_common.min_weight
+	local max_weight = is_rare and stash_rare.max_weight or stash_common.max_weight
+	local kind_val   = is_rare and stash_rare.kind_val   or stash_common.kind_val  
+	local tier_val   = is_rare and stash_rare.tier_val   or stash_common.tier_val  
+	local kind_list  = is_rare and stash_rare.kind_list  or stash_common.kind_list 
+	local tier_list  = is_rare and stash_rare.tier_list  or stash_common.tier_list 
+	
+	local stash_weight = math.random(min_weight,max_weight)
+	if (game_achievements.has_achievement("rag_and_bone")) then
+		stash_weight = stash_weight + 200
+	end
+	local content = bonus_items or {}
+	local inc = 0
+	
+	
+	
+	-- Randomized item generating
+	while (stash_weight) > 0 do
+		local skip
+		
+		-- Rotate through shuffled kinds
+		shuffle_table(kind_list)
+		for i=1,#kind_list do
+			local kind = kind_list[i]
+			
+			-- No multi toolkits if its a rare stash
+			if (kind == "i_kit") and is_rare then
+				kind = "na"
+			end
+			
+			-- Rotate through shuffled tiers
+			shuffle_table(tier_list)
+			for j=1,#tier_list do
+				local tier = tier_list[j]
+				
+				-- Get possible item by current kind and tier
+				--printf("rotation: kind = %s - tier = %s", kind, tier)
+				if item_list[kind] and item_list[kind][tier] and tier_val[kind] and tier_val[kind][tier] then
+					local chance = kind_val[kind].chance
+					local chance_multi = tier_val[kind][tier].chance_multi or 1
+					if (math.random(1,100) < (chance * chance_multi) + inc) then
+						local weight = kind_val[kind].weight
+						local weight_multi = tier_val[kind][tier].weight_multi or 1
+						
+						local t = item_list[kind][tier]
+						content[#content + 1] = t[math.random(#t)]
+						
+						stash_weight = stash_weight - ((weight * weight_multi) + (inc * 5))
+						skip = true
+						
+						--printf("calculations: chance = %s - impact = %s", ((chance * chance_multi) + inc), ((weight * weight_multi) + (inc * 5)) )
+					end
+				end
+				
+				if skip then break end
+			end	
+			
+			if skip then break end
+		end
+		
+		if (not skip) then
+			inc = inc + 10
+		else
+			inc = (inc >= 10) and inc - 10 or 0
+		end
+		
+		skip = false
+	end
+	
+	-- Debug simulation
+	if dbg then
+		local str = id .. " | "
+		for i=1,#content do
+			local itm = content[i]
+			str = str .. " - " .. itm
+			dbg_items[itm] = dbg_items[itm] and (dbg_items[itm] + 1) or 1
+		end
+		printf(str)
+		
+	-- Apply the content + Add map spot
+	else
+		if (#content > 0) then
+		
+			local spot
+			if no_spot and (type(no_spot) == "string") then
+				spot = no_spot
+			else
+				spot = is_rare and "treasure_searched" or "treasure"
+			end
+			
+			if (no_spot ~= true and level.map_has_object_spot(id,spot) == 0) then
+				level.map_add_object_spot_ser(id, spot, hint or "")
+				news_manager.send_treasure(0)
+			end
+			caches[id] = table.concat(content,",")
+			return id
+		else
+			caches[id] = false
+		end
+	end
+	
+	return
+end
+
+function try_spawn_treasure(box)
+	local id = box:id()
+
+	--printf("try_spawn_treasure [%s]",caches[id])
+
+	if not (caches[id]) then
+		return
+	end
+
+	if not (type(caches[id]) == "string") then
+		return
+	end
+
+	local spawned_item = str_explode(caches[id],",")
+	caches[id] = true
+
+	local section,flag,ammos,ct,ammo_type,ammo_section
+
+	for i=1,#spawned_item do
+		section = spawned_item[i]
+		
+		-- Weapons
+		if ini_sys:section_exist(section) and ini_sys:r_string_ex(section,"ammo_class") then
+			local se_obj = alife_create(section,box:position(),box:level_vertex_id(),box:game_vertex_id(),id,false)
+			if (se_obj) then
+				local cls = se_obj:clsid()
+				if (IsWeapon(nil,cls) and cls ~= clsid.wpn_knife_s) then
+					--printf("treasure_manager: item is fa")
+					local data = utils_stpk.get_weapon_data(se_obj)
+					if (data) then
+						-- Create random addon flag for weapon
+						local flag = 0
+
+						if (ini_sys:r_float_ex(section,"scope_status")) then
+							flag = flag + 1
+						end
+
+						if (ini_sys:r_float_ex(section,"grenade_launcher_status")) then
+							flag = flag + 2
+						end
+
+						if (ini_sys:r_float_ex(section,"silencer_status")) then
+							flag = flag + 4
+						end
+
+						flag = math.random(0,flag)
+
+						-- Create random ammo type
+						ammos = parse_list(ini_sys,section,"ammo_class")
+						ct = ammos and #ammos
+						ammo_type = ammos and ct and math.random(0,ct-1) or 0
+						ammo_section = ammo_type and ammos[ammo_type+1]
+
+						data.addon_flags = flag
+						data.ammo_type = ammo_type
+						data.condition = (math.random(30)/100)
+						utils_stpk.set_weapon_data(data,se_obj)
+					end
+					--printf("treasure_manager: item is fa- end")
+				end
+				-- because we didn't register, we do it now, manually
+				alife():register(se_obj)
+			end
+			
+		-- Special case for weapons
+		else
+			alife_create_item(section, box, item_prop_table)
+		end
+		
+	end
+end
+
+
+------------------------------------------------------------------------------------------------------------------
+--							UTILITIES
+------------------------------------------------------------------------------------------------------------------
+function box_in_same_map(id)
+	local obj1 = alife():actor()
+	local obj2 = alife_object(id)
+	--return simulation_objects.is_on_the_same_level(obj1, obj2) or simulation_objects.is_on_the_linked_level(obj1, obj2)
+	return simulation_objects.is_on_the_nearby_level(obj1, obj2)
+end
+
+function box_in_valid_map(id)
+	local se_stash = alife_object(id)
+	local lvl = se_stash and alife():level_name(game_graph():vertex(se_stash.m_game_vertex_id):level_id())
+	--printf("%s Stash (%s) is in level: %s", blacklisted_maps[lvl] and "!" or "-", id, lvl)
+	return (blacklisted_maps[lvl] ~= true)
+end
+
+function release_stash_by_id(id)
+	if id and caches[id] then
+		caches[id] = nil
+		caches_count = caches_count - 1
+	end
+end
+
+function simulate_stash_creation(num) -- debug
+	printf("--------- Create Stash: ")
+	for i=1,num do
+		printf("----------------------------------------------------------")
+		set_random_stash(nil, nil, nil, i, true)
+	end
+	
+	printf("--------- Items count: ")
+	for k,v in utils_data.pairsByKeys(dbg_items) do
+		printf(k .. " := " .. v)
+	end
+end
+
+
+------------------------------------------------------------------------------------------------------------------
+--							CALLBACKS
+------------------------------------------------------------------------------------------------------------------
+local function on_game_load()
+	if (caches_count > 0) then
+		return
+	end
+	
+	if is_empty(item_list) then
+		init_settings()
+	end
+
+	local sim = alife()
+	local gg = game_graph()
+	for i=1, sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if (se_obj) then
+			if (IsInvbox(nil,se_obj:clsid())) then
+				local name = se_obj:name()
+				if (not caches_blacklist[name]) then
+					caches[se_obj.id] = false
+					caches_count = caches_count + 1
+					
+					if enable_debug then
+						local lvl = sim:level_name(gg:vertex(se_obj.m_game_vertex_id):level_id())
+						local str = string.find(name,"level_prefix_inventory_box") and (lvl .. "_") or ""
+						local spot = caches_rare[str .. name] and "treasure_searched" or "treasure"
+						level.map_add_object_spot_ser(se_obj.id, spot, str .. name)
+					end
+				end
+			end
+		end
+	end
+
+	for i=1, math.floor(caches_count/2) do
+		create_random_stash(true,"stash")
+	end
+end
+
+local function actor_on_item_take_from_box(box,itm)
+	local id = box:id()
+	if (caches[id] == true) then
+		caches[id] = false
+		--hide_hud_inventory()
+		
+		level.map_remove_object_spot(id, "treasure")
+		level.map_remove_object_spot(id, "treasure_searched")
+		level.map_remove_object_spot(id, "treasure_unique")
+		
+		game_statistics.increment_statistic("stashes_found")
+		news_manager.send_treasure(1)
+		
+		local sim = alife()
+		local se_stash = sim:object(id)
+		local lvl = sim:level_name(game_graph():vertex(se_stash.m_game_vertex_id):level_id())
+		item_radio.clear_stash(lvl, id)
+	end
+end
+
+local function save_state(data)
+	--utils_data.debug_write("treasure_manager.save_state")
+	if (caches_count <= 0) then
+		return
+	end
+
+	if not (data.treasure_manager) then
+		data.treasure_manager = {}
+	end
+
+	data.treasure_manager.caches_count = caches_count
+	data.treasure_manager.caches = caches
+end
+
+local function load_state(data)
+	if not (data.treasure_manager) then
+		return
+	end
+
+	caches_count = data.treasure_manager.caches_count or caches_count
+	caches = data.treasure_manager.caches or caches
+
+	data.treasure_manager.caches_count = nil
+	data.treasure_manager.caches = nil
+end
+
+local function physic_object_on_use_callback(box,who)
+	if (IsInvbox(box)) then
+		try_spawn_treasure(box)
+	end
+end
+
+local function map_spot_menu_add_property(ui,id,lvl)
+	local se_obj = alife_object(id)
+	if not (se_obj) then
+		return
+	end
+	
+	if (IsInvbox(nil,se_obj:clsid())) then
+		ui:AddItem("Save as Rare Stash")
+	end
+end
+
+local function map_spot_menu_property_clicked(property_ui,id,level_name,prop)
+	local se_obj = alife_object(id)
+	if not (se_obj) then
+		return
+	end
+	
+	if (prop == "Save as Rare Stash") then
+		local ltx = ini_file_ex("items\\settings\\treasure_manager.ltx",true)
+		local name = se_obj:name()
+		local lvl = alife():level_name(game_graph():vertex(se_obj.m_game_vertex_id):level_id())
+		local str = string.find(name,"level_prefix_inventory_box") and (lvl .. "_") or ""
+		ltx:w_value("rare_stashes_names",(str .. name),"true")
+		ltx:save()
+		printf("- Treasure manager | name (%s) saved for rare stash", (str .. name))
+	end
+end
+
+function save(pk)
+	if (USE_MARSHAL) then
+		return
+	end
+	pk:w_u16(caches_count)
+	for id,v in pairs(caches) do
+		pk:w_u16(id)
+		pk:w_bool(v)
+	end
+end
+
+function load(pk)
+	if (USE_MARSHAL) then
+		return
+	end
+	caches_count = pk:r_u16()
+	for i=1,caches_count do
+		caches[pk:r_u16()] = pk:r_bool()
+	end
+end
+
+
+------------------------------------------------------------------------------------------------------------------
+--							ON GAME START
+------------------------------------------------------------------------------------------------------------------
+function on_game_start()
+	RegisterScriptCallback("on_game_load",on_game_load)
+	RegisterScriptCallback("actor_on_item_take_from_box",actor_on_item_take_from_box)
+	RegisterScriptCallback("save_state",save_state)
+	RegisterScriptCallback("load_state",load_state)
+	RegisterScriptCallback("physic_object_on_use_callback",physic_object_on_use_callback)
+	
+	if enable_debug then
+		RegisterScriptCallback("map_spot_menu_add_property",map_spot_menu_add_property)
+		RegisterScriptCallback("map_spot_menu_property_clicked",map_spot_menu_property_clicked)
+	end
+end
diff --git a/gamedata/scripts/txr_mines.script b/gamedata/scripts/txr_mines.script
new file mode 100644
index 000000000..7beb68360
--- /dev/null
+++ b/gamedata/scripts/txr_mines.script
@@ -0,0 +1,238 @@
+-- game seconds
+local function printf() end
+
+local MIN_FORGET_TIME 	= 60*10
+local MAX_FORGET_TIME 	= 60*30
+local FUSE_TIME 		= 5
+local TRIGGER_RADIUS 	= 2.5
+
+local MODE_PROX 	= 0
+local MODE_TIMER 	= 1
+local MODE_REMOTE 	= 2
+
+-- now have same name as section but may change
+local FX_BY_SECTION = {
+	mine_new 	= 'mine',
+	ied_rpg_new = 'ied_rpg',
+	ied_new 	= 'ied',
+}
+
+local EXPLOSIVE_SECTION_LOOKUP = {
+	mine_new 	= 'mine_new_blow',
+	ied_rpg_new = 'rpg_new_blow',
+	ied_new 	= 'ied_new_blow',
+}
+
+_mines = {}
+
+function str_prox_plant()
+	return 'st_plant_explosive_prox'
+end
+function str_timer_plant_10()
+	return 'st_plant_explosive_timer_10'
+end
+function str_timer_plant_30()
+	return 'st_plant_explosive_timer_30'
+end
+
+function func_timer_plant_10(obj) plant_bomb(obj,MODE_TIMER,10) end
+function func_timer_plant_30(obj) plant_bomb(obj,MODE_TIMER,30) end
+function func_prox_plant(obj) plant_bomb(obj,MODE_PROX) end
+local vec_addon = vector():set(0,0.1,0)
+
+function plant_bomb(obj, mode, delay)
+	printf('plant_bomb(%s,%s,%s)', obj:name(), mode, delay)
+	local now = tss() 
+	local used_section = obj:section()
+	local used_id = obj:id()
+	local planted_section = EXPLOSIVE_SECTION_LOOKUP[used_section]
+	printf('planted_section = %s', planted_section)
+	local cd = device().cam_dir
+	-- local r = level.get_target_dist()
+	-- local lvid = level.vertex_in_direction(level.vertex_id(device().cam_pos),device().cam_dir,r)
+	-- local p = level.vertex_position(vid)
+	local ap = db.actor:position()
+	local pp = vector():set(ap.x + cd.x, ap.y + 0.1, ap.z + cd.z)
+	local vid = level.vertex_id(pp)
+	pp = level.vertex_position(vid)
+	
+	
+	local planted_se = alife_create(planted_section,ap,db.actor:level_vertex_id(),db.actor:game_vertex_id())
+	printf('creating %s at', planted_se:name())
+	printf('%s,%s,%s,%s,%s',ap.x,ap.y,ap.z,db.actor:level_vertex_id(),db.actor:game_vertex_id())
+	printf('actual position')
+	printf('%s,%s,%s,%s,%s',planted_se.position.x,planted_se.position.y,planted_se.position.z,planted_se.m_level_vertex_id,planted_se.m_game_vertex_id)
+	
+	-- local planted_se = alife_create(planted_section,p,lvid,db.actor:game_vertex_id())
+	local planted_id = planted_se.id
+	
+	printf('try FX')
+	_ = FX_BY_SECTION[used_section] and actor_effects.play_item_fx(FX_BY_SECTION[used_section])
+	
+	printf('check witnesses')
+	local witnesses = {}
+	for i in pairs(db.OnlineStalkers) do
+		local id = db.OnlineStalkers[i]
+		local npc = level.object_by_id(id)
+		if npc and IsStalker(npc) and npc:alive() then
+			if npc:see(db.actor) then
+				printf('%s saw player plant %s', npc:name(), planted_se:name())
+				witnesses[id] = now + math.random(MIN_FORGET_TIME, MAX_FORGET_TIME)*level.get_time_factor()
+			end
+		end
+	end
+	
+	printf('save mine data')
+	_mines[planted_id] = {
+		exp_time = now + (delay or FUSE_TIME) * level.get_time_factor(),
+		mode = mode,
+		witnesses = witnesses,
+		-- level = level.name(),
+		active = true
+		-- blast_radius = ini_sys:r_float_ex(planted_section,"blast_r")
+	}
+	
+	
+	printf('create release event')
+	CreateTimeEvent(0,"release_planted_mine",0,release_item, used_id)
+end
+
+function release_item(id)
+	printf('try release %s', id)
+	alife_release_id(id)
+	printf('%s released', id)
+	return true
+end
+
+function trigger_mine(id)
+	local obj = level.object_by_id(id)
+	if obj then 
+		printf('[%s]:explode()', obj:name())
+		obj:explode(0)
+	else
+		printf('coulnt find game object for %s', id)
+	end
+	_mines[id].active = false
+end
+
+function tss()
+	return game.get_game_time():diffSec(level.get_start_time())
+end
+
+function on_game_start()
+	RegisterScriptCallback("npc_on_update",generic_on_update)
+	RegisterScriptCallback("actor_on_update",actor_on_update)
+	RegisterScriptCallback("monster_on_update",generic_on_update)
+	RegisterScriptCallback("save_state",save_state)
+	RegisterScriptCallback("load_state",load_state)
+	RegisterScriptCallback("npc_on_before_hit",npc_on_before_hit)
+end
+
+function npc_on_before_hit(npc,shit,bone_id,flags)
+	printf('%s about to be hit by %s', npc and npc:name(), shit and shit.draftsman and shit.draftsman:name())
+	
+	-- if damage is dealt by player explosive and victim is a witness deliver the hit as if the player did and negate the explosive damage
+	if shit.draftsman and _mines[shit.draftsman:id()] then
+		printf('hit replaced')
+		local h = hit(shit)
+		h.draftsman = db.actor
+		npc:hit(h)
+		flags.ret_value = false
+	end
+end
+
+-- mines aren't worth shit and aren't amassed like ammo so even if some players lose 2-3 of them is no big deal, definitely not worth the autism to search and replace all occurrences
+function mine_killer()
+	for i=1, alife():max_id() - 1 do
+		local se = alife_object(i)
+		if
+			se
+			and (
+				se:section_name() == 'mine'
+				or se:section_name() == 'ied'
+				or se:section_name() == 'ied_rpg'
+				)
+		then
+			alife_release_id(se.id)
+		end
+	end
+end
+
+function actor_on_update()
+	if not alife_storage_manager.get_state().mine_kill then
+		alife_storage_manager.get_state().mine_kill = true
+		mine_killer()
+	end
+	generic_on_update(db.actor)
+	manage_timer_explosives()
+	periodic_clean()
+end
+
+local next_clean = 0
+function periodic_clean()
+	if time_global() > next_clean then
+		next_clean = time_global() + 5000
+		clean_mines()
+	end
+end
+
+-- trigger if actor/npc/mutant are close enough to a proximity bomb
+function generic_on_update(npc)
+	local npcpos = npc:position()
+	local now = tss()
+	
+	if not npc:alive() then return end
+	for mine_id, data in pairs(_mines) do
+		local mine = level.object_by_id(mine_id) 
+		if 
+			mine
+			and data.active
+			and data.mode == MODE_PROX
+			and now >= data.exp_time
+			and mine:position():distance_to(npcpos) <= TRIGGER_RADIUS
+		then	
+			printf('%s triggered by %s', mine:name(), npc:name())
+			printf('%s, %s, %s',mine:position().x, mine:position().y, mine:position().z)
+			trigger_mine(mine_id)
+		end
+	end
+end
+
+function manage_timer_explosives()
+	local now = tss()
+	for mine_id, data in pairs(_mines) do
+		local mine = level.object_by_id(mine_id)
+		-- printf('testing %s -> %s', mine_id, mine and mine:name())
+		if 	
+			mine
+			and data.active
+			and data.mode == MODE_TIMER
+			and now >= data.exp_time
+		then
+			printf('%s triggered by time', mine:name())
+			printf('%s, %s, %s',mine:position().x, mine:position().y, mine:position().z)
+			trigger_mine(mine_id)
+		end
+	end
+end
+
+function clean_mines(id)
+	if id then
+		_mines[id] = nil
+	else
+		for mine_id, data in pairs(_mines) do
+			local se = alife_object(mine_id)
+			if not se then
+				_mines[mine_id] = nil
+			end
+		end
+	end
+end
+	
+function save_state(md) 
+	clean_mines()
+	md.new_mines = _mines
+end
+function load_state(md) 
+	_mines = md.new_mines or {}
+end
\ No newline at end of file
diff --git a/gamedata/scripts/ui_map_debug_ex.script b/gamedata/scripts/ui_map_debug_ex.script
new file mode 100644
index 000000000..fe0819fae
--- /dev/null
+++ b/gamedata/scripts/ui_map_debug_ex.script
@@ -0,0 +1,298 @@
+--==============( Ported from CoC 1.5, for Debug Map HUD )==============--
+
+feature_is_active = nil
+local display_cnt, cnt, cnt2 = {10,20,50,100}, 2, nil
+local rank_spots
+local _tmr
+local gates, stashes, stashes_opened, anom_zone_show, artefact_show
+
+-- Callback on_key_press
+local function on_key_press(dik)
+	if (has_alife_info("ui_pda_hide")) then
+		return
+	end
+
+	if (dik == DIK_keys.DIK_LCONTROL) then
+		if gates then
+			unhide_fast_travel()
+		else
+			hide_fast_travel()
+		end
+	end
+	
+	if (dik == DIK_keys.DIK_LSHIFT) then
+		if stashes == nil then
+			show_stash()
+			stashes = true
+		elseif stashes_opened == nil then
+			hide_stash()
+			show_stash_opened()
+			stashes_opened = true
+		else
+			hide_stash_opened()
+			stashes = nil 
+			stashes_opened = nil
+		end
+	end
+
+	if (dik == DIK_keys.DIK_LMENU) then
+		if anom_zone_show == nil then
+			show_anom_zones()
+			anom_zone_show = true
+		elseif artefact_show == nil then
+			hide_anom_zones()
+			show_artefacts()
+			artefact_show = true
+		else
+			hide_artefacts()
+			anom_zone_show = nil
+			artefact_show = nil 
+		end
+	end
+
+	if (dik == DIK_keys.DIK_RCONTROL) then
+		if cnt == #display_cnt then
+			cnt = 1
+		else
+			cnt = cnt + 1
+		end
+		clear_rank_spots()
+		set_rank_spots()
+	elseif (dik == DIK_keys.DIK_RSHIFT) then
+		if cnt == 1 then
+			cnt = #display_cnt
+		else
+			cnt = cnt - 1
+		end
+		clear_rank_spots()
+		set_rank_spots()
+	end
+end
+
+local function actor_on_info_callback(actor,infop,obj)
+	if not (infop == "ui_pda_hide") then 
+		return
+	end
+	if (stashes) then 
+		hide_stash()
+		stashes = nil
+	end 
+	if (stashes_opened) then 
+		hide_stash_opened()
+		stashes_opened = nil
+	end 
+	if (anom_zone_show) then 
+		hide_anom_zones()
+		anom_zone_show = nil
+	end 
+	if (artefact_show) then 
+		hide_artefacts()
+		artefact_show = nil
+	end
+	if (gates) then 
+		unhide_fast_travel()
+		gates = nil
+	end
+end 
+
+function on_game_start()
+	if not (DEV_DEBUG) then 
+		return 
+	end
+	if (ui_options.get("other/debug_map_hud") == true) then
+		activate_feature()
+	end
+end
+
+function activate_feature()
+	if (feature_is_active) then
+		return 
+	end
+	feature_is_active = true
+	sim_squad_scripted.dbg_map_hud = true
+	sim_squad_warfare.dbg_map_hud = true
+	
+	RegisterScriptCallback("on_key_press",on_key_press)
+	RegisterScriptCallback("actor_on_info_callback",actor_on_info_callback)
+--	set_rank_spots()
+	
+end
+	
+function deactivate_feature()
+	if not (feature_is_active) then
+		return 
+	end
+	feature_is_active = false
+	sim_squad_scripted.dbg_map_hud = false
+	sim_squad_warfare.dbg_map_hud = false
+	
+	if stashes then
+		hide_stash()
+	end
+	
+	gates = nil
+	rank_spots = nil
+	UnregisterScriptCallback("on_key_press",on_key_press)
+end
+
+function set_rank_spots()
+		
+	rank_spots = pda and pda.coc_ranking_list
+	if rank_spots == nil then return end
+	
+	local sim = alife()
+	for i=1,display_cnt[cnt] do
+		local se_obj = sim:object(rank_spots[i])
+		if rank_spots[i] ~= 0 and se_obj and IsStalker(nil,se_obj:clsid()) and se_obj:alive() and (level.map_has_object_spot(rank_spots[i],"explo_location")==0) then
+			level.map_add_object_spot(rank_spots[i],"explo_location",se_obj:character_name().." ("..se_obj:community()..")")
+		end
+	end
+	cnt2 = cnt
+end
+
+function clear_rank_spots()
+	if cnt2 == nil then return end
+	for i=1,display_cnt[cnt2] do
+		if (level.map_has_object_spot(rank_spots[i],"explo_location")~=0) then
+			level.map_remove_object_spot(rank_spots[i], "explo_location")
+		end
+	end
+end
+
+function show_stash()
+		--show all filled caches
+	local tbl,a = {},{}
+	for id,v in pairs(treasure_manager.caches) do
+		if (type(v) == "string") then
+			local t = str_explode(v,",")
+			local str = ""
+			local se_stash = alife_object(id)
+			if se_stash then
+				str = str .. se_stash:name() .. " \\n"
+			end
+			for i=1,#t do
+				tbl[t[i]] = (tbl[t[i]] or 0) + 1
+				str = str .. "- " .. t[i] .. " \\n"
+			end
+			level.map_add_object_spot_ser(id, "treasure_all", str)
+		end
+	end
+	for k in pairs(tbl) do a[#a+1] = k end
+	table.sort(a)
+	for i,n in ipairs(a) do 
+		--printf("> Stash item | section = " .. n .. " | amount = " .. tostring(tbl[n]))
+	end
+end
+
+function hide_stash()
+		--hide all filled caches
+	for i=1,alife():max_id() - 1 do
+		if (level.map_has_object_spot(i, "treasure_all") ~= 0) then
+			level.map_remove_object_spot(i, "treasure_all")
+		end
+	end
+end
+
+function show_stash_opened()
+		--show all opened caches
+	local sim = alife()
+	local caches = treasure_manager.caches
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if (se_obj) then
+			local parent_id = se_obj.parent_id
+			if parent_id and caches[parent_id] == true then
+				if stashes_opened == nil then stashes_opened = {} end
+				if stashes_opened[parent_id] == nil then stashes_opened[parent_id] = "" end
+				stashes_opened[parent_id] = stashes_opened[parent_id] .. " " .. se_obj:section_name()
+			end
+		end
+	end
+	if stashes_opened then
+		--utils_data.print_table(stashes_opened, "previously opened unlooted stashes")
+		for id, v in pairs(stashes_opened) do
+			if (level.map_has_object_spot(id, "treasure_all_opened") == 0) then
+				level.map_add_object_spot_ser(id, "treasure_all_opened", v)
+			end
+		end
+	else
+		printf("No opened stashes")
+	end
+end
+
+function hide_stash_opened()
+		--hide all opened caches
+	for i=1,alife():max_id() - 1 do
+		if (level.map_has_object_spot(i, "treasure_all_opened") ~= 0) then
+			level.map_remove_object_spot(i, "treasure_all_opened")
+		end
+	end
+end
+
+function hide_fast_travel()
+	local size = 0
+	gates = {}
+	for i=1,alife():max_id() - 1 do
+		if (level.map_has_object_spot(i, "fast_travel") ~= 0) then
+			size = size + 1
+			level.map_remove_object_spot(i, "fast_travel")
+			gates[size] = i
+		end
+	end
+end
+
+function unhide_fast_travel()
+	for i=1, #gates do
+		if (level.map_has_object_spot(gates[i], "fast_travel") == 0) then 
+			level.map_add_object_spot(gates[i], "fast_travel", "st_pda_fast_travel")
+		end
+	end
+	gates = nil
+end
+
+function show_anom_zones()
+	for name,binder in pairs(db.anomaly_by_name) do 
+		local obj = binder.object
+		if (obj and level.map_has_object_spot(obj:id(), "anom_zone") == 0) then
+			local props = strformat("%s \\nartefacts=%s of %s [tries=%s]",name,binder.spawned_count,binder.max_artefacts,binder.respawn_tries)
+			level.map_add_object_spot_ser(obj:id(), "anom_zone", props)
+		end
+	end
+end 
+
+function hide_anom_zones()
+	for i=1,alife():max_id() - 1 do
+		if (level.map_has_object_spot(i, "anom_zone") ~= 0) then
+			level.map_remove_object_spot(i, "anom_zone")
+		end
+	end
+end
+
+function show_artefacts()
+	local sim = alife()
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if (se_obj and se_obj:clsid() == clsid.artefact_s) then
+			if (level.map_has_object_spot(i, "artefact") == 0) then
+				local props = se_obj:name()
+				
+				if (bind_anomaly_zone.artefact_ways_by_id[i]) then 
+					local anom_zone = bind_anomaly_zone.parent_zones_by_artefact_id[i]
+					if (anom_zone and anom_zone.object) then 
+						props = props .. " \\nparent = " .. anom_zone.object:name()
+					end 
+				end
+				
+				level.map_add_object_spot_ser(se_obj.id, "artefact", props)
+			end
+		end
+	end
+end 
+
+function hide_artefacts()
+	for i=1,alife():max_id() - 1 do
+		if (level.map_has_object_spot(i, "artefact") ~= 0) then
+			level.map_remove_object_spot(i, "artefact")
+		end
+	end
+end
\ No newline at end of file
diff --git a/gamedata/scripts/utils_item.script b/gamedata/scripts/utils_item.script
new file mode 100644
index 000000000..22364f569
--- /dev/null
+++ b/gamedata/scripts/utils_item.script
@@ -0,0 +1,1442 @@
+
+--====================================================================
+-- Utilities for dealing with items
+--====================================================================
+
+local enable_debug = false
+function print_dbg(fmt,...)
+	if enable_debug then
+		printf("-utils_item | " .. fmt,...)
+	end
+end
+
+----------------------------------------------------------------------
+-- Utilities
+----------------------------------------------------------------------
+local string_find   = string.find
+local string_match  = string.match
+local string_sub    = string.sub
+
+local read_from_ini = utils_data.read_from_ini
+
+
+----------------------------------------------------------------------
+-- Parsing
+----------------------------------------------------------------------
+local cache_param = {}
+local cache_param_key = {}
+local function check_cache(id, param, by_key)
+	if by_key then
+		return cache_param_key[id] and (cache_param_key[id][param] ~= nil)
+	end
+	
+	return cache_param[id] and (cache_param[id][param] ~= nil)
+end
+local function add_cache(id, param, value, by_key)
+	print_dbg("add_cache | id: %s - param: %s - value: %s - by_key: %s", id, param, value, by_key)
+	if by_key then
+		if (not cache_param_key[id]) then
+			cache_param_key[id] = {}
+		end
+		cache_param_key[id][param] = value
+		
+	else
+		if (not cache_param[id]) then
+			cache_param[id] = {}
+		end
+		cache_param[id][param] = value
+	end
+end
+local function get_cache(id, param, by_key)
+	print_dbg("get_cache | id: %s - param: %s - by_key: %s", id, param, by_key)
+	if by_key then
+		return cache_param_key[id] and cache_param_key[id][param]
+	end
+	
+	return cache_param[id] and cache_param[id][param]
+end
+
+
+local function item_vector_to_num(str, value)
+	local r = parse_names(str)
+	r = tonumber(r[1]) or 0
+	if value < r then
+		return r
+	end
+	return value
+end
+
+local function item_float_to_num(str, value)
+	if string_find(str,"f") then
+		return tonumber( string_sub(str,1,-2) )
+	end
+	return tonumber(str)
+end
+
+local param_special = {
+	["hit_power"]               = { typ= "string" , functor= item_vector_to_num },
+	["control_inertion_factor"] = { typ= "string" , functor= item_float_to_num },
+}
+
+function get_ammo(section, id, by_key)
+	print_dbg("get_ammo | section: %s - id: %s - by_key: %s", section, id, by_key)
+	
+	local ammo_list = {}
+	
+	-- If object exists
+	if id then
+		local obj = level.object_by_id(id)
+		if (not obj) then
+			return {}
+		end
+		
+		local cobj = obj:cast_Weapon()
+		if (not cobj) then
+			return {}
+		end
+		
+		cobj:AmmoTypeForEach( function(i, ammo_sec)
+			if by_key then
+				ammo_list[ammo_sec] = true
+			else
+				ammo_list[#ammo_list + 1] = ammo_sec
+			end
+		end)
+		
+	-- If section exists
+	elseif section and ini_sys:r_string_ex(section, "ammo_class") and (not IsItem("fake_ammo_wpn", section)) then
+		
+		-- If weapon ammo is cached, no need for new calculations
+		if check_cache(section, "ammo_class", by_key) then 
+			return get_cache(section, "ammo_class", by_key)
+		end
+	
+		-- Look through section and pre-installed upgrades
+		ammo_list = parse_list(ini_sys,section,"ammo_class",by_key)
+		local installed_upgr = parse_list( ini_sys, section, "installed_upgrades")
+		for _,upgrade in pairs(installed_upgr) do
+			local props = parse_list(ini_sys,tostring(upgrade),"property",true)
+			if props["prop_calibre"] or props["prop_no_buck"] then
+				local upgrade_sect = read_from_ini(ini_sys, tostring(upgrade), "section", "string", nil)
+				ammo_list = parse_list(ini_sys,upgrade_sect,"ammo_class",by_key)
+				print_dbg("get_ammo | section: %s - id: %s | found installed-upgrade [%s], new ammo: %s", section, id, upgrade, ammo_list[1])
+				break
+			end
+		end
+		
+		-- Cache
+		add_cache(section, "ammo_class", dup_table(ammo_list), by_key)
+	end
+
+	return ammo_list
+end
+
+function get_param(section, id, param, typ, add)
+	print_dbg("get_param | section: %s - id: %s - param: %s - type: %s - add: %s - upgrades table passed: %s", section, id, param, typ, add)
+	
+	-- Validate
+	if not (section and param) then
+		callstack()
+		printf("!ERROR utils_item.get_param | missing parameters")
+		return
+	end
+	
+	-- If item param is cached, no need for new calculations
+	if check_cache( (id or section), param) then 
+		return cache_param[ (id or section) ][param]
+	end
+	
+	-- For ammo, use its own function
+	if param == "ammo_class" then
+		return get_ammo(section, id, false)
+	end
+	
+	-- Read section
+	local typ_t = typ 
+	typ = param_special[param] and param_special[param].typ or typ
+	
+	local value = read_from_ini(ini_sys, section, param, typ, nil)
+	if (value == nil) then
+		--printf("!ERROR itms_manager.get_item_param | param (%s) doesn't exist for [%s]", param, section)
+		return
+	end
+	if param_special[param] then
+		value = param_special[param].functor(value,0)
+	end
+	print_dbg("get_param | section: %s - id: %s - param: %s | value in section: %s", section, id, param, value)
+
+	-- Read installed upgrades
+	local installed_upgr = id and get_upgrades_installed(nil, id) or parse_list( ini_sys, section, "installed_upgrades")
+	for k,upgr in pairs(installed_upgr) do
+		local upgrade_sect = ini_sys:r_string_ex(upgr, "section")
+		local upgrade_value = utils_data.read_from_ini(ini_sys, upgrade_sect, param, typ, nil)
+		if (upgrade_value ~= nil) then
+			if param_special[param] then
+				upgrade_value = param_special[param].functor(upgrade_value,value)
+			end
+
+			if add and (typ_t == "float") then
+				value = value + upgrade_value
+			else
+				value = upgrade_value
+			end
+			print_dbg("get_param | section: %s - id: %s - param: %s | found installed-upgrade [%s], adjusted value: %s", section, id, param, upgr, value)
+		end
+	end
+	
+	-- Cache
+	add_cache(id or section, param, value)
+	
+	return value
+end
+
+function get_cond_static(condition)
+	if game_difficulties.get_eco_factor("percentage_parts") then
+		return condition
+	end
+
+	return (condition <= 25 and 25) or (condition <= 50 and 50) or (condition <= 75 and 75) or 100
+end 
+
+function get_defined_uses(sec_d)
+	local _, __, sec_u, uses = string_find(sec_d,"(.*)__(%d)")
+	if sec_u and uses and ini_sys:section_exist(sec_u) then
+		return sec_u, tonumber(uses)
+	end
+	return sec_d
+end
+
+
+----------------------------------------------------------------------
+-- Weapons
+----------------------------------------------------------------------
+local wpn_param_by_name = { -- factors are used to convert from engine values to ltx | 1: multiply - 2: divide
+	["fire_dispersion_base"]    = { typ= "float", func= "GetFireDispersion" ,factor_1= (180.0/math.pi)},
+	["PDM_disp_base"]           = { typ= "float" ,func= "Get_PDM_Base"},
+	["control_inertion_factor"] = { typ= "float"	},
+	["hit_power"]               = { typ= "float" ,func= "GetHitPower"},
+	["scopes_sect"]           	= { typ= "string" ,func= "GetScopeName", sec= "scope_name"},
+	["silencer_name"]           = { typ= "string" ,func= "GetSilencerName"},
+	["grenade_launcher_name"]   = { typ= "string" ,func= "GetGrenadeLauncherName"},
+	["rpm"]   					= { typ= "float" 	},
+}
+
+function get_wpn_param(obj, sec, name, def)
+	if (not name) then
+		return def
+	end
+	
+	local param = wpn_param_by_name[name]
+	if (not param) then
+		return def
+	end
+	
+	-- Object exists
+	if obj and param.func then
+		local cobj = obj:cast_Weapon()
+		if (not cobj) then
+			return def
+		end
+		
+		local val = cobj[param.func](cobj)
+		if param.factor_1 then
+			val = param.factor_1 * val
+		end
+		if param.factor_2 then
+			val = param.factor_2 / val
+		end
+		--printf("[%s](%s) = %s", obj:name(), name, val) 
+		return val or def
+		
+	-- Section exists
+	elseif sec and param.typ then
+		local val = get_param(sec, obj and obj:id(), name, param.typ, true)
+		if param.sec then
+			return val and ini_sys:r_string_ex(val, param.sec) or def
+		end
+		return val or def
+	end
+	
+	return def
+end
+
+
+-- Addons
+local wpn_addons = {
+	["sc"] = {[1] = true,[3] = true,[5] = true,[7] = true}, -- Scope
+	["sl"] = {[4] = true,[5] = true,[6] = true,[7] = true}, -- Silencer
+	["gl"] = {[2] = true,[3] = true,[6] = true,[7] = true}, -- Grenade Launcher
+}
+function addon_attached(obj, addon, flag)
+	if wpn_addons[addon] then
+		return wpn_addons[addon][flag or get_addon_flag(obj,true)] == true
+	end
+	return false
+end
+
+local addon_memo = {}
+function get_addon_flag(obj, with_int)
+	local id = obj:id()
+	local tg = time_global()
+	print_dbg("get_addon_flag | name: %s - with_int: %s", obj and obj:name(), with_int)
+	
+	if (tg == addon_memo.tg) and (addon_memo.id == id) and (addon_memo.wi == with_int) then
+		return addon_memo.fl
+	else
+		local flag = 0
+		if obj:weapon_is_scope() then
+			if with_int or get_addon_status(obj,"sc") == 2 then
+				flag = 1
+			end
+		end
+		if obj:weapon_is_silencer() then
+			if with_int or get_addon_status(obj,"sl") == 2 then
+				flag = flag + 4
+			end
+		end
+		if obj:weapon_is_grenadelauncher() then
+			if with_int or get_addon_status(obj,"gl") == 2 then
+				flag = flag + 2
+			end
+		end
+		
+		addon_memo = {tg = tg, id = id, wi = with_int, fl = flag}
+		
+		return flag
+	end
+end
+function get_addon_status(obj, addon)
+	if (addon == "sc") then
+		return obj:weapon_scope_status()
+	elseif (addon == "sl") then
+		return obj:weapon_silencer_status()
+	elseif (addon == "gl") then
+		return obj:weapon_grenadelauncher_status()
+	end
+	return 0
+end
+
+local fa_cls = {
+	[clsid.wpn_pm_s]           = true,
+	[clsid.wpn_walther_s]      = true,
+	[clsid.wpn_usp45_s]        = true,
+	[clsid.wpn_hpsa_s]         = true,
+	[clsid.wpn_bm16_s]         = true,
+	[clsid.wpn_shotgun_s]      = true,
+	[clsid.wpn_auto_shotgun_s] = true,
+	[clsid.wpn_ak74_s]         = true,
+	[clsid.wpn_lr300_s]        = true,
+	[clsid.wpn_groza_s]        = true,
+	[clsid.wpn_val_s]          = true,
+	[clsid.wpn_vintorez_s]     = true,
+	[clsid.wpn_svu_s]          = true,
+	[clsid.wpn_svd_s]          = true,
+	[clsid.wpn_rg6_s]          = true,
+	[clsid.wpn_rpg7_s]         = true,
+	[clsid.wpn_knife_s]        = true,
+}
+function item_is_fa(o,c)
+	if not c then
+		c = o and o:clsid()
+	end
+	return c and fa_cls[c] or false
+end
+
+local scopes_list
+function has_scope(section)
+	if (not scopes_list) then
+		scopes_list = utils_data.collect_section(ini_sys, "addons_table")
+	end
+	
+	for _, scope in ipairs(scopes_list) do
+		if string_match(section, scope) then
+			return scope
+		end
+	end
+end
+
+-- For attachment status = 2 only!
+function support_attachments(wpn)
+	if not (wpn) then
+		--printf("!ERROR can_attach_scope | missing parameters")
+		return false
+	end
+	
+	if (not IsWeapon(wpn)) or IsItem("fake_ammo_wpn",wpn:section()) then
+		--printf("!ERROR can_attach_scope | [%s] doesn't support attachments", wpn:section())
+		return false
+	end
+	return true
+end
+
+function has_attached_scope(wpn)
+	if (not support_attachments(wpn)) then
+		return false
+	end
+
+	return (wpn:weapon_scope_status() == 2) and wpn:weapon_is_scope() or has_scope(wpn:section())
+end
+function can_attach_scope(wpn, addon, ignore)
+	if not (addon and support_attachments(wpn)) then
+		return false
+	end
+	
+	local add_sec = addon:section()
+	local is_scope = IsItem("scope",add_sec)
+	if (not is_scope) then
+		--printf("!ERROR can_attach_scope | addon [%s] is not a scope or sight", add_sec)
+		return false
+	end
+
+	local has_attachment = (ignore ~= true) and has_attached_scope(wpn) or false
+	if (not has_attachment) and (wpn:weapon_scope_status() == 2) then
+		local wpn_sec = wpn:section()
+		return (get_wpn_param(wpn, wpn_sec, "scopes_sect") == add_sec)
+	end
+	return false
+end
+function get_attached_scope(wpn, ignore)
+	if (not support_attachments(wpn)) then
+		return false
+	end
+	
+	local has_attachment = (ignore ~= true) and has_attached_scope(wpn) or false
+	if (has_attachment) then
+		local dxr_scope = has_scope(wpn:section())
+		if dxr_scope then
+			return dxr_scope
+		end
+		
+		return get_wpn_param(wpn, wpn:section(), "scopes_sect")
+	end
+end
+
+function has_attached_silencer(wpn)
+	if (not support_attachments(wpn)) then
+		return false
+	end
+	
+	return (wpn:weapon_silencer_status() == 2) and wpn:weapon_is_silencer()
+end
+function can_attach_silencer(wpn, addon, ignore)
+	if not (addon and support_attachments(wpn)) then
+		return false
+	end
+	
+	local add_sec = addon:section()
+	local is_sil = IsItem("sil",add_sec)
+	if (not is_sil) then
+		--printf("!ERROR can_attach_silencer | addon [%s] is not a silencer", add_sec)
+		return false
+	end
+	
+	local has_attachment = (ignore ~= true) and has_attached_silencer(wpn) or false
+	if (not has_attachment) and (wpn:weapon_silencer_status() == 2) then
+		return (get_wpn_param(wpn, wpn:section(), "silencer_name") == add_sec)
+	end
+	return false
+end
+function get_attached_silencer(wpn, ignore)
+	if (not support_attachments(wpn)) then
+		return false
+	end
+	
+	local has_attachment = (ignore ~= true) and has_attached_silencer(wpn) or false
+	return has_attachment and get_wpn_param(wpn, wpn:section(), "silencer_name")
+end
+
+function has_attached_gl(wpn)
+	if (not support_attachments(wpn)) then
+		return false
+	end
+	
+	return (wpn:weapon_grenadelauncher_status() == 2) and wpn:weapon_is_grenadelauncher()
+end
+function can_attach_gl(wpn, addon, ignore)
+	if not (addon and support_attachments(wpn)) then
+		return false
+	end
+	
+	local add_sec = addon:section()
+	local is_gl = IsItem("gl",add_sec)
+	if (not is_gl) then
+		--printf("!ERROR can_attach_gl | addon [%s] is not a grenade launcher", add_sec)
+		return false
+	end
+	
+	local has_attachment = (ignore ~= true) and has_attached_gl(wpn) or false
+	if (not has_attachment) and (wpn:weapon_grenadelauncher_status() == 2) then
+		return (get_wpn_param(wpn, wpn:section(), "grenade_launcher_name") == add_sec)
+	end
+	return false
+end
+function get_attached_gl(wpn, ignore)
+	if (not support_attachments(wpn)) then
+		return false
+	end
+	
+	local has_attachment = (ignore ~= true) and has_attached_gl(wpn) or false
+	return has_attachment and get_wpn_param(wpn, wpn:section(), "grenade_launcher_name")
+end
+
+function attach_addon(wpn, addon, typ, ignore)
+	if not (addon and support_attachments(wpn)) then
+		return
+	end
+	
+	if ignore
+	or (typ == "scope" and can_attach_scope(wpn, addon))
+	or (typ == "sil" and can_attach_silencer(wpn, addon))
+	or (typ == "gl" and can_attach_gl(wpn, addon))
+	then
+		if (typ == "scope") and ini_sys:section_exist(wpn:section() .. "_" .. addon:section()) then
+			item_weapon.attach_scope(addon, wpn)
+		else
+			wpn:weapon_addon_attach(addon)
+		end
+	end
+end
+function detach_addon(wpn, addon, typ, ignore)
+	if not (support_attachments(wpn)) then
+		return
+	end
+	
+	if (not addon) then
+		addon = (typ == "scope" and get_attached_scope(wpn)) or (typ == "sil" and get_attached_silencer(wpn)) or (typ == "gl" and get_attached_gl(wpn))
+	end
+	
+	local has_attached = ignore or (typ == "scope" and has_attached_scope(wpn)) or (typ == "sil" and has_attached_silencer(wpn)) or (typ == "gl" and has_attached_gl(wpn))
+	if has_attached then
+		if (typ == "scope") and item_weapon.menu_scope(wpn) then
+			item_weapon.detach_scope(wpn)
+			
+		elseif type(addon) == "string" and ini_sys:section_exist(addon) then
+			wpn:weapon_addon_detach(addon, true)
+			--printf("-detaching [%s] from [%s]", addon, wpn:section())
+		else
+			printf("!ERROR detach_addon | addon [%s] doesn't belong to [%s]", addon, wpn:section())
+		end
+	else
+		printf("~WARNING detach_addon | [%s] doesn't have attached addon [%s]", wpn:name(), addon)
+	end
+end
+
+
+----------------------------------------------------------------------
+-- Outfits
+----------------------------------------------------------------------
+local outfit_param_by_type = {
+	["Burn"]         = "burn_protection" ,
+	["Shock"]        = "shock_protection" ,
+	["ChemicalBurn"] = "chemical_burn_protection" ,
+	["Radiation"]    = "radiation_protection" ,
+	["Telepatic"]    = "telepatic_protection" ,
+	["Wound"]        = "wound_protection" ,
+	["FireWound"]    = "fire_wound_protection" ,
+	["Strike"]       = "strike_protection" ,
+	["Explosion"]    = "explosion_protection" ,
+}
+local outfit_prop_by_type = {
+	["helmet_avaliable"]             = {1,"bIsHelmetAvaliable"},
+	["backpack_avaliable"]           = {1,"bIsBackpackAvaliable"},
+	["additional_inventory_weight"]  = {2,"m_additional_weight"},
+	["additional_inventory_weight2"] = {2,"m_additional_weight2"},
+	["bleeding_restore_speed"]       = {2,"m_fBleedingRestoreSpeed"},
+	["health_restore_speed"]         = {2,"m_fHealthRestoreSpeed"},
+	["power_loss"]                   = {2,"m_fPowerLoss"},
+	["power_restore_speed"]          = {2,"m_fPowerRestoreSpeed"},
+	["radiation_restore_speed"]      = {2,"m_fRadiationRestoreSpeed"},
+	["satiety_restore_speed"]        = {2,"m_fSatietyRestoreSpeed"},
+}
+
+function get_outfit_protection(obj, sec, name, def)
+	def = def or 0
+	
+	if (not name) then
+		return def
+	end
+	
+	local param = outfit_param_by_type[name]
+	if (not param) then
+		return def
+	end
+	
+	-- Object exists
+	if obj then
+		local outfit = IsOutfit(obj)
+		local helmet = IsHeadgear(obj)
+		local cobj = outfit and obj:cast_CustomOutfit() or helmet and obj:cast_Helmet()
+		if (not cobj) then
+			return def
+		end
+		
+		-- Special case for fire wound damage
+		if (name == "FireWound") then
+			local bone_value = 0
+			
+			-- Outfit
+			if outfit then
+				bone_value = cobj:GetBoneArmor( BoneID["bip01_spine"] ) or 0
+				if (not cobj.bIsHelmetAvaliable) then
+					bone_value = bone_value + cobj:GetBoneArmor( BoneID["bip01_head"] ) or 0
+				end
+				
+			-- Helmet
+			elseif helmet then
+				bone_value = cobj:GetBoneArmor( BoneID["bip01_head"] ) or 0
+			end
+		
+			return bone_value * obj:condition()
+			
+		-- Other types
+		else
+			return cobj:GetDefHitTypeProtection( HitTypeID[name] ) or def
+		end
+		
+	-- Section exists
+	elseif sec then
+		
+		-- Special case for fire wound damage
+		if (name == "FireWound") then
+			local bones_koeff_protection = SYS_GetParam(0,sec,"bones_koeff_protection")
+			
+			-- Outfit
+			if IsItem("outfit", sec) then
+				local bone_values = parse_list(ini_sys, bones_koeff_protection, "bip01_spine")
+				local bone_value = tonumber(bone_values[2]) or 0
+				
+				if (not SYS_GetParam(1,sec,"helmet_avaliable")) then
+					bone_values = parse_list(ini_sys, bones_koeff_protection, "bip01_head")
+					bone_value = bone_value + tonumber(bone_values[2])
+				end
+				return bone_value
+			
+			-- Helmet
+			elseif IsItem("helmet", sec) then
+				local bone_values = parse_list(ini_sys, bones_koeff_protection, "bip01_head")
+				return tonumber(bone_values[2])
+			end
+			
+		-- Other types
+		else
+			return param and SYS_GetParam(2,sec,param) or def
+		end
+	end
+	
+	return def
+end
+
+function get_outfit_property(obj, sec, name, def)
+	if (not name) then
+		return def
+	end
+	
+	local prop = outfit_prop_by_type[name] and outfit_prop_by_type[name][2]
+	if (not prop) then
+		return def
+	end
+	
+	if obj then
+		local cobj = IsOutfit(obj) and obj:cast_CustomOutfit()
+		if (not cobj) then
+			return def
+		end
+		return cobj[prop]
+		
+	elseif sec then
+		local typ = outfit_prop_by_type[name] and outfit_prop_by_type[name][1]
+		return typ and SYS_GetParam(typ, sec, prop)
+	end
+	
+	return def
+end
+
+function get_outfit_belt_size(obj, sec)
+	
+	if obj then
+		local cobj = IsOutfit(obj) and obj:cast_CustomOutfit()
+		if (not cobj) then
+			return 0
+		end
+		return cobj:get_artefact_count() or 0
+		
+	elseif sec then
+		return SYS_GetParam(2,sec,"artefact_count") or 0
+	end
+end
+
+
+----------------------------------------------------------------------
+-- Items
+----------------------------------------------------------------------
+local _parent
+function in_actor_inv(obj)
+	_parent = obj:parent()
+	return _parent and (_parent:id() == AC_ID)
+end
+
+function in_actor_ruck(obj)
+	return in_actor_inv(obj) and (not db.actor:is_on_belt(obj))
+end
+
+function in_npc_inv(npc, obj)
+	_parent = obj:parent()
+	return _parent and (_parent:id() == npc:id())
+end
+
+function is_degradable(obj, sec)
+	local section = obj and obj:section() or sec
+	return section and ini_sys:r_bool_ex(section,"use_condition") and (not IsItem("multiuse",section))
+end
+
+function degrade(obj, num) -- reduce condition of degradable item
+	if not (num and num > 0) then
+		return
+	end
+	
+	local sec = obj:section()
+	local cond = obj:condition()
+	if (cond > num) then
+		local new_con = cond - num
+		new_con = clamp(new_con,0.01,0.99)
+		obj:set_condition(new_con)
+		--print_dbg("degrade | degraded item (%s) with condition (%s)", sec, cond)
+		return new_con
+	end
+	
+	--print_dbg("degrade | released item (%s) with condition (%s)", sec, cond)
+	alife_release(obj)
+	return 0
+end
+
+function discharge(obj, num) --reduce use of multiuse item
+	if (not obj) then return end
+
+	num = num or 1
+	if IsItem("multiuse",nil,obj) then
+		local uses = obj:get_remaining_uses()
+		if uses and uses > num then
+			obj:set_remaining_uses(uses - num)
+			--print_dbg("discharge | discharged item (%s) by %s", obj:section(), num)
+			return uses - num
+		end
+	end
+		
+	--print_dbg("discharge | released item (%s)", obj:section())
+	alife_release(obj)
+	return 0
+end
+
+function get_item_remaining_uses(obj)
+	return obj and IsItem("multiuse",nil,obj) and obj:get_remaining_uses() or 1
+end
+
+function has_quest_item(npc)
+	if not (npc and IsStalker(npc)) then
+		return
+	end
+	
+	local found_quest_item = false
+	npc:iterate_inventory( function(owner, item)
+		if IsItem("quest",item:section()) then
+			found_quest_item = true
+			--printf("~found quest item: %s", item:section())
+			return true
+		end
+	end)
+	if found_quest_item then
+		return true
+	end
+	
+	return false
+end
+
+
+----------------------------------------------------------------------
+-- Inventory
+----------------------------------------------------------------------
+function get_amount(npc, section, mode)
+-- mode 0: count item as 1
+-- mode 1: can count item uses, but not ammo count
+
+	local amount = 0
+	local is_multi = IsItem("multiuse",section)
+	local is_ammo = IsItem("ammo",section)
+	
+	local function itr(temp, obj)
+		if (obj:section() == section) then
+			if (mode == 0) then
+				amount = amount + 1
+			elseif is_multi then
+				amount = amount + obj:get_remaining_uses()
+			elseif is_ammo and (mode ~= 1) then
+				amount = amount + obj:ammo_get_count()
+			else
+				amount = amount + 1
+			end
+		end
+	end
+	npc:iterate_inventory(itr, nil)
+	
+	return amount
+end
+
+function collect_amount(npc, section, mode)
+-- mode 0: count item as 1
+-- mode 1: can count item uses, but not ammo count
+
+	local amount = {}
+	local is_multi = IsItem("multiuse",section)
+	local is_ammo = IsItem("ammo",section)
+	
+	local function itr(temp, obj)
+		if (obj:section() == section) then
+			if (mode == 0) then
+				amount[obj:id()] = 1
+			elseif is_multi then
+				amount[obj:id()] = obj:get_remaining_uses()
+			elseif is_ammo and (mode ~= 1) then
+				amount[obj:id()] = obj:ammo_get_count()
+			else
+				amount[obj:id()] = 1
+			end
+		end
+	end
+	npc:iterate_inventory(itr, nil)
+	
+	return amount
+end
+
+function transfer_amount(npc_from, npc_to, section, amount, can_create)
+	
+	local remain = amount
+	local is_multi = IsItem("multiuse",section)
+	local is_ammo = IsItem("ammo",section)
+	
+	-- transfer currently owned items
+	local function itr(temp, obj)
+		if (remain <= 0) then
+			return true -- no point of iterating further if all amount is given
+		end
+		
+		if (obj:section() == section) then
+			local amt = (is_multi and obj:get_remaining_uses()) or (is_ammo and obj:ammo_get_count()) or 1
+			remain = remain - amt
+			if remain < 0 then
+				local to_keep = -remain
+				local to_give = amt - remain
+				if is_multi then
+					obj:set_remaining_uses(to_keep)
+					alife_create_item(section, npc_to, { uses = to_give })
+				elseif is_ammo then
+					obj:ammo_set_count(to_keep)
+					alife_create_item(section, npc_to, { ammo = to_give })
+				end
+			else
+				npc_from:transfer_item(obj, npc_to)
+			end
+		end
+	end
+	npc_from:iterate_inventory(itr, nil)
+	
+	-- In case giver npc is out of amount
+	if remain > 0 and can_create then
+		if is_ammo then
+			alife_create_item(section, npc_to, { ammo = remain })
+			
+		elseif is_multi then
+			local max_uses = ini_sys:r_float_ex(section,"max_uses")
+			while (remain > 0) do
+				if remain >= max_uses then
+					alife_create_item(section, npc_to)
+				else
+					alife_create_item(section, npc_to, { uses = (max_uses - remain) } )
+				end
+				remain = remain - max_uses
+			end
+		end
+	end
+	
+	return
+end
+
+function create_amount(npc, section, amount, basic)
+	if (not basic) and IsItem("ammo",section) then
+		alife_create_item(section, npc, { ammo = amount } )
+		
+	elseif (not basic) and IsItem("multiuse",section) then
+		local max_uses = ini_sys:r_float_ex(section,"max_uses")
+		local remain = amount
+		while remain > 0 do
+			if (remain >= max_uses) then
+				alife_create_item(section, npc)
+			else
+				alife_create_item(section, npc, { uses = (max_uses - remain) } )
+			end
+			remain = remain - max_uses
+		end
+		
+	else
+		for i=1,amount do
+			alife_create_item(section, npc)
+		end
+	end
+end
+
+function has_item_by_id(npc, id, section)
+	local npc_id = npc and npc:id() or AC_ID
+	local obj = id and level.object_by_id(id)
+	local pr = obj and obj:parent()
+	if pr and pr:id() == npc_id then
+		if (not section) or (section and section == obj:section()) then
+			return true
+		end
+	end
+	return false
+end
+
+function is_overweight(npc, npc_id, comp_weight)
+	npc = npc or get_object_by_id(npc_id)
+	if (not npc) then
+		return
+	end
+	
+	local max_weight = 30
+	local curr_weight = npc:get_total_weight()
+	if comp_weight then
+		return (comp_weight > (max_weight - curr_weight))
+	end
+	return curr_weight > max_weight, curr_weight, max_weight
+end
+
+local function delay_event_timer(to_create, to_release, news)
+
+	-- Send news
+	if news then
+		local obj = to_release[1] and level.object_by_id(to_release[1])
+		local sec = obj and obj:section()
+		local name = sec and ui_item.get_sec_name(sec) or ""
+	
+		local create_text = ""
+		for i=1,#to_create do
+			if ini_sys:section_exist(to_create[i]) then
+				create_text = create_text .. "\\n- " .. ui_item.get_sec_name(to_create[i])
+			end
+		end
+		actor_menu.set_item_news("success", "weapon_ammo", "st_dis_text_11", name, game.translate_string("st_dis_text_9"), create_text)
+	end
+	
+	-- Create items
+	for i=1,#to_create do
+		alife_create_item(to_create[i], db.actor)
+	end
+	
+	-- Release items
+	for i=1,#to_release do
+		alife_release_id(to_release[i])
+	end
+	
+	return true
+end
+function delay_event(to_create, to_release, effect, news, delay)
+	-- to_create: table of item sections to create
+	-- to_release: table of item ids to release
+	
+	delay = actor_effects.is_animations_on() and delay or 0
+	actor_effects.play_item_fx(effect)
+	CreateTimeEvent(math.random(1000), "delay_item", delay, delay_event_timer, to_create or {}, to_release or {}, news)
+end
+
+
+----------------------------------------------------------------------
+-- Trade
+----------------------------------------------------------------------
+--[[
+	profile = { -- see trade_manager
+		mode          = actor: 1 - npc: 2
+		cfg           = cfg_ltx
+		list          = current_buy_condition
+		cond_factor   = current_buy_item_condition_factor
+		cond_exponent = current_buy_item_exponent
+		discount      = 
+	}
+--]]
+
+function get_item_cost(obj, profile)
+
+	if not (obj and profile) then
+		return nil
+	end
+
+	local cost = obj:cost()
+	local sec = obj:section()
+	local discount = profile.discount
+	
+	-- Cost factor by trade config
+	local cfg = trade_manager.get_trade_cfg( profile.cfg ) 
+	if cfg then
+		local list = profile.list
+		if cfg:line_exist(list, sec) then
+			local val = cfg:r_string_ex(list,sec)
+			if val then
+				val = str_explode(val,",")
+				cost = cost * (tonumber(val[1]) or 1)
+			else
+				return false
+			end
+		end
+	end
+	
+	-- Cost for multiuse items
+	local uses = IsItem("multiuse",sec)
+	if uses then
+		cost = cost * discount * (obj:get_remaining_uses() / uses)
+		local ret = {}
+		SendScriptCallback("on_get_item_cost", "multiuse", obj, profile, cost, ret)
+		return tonumber(ret.new_cost) or cost
+	end
+	
+	-- Cost for ammo
+	local ammo = IsItem("ammo",sec)
+	if ammo then
+		cost = cost * discount * (obj:ammo_get_count() / ammo)
+		local ret = {}
+		SendScriptCallback("on_get_item_cost", "ammo", obj, profile, cost, ret)
+		return tonumber(ret.new_cost) or cost
+	end
+	
+	-- Cost for condition
+	local cond = obj:condition() or 1
+	local exponent = profile.cond_exponent
+	cost = cost * discount * math.pow((cond * 0.9 + 0.1), exponent > 0 and exponent or 0.75)
+	local ret = {}
+	SendScriptCallback("on_get_item_cost", "condition_based", obj, profile, cost, ret)
+	
+	return tonumber(ret.new_cost) or cost
+end
+
+function get_item_trade_status(obj, profile)
+	-- nil: no object
+	-- 1: item can't be traded
+	-- 2: item is too damaged to be traded
+	-- 3: item is not tradable by npc (to hide)
+	-- 4: tradable
+	
+	if not (obj and profile) then
+		return
+	end
+	
+	local note = 4
+	local sec = obj:section()
+	local cond = obj:condition() or 1
+	local uses = IsItem("multiuse",sec)
+	local ammo = IsItem("ammo",sec)
+	
+	-- No trade for too damaged item
+	if profile.cond_factor and cond < profile.cond_factor and (not uses) and (not ammo) then
+		note = 2
+	end
+	
+	-- No trade for quest items
+	if SYS_GetParam(1,sec,"quest_item") or (SYS_GetParam(1,sec,"can_trade") == false) then
+		note = 1
+	end
+	
+	-- No trade for unlisted items
+	local cfg = trade_manager.get_trade_cfg( profile.cfg )
+	local list = profile.list
+	if not (cfg and list) then
+		printe("!ERROR get_item_trade_status | trading profiles missing info | cfg: %s - list: %s", profile.cfg, list and true or false)
+		return
+	end
+	if cfg:line_exist(list, sec) and (not cfg:r_string_ex(list,sec)) then
+		note = 1
+	end
+	
+	-- For NPC, non-tradable items shouldn't be shown
+	if (profile.mode == 2) then
+		if (note ~= 4) or (obj:cost() <= 0) or IsItem("anim",sec) or IsItem("fake_ammo",sec)
+		or (ammo and ammo > obj:ammo_get_count())
+		or (uses and uses > obj:get_remaining_uses())
+		then
+			note = 3
+		end
+	end
+	
+	return note
+end
+
+
+----------------------------------------------------------------------
+-- Upgrades
+----------------------------------------------------------------------
+local cache_upgr_tree = {}
+local cache_upgr_ins = {}
+
+local upg_gr = {
+	["first"] = 1,
+	["secon"] = 2,
+	["third"] = 3,
+	["fourt"] = 4,
+	["fifth"] = 5,
+}
+local upg_ind = {
+	["a"] = 1,
+	["b"] = 2,
+	["c"] = 3,
+	["d"] = 4,
+	["e"] = 5,
+	["f"] = 6,
+}
+local upg_prop_tool = {
+	["prop_weight"]	            =	"upgr_w_^d_weight",	        --Weight
+	["prop_silencer"]	        =	"upgr_w_^d_muffle",	        --Muffler
+	["prop_underbarrel_slot"]	=	"upgr_w_^d_grenade_mount",	--Mount the grenade launcher
+	["prop_reliability"]	    =	"upgr_w_^d_reliability",	--Reliability
+	["prop_bullet_speed"]	    =	"upgr_w_^d_speed",	        --Flatness
+	["prop_recoil"]	            =	"upgr_w_^d_recoil",	        --Recoil
+	["prop_ammo_size"]	        =	"upgr_w_^d_magazine",	    --Cartridges
+	["prop_grenade_launcher"]	=	"upgr_w_^d_grenade_mount",	--Subbarrel
+	["prop_scope_4x"]	        =	"upgr_w_^d_scope",	        --Sight4
+	["prop_scope_1.6x"]	        =	"upgr_w_^d_scope",	        --Sight1.6
+	["prop_rpm"]	            =	"upgr_w_^d_rpm",	        --Rateoffire
+	["prop_calibre"]	        =	"upgr_w_^d_calibre",	    --caliber(9x18,5x45)
+	["prop_dispersion"]	        =	"upgr_w_^d_dispersion",	    --Accuracy
+	["prop_inertion"]	        =	"upgr_w_^d_inertion",	    --Convenience
+	["prop_autolockscope"]	    =	"upgr_w_^d_scope",	        --Auto Capture Targets in Optics
+	["prop_scope_1.5x"]	        =	"upgr_w_^d_scope",	        --Reflex Sight 1.5x
+	["prop_scope_5x"]	        =	"upgr_w_^d_scope",	        --Sight 5x
+	["prop_scope_6x"]	        =	"upgr_w_^d_scope",	        --Sight 6x
+	["prop_scope_10x"]	        =	"upgr_w_^d_scope",	        --Sight 10x
+	["prop_scope_12x"]	        =	"upgr_w_^d_scope",	        --Scope 12x
+	["prop_scope_15x"]	        =	"upgr_w_^d_scope",	        --Scope 15x
+	["prop_scope_attach"]	    =	"upgr_w_^d_scope_mount",	--Mount for optics
+	["prop_scope"]	            =	"upgr_w_^d_scope",	        --Adjustable range finder sight
+	["prop_contrast"]	        =	"upgr_w_^d_scope",	        --Increase the contrast of sight
+	["prop_autofire"]	        =	"upgr_w_^d_firemode",	    --Fully automatic firemode
+	["prop_3xfire"]	            =	"upgr_w_^d_firemode",	    --Three shots automatic shooting mode
+	["prop_nightvision"]	    =	"upgr_w_^d_scope",	        --Installing NVD
+	["prop_no_buck"]	        =	"upgr_w_^d_firemode",	    --Do not shoot a fraction.
+	
+	["prop_armor"]	            =	"upgr_o_^d_armor",	        --armor
+	["prop_damage"]	            =	"upgr_o_^d_damage",	        --Damage
+	["prop_durability"]	        =	"upgr_o_^d_durability",	    --wear resistance (strength)
+	["prop_restore_bleeding"]	=	"upgr_o_^d_bleed",	        --reduce bleeding
+	["prop_restore_health"]	    =	"upgr_o_^d_health",	        --Health Restoration
+	["prop_power"]	            =	"upgr_o_^d_power",	        --East. stamina
+	["prop_tonnage"]	        =	"upgr_o_^d_carry",	        --Carry weight
+	["prop_chem"]	            =	"upgr_o_^d_chem",	        --chemical protection
+	["prop_radio"]	            =	"upgr_o_^d_rad",	        --radio protection
+	["prop_thermo"]	            =	"upgr_o_^d_burn",	        --thermo protection
+	["prop_electro"]	        =	"upgr_o_^d_shock",	        --Electro protection
+	["prop_psy"]	            =	"upgr_o_^d_psi",	        --psi protection
+	["prop_artefact"]	        =	"upgr_o_^d_arty",	        --slot for artifacts
+	["prop_weightoutfit"]	    =	"upgr_o_^d_weight",	        --body armor weight
+	--["prop_autolock"]	        =	"",							--Avtozapvatgoal
+	["prop_sprint"]	            =	"upgr_o_^d_run",	        --Run in the exoskeleton
+	--["prop_scanner"]	        =	"",							--infra red scanner
+	
+	["prop_binoc_zoom"]	        =	"upgr_w_^d_scope",	        --Sight
+	["prop_binoc_nightvision"]	=	"upgr_w_^d_scope",	        --Installing NVD
+	["prop_binoc_autolock"]	    =	"upgr_w_^d_scope",	        --Sight
+}
+
+function extract_upgrade(tree, group, not_first)
+	
+	local elements = parse_list(ini_sys, group, "elements")
+	
+	-- Gather groups and indexes
+	for i=1,#elements do
+		local element = elements[i]
+		for k,row in pairs(upg_gr) do
+			if string_find(element,k) then
+			
+				-- create an suitable index
+				if (not tree[row]) then
+					tree[row] = {}
+				end 
+				local indx = element:sub(9,9) -- get the index
+				local col = indx and upg_ind[indx]
+				if col and (not tree[row][col]) then
+					local stats = ini_sys:r_string_ex(element,"section")
+					local effect = ini_sys:r_string_ex(element,"effects")
+					tree[row][col] = {}
+					tree[row][col].section = element
+					tree[row][col].stats = stats
+					tree[row][col].stats_cost = ini_sys:r_float_ex(stats,"cost")
+					tree[row][col].name = ini_sys:r_string_ex(element,"name")
+					tree[row][col].desc = ini_sys:r_string_ex(element,"description")
+					tree[row][col].icon = ini_sys:r_string_ex(element,"icon")
+					tree[row][col].effect = effect and parse_list(ini_sys, effect, "elements",true)
+					tree[row][col].prop = parse_list(ini_sys,element,"property")
+					tree[row][col].tier = ((col <= 2) and 1) or ((col <= 4) and 2) or 3
+					
+					local prop = tree[row][col].prop[1]
+					if prop then
+						local tool = upg_prop_tool[prop]
+						tree[row][col].tool = tool and tool:gsub("%^d", tostring(tree[row][col].tier)) or nil
+						if (not tree[row][col].tool) then
+							printdbg("! extract_upgr | can't generate tool for upgrade [%s], property: %s", tree[row][col].stats, prop)
+						end
+					end
+				end
+			end
+		end
+	end
+	
+	-- Repeat for followed upgrades
+	for i=1,#elements do
+		local group_next = ini_sys:r_string_ex(elements[i],"effects")
+		if group_next and (group_next ~= "") then
+			extract_upgrade(tree, group_next, true)
+		end
+	end
+	
+	-- Finalizing
+	if (not not_first) then
+		for row,v in pairs(tree) do
+			for col,info in pairs(v) do
+				if odd(col) and (not v[col+1]) then	
+					tree[row][col].solo = true -- indicating that the upgrade is alone in its group
+				end
+			end
+		end
+	end
+end
+
+function get_upgrades_tree(section, new_table)
+	print_dbg("get_upgrades_tree | section: %s - new_table: %s", section, new_table)
+	
+	local str = ini_sys:r_string_ex(section, "upgrades")
+	if str and str ~= "" then
+		-- return cached tree
+		if cache_upgr_tree[str] then
+			print_dbg("get_upgrades_tree | retreived cached upgrades")
+			return new_table and dup_table( cache_upgr_tree[str] ) or cache_upgr_tree[str]
+		end
+		
+		-- build and cache upgrades tree
+		cache_upgr_tree[str] = {}
+		local upgrades = str_explode(str,",")
+		for i=1, #upgrades do
+			extract_upgrade(cache_upgr_tree[str], upgrades[i])
+		end
+		print_dbg("get_upgrades_tree | cached upgrades")
+		return new_table and dup_table( cache_upgr_tree[str] ) or cache_upgr_tree[str]
+	end
+	return {}
+end
+
+function get_upgrades_tools(section)
+	print_dbg("get_upgrades_tools | section: %s", section)
+	
+	local tools = {}
+	local tree = get_upgrades_tree(section)
+	for row, v in pairs(tree) do
+		for col, w in pairs(v) do
+			if w.tool then
+				tools[w.tool] = (tools[w.tool] or 0) + 1
+			end
+		end
+	end
+	return tools
+end
+
+function get_upgrades_installed(obj, id, to_key)
+	local obj = obj or (id and level.object_by_id(id))
+	if (not obj) then
+		return {}
+	end
+	
+	local t = {}
+	obj:iterate_installed_upgrades( function(upgr_sec)
+		t[#t+1] = upgr_sec
+	end)
+	
+	if to_key then
+		t2k_table(t)
+	end
+	return t
+end
+
+function get_upgrade_prop_tool(prop)
+	return upg_prop_tool[prop]
+end
+
+function get_upgrade_sect_tool(sec, sect_u)
+	local tree = get_upgrades_tree(sec)
+	for row, v in pairs(tree) do
+		for col, w in pairs(v) do
+			if w.section == sect_u then
+				return w.tool
+			end
+		end
+	end
+end
+
+function has_upgrades(obj, sec)
+
+	if obj then
+		local found = false
+		obj:iterate_installed_upgrades( function(upgr_sec)
+			found = true
+			return true
+		end)
+		return found
+		
+	elseif sec then
+		return (SYS_GetParam(0,sec,"installed_upgrades","") ~= "")
+	end
+	
+	return false
+end
+
+function has_this_upgrade(obj, sec, up_sec)
+
+	if (not up_sec) then
+		return false
+	end
+	
+	local found = false
+	if obj then
+		obj:iterate_installed_upgrades( function(upgr_sec)
+			if (upgr_sec == up_sec) then
+				found = true
+				return true
+			end
+		end)
+		
+	elseif sec then
+		local list = SYS_GetParam(0,sec,"installed_upgrades","")
+		found = string.find(list, up_sec) and true or false
+	end
+	
+	return found	
+end
+
+----------------------------------------------------------------------
+-- Technical
+----------------------------------------------------------------------
+local switch_trace = {}
+function switch_on_off(id)
+	local obj = level.object_by_id(id)
+	if obj then
+		switch_trace[id] = 1
+		CreateTimeEvent(id,"switch_on_off",0,switch_on_off_steps,id)
+	end
+end
+
+function switch_on_off_steps(id)
+	ResetTimeEvent(id,"switch_on_off",0.1)
+	printf("switch_on_off_steps | [%s] (step: %s) (tg: %s)", id, switch_trace[id], time_global())
+	
+	-- Step 1: drop item on ground
+	if (switch_trace[id] == 1) then
+		local obj = level.object_by_id(id)
+		if (obj) then
+			local in_inv = false
+			db.actor:iterate_inventory( function(owner,obj_i)
+				if (obj_i:id() == id) then
+					in_inv = true
+					return true
+				end
+			end)
+			
+			if in_inv then
+				db.actor:drop_item(obj)
+			else
+				switch_trace[id] = 2
+			end
+			return false
+		end
+		return true
+		
+	-- Step 2: teleport item outside level
+	elseif (switch_trace[id] == 2) then
+		local se_item = alife_object(id)
+		if se_item then
+			if simulation_objects.is_on_the_actor_level(se_item) then
+				local sim = alife()
+				for i=1,sim:max_id() - 1 do
+					local se_obj = sim:object(i)
+					if se_obj and (not simulation_objects.is_on_the_actor_level(se_obj)) then
+						alife():teleport_object(id, se_obj.m_game_vertex_id, se_obj.m_level_vertex_id, se_obj.position)
+						break
+					end
+				end
+			else
+				switch_trace[id] = 3
+			end
+			return false
+		end	
+		return true
+		
+	elseif (switch_trace[id] == 3) then
+		local se_item = alife_object(id)
+		if se_item then
+			if (not simulation_objects.is_on_the_actor_level(se_item)) then
+				alife():teleport_object(id, db.actor:game_vertex_id(), db.actor:level_vertex_id(), db.actor:position())
+			else
+				switch_trace[id] = 4
+			end
+			return false
+		end	
+		return true
+		
+	elseif (switch_trace[id] == 4) then
+		local obj = level.object_by_id(id)
+		if (obj) then
+			db.actor:transfer_item(obj, db.actor)
+			switch_trace[id] = nil
+			return true
+		end
+	end
+	return false
+end
+
+
+----------------------------------------------------------------------
+-- Callbacks
+----------------------------------------------------------------------
+local function server_entity_on_unregister(se_obj, typ)
+	if cache_param[se_obj.id] then
+		cache_param[se_obj.id] = nil
+		print_dbg("utils_item | clearing unregistered item | cache_param [%s]", se_obj.id)
+	end
+	
+	if cache_param_key[se_obj.id] then
+		cache_param_key[se_obj.id] = nil
+		print_dbg("utils_item | clearing unregistered item | cache_param_key [%s]", se_obj.id)
+	end
+	
+	if cache_upgr_ins[se_obj.id] then
+		cache_upgr_ins[se_obj.id] = nil
+		print_dbg("utils_item | clearing unregistered item | cache_upgr_ins [%s]", se_obj.id)
+	end
+end
+
+function on_game_start()
+	RegisterScriptCallback("server_entity_on_unregister",server_entity_on_unregister)
+	-- RegisterScriptCallback("on_get_item_cost",on_get_item_cost)
+end
+
+-- arguments:
+	-- kind			: can be "multiuse", "ammo" or "condition_based" to tell what kind of calculation happened beforehand
+	-- obj				: game object of the item
+	-- profile			: table with information about the trading, see below
+	-- calculated_cost	: vanilla final cost
+	-- ret				: table, set a number on key "new_cost" to override the calulated cost
+
+-- profile values:
+	-- cfg : path to trader config
+	-- list : which section is used for prices, usually just trade_generic_buy or trade_generic_sell
+	-- mode : if 1 it means its calculating the price of selling to npc, if 2 means its calculating the price of buying from npc
+	-- cond_factor : same value of config
+	-- cond_exponent : same value of config
+	-- discount : current discount
+	
+-- this callback is called dozens of times when trading so avoid putting heavy operations in there
+-- also is called several times for each item for visualized price, price to calculate sum of sell/buy etc. so try to keep results consistent or stuff will break
+function on_get_item_cost(kind, obj, profile, calculated_cost, ret)
+	-- ret.new_cost = 500
+end
\ No newline at end of file
diff --git a/gamedata/scripts/utils_obj.script b/gamedata/scripts/utils_obj.script
new file mode 100644
index 000000000..29e6ac24e
--- /dev/null
+++ b/gamedata/scripts/utils_obj.script
@@ -0,0 +1,931 @@
+
+--====================================================================
+-- Utilities for dealing with objects
+--====================================================================
+
+
+local enable_debug = false
+function print_dbg(...)
+	if enable_debug then
+		printf(...)
+	end
+end
+
+----------------------------------------------------------------------
+-- Utilities
+----------------------------------------------------------------------
+local string_find   = string.find
+local string_gmatch = string.gmatch
+local string_sub    = string.sub
+
+local math_floor    = math.floor
+
+
+
+function get_current_action_id(npc)
+	local mgr = npc:motivation_action_manager()
+
+	if not (mgr and mgr:initialized()) then
+		return false
+	end
+
+	return mgr:current_action_id()
+end
+
+function add_anim(npc,anm)
+	if anm then
+		npc:add_animation(anm,true,false)
+	end
+end
+
+function get_sound(snd)
+	if snd then
+		return sound_object(snd)
+	end
+end
+
+
+----------------------------------------------------------------------
+-- Testing
+----------------------------------------------------------------------
+function valid_vertex(npc,vid)
+	return vid and vid < 4294967295 and npc:accessible(vid) and vid
+end
+
+function accessible(npc,point)
+	if (type(point) == "number") then
+		return point < 4294967295 and npc:accessible(point)
+	end
+	return level.vertex_id(point) < 4294967295 and npc:accessible(point)
+end
+
+function safe_bone_pos(obj,bone)
+	local bone_id = obj:get_bone_id(bone)
+	return obj:bone_position(bone_id == 65535 and "" or bone)
+end
+
+function is_actor(object,c)
+	if not (c) then
+		c = object and object:clsid()
+	end
+	return c == clsid.script_actor or c == clsid.actor or c == clsid.spectator or object and object:id() == AC_ID
+end
+
+function is_trader(...)
+	local p = {...}
+	if p[1]:character_community() == "trader" or p[1]:clsid() == clsid.script_trader or p[1]:clsid() == clsid.trader then
+		return true
+	end
+
+	if string_find(p[1]:section(),"trader") then
+		return true
+	end
+
+	local cini = db.storage[p[1]:id()].ini
+	local logic = db.storage[p[1]:id()].section_logic
+
+	if not logic and not trader then
+		return false
+	end
+
+	if cini and logic and cini:section_exist(logic) and cini:line_exist(logic,"trade") then
+		return true
+	end
+
+	return false
+end
+
+function in_los(npc,be,friend)
+
+	if (npc:target_body_state() ~= move.crouch) then
+		return false 
+	end 
+	
+	if (IsWounded(friend)) then 
+		return false 
+	end
+
+	local be_pos = utils_obj.safe_bone_pos(be,"bip01_spine")
+	local pos = utils_obj.safe_bone_pos(npc,"bip01_spine")
+	local friend_pos = utils_obj.safe_bone_pos(friend,"bip01_spine")
+	local friend_dist = pos:distance_to(friend_pos)
+	local dir_aim = vec_sub(be_pos,pos)
+	local be_dist = npc:position():distance_to(be:position())
+
+	if (friend_dist < be_dist) then
+		local dir_friend = vec_sub(friend_pos,pos)
+		local vec_be,vec_who = vector():set(dir_aim):set_length(friend_dist),dir_friend:set_length(friend_dist)
+		local mywho = friend_dist < 1.5 and vec_who:similar(vec_be,0) or vec_who:similar(vec_be,1.3)
+		if (mywho == 1) then
+			return true
+		end
+	end
+	return false
+end
+
+
+----------------------------------------------------------------------
+-- Distance
+----------------------------------------------------------------------
+function debug_nearest(npc,msg,...)
+	local dbg = xrs_debug_tools.get_debug_npc()
+	local id = npc and npc.id and (type(npc.id) == "function" and npc:id() or npc.id)
+	if (id and dbg and id == dbg:id()) then
+		printf("nearest=%s |"..msg,npc:name(),...)
+	end
+end 
+
+function nearest_object(s,offline)
+	local dist
+	local nearest
+	local min_dist
+	local is_match
+	for i=1, alife():max_id() - 1 do
+		local obj = alife_object(i)
+		if (obj) then
+			is_match = false
+			if (type(s) == "string" and string_find(obj:name(),s)) then
+				is_match = true
+			elseif (type(s) == "number" and s == obj:clsid()) then
+				is_match = true
+			end
+
+			if (is_match) then
+				dist = obj.position:distance_to_sqr(db.actor:position())
+
+				if not(min_dist) then
+					min_dist = dist
+					nearest = obj
+				elseif (dist < min_dist) then
+					min_dist = dist
+					nearest = obj
+				end
+			end
+		end
+	end
+
+	if (nearest) then
+		if (simulation_objects.is_on_the_same_level(nearest, alife():actor())) then
+			if (offline or min_dist <= alife():switch_distance()^2) then
+				return nearest,min_dist
+			end
+		end
+	end
+end
+
+function get_nearest_stalker(npc)
+	if not (db.OnlineStalkers) then
+		return
+	end
+	local stalker
+	local dist
+	local nearest_stalker,nearest_dist
+	local is_cam = npc == "cam"
+	local pos = is_cam and device().cam_pos or npc:position()
+	local st
+	for i=1, #db.OnlineStalkers do
+		st = db.storage[db.OnlineStalkers[i]]
+		stalker = st and st.object or level.object_by_id(db.OnlineStalkers[i])
+		if (stalker and IsStalker(stalker) and stalker:alive()) then
+			if (is_cam or npc:id() ~= stalker:id()) then
+				dist = pos:distance_to_sqr(stalker:position())
+				if not (nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = stalker
+				end
+
+				if (dist < nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = stalker
+				end
+			end
+		end
+	end
+	return nearest_stalker,nearest_dist
+end
+
+function get_nearest_object(npc,...)
+	local p = {...}
+	local match
+	local lowest_dist = p[2]
+	for key, value in pairs(p[1]) do
+		local obj
+		if ( value.object ) then
+			obj = value.object
+		else
+			obj = value
+		end
+		if ( obj and obj.position ) then
+			dist = npc:position():distance_to_sqr(obj:position())
+
+			if ( dist < lowest_dist ) then
+				lowest_dist = dist
+				match = obj
+			end
+		end
+	end
+
+	if ( match ) then
+		return match,lowest_dist
+	end
+end
+
+function graph_distance(vid1, vid2)
+--' Возвращает расстояние между двумя точками графа с учетом разности уровней
+	local gg = game_graph()
+	local p1 = gg:vertex(vid1):game_point()
+	local p2 = gg:vertex(vid2):game_point()
+
+	--printf("GRAPH DISTANCE [%s][%s][%s] : [%s][%s][%s]", p1.x, p1.y, p1.z, p2.x, p2.y, p2.z)
+
+	return gg:vertex(vid1):game_point():distance_to(gg:vertex(vid2):game_point())
+end
+
+
+----------------------------------------------------------------------
+-- State
+----------------------------------------------------------------------
+function switch_online(id)
+	if id == -1 then return end
+	local sim = alife()
+	if sim then
+		sim:set_switch_online(id,true)
+		sim:set_switch_offline(id,false)
+	end
+end
+
+function switch_offline(id)
+	local sim = alife()
+	if sim then
+		sim:set_switch_online(id,false)
+		sim:set_switch_offline(id,true)
+	end
+end
+
+
+----------------------------------------------------------------------
+-- Stats
+----------------------------------------------------------------------
+local ranks
+function get_rank_list()
+	if ranks then
+		return ranks
+	end
+	local tmp = parse_list(ini_sys,"game_relations","rating")
+	ranks = {}
+	for i,rn in ipairs(tmp) do
+		if not tonumber(rn) then
+			ranks[#ranks+1] = rn
+		end
+	end
+	return ranks
+end
+
+local reputation_list
+function get_reputation_list()
+	if reputation_list then
+		return reputation_list
+	end
+	local tmp = parse_list(ini_sys,"game_relations","reputation")
+	reputation_list = {}
+	for i,rn in ipairs(tmp) do
+		if not tonumber(rn) then
+			reputation_list[#reputation_list+1] = rn
+		end
+	end
+	return reputation_list
+end
+
+local reputations
+function get_reputation_name(value)
+	reputations = reputations or parse_list(ini_sys,"game_relations","reputation_names")
+	local prev = nil
+	for i,rn in ipairs(reputations) do
+		local repu = tonumber(rn)
+		if (repu and value <= repu) then 
+			return prev
+		else
+			prev = rn
+		end
+	end
+	return prev
+end
+
+local communities
+function get_communities_list()
+	if communities then
+		return communities
+	end
+	local tmp = parse_list(ini_sys,"game_relations","communities")
+	communities = {}
+	for i,cn in ipairs(tmp) do
+		if not tonumber(cn) then
+			communities[#communities+1] = cn
+		end
+	end
+	return communities
+end
+
+local communities_key
+function get_communities_list_key()
+	if communities_key then
+		return communities_key
+	end
+	local tmp = parse_list(ini_sys,"game_relations","communities")
+	communities_key = {}
+	for i,cn in ipairs(tmp) do
+		if not tonumber(cn) then
+			communities_key[cn] = true
+		end
+	end
+	return communities_key
+end
+
+
+----------------------------------------------------------------------
+-- Squads
+----------------------------------------------------------------------
+function get_commander(npc)
+	local squad = npc and get_object_squad(npc)
+	if (squad and squad:commander_id()) then
+		return level.object_by_id(squad:commander_id())
+	end
+end
+
+function get_squad_commander_action(npc)
+
+	local commander = get_commander(npc)
+	local mgr = commander and commander:motivation_action_manager()
+	if (mgr and mgr:initialized()) then
+		return mgr:current_action_id()
+	end
+end
+
+function get_squad_count(npc)
+	local squad = get_object_squad(npc)
+
+	if not ( squad ) then
+		return 1
+	end
+	local c = 0
+	for k in squad:squad_members() do
+		c = c + 1
+	end
+	return c
+end
+
+function create_squad(section,smart_name)
+	local sim = SIMBOARD
+	if not (sim) then return end
+	local smart = sim.smarts_by_names[smart_name]
+	if not (smart) then
+		printf("create_squad: no smart by name %s",smart_name)
+		return
+	end
+	local squad = sim:create_squad(smart,section)
+	squad.scripted_target = smart_name
+	return squad
+end
+
+function smart_has_uncommon_squad(name, only_arrived)
+	local se_sm = name and SIMBOARD.smarts_by_names[name]
+	if not se_sm then
+		printf('smart_has_uncommon_squads(%s,%s) -> invalid smart name', name, only_arrived)
+		return
+	end
+	
+	for id in pairs(SIMBOARD.smarts[se_sm.id].squads) do
+		local se_sq = alife_object(id)
+		if se_sq and not ini_sys:r_bool_ex(se_sq:section_name(),"common") then
+			if only_arrived then
+				if se_sm:am_i_reached(se_sq) then
+					return se_sm.id, se_sq:section_name()
+				end
+			else
+				return true
+			end
+		end
+	end
+end
+
+function assign_squad_to_smart(squad_id, id)
+	local sim = SIMBOARD
+	if not (sim) then return end
+	local squad = alife_object(squad_id)
+	if not (squad) then return end
+	if (squad.smart_id) then
+		sim:exit_smart(squad,squad.smart_id)
+	end
+	sim:assign_squad_to_smart(squad,id)
+	--sim:enter_smart(squad,id)
+	squad.assigned_target_id = id
+	squad.current_action = nil
+	squad:get_next_action(false)
+end
+
+function execute_script_on_squad(obj,script_to_execute,...)
+	local squad = obj:clsid() == clsid.online_offline_group_s and obj or get_object_squad(obj)
+
+	if not ( squad ) then
+		script_to_execute(obj,...)
+		return
+	end
+
+	for k in squad:squad_members() do
+		local member = db.storage[k.id] and db.storage[k.id].object
+
+		if ( member and member:alive() ) then
+			script_to_execute(member,...)
+		end
+	end
+end
+
+function execute_script_on_squad_not_commander(obj,script_to_execute,...)
+	local squad = obj:clsid() == clsid.online_offline_group_s and obj or get_object_squad(obj)
+
+	if not ( squad ) then
+		--script_to_execute(obj,...)
+		return
+	end
+
+	for k in squad:squad_members() do
+		local member = db.storage[k.id] and db.storage[k.id].object
+
+		if ( member and member:alive() and member:id() ~= squad:commander_id() ) then
+			script_to_execute(member,...)
+		end
+	end
+end
+
+function squad_in_los(npc,enemy)
+	local squad = get_object_squad(npc)
+	if not (squad) then
+		return false
+	end
+
+	for o in squad:squad_members() do
+		local member = db.storage[o.id] and db.storage[o.id].object
+		if (member and member:alive()) then
+			if (in_los(npc,member,enemy)) then
+				return true
+			end
+		end
+	end
+
+	return false
+end
+
+
+----------------------------------------------------------------------
+-- Cover
+----------------------------------------------------------------------
+local function validate(npc,vid)
+	if (vid and vid < 4294967295 and npc:accessible(vid) and vid ~= npc:level_vertex_id()) then 
+		return db.used_level_vertex_ids[vid] == nil or db.used_level_vertex_ids[vid] == npc:id()
+	end 
+	return false
+end
+
+function lmove(npc,vid,old_vid)
+	if (old_vid) then 
+		db.used_level_vertex_ids[old_vid] = nil
+	end
+	
+	if (vid == nil or vid >= 4294967295) then 
+		return 
+	end
+	
+	if (db.used_level_vertex_ids[vid] == npc:id()) then
+		npc:set_dest_level_vertex_id(vid)
+		return vid 
+	end
+	
+	if not (npc:accessible(vid)) then
+		local vtemp = VEC_ZERO
+		vid, vtemp = npc:accessible_nearest(vid and level.vertex_position(vid) or npc:position(), vtemp )
+	end
+
+	db.used_level_vertex_ids[vid] = npc:id()
+
+	npc:set_dest_level_vertex_id(vid)
+	return vid
+end
+
+function send_to_nearest_accessible_vertex(npc,v_id,caller)
+-- отослать в ближайшую разрешённую ноду по направлению к заданной.
+-- возвращает vertex_id, в которое отправил персонажа
+
+	if (v_id == nil or v_id >= 4294967295) then
+		npc:set_dest_level_vertex_id(npc:level_vertex_id())
+		return npc:level_vertex_id()
+	end
+	if not (npc:accessible(v_id)) then
+		local new_lvid,vtemp = npc:accessible_nearest(level.vertex_position(v_id),VEC_ZERO)
+		npc:set_dest_level_vertex_id(new_lvid)
+		return new_lvid
+	end
+	npc:set_dest_level_vertex_id(v_id)
+	return v_id
+end
+
+function find_random_cover(npc,pos,min_rad,max_rad)
+	local rand = math.random
+	local base_point = npc:level_vertex_id()
+	local base_vertex_id = level.vertex_in_direction(base_point, vector_rotate_y(vec_set(npc:direction()),rand(0,360)), rand(min_rad,max_rad))
+	local base_position = level.vertex_position(base_vertex_id)
+
+	local cover, tcover
+	local cover_dist = 15
+	while not cover and cover_dist > 0 do
+		cover = npc:best_cover(base_position,pos,cover_dist,5,15)
+		cover_dist = cover_dist - 1
+	end
+
+	return cover and valid_vertex(npc,cover:level_vertex_id())
+end
+
+function find_close_cover(npc,base_position,pos,cover_dist,mn,mx) -- find nearest cover
+	local cover
+	cover_dist = not cover_dist and 5 or cover_dist
+	while not cover and cover_dist < 30 do
+		cover = npc:best_cover(base_position,pos,cover_dist,mn or 1,mx or 60)
+		if (cover) and not (validate(npc,cover:level_vertex_id())) then 
+			cover = nil 
+		end
+		cover_dist = cover_dist + 1
+	end
+	
+	return cover and valid_vertex(npc,cover:level_vertex_id())
+end
+
+function find_cover_in_rand_direction(npc,base_point,pos)
+	local rand = math.random
+	
+	local dir = npc:direction()
+	local rand_dir = rand(1,6)
+	local base_vertex_id, base_position, cover, cover_dist
+	for i=rand_dir,6 do
+		base_vertex_id = level.vertex_in_direction(base_point,dir,i*60)
+		base_position = level.vertex_position(base_vertex_id)
+
+		cover = nil
+		cover_dist = rand(1,30)
+		while not cover and cover_dist > 0 do
+			cover = npc:best_cover(base_position,pos,cover_dist,1,30)
+			cover_dist = cover_dist - 1
+		end
+		
+		if (cover and valid_vertex(npc,cover:level_vertex_id())) then 
+			return valid_vertex(npc,cover:level_vertex_id())
+		end
+	end
+
+	return valid_vertex(npc,base_vertex_id)
+end
+
+function try_go_backward(npc,radius,old_vid)
+	--utils_obj.debug_nearest(npc,"try_go_backward")
+	local dir = vector_rotate_y(vec_set(npc:direction()),math.random(160,200))
+	local vid
+	local base_point = npc:level_vertex_id()
+	while (radius > 0) do
+		vid = level.vertex_in_direction(base_point,dir,radius)
+		if (validate(npc,vid)) then
+			return utils_obj.lmove(npc,vid,old_vid)
+		end
+		radius = radius - 2
+	end
+end 
+
+function try_go_aside_object(npc,friend,pos,old_vid)
+	if not (friend) then 
+		return 
+	end 
+	
+	local mypos = npc:position()
+	
+	if (mypos:distance_to_sqr(friend:position()) < 3) then 
+		return 
+	end
+
+	--utils_obj.debug_nearest(npc,"try_to_strafe")
+	local _dir = vec_sub(mypos,pos)
+	local dir = {}
+	dir[1] = vector_rotate_y(vec_set(_dir),-90)
+	dir[2] = vector_rotate_y(vec_set(_dir),90)
+	local vid
+	local radius = 12
+	local base_point = friend:level_vertex_id()
+	
+	for i=1,2 do
+		while (radius > 0) do
+			vid = level.vertex_in_direction(base_point,dir[i],radius)
+			if (validate(npc,vid)) then 
+				return utils_obj.lmove(npc,vid,old_vid)
+			end
+			radius = radius - 2
+		end
+	end
+end 
+
+function try_go_position(npc,pos,old_vid)
+	local vid = level.vertex_id(pos)
+	if (validate(npc,vid)) then 
+		return utils_obj.lmove(npc,vid,old_vid)
+	end 
+end 
+
+function try_go_cover(npc,pos,old_vid,r)
+	local vid = utils_obj.find_close_cover(npc,npc:position(),pos,r or 8)
+	return validate(npc,vid) and utils_obj.lmove(npc,vid,old_vid)
+end 
+
+function try_to_strafe(npc,old_vid)
+	local _dir = npc:direction()
+	local dir = {}
+	dir[1] = vector_rotate_y(vec_set(_dir),-90)
+	dir[2] = vector_rotate_y(vec_set(_dir),90)
+	local vid
+	local radius = 10
+	local base_point = npc:level_vertex_id()
+	
+	for i=1,2 do
+		while (radius > 0) do
+			vid = level.vertex_in_direction(base_point,dir[i],radius)
+			if (validate(npc,vid)) then 
+				return lmove(npc,vid,old_vid)
+			end
+			radius = radius - 2
+		end
+	end
+end 
+
+function npc_in_zone(npc, zone)
+	zone = type(zone) == "string" and db.zone_by_name[zone] or zone
+	return npc and zone and zone.inside and zone:inside(npc:position())
+end
+
+
+----------------------------------------------------------------------
+-- Waypoints
+----------------------------------------------------------------------
+function parse_waypoint_data(pathname, wpflags, wpname)
+	local rslt = {}
+
+	rslt.flags = wpflags
+
+	local at
+	if string_find(wpname, "|", at, true) == nil then
+		return rslt
+	end
+
+	local par_num
+	local fld
+	local val
+
+	par_num = 1
+	for param in string_gmatch(wpname, "([%w%+~_\\%=%{%}%s%!%-%,%*]+)|*") do
+		if par_num == 1 then
+			-- continue
+		else
+			if param == "" then
+				printf("path '%s': waypoint '%s': syntax error in waypoint name", pathname, wpname)
+			end
+
+			local t_pos = string_find(param, "=", 1, true)
+
+			if t_pos == nil then
+				printf("Path_param: %s", param)
+				printf("path '%s': waypoint '%s': syntax error in waypoint name", pathname, wpname)
+				return
+			end
+
+			fld = string_sub(param, 1,t_pos - 1)
+			val = string_sub(param, t_pos + 1)
+
+			if not fld or fld == "" then
+				printf("path '%s': waypoint '%s': syntax error while parsing the param '%s': no field specified",
+					pathname, wpname, param)
+			end
+
+			if not val or val == "" then
+				val = "true"
+			end
+
+			if fld == "a" then
+				rslt[fld] = xr_logic.parse_condlist(db.actor, "waypoint_data", "anim_state", val)
+			else
+				rslt[fld] = val
+			end
+		end
+		par_num = par_num + 1
+	end
+	return rslt
+end
+
+function path_parse_waypoints(pathname)
+	if (pathname == nil or pathname == "") then
+		return nil
+	end
+
+	--printf("_bp: path_parse_waypoints: pathname='%s'", pathname)
+
+	if not (level.patrol_path_exists(pathname)) then
+		printf("ERROR: utils_obj.path_parse_waypoints: patrol path %s don't exist!",pathname)
+		return
+	end
+
+	local ptr = patrol(pathname)
+	local cnt = ptr:count()
+	local rslt = {}
+
+	for pt = 0, cnt - 1 do
+		--printf("_bp: %s", ptr:name(pt))
+		rslt[pt] = parse_waypoint_data(pathname, ptr:flags(pt), ptr:name(pt))
+		if not rslt[pt] then
+			printf("error while parsing point %d of path '%s'", pt, pathname)
+		end
+
+	end
+
+	return rslt
+end
+
+function path_parse_waypoints_from_arglist(pathname, num_points, ...)
+	local arg = {...}
+
+	if not pathname then
+		return nil
+	end
+
+	local ptr = patrol(pathname)
+	local cnt = ptr:count()
+
+	if cnt ~= num_points then
+		printf("path '%s' has %d points, but %d points were expected", pathname, cnt, num_points)
+	end
+
+	local rslt = {}
+
+	local cur_arg
+	local fl
+	for pt = 0, cnt-1 do
+		cur_arg = arg[pt + 1]
+		if not cur_arg then
+			printf("script error [1] while processing point %d of path '%s'", pt, pathname)
+		end
+		fl = flags32()
+		fl:assign(cur_arg[1])
+		rslt[pt] = parse_waypoint_data(pathname, fl, cur_arg[2])
+		if not rslt[pt] then
+			printf("script error [2] while processing point %d of path '%s'", pt, pathname)
+		end
+	end
+
+	return rslt
+end
+
+function stalker_at_waypoint(stalker, patrol_path, path_point)
+-- Проверяет, находится ли stalker рядом с точкой path_point пути patrol_path
+--	return stalker:level_vertex_id() == patrol_path:level_vertex_id(path_point)
+
+	local stalker_pos = stalker:position()
+	local distance = stalker_pos:distance_to_sqr(patrol_path:point(path_point))
+	if distance <= 0.13 then
+		return true
+	end
+	return false
+
+end
+
+function get_nearest_waypoint(obj, pathname, ptr, cnt)
+	local pt_chosen = nil
+	local min_dist = nil
+	local dist
+	for i = 0, cnt - 1 do
+		dist = obj:position():distance_to(ptr:point(i))
+		if not min_dist or dist < min_dist then
+			min_dist = dist
+			pt_chosen = i
+		end
+	end
+	if not pt_chosen then
+		printf("object '%s': path '%s': get_nearest_waypoint: unable to choose a nearest waypoint (path has no waypoints?)",
+			obj:name(), pathname)
+	end
+	return pt_chosen
+end
+
+
+----------------------------------------------------------------------
+-- Level
+----------------------------------------------------------------------
+function is_day()
+	local hrs = level.get_time_hours()
+	return hrs >= 5 and hrs < 22
+end
+
+function is_night()
+	local hrs = level.get_time_hours()
+	return hrs < 5 and hrs >= 22
+end
+
+local snd_obj
+function play_sound(path, vol)
+	snd_obj = nil
+	if (not path) or (type(path) ~= "string") then return end
+	
+	snd_obj = sound_object(path)
+	if snd_obj then
+		snd_obj:play(db.actor, 0, sound_object.s2d)
+		--snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, VEC_ZERO, vol or 1)
+		snd_obj.volume = vol or 1
+	end
+end
+
+function time_spent_in_zone(i)
+
+-- Rule: calculate and return how much time the player has spent in the zone based on a time scale
+-- Input: indicator (number from 1 to 5)
+-- Output: the time spent (number) so far, time scale depends on input
+
+	if not (i and db.actor) then
+		return false
+	end
+	
+	local s_time = level.get_start_time()
+	
+	local seconds = tonumber(game.get_game_time():diffSec(s_time))
+	if (i == 1) then
+		return seconds
+	end
+	
+	local minutes = math_floor(seconds/60)
+	if (i == 2) then
+		return seconds
+	end
+	
+	local hours = math_floor(minutes/60)
+	if (i == 3) then
+		return hours
+	end
+	
+	local days = math_floor(hours/24)
+	if (i == 4) then
+		return days
+	end
+	
+	local weeks = math_floor(days/7)
+	if (i == 5) then
+		return weeks
+	end
+	
+	return false
+end
+
+function is_time_spent_in_zone(s,m,h,d,w,mo)
+
+-- Rule: return true of the time spent in the zone exceeds the input (sec,min,hrs,days,weeks,months)
+-- Input: time scales (sec,min,hrs,days,weeks,months)
+	
+	s = s or 0
+	m = m or 0
+	h = h or 0
+	d = d or 0
+	w = w or 0
+	mo = mo or 0
+	
+	local s_time = level.get_start_time()
+	local seconds = tonumber(game.get_game_time():diffSec(s_time))
+	local minutes = math_floor(seconds/60)
+	local hours = math_floor(minutes/60)
+	local days = math_floor(hours/24)
+	local weeks = math_floor(days/7)
+	local months = math_floor(weeks/4)
+	
+	--printf("/ is_time_spent_in_zone(" .. s .. ":" .. m .. ":" .. h .. "," .. d .. "," .. w .. "," .. mo .. ") | Current time: (" .. seconds .. ":" .. minutes .. ":" .. hours .. "," .. days .. "," .. weeks .. "," .. months .. ")")
+	
+	if (months > mo) then
+		return true
+	elseif (months == mo) and (weeks > w) then
+		return true
+	elseif (months == mo) and (weeks == w) and (days > d) then
+		return true
+	elseif (months == mo) and (weeks == w) and (days == d) and (hours > h) then
+		return true
+	elseif (months == mo) and (weeks == w) and (days == d) and (hours == h) and (minutes > m) then
+		return true
+	elseif (months == mo) and (weeks == w) and (days == d) and (hours == h) and (minutes == m) and (seconds > s) then
+		return true
+	end
+	
+	return false
+end
+
+
+----------------------------------------------------------------------
+-- Override (IMPORTANT! because engine calls alun_utils.get_reputation_name, so we override it here)
+----------------------------------------------------------------------
+_G["alun_utils"] = {
+	get_reputation_name = utils_obj.get_reputation_name,
+}
diff --git a/gamedata/scripts/warfare_faction_control.script b/gamedata/scripts/warfare_faction_control.script
new file mode 100644
index 000000000..f2e5929ad
--- /dev/null
+++ b/gamedata/scripts/warfare_faction_control.script
@@ -0,0 +1,887 @@
+-- Take controls over your squads and smarts from the PDA
+
+printd = warfare.printd
+
+player_heli = nil
+player_heli_spot = nil
+
+local str_wrfr = {}
+function refresh_strings()
+	str_wrfr[1] = game.translate_string("st_wrfr_cap_point")
+	str_wrfr[2] = game.translate_string("st_wrfr_buy_novice_squad")
+	str_wrfr[3] = game.translate_string("st_wrfr_buy_adv_squad")
+	str_wrfr[4] = game.translate_string("st_wrfr_buy_veteran_squad")
+	str_wrfr[5] = game.translate_string("st_wrfr_buy_heli")
+	str_wrfr[6] = game.translate_string("st_wrfr_declare_war")
+	str_wrfr[7] = game.translate_string("st_wrfr_possess_leader")
+	str_wrfr[8] = game.translate_string("st_wrfr_follow")
+	str_wrfr[9] = game.translate_string("st_wrfr_attack")
+	str_wrfr[10] = game.translate_string("st_wrfr_target")
+	str_wrfr[11] = game.translate_string("st_wrfr_move_here")
+	str_wrfr[12] = game.translate_string("st_wrfr_send_squad")
+	str_wrfr[13] = game.translate_string("st_wrfr_send_all_squad")
+	str_wrfr[14] = game.translate_string("st_wrfr_take_squad")
+	str_wrfr[15] = game.translate_string("st_wrfr_take_all_squads")
+	str_wrfr[16] = game.translate_string("st_wrfr_attack_with_all")
+	str_wrfr[17] = game.translate_string("st_wrfr_send_heli_to_point")
+	str_wrfr[18] = game.translate_string("st_wrfr_send_heli_to_squad")
+	str_wrfr[19] = game.translate_string("st_wrfr_remove_heli")
+	str_wrfr[20] = game.translate_string("st_wrfr_heli_route")
+	str_wrfr[21] = game.translate_string("st_wrfr_order_1")
+	str_wrfr[22] = game.translate_string("st_wrfr_order_2")
+	str_wrfr[23] = game.translate_string("st_wrfr_order_3")
+	str_wrfr[24] = game.translate_string("st_wrfr_order_4")
+	str_wrfr[25] = game.translate_string("st_wrfr_order_5")
+	str_wrfr[26] = game.translate_string("st_wrfr_order_6")
+	str_wrfr[27] = game.translate_string("st_wrfr_order_7")
+	str_wrfr[28] = game.translate_string("st_wrfr_order_8")
+	str_wrfr[29] = game.translate_string("st_wrfr_order_9")
+	str_wrfr[30] = game.translate_string("st_wrfr_order_10")
+	str_wrfr[31] = game.translate_string("st_wrfr_order_11")
+	str_wrfr[32] = game.translate_string("st_wrfr_order_12")
+	str_wrfr[33] = game.translate_string("st_wrfr_order_13")
+	str_wrfr[34] = game.translate_string("st_wrfr_order_14")
+	str_wrfr[35] = game.translate_string("st_wrfr_order_15")
+	str_wrfr[36] = game.translate_string("st_wrfr_order_16")
+	str_wrfr[37] = game.translate_string("st_wrfr_heli_removed")
+	str_wrfr[38] = game.translate_string("st_wrfr_heli_already_spawned")
+	str_wrfr[39] = game.translate_string("st_wrfr_order_17")
+end
+
+function translate_smart_name(name)	
+	return (name and game.translate_string("st_" .. name .. "_name") or "")
+end
+
+local function map_spot_menu_add_property(ui,id,lvl)
+    printd(0)
+
+	local obj = alife_object(id)
+	if not (obj) then
+        printd(1)
+		return
+	end
+	
+	local selectedObject = pda_flagger.get_selected_object()	
+	
+	if (obj:clsid() == clsid.smart_terrain) then
+		local f = obj.owning_faction or "none"
+			
+		if (player_heli) then
+			local heli = alife_object(player_heli)
+			
+			if (heli) then
+				ui:AddItem(str_wrfr[17])
+				ui:AddItem(str_wrfr[19])
+			else
+				player_heli = nil
+			end
+		end		
+		
+		if (f == "none") then
+			if (smart_terrain_warfare.manual_point == nil) then			
+				local objX = obj.position.x
+				local objZ = obj.position.z
+				local actX = alife():actor().position.x
+				local actZ = alife():actor().position.z
+				local dist = warfare.distance_to_xz_sqr(obj.position, alife():actor().position)
+				
+				if (dist <= 100*100) then
+					ui:AddItem(str_wrfr[1])
+				end
+			end
+		elseif (f == warfare.actor_faction) then
+			if (obj.props and obj.props.base > 0) then
+				ui:AddItem("----------------")
+				
+				local money = db.actor:money()
+				
+				if (money > warfare_options.options.novice_squad_price) then
+					ui:AddItem(str_wrfr[2])
+				end
+				
+				if (money > warfare_options.options.advanced_squad_price) then
+					ui:AddItem(str_wrfr[3])
+				end
+				
+				if (money > warfare_options.options.veteran_squad_price) then
+					ui:AddItem(str_wrfr[4])
+				end
+				
+				if (money >= warfare_options.options.heli_price) then
+					ui:AddItem(str_wrfr[5])
+				end
+				
+				ui:AddItem("----------------")
+			end
+		else
+			local enemy = game_relations.is_factions_enemies(f, warfare.actor_faction)
+
+			if (not enemy and warfare.dynamic_relations_installed) then
+				ui:AddItem(str_wrfr[6])
+			end
+		end
+	elseif (obj:clsid() == clsid.online_offline_group_s) then
+		if (player_heli) then
+			local heli = alife_object(player_heli)
+			
+			if (heli) then
+				ui:AddItem(str_wrfr[18])
+			else
+				player_heli = nil
+			end
+		end
+
+		local faction = obj:get_squad_community()
+
+		if (alife_storage_manager.get_state().enable_azazel_mode and faction == warfare.actor_faction) then -- should only be allowed is azazel mode is enabled in the game
+			ui:AddItem(str_wrfr[7])
+		end
+	end
+	
+	if (selectedObject) then
+		if (selectedObject:clsid() == clsid.online_offline_group_s and selectedObject:get_squad_community() == warfare.actor_faction) then
+			if (obj.id == AC_ID) then
+				ui:AddItem(str_wrfr[8])
+			elseif (obj:clsid() == clsid.online_offline_group_s) then
+				local faction = obj:get_squad_community()
+				local actor_faction = faction == warfare.actor_faction
+				local friend = game_relations.is_factions_friends(faction, warfare.actor_faction)
+				local enemy = game_relations.is_factions_enemies(faction, warfare.actor_faction)
+				
+				if (enemy) then
+					ui:AddItem(str_wrfr[9])
+				else
+					ui:AddItem(str_wrfr[8])
+				end
+			elseif (obj:clsid() == clsid.smart_terrain) then
+				local faction = obj.owning_faction or "none"
+				local actor_faction = faction == warfare.actor_faction
+				local friend = game_relations.is_factions_friends(faction, warfare.actor_faction)
+				local enemy = game_relations.is_factions_enemies(faction, warfare.actor_faction)
+				
+				if (enemy) then
+					ui:AddItem(str_wrfr[9])
+				else
+					ui:AddItem(str_wrfr[11])
+				end
+			end
+		elseif (selectedObject:clsid() == clsid.smart_terrain and selectedObject.owning_faction == warfare.actor_faction) then
+			local base = selectedObject.props and selectedObject.props.base > 0 or false
+		
+			if (obj.id == AC_ID) then
+				ui:AddItem(str_wrfr[12])
+				ui:AddItem(str_wrfr[13])
+			elseif (obj:clsid() == clsid.online_offline_group_s) then	
+				local faction = obj:get_squad_community()
+				local actor_faction = faction == warfare.actor_faction
+				local friend = game_relations.is_factions_friends(faction, warfare.actor_faction)
+				local enemy = game_relations.is_factions_enemies(faction, warfare.actor_faction)	
+
+				if (enemy) then
+					ui:AddItem(str_wrfr[9])
+					ui:AddItem(str_wrfr[16])
+				else
+					ui:AddItem(str_wrfr[12])
+					ui:AddItem(str_wrfr[13])
+				end
+			elseif (obj:clsid() == clsid.smart_terrain) then
+				local faction = obj.owning_faction or "none"
+				local actor_faction = faction == warfare.actor_faction
+				local enemy = game_relations.is_factions_enemies(faction, warfare.actor_faction)
+				
+				if (enemy or faction == "none") then
+					if (base) then
+						ui:AddItem(str_wrfr[10])
+					end
+					
+					ui:AddItem(str_wrfr[9])
+					ui:AddItem(str_wrfr[16])		
+				else
+					if (actor_faction) then
+						ui:AddItem(str_wrfr[14])
+						ui:AddItem(str_wrfr[15])
+					end			
+					
+					ui:AddItem(str_wrfr[12])
+					ui:AddItem(str_wrfr[13])
+				end
+			end
+		end
+	end
+    
+    printd(2)
+end
+
+local function map_spot_menu_property_clicked(property_ui,id,level_name,prop)
+    printd(0)
+
+	local obj = alife_object(id)
+	if not (obj) then
+        printd(1)
+		return
+	end
+	
+	local selectedObject = pda_flagger.get_selected_object()
+	
+	if (prop == str_wrfr[1]) then
+		smart_terrain_warfare.manual_point = { obj.id, game.get_game_time(), }
+		return	
+	elseif (prop == str_wrfr[6]) then
+		local faction = obj.owning_faction
+		local af = warfare.actor_faction		
+		game_relations.change_faction_relations(faction, af, -4000, true)
+		return
+	elseif (prop == str_wrfr[7]) then
+		possess_squad_leader(obj)
+		return
+	elseif (prop == str_wrfr[2]) then
+		warfare.printd(0, str_wrfr[2])
+
+		local f = obj.owning_faction or "none"
+		
+		local section = faction_expansions.get_faction_squad(obj.owning_faction, "novice")
+
+		local squad = utils_obj.create_squad(section, obj:name())
+
+		if (squad) then
+			sim_squad_warfare.set_target(squad, obj.id)		
+			db.actor:give_money(-1 * (warfare_options.options.novice_squad_price))		
+		end
+		
+		warfare.printd(1, str_wrfr[2])
+		
+		return
+	elseif (prop == str_wrfr[3]) then
+		local f = obj.owning_faction or "none"
+		local section = faction_expansions.get_faction_squad(f, "advanced")
+		local squad = utils_obj.create_squad(section, obj:name())
+		if (squad) then
+			db.actor:give_money(-1 * (warfare_options.options.advanced_squad_price))	
+			sim_squad_warfare.set_target(squad, obj.id)		
+		end
+
+		return
+	elseif (prop == str_wrfr[4]) then
+		local f = obj.owning_faction or "none"
+		local section = faction_expansions.get_faction_squad(f, "veteran")
+		local squad = utils_obj.create_squad(section, obj:name())
+		if (squad) then
+			db.actor:give_money(-1 * (warfare_options.options.veteran_squad_price))	
+			sim_squad_warfare.set_target(squad, obj.id)		
+		end
+
+		return
+	elseif (prop == str_wrfr[18] or prop == str_wrfr[17]) then
+		if (player_heli) then
+			local se_obj = alife_object(player_heli)
+			
+			if (se_obj) then
+				se_obj.current_action = 1
+				heli_alife_warfare.set_target(se_obj, obj.id)				
+
+				local text = strformat(str_wrfr[39], warfare_names.get_name(obj))
+				news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+			else
+				player_heli = nil
+			end
+		end
+
+		return
+	elseif (prop == str_wrfr[19]) then
+		if (player_heli) then
+			local heli = alife_object(player_heli)
+			
+			if (heli) then
+				safe_release_manager.release(heli)
+				local text = str_wrfr[37]
+				news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+			end
+		end
+
+		return
+	elseif (prop == str_wrfr[5]) then		
+		local charge_fee = true
+	
+		if (player_heli) then
+			local o = alife_object(player_heli)
+
+			if (o) then
+				local heliLevel = game_graph():vertex(o.m_game_vertex_id):level_id()
+				local playerLevel = get_player_level_id()
+
+				if (heliLevel ~= playerLevel) then
+					safe_release_manager.release(o)
+					charge_fee = false
+				else
+					local text = str_wrfr[38]
+					news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+					return
+				end
+			end
+		end
+
+		local nearestSmart = SIMBOARD.smarts[smart_terrain.nearest_to_actor_smart.id].smrt
+		local actor = alife():actor()
+		
+		if nearestSmart ~= nil then
+			local pos = vector():set(actor.position.x - 600, actor.position.y + 200, actor.position.z - 600)
+			local se_obj = heli_alife_warfare.create_heli_weak(warfare.actor_faction, 0, nearestSmart, pos)
+
+			if (se_obj) then
+				if (charge_fee) then
+					db.actor:give_money(-1 * (warfare_options.options.heli_price))
+				end
+
+				heli_alife_warfare.set_target(se_obj, 0)
+				player_heli = se_obj.id
+			
+				local text = str_wrfr[20]
+				news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+			end
+		end
+
+		return
+	end
+	
+	if (selectedObject) then
+		if (selectedObject:clsid() == clsid.online_offline_group_s) then
+			if (obj.id == AC_ID) then
+				if (prop == str_wrfr[8]) then	
+					sim_squad_warfare.add_companion_squad(selectedObject)
+					sim_squad_warfare.set_target(selectedObject, obj.id)
+					return
+				end
+			elseif (obj:clsid() == clsid.online_offline_group_s) then
+				local faction = obj:get_squad_community()
+				local actor_faction = faction == warfare.actor_faction
+				local friend = game_relations.is_factions_friends(faction, warfare.actor_faction)
+				local enemy = game_relations.is_factions_enemies(faction, warfare.actor_faction)
+				
+				if (enemy) then
+					if (prop == str_wrfr[9]) then
+						local squadName = warfare_names.get_name(selectedObject)
+						local targetName = warfare_names.get_name(obj)
+						local text = strformat(str_wrfr[22], squadName, targetName)
+
+						sim_squad_warfare.set_target(selectedObject, obj.id)
+						news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+						return
+					end
+				else
+					if (prop == str_wrfr[8]) then
+						local squadName = warfare_names.get_name(selectedObject)
+						local targetName = warfare_names.get_name(obj)
+						local text = strformat(str_wrfr[23], squadName, targetName)
+
+						sim_squad_warfare.set_target(selectedObject, obj.id)					
+						news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+						return
+					end
+				end
+			elseif (obj:clsid() == clsid.smart_terrain) then
+				local faction = obj.owning_faction or "none"
+				local actor_faction = faction == warfare.actor_faction
+				local friend = game_relations.is_factions_friends(faction, warfare.actor_faction)
+				local enemy = game_relations.is_factions_enemies(faction, warfare.actor_faction)
+				
+				if (enemy) then
+					if (prop == str_wrfr[9]) then
+						local squadName = warfare_names.get_name(selectedObject)
+						local smartName = warfare_names.get_name(obj)
+						local text = strformat(str_wrfr[22], squadName, smartName)
+
+						sim_squad_warfare.set_target(selectedObject, obj.id)				
+						news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+						return
+					end
+				else
+					if (prop == str_wrfr[11]) then
+						local squadName = warfare_names.get_name(selectedObject)
+						local smartName = warfare_names.get_name(obj)
+						local text = strformat(str_wrfr[21], squadName, smartName)
+
+						sim_squad_warfare.set_target(selectedObject, obj.id)					
+						news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+						return
+					end
+				end
+			end
+		elseif (selectedObject:clsid() == clsid.smart_terrain) then
+			local base = selectedObject.props and selectedObject.props.base > 0 or false
+		
+			if (obj.id == AC_ID) then
+				if (prop == str_wrfr[12]) then
+					local squads = SIMBOARD.smarts[selectedObject.id].squads
+										
+					for sid,_ in pairs(squads) do
+						local squad = alife_object(sid)
+
+						if (squad) then
+							if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+								--sim_squad_warfare.set_target(squad, obj.id)	
+								sim_squad_warfare.add_companion_squad(squad)
+								local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()
+								local text = strformat(str_wrfr[24], smartName)				
+								news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+								
+								printd(2)
+								return
+							end
+						end
+					end
+				elseif (prop == str_wrfr[13]) then
+					local squads = SIMBOARD.smarts[selectedObject.id].squads
+										
+					for sid,_ in pairs(squads) do
+						local squad = alife_object(sid)
+
+						if (squad) then
+							if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+								sim_squad_warfare.set_target(squad, obj.id)
+								local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()
+								local text = strformat(str_wrfr[25], smartName)			
+								news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+							end
+						end
+					end
+					
+					printd(3)
+					return
+				end
+			elseif (obj:clsid() == clsid.online_offline_group_s) then	
+				local faction = obj:get_squad_community()
+				local actor_faction = faction == warfare.actor_faction
+				local friend = game_relations.is_factions_friends(faction, warfare.actor_faction)
+				local enemy = game_relations.is_factions_enemies(faction, warfare.actor_faction)	
+
+				if (enemy) then
+					if (prop == str_wrfr[9]) then
+						local squads = SIMBOARD.smarts[selectedObject.id].squads
+											
+						for sid,_ in pairs(squads) do
+							local squad = alife_object(sid)
+
+							if (squad) then
+								if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+									sim_squad_warfare.set_target(squad, obj.id)
+									local commanderID = obj:commander_id()
+									local commander = commanderID and alife_object(commanderID)
+									local commanderName = commander and commander.character_name and commander:character_name()	
+									local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+									local text = strformat(str_wrfr[26], smartName, commanderName)
+									news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+									printd(2)
+									return
+								end
+							end
+						end
+
+						return
+					elseif (prop == str_wrfr[16]) then
+						--printf("!!! SEND ALL SQUADS !!!")
+						local squads = SIMBOARD.smarts[selectedObject.id].squads
+											
+						for sid,_ in pairs(squads) do
+							local squad = alife_object(sid)
+
+							if (squad) then
+								if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+									sim_squad_warfare.set_target(squad, obj.id)
+									local commanderID = obj:commander_id()
+									local commander = commanderID and alife_object(commanderID)
+									local commanderName = commander and commander.character_name and commander:character_name()	
+									local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+									local text = strformat(str_wrfr[27], smartName, commanderName)
+									news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+								end
+							end
+						end
+						
+						printd(3)
+						return
+					end
+				else
+					if (prop == str_wrfr[12]) then
+						local squads = SIMBOARD.smarts[selectedObject.id].squads
+											
+						for sid,_ in pairs(squads) do
+							local squad = alife_object(sid)
+
+							if (squad) then
+								if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+									sim_squad_warfare.set_target(squad, obj.id)
+									local commanderID = obj:commander_id()
+									local commander = commanderID and alife_object(commanderID)
+									local commanderName = commander and commander.character_name and commander:character_name()	
+									local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+									local text = strformat(str_wrfr[28], smartName, commanderName)
+									news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+									printd(2)
+									return
+								end
+							end
+						end
+					elseif (prop == str_wrfr[13]) then
+						--printf("!!! SEND ALL SQUADS !!!")
+						local squads = SIMBOARD.smarts[selectedObject.id].squads
+											
+						for sid,_ in pairs(squads) do
+							local squad = alife_object(sid)
+
+							if (squad) then
+								if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+									sim_squad_warfare.set_target(squad, obj.id)
+									local commanderID = obj:commander_id()
+									local commander = commanderID and alife_object(commanderID)
+									local commanderName = commander and commander.character_name and commander:character_name()	
+									local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+									local text = strformat(str_wrfr[29], smartName, commanderName)
+									news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+								end
+							end
+						end
+						
+						printd(3)
+						return
+					end
+				end
+			elseif (obj:clsid() == clsid.smart_terrain) then
+				local faction = obj.owning_faction or "none"
+				local actor_faction = faction == warfare.actor_faction
+				local enemy = game_relations.is_factions_enemies(faction, warfare.actor_faction)
+				
+				if (enemy or faction == "none") then
+					if (base) then
+						if (prop == str_wrfr[10]) then						
+							if not (selectedObject.target_smarts[obj.id]) then
+								selectedObject.target_smarts[obj.id] = true
+								local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+								local targetName = translate_smart_name(obj:name()) or obj:name()
+								local text = strformat(str_wrfr[30], targetName, smartName)
+								news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+							end
+						end
+					end
+					
+					if (prop == str_wrfr[9]) then
+						local squads = SIMBOARD.smarts[selectedObject.id].squads
+						local available = {}
+											
+						for sid,_ in pairs(squads) do
+							local squad = alife_object(sid)
+
+							if (squad) then
+								if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+									available[#available+1] = squad
+								end
+							end
+						end
+						
+						local s = available[math.random(#available)]						
+						sim_squad_warfare.set_target(s, obj.id)
+						
+						local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+						local targetName = translate_smart_name(obj:name()) or obj:name()
+						local text = strformat(str_wrfr[31], smartName, targetName)
+						news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+
+						return
+					elseif (prop == str_wrfr[16]) then
+						--printf("!!! SEND ALL SQUADS !!!")
+						local squads = SIMBOARD.smarts[selectedObject.id].squads
+											
+						for sid,_ in pairs(squads) do
+							local squad = alife_object(sid)
+
+							if (squad) then
+								if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+									sim_squad_warfare.set_target(squad, obj.id)
+								end
+							end
+						end
+						
+						local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+						local targetName = translate_smart_name(obj:name()) or obj:name()
+						local text = strformat(str_wrfr[32], smartName, targetName)
+						news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+						
+						printd(3)
+						return
+					end		
+				else						
+					if (actor_faction) then
+						if (prop == str_wrfr[14]) then
+							local squads = SIMBOARD.smarts[obj.id].squads						
+							local available = {}
+												
+							for sid,_ in pairs(squads) do
+								local squad = alife_object(sid)
+
+								if (squad) then
+									if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+										available[#available+1] = squad
+									end
+								end
+							end
+							
+							local s = available[math.random(#available)]						
+							sim_squad_warfare.set_target(s, selectedObject.id)
+						
+							local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+							local targetName = translate_smart_name(obj:name()) or obj:name()
+							local text = strformat(str_wrfr[33], targetName, smartName)
+							news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+							return
+						end
+						
+
+						if (prop == str_wrfr[15]) then
+							local squads = SIMBOARD.smarts[obj.id].squads
+												
+							for sid,_ in pairs(squads) do
+								local squad = alife_object(sid)
+
+								if (squad) then
+									if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+										--printf("sending " .. squad:name() .. " to " .. obj:name())
+										sim_squad_warfare.set_target(squad, selectedObject.id)
+									end
+								end
+							end
+						
+							local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+							local targetName = translate_smart_name(obj:name()) or obj:name()
+							local text = strformat(str_wrfr[34], targetName, smartName)
+							news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+							
+							return
+						end
+					end
+				
+					if (prop == str_wrfr[12]) then
+						local squads = SIMBOARD.smarts[selectedObject.id].squads						
+						local available = {}
+											
+						for sid,_ in pairs(squads) do
+							local squad = alife_object(sid)
+
+							if (squad) then
+								if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+									available[#available+1] = squad
+								end
+							end
+						end
+						
+						local s = available[math.random(#available)]						
+						sim_squad_warfare.set_target(s, obj.id)
+						
+						local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+						local targetName = translate_smart_name(obj:name()) or obj:name()
+						local text = strformat(str_wrfr[35], smartName, targetName)
+						news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+						return
+					elseif (prop == str_wrfr[13]) then
+						--printf("!!! SEND ALL SQUADS !!!")
+						local squads = SIMBOARD.smarts[selectedObject.id].squads
+											
+						for sid,_ in pairs(squads) do
+							local squad = alife_object(sid)
+
+							if (squad) then
+								if (squad.registered_with_warfare and squad.current_action == 1 and squad:get_squad_community() == warfare.actor_faction) then
+									--printf("sending " .. squad:name() .. " to " .. obj:name())
+									sim_squad_warfare.set_target(squad, obj.id)
+								end
+							end
+						end
+						
+						local smartName = translate_smart_name(selectedObject:name()) or selectedObject:name()	
+						local targetName = translate_smart_name(obj:name()) or obj:name()
+						local text = strformat(str_wrfr[36], smartName, targetName)
+						news_manager.send_tip(db.actor, text, nil, "patriarch", nil, nil)
+						
+						printd(4)
+						return
+					end
+				end
+			end
+		end
+	end
+    
+    printd(2)
+end
+
+function on_game_start()
+	local function on_game_load()
+		if alife_storage_manager.get_state().enable_warfare_mode then
+			RegisterScriptCallback("map_spot_menu_add_property",map_spot_menu_add_property)
+			RegisterScriptCallback("map_spot_menu_property_clicked",map_spot_menu_property_clicked)
+		end
+	end
+	RegisterScriptCallback("on_game_load", on_game_load)
+	RegisterScriptCallback("on_localization_change",refresh_strings)
+	
+	refresh_strings()
+end
+
+-- slightly modified from gamemode_azazel.script
+function possess_squad_leader(squad)
+
+	local commander = squad:commander_id()
+	local se_obj = commander and alife_object(commander)
+
+	axr_companions.remove_all_from_actor_squad()
+
+	local ignore_list = {
+		["bolt"] = true,
+		["device_torch"] = true,
+		["device_pda"] = true,
+		["wpn_binoc"] = true,
+		["medkit_script"] = true,
+		["guitar_a"] = true,
+		["harmonica_a"] = true,
+		["anim_binoc"] = true,
+		["anim_knife"] = true,
+		["hand_radio"] = true,
+		["hand_radio_r"] = true,
+		["stick_bred"] = true,
+		["stick_kolbasa"] = true,
+		["stick_kolbasa_bred"] = true,
+		["wpn_knife"] = true,
+		["pda_for_nps"] = true,
+		["sigaret_for_nps"] = true,
+	}
+	
+	bind_stalker_ext.invulnerable_time = time_global() + 30000
+	db.actor:set_health_ex(1)
+	
+	-- make squad actor companions
+	local squad = alife_object(se_obj.group_id)
+	if (squad) then
+		SIMBOARD:assign_squad_to_smart(squad, nil)
+		axr_companions.companion_squads[squad.id] = squad
+		for k in squad:squad_members() do 
+			if (k.id ~= se_obj.id) then
+				axr_companions.non_task_companions[k.id] = true
+				se_save_var(k.id,k.object:name(),"companion",true)
+				local member = db.storage[k.id] and db.storage[k.id].object 
+				if (member) then
+					axr_companions.setup_companion_logic(member,db.storage[k.id],false)
+				end
+			end
+		end
+	end
+
+	local se_actor = alife():actor()
+	-- actor corpse 
+	local se_mimic = alife_create("stalker_azazel",se_actor.position,se_actor.m_level_vertex_id,se_actor.m_game_vertex_id)
+	if (se_mimic) then 
+		se_mimic:set_character_name(se_actor:character_name())
+		se_mimic:set_profile_name(se_actor:profile_name())
+		se_mimic:kill()
+		
+		local m_data = alife_storage_manager.get_se_obj_state(se_mimic,true)
+		if (m_data) then
+			m_data.icon_name = se_actor:character_icon()
+			m_data.visual = db.actor:get_visual_name()
+		end
+		
+		local function release_actor_item(temp, item)
+			local sec = item:section()
+			if (not ignore_list[sec]) then
+				if alife_release_id(item:id()) then
+					alife_create_item(sec,se_mimic)
+				end
+			end
+		end
+		db.actor:iterate_inventory(release_actor_item,nil)
+	end
+
+	se_actor:set_character_name(se_obj:character_name())
+
+	local faction = se_obj:community()
+	se_actor:set_rank(se_obj:rank())
+	set_actor_true_community(faction)
+	db.actor:set_character_reputation(se_obj:reputation())
+	db.actor:give_money(10*math.random(1,250)+500)
+	
+	game_relations.set_community_goodwill_for_faction("actor_"..faction)
+		
+	-- copy all items except ignored
+	local sim = alife()
+	for i=1,sim:max_id() - 1 do 
+		local se_item = sim:object(i)
+		if (se_item and se_item.parent_id == se_obj.id) then
+			local sec = se_item:section_name()
+			if not (ignore_list[sec]) then
+				give_object_to_actor(sec)
+			end
+		end
+	end
+	
+	-- spawn suitable items
+	local npc_data = utils_stpk.get_stalker_data(se_obj)
+	local npc_visual = npc_data and npc_data.visual_name
+	local rank_name = ranks.get_obj_rank_name(db.actor)
+	
+	death_manager.try_spawn_ammo(db.actor)
+	death_manager.create_item_list(db.actor, faction, rank_name, false)
+	local outfit_id = death_manager.spawn_cosmetics(db.actor, AC_ID, faction, rank_name, npc_visual, true)
+	
+	if (not outfit_id) then
+		give_object_to_actor("novice_outfit") -- give novice outfit if no outfit is created
+	end
+	give_object_to_actor("device_pda_1") -- give PDA
+	give_object_to_actor("itm_backpack") -- give backpack
+	
+	-- cancel all tasks
+	local task_info = task_manager.get_task_manager().task_info
+	local task_ini = task_manager.task_ini
+	for task_id,tbl in pairs(task_info) do
+		--if not (tbl.storyline) then
+			tbl.forced_status = "fail"
+			tbl.cancelled_by_actor = true
+		--end
+	end
+		
+	-- initiate transitition and removal of victim
+	local level_name = alife():level_name(game_graph():vertex(se_obj.m_game_vertex_id):level_id())
+	
+	db.actor:set_health_ex(1)
+	db.actor.bleeding = 0
+	db.actor.radiation = 0
+	
+	if (level_name == level.name()) then 
+		-- give bolt
+		local bolt_first = random_choice("bolt","bolt_bullet")
+		alife_create_item(bolt_first, db.actor)
+		
+		hide_hud_all()
+		db.actor:set_actor_position(se_obj.position)
+		--level.disable_input()
+		--level.remove_cam_effector(210409)
+		--level.add_cam_effector("camera_effects\\prison_1.anm", 210409, false, "gamemode_azazel.cam_effector_end")
+		level.add_pp_effector("deimos1.ppe", 210410, false)
+		safe_release_manager.release(se_obj)
+	else
+		alife_storage_manager.get_state().bolt_first = random_choice("bolt","bolt_bullet") -- give bolt
+		
+		local pos = se_obj.position
+		local lvid = se_obj.m_level_vertex_id
+		local gvid = se_obj.m_game_vertex_id
+		level.add_pp_effector("deimos1.ppe", 210410, false)
+		safe_release_manager.release(se_obj)
+		alife_storage_manager.get_state().azazel_death = true
+		local function tele_me_now(id)
+			ChangeLevel(pos,lvid,gvid,VEC_ZERO, true)
+			
+			
+		db.actor:set_health_ex(1)
+		db.actor.bleeding = 0
+		db.actor.radiation = 0
+			
+			return true
+		end
+		CreateTimeEvent(0,"tele",0,tele_me_now,se_obj.id)
+	end
+end
\ No newline at end of file
diff --git a/gamedata/scripts/xr_effects.script b/gamedata/scripts/xr_effects.script
new file mode 100644
index 000000000..6e8364acd
--- /dev/null
+++ b/gamedata/scripts/xr_effects.script
@@ -0,0 +1,6157 @@
+
+blacklisted_maps = { -- List of maps to skip in scans
+	-- North
+	["l13_generators"]        = true,
+	["l12_stancia_2"]         = true,
+	["l12_stancia"]           = true,
+	["l11_pripyat"]           = true,
+	["l10_radar"]             = true,
+	["l11_hospital"]          = true,
+	-- Underground
+	["jupiter_underground"]   = true,
+	["labx8"]                 = true,
+	["l03u_agr_underground"]  = true,
+	["l04u_labx18"]           = true,
+	["l08u_brainlab"]         = true,
+	["l10u_bunker"]           = true,
+	["l12u_control_monolith"] = true,
+	["l12u_sarcofag"]         = true,
+	["l13u_warlab"]           = true,
+	
+	["fake_start"]            = true
+}
+
+
+--< Tronex >
+function unlock_note_mysteries_of_the_zone(actor,npc,p)
+	SendScriptCallback("actor_on_interaction", "notes", nil, "mysteries_of_the_zone")
+end
+function unlock_note_living_legend(actor,npc,p)
+	SendScriptCallback("actor_on_interaction", "notes", nil, "living_legend")
+end
+function unlock_note_mortal_sin(actor,npc,p)
+	SendScriptCallback("actor_on_interaction", "notes", nil, "mortal_sin")
+end
+
+function remove_quest_item(actor,npc,p)
+	if (not p) or (p and #p == 0) then
+		return
+	end
+	
+	local var = load_var(db.actor, p[1])
+	if (not var) then 
+		return
+	end
+	
+	local t = {}
+	if var.item_1_id then t[var.item_1_id] = var.item_1_sec end
+	if var.item_2_id then t[var.item_2_id] = var.item_2_sec end
+	
+	for k,v in pairs(t) do
+		local obj = k and level.object_by_id(k)
+		local se_obj = k and alife_object(k)
+		if se_obj and obj and (obj:section() == v) then
+			alife_release(se_obj)
+			news_manager.relocate_item(db.actor,"out",v,1)
+		end
+	end
+end
+
+function prepare_reward_money(actor,npc,p)
+-- Prepare money reward to give when actor complete the task
+-- p[1]: task id
+-- p[2]: amount of money
+-- p[3] (optional): maximum amount of money, if this field exists then a random amount of money between p[2] and p[2] will be chosen
+
+	local var = load_var(db.actor, p[1])
+	if (not var) then return end
+	
+	local multi = game_difficulties.get_eco_factor("rewards") or 1
+	
+	local money = tonumber(p[2] or 500)
+	if p[3] then
+		money = math.random(money,tonumber(p[3]))
+	end
+	money = math.ceil(tonumber(money) * multi)
+	
+	var.reward_money = money
+	save_var(db.actor, p[1], var)
+end
+
+function prepare_reward_item(actor,npc,p)
+-- p[1]: task id
+-- This function has 3 modes:
+-- Mode [1] - single item - pattern: (task_id:item) - effect: store item from p[2] - amount: 1
+-- Mode [2] - random single item - pattern: (task_id:item_1:item_2:item_3:item_4...) - effect: store an item from a random field (+p[2]) - amount: 1
+-- Mode [3] - multi items with defined amount - pattern: (task_id:item_1:amt_1:item_2:amt_2...) - effect: store items p[2],p[4],p[6]... with defined amounts p[3],p[5],p[7]...
+
+	local var = load_var(db.actor, p[1])
+	if (not var) then return end
+	
+	-- Set reward mode
+	local mode = 1
+	if (#p == 2) then mode = 1                             -- give one item
+	elseif (#p > 2) and (not tonumber(p[3])) then mode = 2 -- give a random item
+	elseif (#p > 2) and tonumber(p[3]) then mode = 3       -- give a set of items with amount
+	else return end
+	
+	-- Validate sections
+	local function check(sec)
+		if (not ini_sys:section_exist(sec)) then
+			abort("ERROR: Task: %s - Function: prepare_reward_item - Invalid item section found: %s",p[1],sec)
+		end
+	end
+	
+	-- Fill reward table
+	local t = {}
+	if (mode == 1) then
+		check(p[2])
+		t[p[2]] = 1
+	elseif (mode == 2) then
+		local pick = p[math.random(2,#p)]
+		check(pick)
+		t[pick] = 1
+	elseif (mode == 3) then
+		for i=2,#p,2 do
+			local p1 = p[i]
+			local p2 = p[i+1]
+			check(p1)
+			t[p1] = t[p1] and (t[p1] + tonumber(p2)) or tonumber(p2)
+		end
+	end
+	
+	-- stack the old reward table if it exists
+	local t2 = var.reward_item or {}
+	for k,v in pairs(t) do
+		t2[k] = t2[k] and (t2[k] + v) or v
+	end
+	
+	var.reward_item = t2
+	save_var(db.actor, p[1], var)
+end
+
+function give_reward(actor,npc,p) -- Give stored rewards
+	local var = load_var(db.actor, p[1])
+	if (not var) then return end
+	
+	-- money reward
+	local money = var.reward_money
+	if money then
+		dialogs.relocate_money(db.actor,money,"in")
+	end
+	
+	-- item reward
+	local items = var.reward_item
+	if items then
+		for k,v in pairs(items) do
+			for i=1,v do
+				local se_item = alife_create_item(k, db.actor)
+				local cls = se_item:clsid()
+				if IsWeapon(nil,cls) or IsOutfit(nil,cls) or IsHeadgear(nil,cls) then
+					--se_item.condition = (math.random(70,90)/100)
+				end
+			end
+			news_manager.relocate_item(db.actor,"in",k,v)
+		end
+	end
+end
+
+function stalker_ceasefire()
+	local blacklist = {
+		["bandit"] = true,
+		["monolith"] = true,
+		["zombied"] = true,
+		["army"] = true,
+	}
+
+	local actor_comm = get_actor_true_community()
+	if (not blacklist[actor_comm]) and game_relations.is_factions_enemies("stalker",actor_comm) then
+		game_relations.save_relation ( "stalker" , actor_comm , 2000 )
+		game_relations.save_relation ( "actor_stalker" , actor_comm , 2000 )
+		game_relations.save_relation ( "stalker" , "actor_" .. actor_comm , 2000 )
+		game_relations.send_news ("stalker" , actor_comm , "st_relations_cease_fire" , nil)
+	end
+end
+
+function reward_random_money_by_dist(actor,npc,p)
+	local var = load_var(db.actor, p[1])
+	local lvl_task = var and var.lvl_task or level.name()
+	local lvl_target = var and var.lvl_target
+	local n = lvl_task and lvl_target and txr_routes.get_shortest_path_num(lvl_task, lvl_target) or 1
+	
+	local multi = game_difficulties.get_eco_factor("rewards") or 1
+	local min_val = ( (tonumber(p[2]) or 500) * multi ) / 50
+	local max_val = ( (tonumber(p[3]) or (min_val + 1000)) * multi ) / 50
+	local money = math.random( math.ceil(min_val), math.ceil(max_val) ) * 50
+	local sweets = math.ceil(n * money * tonumber(p[4] or 0.2))
+	
+	dialogs.relocate_money( db.actor, (money + sweets), "in" )
+end
+
+local pos_itms = {
+	["drx_x8_documents"] = {-101.9361038208, -31.361772537231, 90.615669250488, 636, 5090},
+	["drx_x16_documents"] = {-46.306594848633, 20.461000442505, 2.1229863166809, 2220, 3792},
+	["drx_x18_documents"] = {23.617618560791, -5.6467723846436, -18.183609008789, 6311, 3760},
+	["drx_x19_documents"] = {6.817852973938, -7.8305835723877, -15.558134078979, 7638, 3842},
+	["drx_agr_u_documents"] = {46.072761535645, 1.8872995376587, 75.970985412598, 3968, 3630},
+	["drx_jup_u_documents"] = {27.983295440674, 12.515381813049, -1.1357840299606, 39736, 4861},
+	
+	["lx8_history_documents"] = {-93.635635375977, -27.296674728394, 96.18310546875, 1318, 5079},
+	["lx8_history_2_documents"] = {-116.10192871094, -27.196212768555, 82.614562988281, 30, 5090},
+	["lx8_history_3_documents"] = {-43.184757232666, -19.527189254761, 67.334884643555, 6770, 5094},
+	
+	["wpn_gauss_quest"] = {-426.44213867188, 26.069364547729, -383.1135559082, 138111, 4140},
+}
+function spawn_item_at_pos(actor, npc, p)
+	if not (p and p[1]) then return end
+	
+	if (pos_itms[p[1]]) then
+		local pos = vector():set( pos_itms[p[1]][1], pos_itms[p[1]][2], pos_itms[p[1]][3] )
+		local se_obj = alife_create( p[1], pos, pos_itms[p[1]][4], pos_itms[p[1]][5] )
+		if (not se_obj) then
+			printe("!ERROR: spawn_item_at_pos | unable to spawn [%s]", p[1])
+		end
+	else
+		printe("!ERROR: spawn_item_at_pos | no info found for item [%s]", p[1])
+	end
+end
+
+function give_letter(actor, npc, p)
+	if not (p and ini_sys:section_exist(p[1])) then
+		return
+	end
+	
+	if (not ui_pda_encyclopedia_tab.is_unlocked_note("encyclopedia__notes_" .. p[1])) then
+		alife_create_item(p[1], db.actor)
+		news_manager.relocate_item(db.actor, "in", p[1], 1)
+	end
+end
+
+function increase_rank(actor, npc, p)
+	local value = p[1] and tonumber(p[1])
+	if value then
+		game_statistics.increment_rank(value)
+	end
+end
+
+function increase_rep(actor, npc, p)
+	local value = p[1] and tonumber(p[1])
+	if value then
+		game_statistics.increment_reputation(value)
+	end
+end
+
+function decrease_rank(actor, npc, p)
+	local value = p[1] and tonumber(p[1])
+	if value then
+		game_statistics.increment_rank(-value)
+	end
+end
+
+function decrease_rep(actor, npc, p)
+	local value = p[1] and tonumber(p[1])
+	if value then
+		game_statistics.increment_reputation(-value)
+	end
+end
+
+function set_task_stage(actor, npc, p)
+	local tm = task_manager.get_task_manager()
+    local task_info = tm.task_info
+	if p and p[1] and p[2] and tm.task_info[p[1]] and tonumber(p[2]) then
+		-- printf('setting task %s stage to %s',p[1],p[2])
+		task_info[p[1]].stage = tonumber(p[2])
+	else
+		if p then
+			printf('set_task_stage: arguments incorrect: %s %s',p[1],p[2])
+		else
+			printf('set_task_stage: no arguments')
+		end
+	end
+end
+
+function open_route(actor, npc, p)
+	if p[1] and p[2] then
+		txr_routes.open_route(p[1],p[2])
+	end
+end
+
+function snd_volume_off()
+	_G.mus_vol = math.max(get_console_cmd(2,'snd_volume_music'),_G.mus_vol or 0)
+	_G.amb_vol = math.max(get_console_cmd(2,'snd_volume_eff'),_G.amb_vol or 0)
+	exec_console_cmd('snd_volume_music 0')
+	exec_console_cmd('snd_volume_eff 0')
+end
+
+function snd_volume_on()
+	exec_console_cmd('snd_volume_music '..tostring(_G.mus_vol))
+	exec_console_cmd('snd_volume_eff '..tostring(_G.amb_vol))
+end
+
+function se_clear_var(actor, npc, p)
+-- mass clearing for variables that match specific value in server objects, useful for body release tagging
+
+	if not (p[1] and p[2]) then
+		printe("!ERROR clear_se_var | missing vars: [%s] [%s]", p[1], p[2])
+		return
+	end
+	
+	local m_data = alife_storage_manager.get_state()
+	for id,v in pairs(m_data.se_object) do
+		if (v[varname] == val) then
+			printf("~se_clear_all_match_var | found match %s = %s in (%s)", varname, val, id)
+			v[varname] = nil
+		end
+	end
+end
+--< Tronex >
+
+
+--< MLR >
+function disable_meet_nimble_info()
+	db.actor:disable_info_portion("actor_meet_nimble_room")		
+end
+-- ������� ��� ���������� ������.
+function bridge_down()
+	db.bridge_by_name["red_bridge"]:anim_forward()
+	db.actor:give_info_portion("red_bridge_down_done_2")	
+end
+function bridge_up()
+	db.bridge_by_name["red_bridge"]:anim_backward()
+	db.actor:disable_info_portion("red_bridge_down_done")	
+	db.actor:disable_info_portion("red_bridge_down_done_2")		
+end
+function bridge_stop()
+	db.bridge_by_name["red_bridge"]:anim_stop()
+end
+
+function anim_obj_down(actor, npc, p)
+	if p[1] ~= nil then
+		db.anim_obj_by_name[p[1]]:anim_forward()
+	end
+end
+function anim_obj_up(actor, npc, p)
+	if p[1] ~= nil then
+		db.anim_obj_by_name[p[1]]:anim_backward()
+	end
+end
+function anim_obj_stop(actor, npc, p)
+	if p[1] ~= nil then
+		db.anim_obj_by_name[p[1]]:anim_stop()
+	end
+end
+
+function disable_begin_the_battle()
+	db.actor:disable_info_portion("begin_the_battle")
+end 
+
+function teleport_for_totaliz_out(first_speaker, second_speaker) 
+	local box = get_story_object("bar_arena_inventory_box_2")
+	if (box) then
+		local function transfer_object_item(item)
+			db.actor:transfer_item(item, box)
+		end
+		db.actor:inventory_for_each(transfer_object_item)
+	end
+	
+	xr_zones.purge_arena_items("bar_arena")
+	
+	level.add_pp_effector ("fade_in.ppe", 200, false)
+	db.actor:set_actor_position(vector():set(150.249435424805,0.429966986179352,72.1354370117188),40238,1684)			
+	
+	local box = get_story_object("bar_arena_inventory_box")
+	if (box) then
+		local function transfer_object_item(box,item)
+			box:transfer_item(item, db.actor)
+		end
+		box:iterate_inventory_box(transfer_object_item,box)
+	end
+end
+
+function devushka_quest_one_reward(first_speaker, second_speaker)
+	alife_create_item("nomad_outfit", db.actor)
+	alife_create_item("wpn_knife3"  , db.actor)
+	alife_create_item("kit_hunt"    , db.actor)
+	news_manager.relocate_item(db.actor, "in", "nomad_outfit", 1)
+	news_manager.relocate_item(db.actor, "in", "wpn_knife3"  , 1)
+	news_manager.relocate_item(db.actor, "in", "kit_hunt"    , 1)
+end
+--< MLR >
+
+
+--< LTTZ >
+function spawn_strelok_notes()
+     local pos = vector():set( 43.601459503174, 1.3544018268585, 75.227851867676 )
+     local se_obj = alife_create( "strelok_notes", pos, 3762, 3630 )
+     if ( not se_obj ) then
+          printe("!ERROR: unable to spawn strelok_notes" )
+     end
+end
+
+function spawn_wpn_gauss_quest() -- not used
+     -- Potential locations for quest item:
+     local quest_item_locations_list = {
+          {-421.80874633789, 23.745666503906, -328.25729370117, 145096, 4394}, -- location data for location 1
+          {-411.07214355469, 32.196994781494, -334.24200439453, 161488, 4139}, -- location data for location 2
+          {-424.48648071289, 24.198583602905, -381.48046875, 142021, 4140},  -- location data for location 3
+     }
+     -- Choose random location from the list:
+     local i = math.random( #quest_item_locations_list )
+     -- Set the position vector with the x, y, and z coordinates:
+     local pos = vector():set( quest_item_locations_list[i][1], quest_item_locations_list[i][2], quest_item_locations_list[i][3] )
+     -- Extract the level vertex id for the chosen location:
+     local lvid = quest_item_locations_list[i][4]
+     -- Extract the game vertex id:
+     local gvid = quest_item_locations_list[i][5]
+     -- Spawn the item at the chosen location:
+     local se_obj = alife_create( "wpn_gauss_quest", pos, lvid, gvid )
+     if ( not se_obj ) then
+          printe("!ERROR: unable to spawn wpn_gauss_quest" )
+     end
+end
+
+function lttz_ll_take_wpn_gauss_quest(actor, npc)
+	remove_item(actor, npc, {"wpn_gauss_quest"})
+end
+
+function lttz_ll_take_strelok_notes(actor, npc)
+	remove_item(actor, npc, {"strelok_notes"})
+	dialogs.relocate_item_section(second_speaker, "af_glass_af_aam", "in",1)
+	inc_faction_goodwill_to_actor(db.actor, nil, {"stalker", 50})
+end
+
+function spawn_x8_documents()
+     -- Potential locations for quest item:
+     local quest_item_locations_list = {
+          {-79.236862182617, -24.324705123901, 89.061508178711, 3417, 5077}, -- location data for location 1
+          {-101.86143493652, -31.362953186035, 90.774269104004, 636, 5090}, -- location data for location 2
+          {-79.810501098633, -15.038819313049, 114.17692565918, 3459, 5098},  -- location data for location 3
+     }
+     -- Choose random location from the list:
+     local i = math.random( #quest_item_locations_list )
+     -- Set the position vector with the x, y, and z coordinates:
+     local pos = vector():set( quest_item_locations_list[i][1], quest_item_locations_list[i][2], quest_item_locations_list[i][3] )
+     -- Extract the level vertex id for the chosen location:
+     local lvid = quest_item_locations_list[i][4]
+     -- Extract the game vertex id:
+     local gvid = quest_item_locations_list[i][5]
+     -- Spawn the item at the chosen location:
+     local se_obj = alife_create( "x8_documents", pos, lvid, gvid )
+     if ( not se_obj ) then
+          printe("!ERROR: unable to spawn x8_documents" )
+     end
+end
+
+function spawn_monolith_shard()
+     local pos = vector():set( 0.072339810431004, -34.356998443604, 17.800102233887 )
+     local se_obj = alife_create( "monolith_shard", pos, 1849, 4055 )
+     if ( not se_obj ) then
+          printe("!ERROR: unable to spawn monolith_shard" )
+     end
+end
+
+function lttz_ll_take_x8_documents(actor, npc)
+	remove_item(actor, npc, {"x8_documents"})
+end
+		
+function lttz_ll_give_wpn_gauss_quest(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "wpn_gauss_quest", "in",1)
+end
+
+function lttz_ll_give_gauss_ammo(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "ammo_gauss", "in",2)
+end
+
+function lttz_ll_take_monolith_shard(actor, npc)
+	remove_item(actor, npc, {"monolith_shard"})
+end
+
+function lttz_ll_give_strelok_pendrive(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "strelok_pendrive", "in",1)
+end
+
+function lttz_ll_take_strelok_pendrive(actor, npc)
+	remove_item(actor, npc, {"strelok_pendrive"})
+end
+
+function lttz_ll_give_doctor_artefact(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "af_mincer_meat_af_aam", "in",1)
+	inc_faction_goodwill_to_actor(db.actor, nil, {"stalker", 50})
+end
+
+function spawn_stitch_decoder()
+     -- Potential locations for quest item:
+     local quest_item_locations_list = {
+          {50.247924804688, 3.9755771160126, 156.77543640137, 509188, 5248}, -- location data for location 1
+          {51.563461303711, 7.1993789672852, 224.42543029785, 514950, 5155}, -- location data for location 2
+          {19.012723922729, 1.1766533851624, 112.65353393555, 472104, 5144},  -- location data for location 3
+     }
+     -- Choose random location from the list:
+     local i = math.random( #quest_item_locations_list )
+     -- Set the position vector with the x, y, and z coordinates:
+     local pos = vector():set( quest_item_locations_list[i][1], quest_item_locations_list[i][2], quest_item_locations_list[i][3] )
+     -- Extract the level vertex id for the chosen location:
+     local lvid = quest_item_locations_list[i][4]
+     -- Extract the game vertex id:
+     local gvid = quest_item_locations_list[i][5]
+     -- Spawn the item at the chosen location:
+     local se_obj = alife_create( "stitch_decoder", pos, lvid, gvid )
+	 if se_obj then
+		item_radio.add_target(se_obj.id, 171, 75)
+	 else
+		printe("!ERROR: unable to spawn stitch_decoder" )
+	 end
+end
+
+function lttz_ms_take_stitch_decoder(actor, npc)
+	remove_item(actor, npc, {"stitch_decoder"})
+end
+
+function lttz_ms_take_attackers_pda(actor, npc)
+	remove_item(actor, npc, {"attackers_pda"})
+end
+
+function create_special_task_squad(actor,npc,p)
+	level.add_pp_effector("black.ppe", 1500, false)
+	create_squad(actor,npc,p)
+end
+
+function spawn_contact_lost_pda()
+     -- Potential locations for quest item:
+     local quest_item_locations_list = {
+          {-35.871238708496, -4.0057287216187, 139.02619934082, 8109, 2458}, -- location data for location 1
+          {-18.989786148071, -3.9511435031891, 143.22698974609, 15620, 2477}, -- location data for location 2
+          {-24.930610656738, -4.015763759613, 139.54330444336, 12734, 2458},  -- location data for location 3
+     }
+     -- Choose random location from the list:
+     local i = math.random( #quest_item_locations_list )
+     -- Set the position vector with the x, y, and z coordinates:
+     local pos = vector():set( quest_item_locations_list[i][1], quest_item_locations_list[i][2], quest_item_locations_list[i][3] )
+     -- Extract the level vertex id for the chosen location:
+     local lvid = quest_item_locations_list[i][4]
+     -- Extract the game vertex id:
+     local gvid = quest_item_locations_list[i][5]
+     -- Spawn the item at the chosen location:
+     local se_obj = alife_create( "contact_lost_pda", pos, lvid, gvid )
+     if ( not se_obj ) then
+          printe("!ERROR: unable to spawn contact_lost_pda" )
+     end
+end
+
+function lttz_ms_take_contact_lost_pda(actor, npc)
+	remove_item(actor, npc, {"contact_lost_pda"})
+end
+
+function gen_stitch_message()
+	local msg = game.translate_string("st_lttz_gen_stitch_message")
+	local sender = game.translate_string("st_dyn_news_anonymous")
+	db.actor:give_game_news(sender, msg, "ui_inGame2_Radiopomehi", 0, 20000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function premature_emission(actor, npc)
+	level.set_weather_fx("fx_surge_day_3_stancia")
+	this.aes_earthshake(npc)
+end
+
+function lttz_oa_give_decryption_radio(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "decryption_radio", "in",1)
+end
+
+function lttz_ll_take_zat_b40_sarge_pda(actor, npc)
+	remove_item(actor, npc, {"zat_b40_sarge_pda"})
+end
+
+function lttz_oa_take_decryption_radio(actor, npc)
+	remove_item(actor, npc, {"decryption_radio"})
+end
+
+function intercepted_transmission()
+	local msg = game.translate_string("st_lttz_intercepted_transmission_message")
+	local name = game.translate_string("st_dyn_news_unknown_contact")
+	db.actor:give_game_news(name, msg, "ui_inGame2_Radiopomehi", 0, 12000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function set_squad_enemy_lttz(actor, npc, p)
+	local story_id = p[1]
+	local squad = get_story_squad(story_id)
+	if squad == nil then
+		printf("There is no squad with id[%s]", tostring(story_id))
+		return
+	end
+	squad:force_set_goodwill(-5000, actor)
+end
+
+function yanov_invitation()
+	local msg = game.translate_string("st_lttz_yanov_invitation_message")
+	local name = game.translate_string("army_degtyarev_jup_name")
+	local comm = game.translate_string("st_dyn_news_comm_stalker_6")
+	local se = strformat("%s, %s",name,comm)
+	db.actor:give_game_news(se, msg, "ui_inGame2_Hero", 0, 20000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function yanov_invitation2()
+	local msg = game.translate_string("st_lttz_yanov_invitation2_message")
+	local name = game.translate_string("army_degtyarev_jup_name")
+	local comm = game.translate_string("st_dyn_news_comm_stalker_6")
+	local se = strformat("%s, %s",name,comm)
+	db.actor:give_game_news(se, msg, "ui_inGame2_Hero", 0, 20000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function lttz_oa_give_special_delivery_case(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "special_delivery_case", "in",1)
+end
+
+function lttz_oa_take_special_delivery_case(actor, npc)
+	remove_item(actor, npc, {"special_delivery_case"})
+end
+
+function lttz_oa_give_army_isg_spy_pendrive(first_speaker, second_speaker)
+    dialogs.relocate_item_section(second_speaker, "army_isg_spy_pendrive", "in",1)
+end
+
+function lttz_oa_take_army_isg_spy_pendrive(actor, npc)
+	remove_item(actor, npc, {"army_isg_spy_pendrive"})
+end
+
+function spawn_jupiter_documents( )
+     -- Potential locations for quest item:
+     local quest_item_locations_list = {
+          {304.7744140625, 28.783397674561, -299.32592773438, 1209997, 4517}, -- location data for location 1
+          {324.68350219727, 31.384368896484, -305.80865478516, 1235548, 4517}, -- location data for location 2
+          {351.95175170898, 27.543346405029, -343.99871826172, 1276714, 4516},  -- location data for location 3
+     }
+     -- Choose random location from the list:
+     local i = math.random( #quest_item_locations_list )
+     -- Set the position vector with the x, y, and z coordinates:
+     local pos = vector( ):set( quest_item_locations_list[i][1], quest_item_locations_list[i][2], quest_item_locations_list[i][3] )
+     -- Extract the level vertex id for the chosen location:
+     local lvid = quest_item_locations_list[i][4]
+     -- Extract the game vertex id:
+     local gvid = quest_item_locations_list[i][5]
+     -- Spawn the item at the chosen location:
+     local se_obj = alife_create("jupiter_documents", pos, lvid, gvid )
+     if ( not se_obj ) then
+          printe("!ERROR: unable to spawn jupiter_documents" )
+     end
+end
+
+function lttz_oa_take_jupiter_documents(actor, npc)
+	remove_item(actor, npc, {"jupiter_documents"})
+end
+
+function pripyat_strelok_message()
+	local msg = game.translate_string("st_lttz_pripyat_strelok_message")
+	local name = game.translate_string("stalker_strelok_oa_name")
+	local comm = game.translate_string("st_dyn_news_comm_stalker_6")
+	local se = strformat("%s, %s",name,comm)
+	db.actor:give_game_news(se, msg, "ui_inGame2_strelok_ico", 0, 20000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function pripyat_rogue_message()
+	local msg = game.translate_string("st_lttz_pripyat_rogue_message")
+	local name = game.translate_string("stalker_rogue_oa_name")
+	local comm = game.translate_string("st_dyn_news_comm_stalker_6")
+	local se = strformat("%s, %s",name,comm)
+	db.actor:give_game_news(se, msg, "ui_inGame2_neutral_2_merc", 0, 20000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function lttz_oa_take_drug_psy_blockade(actor, npc)
+	remove_item(actor, npc, {"drug_psy_blockade"})
+end
+
+function pripyat_stitch_message()
+	local msg = game.translate_string("st_lttz_pripyat_stitch_message")
+	local name = game.translate_string("stalker_stitch_oa_name")
+	local comm = game.translate_string("st_dyn_news_comm_stalker_6")
+	local se = strformat("%s, %s",name,comm)
+	db.actor:give_game_news(se, msg, "ui_inGame2_neutral_2_mask", 0, 20000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function pripyat_degtyarev_message()
+	local msg = game.translate_string("st_lttz_pripyat_degtyarev_message")
+	local name = game.translate_string("army_degtyarev_name")
+	local comm = game.translate_string("st_dyn_news_ssu")
+	local se = strformat("%s, %s",name,comm)
+	db.actor:give_game_news(se, msg, "ui_inGame2_Hero", 0, 30000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function pripyat_strelok_message2()
+	local msg = game.translate_string("st_lttz_pripyat_strelok_message2")
+	local name = game.translate_string("stalker_strelok_oa_name")
+	local comm = game.translate_string("st_dyn_news_comm_stalker_6")
+	local se = strformat("%s, %s",name,comm)
+	db.actor:give_game_news(se, msg, "ui_inGame2_strelok_ico", 0, 30000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+
+function pripyat_unisg_message()
+	local msg = game.translate_string("st_lttz_pripyat_unisg_message")
+	local name = game.translate_string("st_dyn_news_unknown_contact")
+	db.actor:give_game_news(name, msg, "ui_inGame2_neutral_4", 0, 20000)
+	xr_sound.set_sound_play(AC_ID, "pda_task")
+end
+--< LTTZ >
+
+--< DRX >
+function drx_sl_meet_random_honcho( actor, npc, p ) -- Give actor meet honcho task:
+--	Description: Finds a random friendly honcho and creates task to meet
+--	Usage: drx_sl_meet_random_honcho()
+--	Parameters: none
+--	Return value (type: none): none, creates task for player to meet next honcho
+
+	-- List of honchos and their surrounding factions:
+	local drx_sl_honchos_table = axr_task_manager.drx_sl_honchos_table
+	
+	-- Create list of valid honchos:
+	local honcho_list = {}
+	local size_t = 0
+	-- Examine each honcho:
+	for i = 1, #drx_sl_honchos_table do
+
+		-- Get the current honcho id:
+		local honcho = drx_sl_honchos_table[i][1]
+
+		-- Check if honcho is alive and is not current task giver:
+		if ( ((xr_conditions.is_alive( nil, nil, {honcho} )) or (honcho == "esc_m_trader")) and (honcho ~= load_var( db.actor, "drx_sl_current_honcho", "" )) ) then
+
+			-- Check if the honcho surrounding factions are not enemy of player:
+			local is_enemy = false
+			for j = 2, #drx_sl_honchos_table[i] do
+				if ( relation_registry.community_relation( drx_sl_honchos_table[i][j], alife():actor():community() ) <= -1000 ) then
+					is_enemy = true
+				end
+			end
+
+			-- Add the current honcho to the list of valid honchos:
+			if ( is_enemy == false ) then
+				size_t = size_t + 1
+				honcho_list[size_t] = honcho
+			end
+
+		end
+
+	end
+
+	-- Pick next honcho:
+	local next_honcho = load_var( db.actor, "drx_sl_current_honcho", "" )
+	if ( size_t > 0 ) then
+		next_honcho = honcho_list[math.random( size_t )]
+	end
+	save_var( db.actor, "drx_sl_current_honcho", next_honcho )
+
+	-- Increment current task number:
+	save_var( db.actor, "drx_sl_current_task_number", (load_var( db.actor, "drx_sl_current_task_number", 1 ) + 1) )
+	printf( ("DRX SL task count: " .. load_var( db.actor, "drx_sl_current_task_number", 1 )) )
+
+	-- Build list of available meet current honcho tasks:
+	task_ltx_file = task_manager.task_ini
+	local honcho_task_list = {}
+	size_t = 0
+	local honcho_task_id = ""
+	local i = 1
+	while ( true ) do
+		honcho_task_id = ("drx_sl_" .. next_honcho .. "_meet_task_" .. i)
+		if ( task_ltx_file:section_exist( honcho_task_id ) ) then
+			size_t = size_t + 1
+			honcho_task_list[size_t] = honcho_task_id
+			i = (i + 1)
+		else
+			break
+		end
+	end
+
+	-- Give player meet next honcho task:
+	if ( size_t > 0 ) then
+		honcho_task_id = honcho_task_list[math.random( size_t )]
+		save_var( db.actor, "drx_sl_current_task", honcho_task_id )
+		printf( ("DRX SL current storyline task: " .. honcho_task_id) )
+		give_info( ("drx_sl_meet_honcho_" .. next_honcho) )  -- (\configs\gameplay\info_portions.xml)
+		task_manager.get_task_manager():give_task( honcho_task_id )
+	else
+		printf( ("DRX SL no meet honcho tasks available for " .. next_honcho .. " !!") )
+		return
+	end
+
+end
+
+function drx_sl_change_factions( actor, npc, p ) -- Change actor faction:
+--	Description: Changes an actor to the specified faction
+--	Usage: drx_sl_change_factions( faction )
+--	Parameters:
+--		faction (type: string)  Faction for the actor to join (stalker, dolg, freedom, csky, ecolog, killer, army, bandit, or monolith)
+--	Return value (type: none): none
+
+	if ( p and p[1] ~= nil and p[1] ~= ("actor_" .. character_community( db.actor )) ) then
+
+		-- Set actor faction:
+		set_actor_true_community(p[1])
+		
+		local communities = utils_obj.get_communities_list()
+--		for i, community in pairs( communities ) do
+--			relation_registry.set_community_goodwill( community, AC_ID, 0 )
+--		end
+		printf( ("DRX SL: Actor faction changed to " .. p[1]) )
+
+		--[[ Set companion faction:
+		for id, squad in pairs( axr_companions.companion_squads ) do
+			if ( squad and squad.commander_id ) then
+				for k in squad:squad_members() do
+					local member = db.storage[k.id] and db.storage[k.id].object
+					if ( member and member:alive() ) then
+						member:set_character_community( p[1], 0, 0 )
+						for i, community in pairs( communities ) do
+							member:set_community_goodwill( community, 0 )
+						end
+						printf( ("DRX SL: Companion faction changed to " .. p[1]) )
+					end
+				end
+			end
+		end
+		-]]
+
+		-- Send dynamic news alert:
+		news_manager.send_tip( db.actor, (game.translate_string( "st_drx_questlines_joined" ) .. " " .. game.translate_string( p[1] ) .. " " .. game.translate_string( "st_drx_questlines_faction" )), nil, "completionist", nil, nil )
+
+	end
+
+end
+
+function drx_sl_setup_questlines( actor, npc, p )
+	local faction = p and p[1]
+	if (not faction) then
+		printe("! ERROR drx_sl_setup_questlines | no faction defined")
+		return
+	end
+	
+	-- Determine total number of storyline tasks to complete for this game:
+	save_var( db.actor, "drx_sl_total_task_number", math.random( 8, 12 ) )  -- Set to range of total meet honcho tasks to complete to finish game
+	save_var( db.actor, "drx_sl_current_task_number", 1 )
+	
+	-- Determine first honcho to start at:
+	local honcho_table = axr_task_manager.drx_sl_main_honcho_table
+	local start_game_honcho = honcho_table[faction] or ""
+	if (not honcho_table[faction]) then
+		printf( "DRX SL no available game start honchos !!" )
+	end
+	
+	-- Build list of available start game versions for start game honcho:
+	honcho_start_ltx_file = task_manager.task_ini
+	local honcho_start_list = {}
+	local honcho_start_id = ""
+	local i = 1
+	while ( true ) do
+		honcho_start_id = ("drx_sl_" .. start_game_honcho .. "_start_game_" .. i)
+		if ( honcho_start_ltx_file:section_exist( honcho_start_id ) ) then
+			table.insert( honcho_start_list, honcho_start_id )
+			i = (i + 1)
+		else
+			break
+		end
+	end
+	
+	-- Send actor to start game at current honcho:
+	if ( #honcho_start_list > 0 ) then
+		math.randomseed( device( ):time_global( ) )
+		honcho_start_id = honcho_start_list[math.random( #honcho_start_list )]
+		printf( ("DRX SL current storyline task: " .. honcho_start_id) )
+		save_var( db.actor, "drx_sl_start_task", honcho_start_id )
+		save_var( db.actor, "drx_sl_current_honcho", start_game_honcho )
+		give_info( ("drx_sl_start_game_" .. start_game_honcho) )  -- (\configs\gameplay\info_portions.xml)
+		--task_manager.get_task_manager( ):give_task( honcho_start_id )
+		printf( "DRX questlines are successfuly set for [%s] faction", faction )
+	else
+		printf( ("DRX SL no start game tasks available for " .. start_game_honcho .. " !!") )
+	end
+end
+
+function drx_sl_cancel_questlines( actor, npc, p ) -- Cancel all DRX questlines, and disabled info portion for them
+	save_var( db.actor, "drx_sl_start_task", nil )
+	save_var( db.actor, "drx_sl_current_honcho", nil )
+	save_var( db.actor, "drx_sl_current_task_number", nil )
+	save_var( db.actor, "drx_sl_current_task", nil )
+	save_var( db.actor, "drx_sl_total_task_number", nil )
+	save_var( db.actor, "drx_sl_current_task_number", nil )
+	
+	local drx_sl_honchos_table = axr_task_manager.drx_sl_honchos_table
+	local task_cfg = axr_task_manager.CFG_CACHE
+	local tm = task_manager.get_task_manager()
+    local task_info = tm.task_info
+	
+	-- Disable active info for DRX honcho
+	for i = 1, #drx_sl_honchos_table do
+		local honcho = drx_sl_honchos_table[i][1]
+		
+		if has_alife_info("drx_sl_meet_honcho_" .. honcho) then
+			disable_info("drx_sl_meet_honcho_" .. honcho)
+		end
+	end
+	
+	-- Cancel active DRX tasks
+	for task_id,tbl in pairs(task_info) do
+		if starts_with(task_id, "drx_sl_") then
+			tbl.forced_status = "fail"
+			tbl.cancelled_by_actor = true
+		end
+	end
+end
+
+function drx_sl_money_task_payment( actor, npc, p ) -- Take money task payment:
+--	Description: Takes payment from actor for a money task
+--	Usage: drx_sl_money_task_payment( task_id_var )
+--	Parameters:
+--		task_id_var (type: string) Var used for money task payment amount
+--	Return value (type: none): none
+
+	if ( p and p[1] ~= nil ) then
+		local money =  tonumber( load_var( db.actor, p[1], 0 ) )
+		db.actor:give_money( -(money) )
+ 		--game_stats.money_quest_update( -(money) )
+		news_manager.relocate_money( db.actor, "out", money )
+	end
+
+end
+
+function drx_sl_find_wish_granter( actor, npc, p ) -- Give actor find Wish Granter task:
+--	Description: Gives task to find the Wish Granter
+--	Usage: drx_sl_meet_random_honcho()
+--	Parameters: none
+--	Return value (type: none): none
+
+	local wish_granter_task = "drx_sl_find_wish_granter_task"
+	save_var( db.actor, "drx_sl_current_task", wish_granter_task )
+	printf( ("DRX SL current storyline task: " .. wish_granter_task) )
+	give_info( "drx_sl_on_find_wish_granter" )  -- (\configs\gameplay\info_portions.xml)
+	task_manager.get_task_manager():give_task( wish_granter_task )
+
+end
+
+function drx_sl_reward_random_rifle( actor, npc, p ) -- Give actor random rifle reward:
+--	Description:  Gives actor a random reward of a rifle within a specified value
+--	Usage: drx_sl_reward_random_rifle( p[1]:p[2] )
+--	Parameters:
+--		p[1] (type: int) Minimum value of the reward
+--		p[2] (type: int) Maximum value of the reward
+--	Return value (type: none): none, allocates reward to actor
+
+	-- List of reward items:
+	local reward_items = {
+
+		-- --------------------------------------------
+		-- Tier 1  (1 - 99):
+
+		"wpn_bm16",						-- [1]    200
+
+		-- --------------------------------------------
+		-- Tier 2  (100 - 999):
+
+		"wpn_toz34",						-- [2]   1200
+
+		-- --------------------------------------------
+		-- Tier 3  (1000 - 1999):
+
+		"wpn_wincheaster1300",	-- [3]   2400
+		"wpn_ak74u",					-- [4]   3000
+		"wpn_mp5",						-- [5]   3600
+		"wpn_ak74",						-- [6]   4000
+
+		-- --------------------------------------------
+		-- Tier 4  (2000 - 2999):
+
+		"wpn_l85",						-- [7]   5000
+		"wpn_spas12",					-- [8]   5300
+		"wpn_abakan",					-- [9]   6000
+		"wpn_lr300",						-- [10]   6000
+
+		-- --------------------------------------------
+		-- Tier 5  (3000 - 3999):
+
+		"wpn_sig550",					-- [11]   8000
+
+		-- --------------------------------------------
+		-- Tier 6  (4000 - 4999):
+
+		"wpn_protecta",					-- [12]   9000
+		"wpn_val",							-- [13]   9000
+
+		-- --------------------------------------------
+		-- Tier 7  (5000 - 5999):
+
+		"wpn_g36",						-- [14]  10000
+		"wpn_groza",						-- [15]  10000
+
+		-- --------------------------------------------
+		-- Tier 8  (6000 - 6999):
+
+		"wpn_vintorez",					-- [16]  12000
+
+		-- --------------------------------------------
+		-- Tier 9  (7000 - 7999):
+
+		"wpn_fn2000",					-- [17]  14000
+		"wpn_svd",						-- [18]  16000
+
+		-- --------------------------------------------
+		-- Tier 10  (8000 - 8999):
+
+		"wpn_svu",						-- [19]  17000
+
+		-- --------------------------------------------
+		-- Tier 11  (9000 - 9999):
+
+		"wpn_pkm",						-- [20]  20000
+		"wpn_rg-6",						-- [21]  20000
+
+		-- --------------------------------------------
+		-- Tier 12  (10000+):
+
+		"wpn_rpg7"						-- [22]  26000
+
+	}
+
+	local reward_tbl = { -- Tiers
+		[100] = 2,
+		[1000] = 3,
+		[2000] = 7,
+		[3000] = 11,
+		[4000] = 12,
+		[5000] = 14,
+		[6000] = 16,
+		[7000] = 17,
+		[8000] = 19,
+		[9000] = 20,
+		[10000] = 22,
+	}
+	
+	-- Find tier bottom for minimum reward:
+	local min_reward_value = tonumber( p[1] )
+	local min_reward_no = 1
+	
+	local functor = function(t,a,b) return a < b end
+	for val,no in spairs(reward_tbl,functor) do
+		if min_reward_value >= val then
+			min_reward_no = no
+		end
+	end
+	
+	
+	-- Find tier top for maximum reward:
+	local max_reward_value = tonumber( p[2] )
+	local max_reward_no = 22
+
+	local functor2 = function(t,a,b) return a > b end
+	for val,no in spairs(reward_tbl,functor2) do
+		if ( max_reward_value < val ) then
+			max_reward_no = no - 1
+		end
+	end
+	
+
+	-- Give actor rifle reward:
+	dialogs.relocate_item_section( db.actor, reward_items[math.random( min_reward_no, max_reward_no )], "in" )
+
+end
+
+function drx_sl_reward_random_artefact( actor, npc, p ) -- Give actor random artefact reward:
+--	Description:  Gives actor a random reward of an artefact within a specified value
+--	Usage: drx_sl_reward_random_artefact( p[1]:p[2] )
+--	Parameters:
+--		p[1] (type: int) Minimum value of the reward
+--		p[2] (type: int) Maximum value of the reward
+--	Return value (type: none): none, allocates reward to actor
+
+	-- List of reward items:
+	local reward_items = {
+		-- Tier 1
+		"af_itcher",
+		"af_blood",
+		"af_electra_sparkler",
+		"af_cristall_flower",
+		"af_medusa",
+		"af_night_star",
+		"af_dummy_glassbeads",
+		"af_dummy_battery",
+		"af_soul",
+		
+		-- Tier 2
+		"af_pin",
+		"af_mincer_meat",
+		"af_sponge",
+		"af_lobster_eyes",
+		"af_vyvert",
+		"af_cristall",
+		"af_bracelet",
+		"af_ring",
+		"af_electra_moonlight",
+		"af_empty",
+		"af_gravi",
+		"af_eye",
+		"af_dummy_dummy",
+		"af_fuzz_kolobok",
+		
+		-- Tier 3
+		"af_fireball",
+		"af_baloon",
+		"af_electra_flash",
+		"af_black_spray",
+		"af_full_empty",
+		"af_gold_fish",
+		"af_fire",
+		"af_ice",
+		"af_glass",
+	}
+
+	local reward_tbl = { -- Money <-> Artefact index
+		[4000] = 5,
+		[5000] = 9,
+		[6000] = 14,
+		[7000] = 15,
+		[9000] = 19,
+		[10000] = 20,
+		[15000] = 23,
+		[20000] = 27,
+		[25000] = 32,
+	}
+	
+	-- Find tier bottom for minimum reward:
+	local min_reward_value = tonumber( p[1] )
+	local min_reward_no = 1
+	
+	local functor = function(t,a,b) return a < b end
+	for val,no in spairs(reward_tbl,functor) do
+		if min_reward_value >= val then
+			min_reward_no = no
+		end
+	end
+
+	-- Find tier top for maximum reward:
+	local max_reward_value = tonumber( p[2] )
+	local max_reward_no = 24
+
+	local functor2 = function(t,a,b) return a > b end
+	for val,no in spairs(reward_tbl,functor2) do
+		if ( max_reward_value < val ) then
+			max_reward_no = no - 1
+		end
+	end
+
+	-- Give actor artefact reward:
+	dialogs.relocate_item_section( db.actor, reward_items[math.random( min_reward_no, max_reward_no )], "in" )
+
+end
+
+function drx_sl_reset_stored_task( actor, npc, p ) -- Reset stored task for current NPC:
+--
+-- drx_sl_reset_stored_task function
+--	Description:  Removes a stored NPC task
+--	Usage: drx_sl_reset_stored_task( [p1] )
+--	Parameters:
+--		p[1] (type: string)
+--			- Task ID of finished task given by the task giver to unregister
+--	Return value (type: none): none
+
+	-- Get task giver id:
+	if ( (#p < 1) or (not p[1]) ) then
+		return
+	end
+	local tm = task_manager.get_task_manager()
+	local task_info = tm.task_info
+	local giver_id = task_info[p[1]].task_giver_id
+
+	-- Reset stored task:
+	if ( giver_id ) then
+		save_var( db.actor, ("drx_sl_npc_stored_task_" .. giver_id), nil )
+	end
+
+end
+
+function drx_sl_unregister_task_giver( actor, npc, p ) -- Unregister current task giver:
+--	Description: Unregisters a task giver as current
+--	Usage: drx_sl_unregister_task_giver( [p1] )
+--	Parameters:
+--		p[1] (type: string)
+--			- Task ID given by the task giver to unregister
+--	Return value (type: none): none
+
+	-- Validate input parameters:
+	if ( (#p < 1) or (not p[1]) ) then
+		return
+	end
+
+	printf( ("DRX SL task ended: " .. p[1]) )
+
+	-- Get task giver id:
+	local tm = task_manager.get_task_manager()
+	local task_info = tm.task_info
+	local giver_id = task_info[p[1]].task_giver_id
+
+	-- Unregister task giver:
+	if ( giver_id and not string.find( "meet_task", p[1] ) ) then
+		local giver_task_count = (load_var( db.actor, ("drx_sl_task_giver_" .. giver_id), 0 ) - 1)
+		if ( giver_task_count < 0 ) then
+			giver_task_count = 0
+		end
+		save_var( db.actor, ("drx_sl_task_giver_" .. giver_id), giver_task_count )
+		printf( ("DRX SL: drx_sl_task_giver_" .. giver_id .. " unregistered (" .. giver_task_count .. " outstanding)") )
+	end
+
+end
+
+function drx_sl_unregister_hostage_giver( actor, npc, p ) -- Unregister current hostage task giver:
+--	Description: Unregisters a hostage task giver as current
+--	Usage: drx_sl_unregister_hostage_giver( [p1] )
+--	Parameters:
+--		p[1] (type: string) Task ID given by the task giver to unregister
+--	Return value (type: none): none
+
+	-- Validate input parameters:
+	if ( (#p < 1) or (not p[1]) ) then
+		return
+	end
+
+	-- Get task giver id:
+	local tm = task_manager.get_task_manager()
+	local task_info = tm.task_info
+	local giver_id = task_info[p[1]].task_giver_id
+
+	-- Unregister task giver:
+	if ( giver_id ) then
+	save_var( db.actor, ("drx_sl_hostage_giver_" .. giver_id), false )
+	printf( ("DRX SL: drx_sl_hostage_giver_" .. giver_id .. " unregistered") )
+	end
+
+end
+
+function drx_sl_decrease_sl_tasks_count( actor, npc, p ) -- Decrease number of completed storyline tasks:
+--	Description: Decreases the number of completed storyline tasks
+--	Usage: drx_sl_decrease_sl_tasks_count()
+--	Parameters: none
+--	Return value (type: none): none
+
+	-- Get the current task count:
+	local task_count = load_var( db.actor, "drx_sl_current_task_number", 1 )
+
+	-- Decrement the current task count:
+	task_count = (task_count - 1)
+	if ( task_count < 1 ) then
+		task_count = 1
+	end
+
+	-- Save the current task count:
+	save_var( db.actor, "drx_sl_current_task_number", task_count )
+	printf( "DRX SL: player failed last storyline task, decrementing drx_sl_current_task_number" )
+	printf( ("DRX SL task count: " .. task_count) )
+
+end
+--< DRX >
+
+
+-- ----------------------------------------------------------------------------------------------------
+-- ����� �������
+-- ----------------------------------------------------------------------------------------------------
+-- TODO: Remove all unused COP story functions
+
+local DIALOG_LAST_ID = nil
+---------------------------------------------------------------------------------------------------------------
+function inc_task_stage(actor,npc,p)
+	local tsk = p[1] and task_manager.get_task_manager().task_info[p[1]]
+	if (tsk and tsk.stage) then
+		--printf("inc_task_stage=%s stage=%s",p[1],tsk.stage)
+		tsk.stage = tsk.stage + 1
+	end
+end
+
+function dec_task_stage(actor,npc,p)
+	local tsk = p[1] and task_manager.get_task_manager().task_info[p[1]]
+	if (tsk and tsk.stage) then
+		tsk.stage = tsk.stage - 1
+	end
+end
+
+function set_smart_faction(actor,npc,p)
+	local smart = p and p[1] and SIMBOARD.smarts_by_names[p[1]]
+	if not (smart) then
+		return false
+	end
+	smart.faction = p[2]
+end
+
+function fail_task_dec_goodwill(actor,npc,p)
+	local multi = game_difficulties.get_eco_factor("goodwill") or 1
+	local amt = tonumber(p[1])*multi or 50
+	for i=2,#p do
+		inc_faction_goodwill_to_actor(db.actor, nil, {p[i], -(amt), true})
+	end
+end
+
+-- Goodwill
+function complete_task_inc_goodwill(actor,npc,p)
+-- param1 - amount of goodwill to increase
+-- param2+ - community
+	local multi = game_difficulties.get_eco_factor("goodwill") or 1
+	local amt = tonumber(p[1])*multi or 50
+	for i=2,#p do
+		inc_faction_goodwill_to_actor(db.actor, nil, {p[i], amt, true})
+	end
+end
+
+function inc_goodwill_by_tasker_comm(actor,npc,p)
+-- param1 - task_id
+-- param2 - amount of goodwill to increase
+
+	if not (p and p[1] and p[2]) then
+		return
+	end
+	
+	local var = load_var(db.actor, p[1])
+	local comm = var and var.task_giver_comm
+	if (not comm) and db.actor:is_talking() then 
+		local speaker = mob_trade.GetTalkingNpc()
+		comm = character_community(speaker)
+	end
+	if (not comm) then
+		printe("! ERROR %s | no community could be gathered")
+		return
+	end
+	
+	comm = (comm == "trader") and "stalker" or comm
+	local multi = game_difficulties.get_eco_factor("goodwill") or 1
+	local amt = tonumber(p[2])*multi or 50
+	inc_faction_goodwill_to_actor(db.actor, nil, {comm, amt, true})
+end
+
+function inc_goodwill_by_tasker_id(actor,npc,p)
+-- param1 - task_id
+-- param2 - amount of goodwill to increase
+	if not (p and p[1] and p[2]) then
+		return
+	end
+	
+	local tm = task_manager.get_task_manager()
+	local task_info = tm.task_info
+	local giver_id = task_info[p[1]].task_giver_id
+	local npc = giver_id and db.storage[giver_id] and db.storage[giver_id].object
+	
+	if npc then
+		local comm = character_community(npc)
+		comm = (comm == "trader") and "stalker" or comm
+		local multi = game_difficulties.get_eco_factor("goodwill") or 1
+		local amt = tonumber(p[2])*multi or 50
+		inc_faction_goodwill_to_actor(db.actor, nil, {comm, amt, true})
+	end
+end
+
+function dec_goodwill_by_tasker_id(actor,npc,p)
+-- param1 - task_id
+-- param2 - amount of goodwill to increase
+	if not (p and p[1] and p[2]) then
+		return
+	end
+	
+	local tm = task_manager.get_task_manager()
+	local task_info = tm.task_info
+	local giver_id = task_info[p[1]].task_giver_id
+	local npc = giver_id and db.storage[giver_id] and db.storage[giver_id].object
+	
+	if npc then
+		local comm = character_community(npc)
+		comm = (comm == "trader") and "stalker" or comm
+		local multi = game_difficulties.get_eco_factor("goodwill") or 1
+		local amt = tonumber(p[2])*multi or 50
+		inc_faction_goodwill_to_actor(db.actor, nil, {comm, -(amt), true})
+	end
+end
+
+function reward_money(actor,npc,p)
+	local multi = game_difficulties.get_eco_factor("rewards") or 1
+	dialogs.relocate_money(db.actor,tonumber(p[1] or 500)*multi,"in")
+end
+
+function reward_stash(actor,npc,p)
+	if (p and p[1] ~= "true") or ((math.random(1,100)/100) <= 0.5) then
+		local bonus
+		
+		if ((math.random(1,100)/100) <= 0.5) then
+			local stash_bonus = treasure_manager.stash_bonus
+			if stash_bonus and (#stash_bonus > 0) then
+				bonus = {stash_bonus[math.random(#stash_bonus)]}
+			end
+		end
+		
+		--[[
+		if ((math.random(1,100)/100) <= 0.1) then
+			local t = {"itm_basickit","itm_advancedkit","itm_expertkit","itm_drugkit","itm_ammokit"}
+			bonus = {t[math.random(#t)]}
+		end
+		--]]
+		treasure_manager.create_random_stash(nil,nil,bonus, true)
+	end
+end
+
+function reward_item_cost_mult_and_remove(actor,npc,p)
+	local sec = load_var(db.actor,p[1])
+	if not (sec) then
+		return
+	end
+	local item = db.actor:object(sec)
+	if not (item) then
+		return
+	end 
+	
+	local cond = 1
+	if (item:condition()) then
+		cond = item:condition()
+	end
+	local multi = game_difficulties.get_eco_factor("rewards") or 1 -->>
+	dialogs.relocate_money(db.actor, math.floor((tonumber(p[2]) or 1)*item:cost()*cond*cond*cond*multi) ,"in")
+	remove_item(actor, npc, {sec,p[3]})
+end
+
+function reward_item(actor,npc,p)
+	if p and p[1] then
+		local section_d = p[1]
+		
+		-- See if it's specific uses
+		local section, uses = utils_item.get_defined_uses(section_d)
+		if (section ~= "" and ini_sys:section_exist(section)) then
+		
+			local se_item = alife_create_item(section, db.actor)
+			if se_item then
+				local cls = se_item:clsid()
+				if (IsWeapon(nil,cls) and cls ~= clsid.wpn_knife_s) then
+					se_item.condition = (math.random(70,90)/100)
+					news_manager.relocate_item(db.actor,"in",section,1)
+				elseif (IsItem("multiuse",section)) then
+					if (not uses) then
+						local max_uses = ini_sys:r_float_ex(section,"max_uses") or 1
+						uses = math.random(1,max_uses)
+					end
+					alife_process_item(section, se_item.id, {uses = uses})
+					news_manager.relocate_item(db.actor,"in",section,uses)
+				else
+					news_manager.relocate_item(db.actor,"in",section,1)
+				end
+			end
+		else
+			printe("!ERROR reward_item | section [%s] doesn't exist", section)
+		end
+	end
+end
+
+function reward_random_item(actor,npc,p)
+	if (#p > 0) then
+		local section_d = p[math.random(#p)]
+		reward_item(actor,npc,{section_d})
+	end
+end
+
+function reward_random_money(actor,npc,p)
+	--local multi = game_difficulties.get_eco_factor("rewards") or 1 -->>
+	--dialogs.relocate_money(db.actor,math.random(tonumber(p[1] or 500)*multi,tonumber(p[2] or 1000)*multi),"in")
+	
+	local multi = game_difficulties.get_eco_factor("rewards") or 1
+	local min_val = ( (tonumber(p[1]) or 500) * multi ) / 50
+	local max_val = ( (tonumber(p[2]) or (min_val + 1000)) * multi ) / 50
+	local money = math.random( math.ceil(min_val), math.ceil(max_val) ) * 50
+	dialogs.relocate_money( db.actor, money, "in" )
+	--printf("reward_random_money | min: %s - max: %s - multi:%s - total: %s", min_val*50 , max_val*50, multi, money)
+end
+
+function remove_special_task_squad(actor,npc,p)
+	level.add_pp_effector("black.ppe", 1313, false)
+	remove_squad(actor,npc,p)
+end
+
+function reset_task_target_anomaly(actor,npc,p)
+	save_var(db.actor,"task_target_anomaly",nil)
+	if _G.WARFARE then
+		save_var(db.actor,"task_target_anomaly_analyzed","analyzed") -- xQd
+	end
+end
+
+-- xQd
+function reset_warfare_escort_task()
+	save_var(db.actor,"warfare_escort_task_smart",nil)
+	save_var(db.actor,"task_target_anomaly_level",nil)
+	save_var(db.actor,"task_target_anomaly_analyzed",nil)
+end
+-- xQd end
+
+-- setup for special escort to anomaly task
+function setup_task_target_anomaly(actor,npc,p)-- xQd, heavily modified for warfare tasks
+	local targets = {}
+	
+	if _G.WARFARE then
+		-- for k,v in pairs(db.anomaly_by_name) do 
+		-- table.insert(targets,k)
+		-- end
+		
+		local targets, target_name
+		
+		if math.random(1,5) > 1 then -- 1/5 chance for the target anomaly zone to be in the same level 
+			targets = str_explode(simulation_objects.config:r_value(level.name(),"target_maps",0,""), ",")
+			
+			local remove_level = {l03u_agr_underground=true, l11_hospital=true, l10u_bunker=true, l12u_sarcofag=true, l12u_control_monolith=true, jupiter_underground=true, labx8=true, l08u_brainlab=true} -- these levels don't have anomaly zones or the anomaly zone is unreacheable for AI, so we remove them from targets
+			
+			local i=1
+			while i <= #targets do
+				if remove_level[targets[i]] then
+					table.remove(targets, i)
+				else
+					i = i + 1
+				end
+			end
+			
+			if (#targets <= 0) then 
+				return 
+			end 
+			
+			target_name = targets[math.random(#targets)]
+		else
+			target_name = level.name()
+		end
+		
+		save_var(db.actor,"task_target_anomaly_level",target_name) -- xQd
+		save_var(db.actor,"task_target_anomaly_analyzed","not_analyzed") -- xQd
+		--save_var(db.actor,"task_target_anomaly",target_name)
+	else
+		for k,v in pairs(db.anomaly_by_name) do
+			targets[#targets+1] = k
+		end
+	
+		if (#targets <= 0) then
+			return
+		end
+	
+		local target_name = targets[math.random(#targets)]
+		save_var(db.actor,"task_target_anomaly",target_name)
+	end
+end
+
+
+function force_talk(actor,npc,p)
+	local allow_break = p[1] and p[1] == "true" or false
+	db.actor:run_talk_dialog(npc, allow_break)
+end
+
+function unlock_smart(actor,npc,p)
+	local var = p[1] and p[1] ~= "nil" and load_var(db.actor,p[1])
+	local smart_id = var and var.smart_id
+	local smart = smart_id and alife_object(smart_id)
+	if (smart) then
+		smart.locked = nil
+	else
+		printf("~ %s | failed to get smart (%s)", p[1], smart_id)
+	end
+end
+
+-- ������������� �������� ������ � ��������, ���������� ����������. ���� �������� ������ � ���
+function update_npc_logic(actor, object, p)
+	--printf("UPDATE NPC LOGIC %s", device():time_global())
+	for k,v in pairs(p) do
+		local npc = get_story_object(v)
+		if npc ~= nil then
+			xr_motivator.update_logic(npc)
+
+			local planner = npc:motivation_action_manager()
+			if planner and planner:initialized() then
+			planner:update()
+			planner:update()
+			planner:update()
+			end
+
+			db.storage[npc:id()].state_mgr:update()
+			db.storage[npc:id()].state_mgr:update()
+			db.storage[npc:id()].state_mgr:update()
+			db.storage[npc:id()].state_mgr:update()
+			db.storage[npc:id()].state_mgr:update()
+			db.storage[npc:id()].state_mgr:update()
+			db.storage[npc:id()].state_mgr:update()
+		end
+	end
+end
+
+function update_obj_logic(actor, object, p)
+	--printf("UPDATE OBJ LOGIC %s", device():time_global())
+	for k,v in pairs(p) do
+		local obj = get_story_object(v)
+		if obj ~= nil then
+
+			local st = db.storage[obj:id()]
+			xr_logic.try_switch_to_another_section(obj, st[st.active_scheme], actor)
+
+--			if st.active_scheme == "sr_cutscene" then
+--				st[st.active_scheme].cutscene_action
+--			end
+
+		end
+	end
+end
+
+local ui_active_slot = 0
+
+function disable_ui(actor, npc, p)
+	if db.actor:is_talking() then
+		db.actor:stop_talk()
+	end
+	level.show_weapon(false)
+
+	if not p or (p and p[1] ~= "true") then
+		local slot = db.actor:active_slot()
+		if(slot~=0) then
+			ui_active_slot = slot
+			db.actor:activate_slot(0)
+		end
+	end
+
+	level.disable_input()
+	show_indicators(false)
+	--hide_hud_inventory()
+	--hide_hud_pda()
+	hide_hud_all()
+	disable_actor_nightvision(nil,nil)
+	disable_actor_torch(nil,nil)
+end
+
+function disable_ui_only(actor, npc)
+	if db.actor:is_talking() then
+		db.actor:stop_talk()
+	end
+	level.show_weapon(false)
+
+	if not p or (p and p[1] ~= "true") then
+		local slot = db.actor:active_slot()
+		if(slot~=0) then
+			ui_active_slot = slot
+			db.actor:activate_slot(0)
+		end
+	end
+
+	level.disable_input()
+	show_indicators(false)
+	--hide_hud_inventory()
+	--hide_hud_pda()
+	hide_hud_all()
+	disable_actor_nightvision(nil,nil)
+end
+
+function disable_nv(actor, npc)
+	if db.actor:is_talking() then
+		db.actor:stop_talk()
+	end
+	level.show_weapon(false)
+
+	if not p or (p and p[1] ~= "true") then
+		local slot = db.actor:active_slot()
+		if(slot~=0) then
+			ui_active_slot = slot
+			db.actor:activate_slot(0)
+		end
+	end
+
+	disable_actor_nightvision(nil,nil)
+	disable_actor_torch(nil,nil)
+end
+
+function disable_ui_lite_with_imput(actor, npc)
+	if db.actor:is_talking() then
+		db.actor:stop_talk()
+	end
+	level.show_weapon(false)
+
+	if not p or (p and p[1] ~= "true") then
+		local slot = db.actor:active_slot()
+		if(slot~=0) then
+			ui_active_slot = slot
+			db.actor:activate_slot(0)
+		end
+	end
+
+	level.disable_input()
+	show_indicators(false)
+end
+
+function disable_ui_lite(actor, npc)
+	if db.actor:is_talking() then
+		db.actor:stop_talk()
+	end
+	level.show_weapon(false)
+
+	if not p or (p and p[1] ~= "true") then
+		local slot = db.actor:active_slot()
+		if(slot~=0) then
+			ui_active_slot = slot
+			db.actor:activate_slot(0)
+		end
+	end
+
+	show_indicators(false)
+end
+
+function disable_ui_inventory(actor, npc)
+	if db.actor:is_talking() then
+		db.actor:stop_talk()
+	end
+--	level.show_weapon(false)
+
+	if not p or (p and p[1] ~= "true") then
+		local slot = db.actor:active_slot()
+		if(slot~=0) then
+			ui_active_slot = slot
+			db.actor:activate_slot(0)
+		end
+	end
+
+	--hide_hud_inventory()
+	--hide_hud_pda()
+	hide_hud_all()
+end
+
+function enable_ui(actor, npc, p)
+	--db.actor:restore_weapon()
+
+	if not p or (p and p[1] ~= "true") then
+		if ui_active_slot ~= 0 and db.actor:item_in_slot(ui_active_slot) ~= nil then
+			db.actor:activate_slot(ui_active_slot)
+		end
+	end
+
+	ui_active_slot = 0
+	level.enable_input()
+	level.show_weapon(true)
+	show_indicators(true)
+	enable_actor_nightvision(nil,nil)
+	enable_actor_torch(nil,nil)
+end
+
+function enable_ui_lite_with_imput(actor, npc, p)
+	--db.actor:restore_weapon()
+
+	if not p or (p and p[1] ~= "true") then
+		if ui_active_slot ~= 0 and db.actor:item_in_slot(ui_active_slot) ~= nil then
+			db.actor:activate_slot(ui_active_slot)
+		end
+	end
+
+	ui_active_slot = 0
+	level.enable_input()
+	level.show_weapon(true)
+	show_indicators(true)
+	enable_actor_nightvision(nil,nil)
+	enable_actor_torch(nil,nil)
+end
+
+function enable_ui_lite(actor, npc, p)
+	--db.actor:restore_weapon()
+
+	if not p or (p and p[1] ~= "true") then
+		if ui_active_slot ~= 0 and db.actor:item_in_slot(ui_active_slot) ~= nil then
+			db.actor:activate_slot(ui_active_slot)
+		end
+	end
+
+	ui_active_slot = 0
+	level.enable_input()
+	level.show_weapon(true)
+	show_indicators(true)
+	enable_actor_nightvision(nil,nil)
+	enable_actor_torch(nil,nil)
+end
+
+function enable_nv_and_imput(actor, npc, p)
+	--db.actor:restore_weapon()
+
+	if not p or (p and p[1] ~= "true") then
+		if ui_active_slot ~= 0 and db.actor:item_in_slot(ui_active_slot) ~= nil then
+			db.actor:activate_slot(ui_active_slot)
+		end
+	end
+
+	level.enable_input()
+	enable_actor_nightvision(nil,nil)
+	enable_actor_torch(nil,nil)
+end
+
+function enable_imput(actor, npc, p)
+	--db.actor:restore_weapon()
+
+	if not p or (p and p[1] ~= "true") then
+		if ui_active_slot ~= 0 and db.actor:item_in_slot(ui_active_slot) ~= nil then
+			db.actor:activate_slot(ui_active_slot)
+		end
+	end
+
+	level.enable_input()
+end
+function enable_nv(actor, npc, p)
+	--db.actor:restore_weapon()
+
+	if not p or (p and p[1] ~= "true") then
+		if ui_active_slot ~= 0 and db.actor:item_in_slot(ui_active_slot) ~= nil then
+			db.actor:activate_slot(ui_active_slot)
+		end
+	end
+	enable_actor_nightvision(nil,nil)
+	enable_actor_torch(nil,nil)
+end
+
+local cam_effector_playing_object_id = nil
+
+function run_cam_effector(actor, npc, p)
+	if p[1] then
+		local loop, num = false, (1000 + math.random(100))
+		if p[2] and type(p[2]) == "number" and p[2] > 0 then
+			num = p[2]
+		end
+		if p[3] and p[3] == "true" then
+			loop = true
+		end
+		--level.add_pp_effector(p[1] .. ".ppe", num, loop)
+		level.add_cam_effector("camera_effects\\" .. p[1] .. ".anm", num, loop, "xr_effects.cam_effector_callback")
+		cam_effector_playing_object_id = npc:id()
+	end
+end
+
+function stop_cam_effector(actor, npc, p)
+	if p[1] and type(p[1]) == "number" and p[1] > 0 then
+		level.remove_cam_effector(p[1])
+	end
+end
+
+function run_cam_effector_global(actor, npc, p)
+	local num = 1000 + math.random(100)
+	if p[2] and type(p[2]) == "number" and p[2] > 0 then
+		 num = p[2]
+	end
+	local fov = device().fov
+	if p[3] ~= nil and type(p[3]) == "number" then
+		fov = p[3]
+	end
+	level.add_cam_effector("camera_effects\\" .. p[1] .. ".anm", num, false, "xr_effects.cam_effector_callback", fov)
+	cam_effector_playing_object_id = npc:id()
+end
+
+function cam_effector_callback()
+	if cam_effector_playing_object_id == nil then
+		printf("cam_eff:callback1!")
+		return
+	end
+	local st   = db.storage[cam_effector_playing_object_id]
+	if st == nil or st.active_scheme == nil then
+		printf("cam_eff:callback2!")
+		return
+	end
+
+	if st[st.active_scheme].signals == nil then
+		printf("cam_eff:callback3!")
+		return
+	end
+	st[st.active_scheme].signals["cameff_end"] = true
+end
+
+function run_postprocess(actor, npc, p)
+	if (p[1]) then
+		if(ini_sys:section_exist(p[1])) then
+			local num = 2000 + math.random(100)
+			if(p[2] and type(p[2]) == "number" and p[2]>0) then
+				num = p[2]
+			end
+			printf("adding complex effector [%s], id [%s], from [%s]", p[1], tostring(p[2]), tostring(npc:name()))
+			level.add_complex_effector(p[1], num)
+		else
+			printf("Complex effector section is no set! [%s]", tostring(p[1]))
+		end
+	end
+end
+
+function stop_postprocess(actor, npc, p)
+	if(p[1] and type(p[1]) == "number" and p[1]>0) then
+		printf("removing complex effector id [%s] from [%s]", tostring(p[1]), tostring(npc:name()))
+		level.remove_complex_effector(p[1])
+	end
+end
+
+function run_tutorial(actor, npc, p)
+	--printf("run tutorial called")
+	game.start_tutorial(p[1])
+end
+
+--[[
+function run_tutorial_if_newbie(actor, npc, p)
+	if has_alife_info("esc_trader_newbie") then
+		game.start_tutorial(p[1])
+	end
+end
+]]--
+
+function jup_b32_place_scanner(actor, npc)
+	for i = 1, 5 do
+		if xr_conditions.actor_in_zone(actor, npc, {"jup_b32_sr_scanner_place_"..i})
+			and not has_alife_info("jup_b32_scanner_"..i.."_placed") then
+			db.actor:give_info_portion("jup_b32_scanner_"..i.."_placed")
+			db.actor:give_info_portion("jup_b32_tutorial_done")
+			remove_item(actor, npc, {"jup_b32_scanner_device"})
+			spawn_object(actor, nil, {"jup_b32_ph_scanner","jup_b32_scanner_place_"..i})
+		end
+	end
+end
+
+function jup_b32_pda_check(actor, npc)
+
+end
+
+function pri_b306_generator_start(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"pri_b306_sr_generator"}) then
+		give_info("pri_b306_lift_generator_used")
+	end
+end
+
+function jup_b206_get_plant(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"jup_b206_sr_quest_line"}) then
+		give_info("jup_b206_anomalous_grove_has_plant")
+		give_actor(actor, npc, {"jup_b206_plant"})
+		destroy_object(actor, npc, {"story", "jup_b206_plant_ph"})
+	end
+end
+
+function pas_b400_switcher(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"pas_b400_sr_switcher"}) then
+		give_info("pas_b400_switcher_use")
+	end
+end
+
+
+function jup_b209_place_scanner(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"jup_b209_hypotheses"})	then
+		scenario_autosave(db.actor, nil, {"st_save_jup_b209_placed_mutant_scanner"})
+		db.actor:give_info_portion("jup_b209_scanner_placed")
+		remove_item(actor, npc, {"jup_b209_monster_scanner"})
+		spawn_object(actor, nil, {"jup_b209_ph_scanner","jup_b209_scanner_place_point"})
+	end
+end
+
+function jup_b9_heli_1_searching(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"jup_b9_heli_1"})
+		then
+		db.actor:give_info_portion("jup_b9_heli_1_searching")
+	end
+end
+
+function pri_a18_use_idol(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"pri_a18_use_idol_restrictor"})
+		then
+		db.actor:give_info_portion("pri_a18_run_cam")
+	end
+end
+
+function jup_b8_heli_4_searching(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"jup_b8_heli_4"})
+		then
+		db.actor:give_info_portion("jup_b8_heli_4_searching")
+	end
+end
+
+function jup_b10_ufo_searching(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"jup_b10_ufo_restrictor"})
+		then
+		db.actor:give_info_portion("jup_b10_ufo_memory_started")
+		give_actor(db.actor,nil,{"jup_b10_ufo_memory"})
+	end
+end
+
+
+function zat_b101_heli_5_searching(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"zat_b101_heli_5"})
+		then
+		db.actor:give_info_portion("zat_b101_heli_5_searching")
+	end
+end
+
+function zat_b28_heli_3_searching(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"zat_b28_heli_3"})
+		then
+		db.actor:give_info_portion("zat_b28_heli_3_searching")
+	end
+end
+
+function zat_b100_heli_2_searching(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"zat_b100_heli_2"})	then
+		db.actor:give_info_portion("zat_b100_heli_2_searching")
+	end
+end
+
+function teleport_actor(actor, npc, p)
+	local point = patrol(p[1])
+	if not (point) then
+		printf("xr_effects.teleport_actor no patrol path %s exists!",p[1])
+		return
+	end
+
+	local dir
+	if p[2] ~= nil then
+		local look = patrol(p[2])
+		dir = -look:point(0):sub(point:point(0)):getH()
+		db.actor:set_actor_direction(dir)
+	end
+
+	for k,v in pairs(db.no_weap_zones) do
+		if utils_obj.npc_in_zone(db.actor, k) then
+			db.no_weap_zones[k] = true
+		end
+	end
+
+	if npc and npc:name() ~= nil then
+		printf("teleporting actor from [%s]", tostring(npc:name()))
+	end
+
+	db.actor:set_actor_position(point:point(0))
+end
+
+
+local function reset_animation(npc)
+	local state_mgr = db.storage[npc:id()].state_mgr
+	if state_mgr == nil then
+		return
+	end
+--	local planner = npc:motivation_action_manager()
+
+	state_mgr.animation:set_state(nil, true)
+	state_mgr.animation:set_control()
+	state_mgr.animstate:set_state(nil, true)
+	state_mgr.animstate:set_control()
+
+	state_mgr:set_state("idle", nil, nil, nil, {fast_set = true})
+
+--	planner:update()
+--	planner:update()
+--	planner:update()
+
+	state_mgr:update()
+	state_mgr:update()
+	state_mgr:update()
+	state_mgr:update()
+	state_mgr:update()
+	state_mgr:update()
+	state_mgr:update()
+
+	npc:set_body_state(move.standing)
+	npc:set_mental_state(anim.free)
+
+end
+
+function teleport_npc_lvid(actor,npc,p)
+	local vid = tonumber(p[1])
+	if not (vid) then
+		return
+	end
+	local position = level.vertex_position(vid)
+	if (p[2]) then
+		local obj = get_story_object(p[2])
+		if (obj) then
+			obj:set_npc_position(position)
+		end
+		return
+	end
+	npc:set_npc_position(position)
+end
+
+function teleport_npc_pos(actor,npc,p)
+	for i=1,3 do
+		p[i] = string.gsub(p[i],"n","-")
+	end
+	local pos = vector():set(tonumber(p[1]),tonumber(p[2]),tonumber(p[3]))
+	if not (pos) then
+		return
+	end
+
+	if (p[4]) then
+		local obj = get_story_object(p[4])
+		if (obj) then
+			obj:set_npc_position(pos)
+		end
+		return
+	end
+	npc:set_npc_position(pos)
+end
+
+function teleport_squad_lvid(actor,npc,p)
+	local vid = tonumber(p[1])
+	if not (vid) then
+		return
+	end
+
+	local squad = p[2] and get_story_squad(p[2]) or get_object_squad(npc)
+	if not (squad) then
+		return
+	end
+
+	local position = level.vertex_position(vid)
+	squad:set_squad_position(position)
+end
+
+function teleport_npc(actor, npc, p)
+	if not (p[1]) then
+		return
+	end
+
+	local position = patrol(p[1]):point(tonumber(p[2]) or 0)
+	--reset_animation(npc)
+
+	npc:set_npc_position(position)
+end
+
+function teleport_npc_by_story_id(actor, npc, p)
+	local story_id = p[1]
+	local patrol_point = p[2]
+	local patrol_point_index = p[3] or 0
+	if story_id == nil or patrol_point == nil then
+		printf("Wrong parameters in 'teleport_npc_by_story_id' function!!!")
+	end
+	local position = patrol(tostring(patrol_point)):point(patrol_point_index)
+	local npc_id = get_story_object_id(story_id)
+	if npc_id == nil then
+		printf("There is no story object with id [%s]", story_id)
+	end
+	local cl_object = level.object_by_id(npc_id)
+	if cl_object then
+		reset_animation(cl_object)
+		cl_object:set_npc_position(position)
+	else
+		alife_object(npc_id).position = position
+	end
+end
+
+-- Teleports a squad, by story id, to another location
+-- param1 - squad story id 
+-- param2 - path name
+-- param3 - optional path index
+function teleport_squad(actor, npc, p)
+	local squad = p[1] and get_story_squad(p[1])
+	if not (squad) then
+		printf("There is no squad with story id [%s]", p[1])
+	end
+
+	local path = patrol(p[2])
+	if not (path) then
+		printf("Wrong parameters in 'teleport_squad' function!!!")
+		return
+	end
+
+	local idx = p[3] or 0
+	TeleportSquad(squad,path:point(idx),path:level_vertex_id(idx),path:game_vertex_id(idx))
+	--squad:set_squad_position(path:point(idx))
+end
+
+function jup_teleport_actor(actor, npc)
+	local point_in = patrol("jup_b16_teleport_in"):point(0)
+	local point_out = patrol("jup_b16_teleport_out"):point(0)
+	local actor_position = actor:position()
+	local out_position = vector():set(actor_position.x - point_in.x + point_out.x, actor_position.y - point_in.y + point_out.y , actor_position.z - point_in.z + point_out.z)
+	db.actor:set_actor_position(out_position)
+end
+-----------------------------------------------------------------------------
+--[[
+local drop_point, drop_object = 0, 0
+local function drop_object_item(item)
+	drop_object:drop_item_and_teleport(item, drop_point)
+end
+
+function drop_actor_inventory(actor, npc, p)
+	if p[1] then
+		drop_point  = patrol(p[1]):point(0)
+		drop_object = actor
+		actor:inventory_for_each(drop_object_item)
+	end
+end
+
+
+-- FIXME: drop_npc_inventory doesn't work
+function drop_npc_inventory(actor, npc, p)
+	if p[1] then
+		drop_point  = patrol(p[1]):point(0)
+		drop_object = npc
+		npc:inventory_for_each(drop_object_item)
+	end
+end
+
+function drop_npc_item(actor, npc, p)
+	if p[1] then
+		local item = npc:object(p[1])
+		if item then
+			npc:drop_item(item)
+		end
+	end
+end
+
+function drop_npc_items(actor, npc, p)
+	local item = 0
+	for i, v in pairs(p) do
+		item = npc:object(v)
+		if item then
+			npc:drop_item(item)
+		end
+	end
+end
+]]--
+
+function give_items(actor, npc, p)
+	local pos, lv_id, gv_id, npc_id = npc:position(), npc:level_vertex_id(), npc:game_vertex_id(), npc:id()
+	for i, v in pairs(p) do
+		alife_create_item(v, npc)
+		--alife_create(v, pos, lv_id, gv_id, npc_id)
+	end
+end
+
+function give_item(actor, npc, p)
+	if p[2] ~= nil then
+		npc_id = get_story_object_id(p[2])
+	else
+		npc_id = npc:id()
+	end
+	local se_npc = alife_object(npc_id)
+	if not (se_npc) then
+		return
+	end
+
+	alife_create_item(p[1], se_npc)
+end
+
+function play_particle_on_path(actor, npc, p)
+	local name = p[1]
+	local path = p[2]
+	local point_prob = p[3]
+	if name == nil or path == nil then
+		return
+	end
+	if point_prob == nil then
+		point_prob = 100
+	end
+
+	local path = patrol(path)
+	local count = path:count()
+	for a = 0,count-1,1 do
+		local particle = particles_object(name)
+		if math.random(100) <= point_prob then
+			particle:play_at_pos(path:point(a))
+		end
+	end
+end
+
+
+-----------------------------------------------------------------------------
+--[[
+send_tip(news_id:sender:sender_id)
+		1. news_id
+		2. sender*
+		3. sender_id*
+		* - not necessary
+--]]
+function send_tip(actor, npc, p)
+	news_manager.send_tip(actor, p[1], nil, p[2], nil, p[3])
+end
+
+function send_tip_task(actor,npc,p)
+	local tsk = p[1] and task_manager.get_task_manager().task_info[p[1]]
+	if (tsk and p[2]) then
+		news_manager.send_task(actor, p[2], tsk)
+	end
+end
+--[[
+���� �������� ��������� �����. �������� ���� ������� ��� � ����������.
+���������: actor, npc, p[direction,bone,power,impulse,reverse=false]
+		1. direction - ���� ������, �� ���������, ��� ��� ��� ���� � � �������
+				������ ����� ������������ ������. ���� �� ��� �����, �� ���
+				��������������� ��� story_id ��������� �� �������� ������ ��������� ���.
+		2. bone - ������. ��� �����, �� ������� ��������� ����.
+		3. power - ���� �����
+		4. impulse - �������
+		5. reverse (true/false) - ��������� ����������� �����. �� ��������� false
+--]]
+function hit_npc(actor, npc, p)
+	local h = hit()
+	local rev = p[6] and p[6] == 'true'
+	h.draftsman = npc
+	h.type = hit.wound
+	if p[1] ~= "self" then
+		local hitter = get_story_object(p[1])
+		if not hitter then return end
+		if rev then
+			h.draftsman = hitter
+			h.direction = hitter:position():sub(npc:position())
+		else
+			h.direction = npc:position():sub(hitter:position())
+		end
+	else
+		if rev then
+			h.draftsman = nil
+			h.direction = npc:position():sub(patrol(p[2]):point(0))
+		else
+			h.direction = patrol(p[2]):point(0):sub(npc:position())
+		end
+	end
+	h:bone(p[3])
+	h.power = p[4]
+	h.impulse = p[5]
+	--printf("HIT EFFECT: (%s, %s,%d,%d) health(%s)", npc:name(), p[2], h.power, h.impulse, npc.health)
+	npc:hit(h)
+end
+
+--[[
+���� �������, ��������� story_id, ���.
+���������: actor, npc, p[sid,bone,power,impulse,hit_src=npc:position()]
+		1. sid - story_id �������, �� �������� ��������� ���.
+		2. bone - ������. ��� �����, �� ������� ��������� ����.
+		3. power - ���� �����
+		4. impulse - �������
+		5. hit_src - ���� �����, �� ��������������� ��� story_id �������, �� �������
+				�������� ��������� ��� (�� �� �������� � ����������� ����), ����� ���
+				����� (waypoint), �� ������� �� ������� ��������� ���.
+				���� �� ������, �� ������� ������� �������, �� �������� ���� �������
+				������ �������.
+--]]
+function hit_obj(actor, npc, p)
+	local h = hit()
+	local obj = get_story_object(p[1])
+	local sid = nil
+
+	if not obj then
+--    printf("HIT_OBJ [%s]. Target object does not exist", npc:name())
+		return
+	end
+
+	h:bone(p[2])
+	h.power = p[3]
+	h.impulse = p[4]
+
+	if p[5] then
+		sid = get_story_object(sid)
+		if sid then
+			h.direction = vec_sub(sid:position(), obj:position())
+		end
+		if not sid then
+			h.direction = vec_sub(patrol(p[5]):point(0), obj:position())
+		end
+	else
+		h.direction = vec_sub(npc:position(), obj:position())
+	end
+	h.draftsman = sid or npc
+	h.type = hit.wound
+	obj:hit(h)
+end
+
+
+function hit_obj_chemical(actor, npc, p)
+	local h = hit()
+	local obj = get_story_object(p[1])
+	local sid = nil
+
+	if not obj then
+--    printf("HIT_OBJ [%s]. Target object does not exist", npc:name())
+		return
+	end
+
+	h:bone(p[2])
+	h.power = p[3]
+	h.impulse = p[4]
+
+	if p[5] then
+		sid = get_story_object(sid)
+		if sid then
+			h.direction = vec_sub(sid:position(), obj:position())
+		end
+		if not sid then
+			h.direction = vec_sub(patrol(p[5]):point(0), obj:position())
+		end
+	else
+		h.direction = vec_sub(npc:position(), obj:position())
+	end
+
+	h.draftsman = sid or npc
+	h.type = hit.chemical_burn
+	obj:hit(h)
+end
+
+function hit_obj_fire_wound(actor, npc, p)
+	local h = hit()
+	local obj = get_story_object(p[1])
+	local sid = nil
+
+	if not obj then
+--    printf("HIT_OBJ [%s]. Target object does not exist", npc:name())
+		return
+	end
+
+	h:bone(p[2])
+	h.power = p[3]
+	h.impulse = p[4]
+
+	if p[5] then
+		sid = get_story_object(sid)
+		if sid then
+			h.direction = vec_sub(sid:position(), obj:position())
+		end
+		if not sid then
+			h.direction = vec_sub(patrol(p[5]):point(0), obj:position())
+		end
+	else
+		h.direction = vec_sub(npc:position(), obj:position())
+	end
+
+	h.draftsman = sid or npc
+	h.type = hit.fire_wound
+	obj:hit(h)
+end
+
+--[[
+���� �������� ��������� ����� ����� ������. ���������� �����������, ������ ����������� ���� ������
+����������� ����� ������. ������� ��������� direction ���.
+���������: actor, npc, p[bone,power,impulse]
+FIXME: killer:position() isn't working <-(Because you are fucking stupid)
+--]]
+function hit_by_killer(actor, npc, p)
+	if not npc then return end
+	local t = db.storage[npc:id()].death
+	if not (t) then
+		return false
+	end
+
+	if (t.killer == nil or t.killer == -1) then
+		return false
+	end
+
+	local killer = db.storage[t.killer].object or level.object_by_id(t.killer)
+	if not (killer) then
+		return false
+	end
+
+	local p1, p2
+	p1 = npc:position()
+	p2 = killer:position()
+	local h = hit()
+	h.draftsman = npc
+	h.type = hit.wound
+	h.direction = vector():set(p1):sub(p2)
+	h.bone = p[1]
+	h.power = p[2]
+	h.impulse = p[3]
+	npc:hit(h)
+end
+
+
+function hit_npc_from_actor(actor, npc, p)
+	local h = hit()
+	local sid = nil
+	h.draftsman = actor
+	h.type = hit.wound
+
+	if p and p[1] then
+		sid = get_story_object(p[1])
+		if sid then
+			h.direction = actor:position():sub(sid:position())
+		end
+		if not sid then
+			h.direction = actor:position():sub(npc:position())
+		end
+	else
+		h.direction = actor:position():sub(npc:position())
+		sid = npc
+	end
+
+	h:bone("bip01_spine")
+	h.power = 0.001
+	h.impulse = 0.001
+	sid:hit(h)
+end
+
+--[[
+-- ������ ��� �� ���, ���� ����� ���� �������� (����� ����), �� ��� � ����� ����� ���� ������ ��� � �������� ������� ��� �������.
+-- ���� ������ 2 ����� ���� , �� ��� � 1-�� ����� ���� ������ ��� �� 2-�� ����� ����.
+function hit_npc_from_npc(actor, npc, p)
+	if p == nil then printf("Invalid parameter in function 'hit_npc_from_npc'!!!!") end
+	local h = hit()
+	local hitted_npc = npc
+	h.draftsman = get_story_object(p[1])
+	if p[2] ~= nil then
+		hitted_npc = get_story_object(p[2])
+	end
+	h.type = hit.wound
+	h.direction = h.draftsman:position():sub(hitted_npc:position())
+	h:bone("bip01_spine")
+	h.power = 0.03
+	h.impulse = 0.03
+	hitted_npc:hit(h)
+end
+
+function hit_actor(actor, npc, p)
+	local h = hit()
+	h.direction = VEC_ZERO
+	h.draftsman = actor
+	h.type = hit.shock
+	h:bone("bip01_spine")
+	h.power = (p and p[1] and tonumber(p[1])) or 0.001
+	h.impulse = 0.001
+	actor:hit(h)
+end
+]]--
+
+function restore_health_portion(actor, npc)
+    local health = npc.health
+    local diff = 1 - health
+    if diff > 0 then
+        npc.health = health + math.random(diff * 0.5, diff * 0.95)
+    end
+end
+function restore_health(actor, npc)
+	--printf("HEALTH RESTORE")
+	npc.health = 1
+end
+
+function make_enemy(actor, npc, p)
+	--[[
+	if p == nil then printf("Invalid parameter in function 'hit_npc_from_npc'!!!!") end
+	local h = hit()
+	local hitted_npc = npc
+	h.draftsman = get_story_object(p[1])
+	if p[2] ~= nil then
+		hitted_npc = get_story_object(p[2])
+	end
+	h.type = hit.wound
+	h.direction = h.draftsman:position():sub(hitted_npc:position())
+	h:bone("bip01_spine")
+	h.power = 0.03
+	h.impulse = 0.03
+	hitted_npc:hit(h)
+	--]]
+	local npc1 = get_story_object(p[1])
+	if not (npc1) then
+		return
+	end
+	local npc2 = get_story_object(p[2])
+	if not (npc2) then
+		return
+	end
+	npc1:set_relation(game_object.enemy,npc2)
+	npc2:set_relation(game_object.enemy,npc1)
+end
+
+function sniper_fire_mode(actor, npc, p)
+	if p[1] == "true" then
+		--printf("SNIPER FIRE MODE ON")
+		npc:sniper_fire_mode(true)
+	else
+		--printf("SNIPER FIRE MODE OFF")
+		npc:sniper_fire_mode(false)
+	end
+end
+
+function kill_npc(actor, npc, p)
+	if p and p[1] then
+		npc = get_story_object(p[1])
+	end
+	if npc ~= nil and npc:alive() then
+		npc:kill(npc)
+	end
+end
+
+function remove_npc(actor, npc, p)
+	if p and p[1] then
+		npc_id = get_story_object_id(p[1])
+	end
+	if npc_id ~= nil then
+		local se_obj = alife_object(npc_id)
+		if (se_obj) then
+			safe_release_manager.release(se_obj)
+			--alife_release(se_obj)
+		end
+	end
+end
+
+-- ��������� � ���������� �������� ����� 1
+function inc_counter(actor, npc, p)
+	if p and p[1] then
+		local inc_value = p[2] or 1
+		local new_value = load_var(actor, p[1], 0) + inc_value
+		if npc and npc:name() then
+			printf("inc_counter '%s'  to value [%s], by [%s]", p[1], tostring(new_value), tostring(npc:name()))
+		end
+		save_var(actor, p[1], new_value)
+	end
+end
+
+function dec_counter(actor, npc, p)
+	if p and p[1] then
+		local dec_value = p[2] or 1
+		local new_value = load_var(actor, p[1], 0) - dec_value
+		if new_value < 0 then
+			new_value = 0
+		end
+		save_var(actor, p[1], new_value)
+		if npc and npc:name() then
+			printf( "dec_counter [%s] value [%s] by [%s]", p[1], load_var(actor, p[1], 0), tostring(npc:name()))
+		end
+	end
+end
+
+function set_counter(actor, npc, p)
+	if p and p[1] then
+		local count = p[2] or 0
+--		printf( "set_counter '%s' %s", p[1], count)
+		save_var(actor, p[1], count)
+--		printf("counter [%s] value [%s]", p[1], load_var(actor, p[1], 0))
+	end
+end
+
+
+------------------------------------------------------------------------------------------------------------------------
+-- ����������� � ������� ����� � �����
+function actor_punch(npc)
+	if db.actor:position():distance_to_sqr(npc:position()) > 4 then
+		return
+	end
+
+	set_inactivate_input_time(30)
+	level.add_cam_effector("camera_effects\\fusker.anm", 999, false, "")
+
+	local active_slot = db.actor:active_slot()
+	if active_slot ~= 2 and
+		 active_slot ~= 3
+	then
+		return
+	end
+
+	local active_item = db.actor:active_item()
+	if active_item and string.find(active_item:section(),'wpn_') then
+		db.actor:drop_item(active_item)
+	end
+end
+
+-- ��������� �����
+function clearAbuse(npc)
+	printf("CLEAR_ABUSE")
+	xr_abuse.clear_abuse(npc)
+end
+
+function turn_off_underpass_lamps(actor, npc)
+	local lamps_table = {
+							["pas_b400_lamp_start_flash"] = true,
+							["pas_b400_lamp_start_red"] = true,
+							["pas_b400_lamp_elevator_green"] = true,
+							["pas_b400_lamp_elevator_flash"] = true,
+							["pas_b400_lamp_elevator_green_1"] = true,
+							["pas_b400_lamp_elevator_flash_1"] = true,
+							["pas_b400_lamp_track_green"] = true,
+							["pas_b400_lamp_track_flash"] = true,
+							["pas_b400_lamp_downstairs_green"] = true,
+							["pas_b400_lamp_downstairs_flash"] = true,
+							["pas_b400_lamp_tunnel_green"] = true,
+							["pas_b400_lamp_tunnel_flash"] = true,
+							["pas_b400_lamp_tunnel_green_1"] = true,
+							["pas_b400_lamp_tunnel_flash_1"] = true,
+							["pas_b400_lamp_control_down_green"] = true,
+							["pas_b400_lamp_control_down_flash"] = true,
+							["pas_b400_lamp_control_up_green"] = true,
+							["pas_b400_lamp_control_up_flash"] = true,
+							["pas_b400_lamp_hall_green"] = true,
+							["pas_b400_lamp_hall_flash"] = true,
+							["pas_b400_lamp_way_green"] = true,
+							["pas_b400_lamp_way_flash"] = true,
+						}
+	for k,v in pairs(lamps_table) do
+		local obj = get_story_object(k)
+
+		if obj then
+			obj:get_hanging_lamp():turn_off()
+		else
+			printf("function 'turn_off_underpass_lamps' lamp [%s] does not exist", tostring(k))
+			--printf("function 'turn_off_underpass_lamps' lamp [%s] does not exist", tostring(k))
+		end
+	end
+end
+
+---���������� ������������ �������� (hanging_lamp)
+function turn_off(actor, npc, p)
+	for k,v in pairs(p) do
+		local obj = get_story_object(v)
+
+		if not obj then
+			printf("TURN_OFF. Target object with story_id [%s] does not exist", v)
+			return
+		end
+		obj:get_hanging_lamp():turn_off()
+		--printf("TURN_OFF. Target object with story_id [%s] turned off.", v)
+	end
+end
+
+function turn_off_object(actor, npc)
+	npc:get_hanging_lamp():turn_off()
+end
+
+---��������� ������������ �������� (hanging_lamp)
+function turn_on(actor, npc, p)
+	for k,v in pairs(p) do
+		local obj = get_story_object(v)
+
+		if not obj then
+			printf("TURN_ON [%s]. Target object does not exist", npc:name())
+			return
+		end
+		obj:get_hanging_lamp():turn_on()
+	end
+end
+
+---��������� � ������ ������������ �������� (hanging_lamp)
+function turn_on_and_force(actor, npc, p)
+	local obj = get_story_object(p[1])
+	if not obj then
+		printf("TURN_ON_AND_FORCE. Target object does not exist")
+		return
+	end
+	if p[2] == nil then p[2] = 55 end
+	if p[3] == nil then p[3] = 14000 end
+	obj:set_const_force(VEC_Y, p[2], p[3])
+	obj:start_particles("weapons\\light_signal", "link")
+	obj:get_hanging_lamp():turn_on()
+end
+
+---���������� ������������ �������� � ��������� (hanging_lamp)
+function turn_off_and_force(actor, npc, p)
+	local obj = get_story_object(p[1])
+	if not obj then
+		printf("TURN_OFF [%s]. Target object does not exist", npc:name())
+		return
+	end
+	obj:stop_particles("weapons\\light_signal", "link")
+	obj:get_hanging_lamp():turn_off()
+end
+
+
+function turn_on_object(actor, npc)
+	npc:get_hanging_lamp():turn_on()
+end
+
+function turn_off_object(actor, npc)
+	npc:get_hanging_lamp():turn_off()
+end
+
+
+-- ����� ���� ������� �������� ���������� [combat] ��� ��� ���������.
+-- ������������ � �������, ����� ��� ����������� ��������, ����� ��� ������������ �� ������ ������,
+-- ��� ���������, � �������� ��������� �� �� ����� ��� ������ (� ������� ������ [combat] ����������� �� ������
+-- �������, ����� �������� � ���, ����, �������, �� ��������� ������� ���� �������).
+function disable_combat_handler(actor, npc)
+	if db.storage[npc:id()].combat then
+		db.storage[npc:id()].combat.enabled = false
+	end
+
+	if db.storage[npc:id()].mob_combat then
+		db.storage[npc:id()].mob_combat.enabled = false
+	end
+end
+
+-- ����� ���� ������� �������� ���������� [combat_ignore] ��������� ��� ��� ���������.
+function disable_combat_ignore_handler(actor, npc)
+	if db.storage[npc:id()].combat_ignore then
+		db.storage[npc:id()].combat_ignore.enabled = false
+	end
+end
+
+-------------------------------------------------------------------------------------
+-- ������� ��� ������ � ����������
+-------------------------------------------------------------------------------------
+--[[
+function heli_set_enemy_actor(actor, npc)
+	local st = db.storage[npc:id()]
+	if not st.combat.enemy_id and actor:alive() then
+		st.combat.enemy_id = actor:id()
+		heli_snd.play_snd( st, heli_snd.snd_see_enemy, 1 )
+	end
+end
+
+function heli_set_enemy(actor, npc, p)
+	local st  = db.storage[npc:id()]
+	local obj = get_story_object( p[1] )
+	if not st.combat.enemy_id and obj:alive() then
+		st.combat.enemy_id = obj:id()
+		heli_snd.play_snd( st, heli_snd.snd_see_enemy, 1 )
+	end
+end
+
+function heli_clear_enemy(actor, npc)
+	db.storage[npc:id()].combat:forget_enemy()
+end
+]]--
+
+function heli_start_flame(actor, npc)
+	bind_heli.heli_start_flame( npc )
+end
+
+function heli_die(actor, npc)
+	bind_heli.heli_die( npc )
+end
+
+
+--'-----------------------------------------------------------------------------------
+--' ������� ��� ������ � ��������� ���������
+--'-----------------------------------------------------------------------------------
+
+-- �������������� ��������� �������� �������
+-- =set_weather(<������ ������>:true) - ��������� ������ �����, false - ����� ��������� �����
+-- ����� �������������� �� ������ ���� ��� ������� � � ����� jup_b15 - ���� ����� ������ � �������
+function set_weather(actor, npc, p)
+	if(p[1]) then
+		if(p[2]=="true") then
+			level.set_weather(p[1],true)
+		else
+			level.set_weather(p[1],false)
+		end
+	end
+end
+--[[
+function update_weather(actor, npc, p)
+	if p and p[1] then
+		if p[1] == "true" then
+			level_weathers.get_weather_manager():select_weather(true)
+		elseif p[1] == "false" then
+			level_weathers.get_weather_manager():select_weather(false)
+		end
+	end
+end
+
+function start_small_reject(actor, npc)
+	level.set_weather_fx("fx_surge_day_3")
+	level.add_pp_effector("vibros_p.ppe", 1974, false)
+	this.aes_earthshake(npc)
+end
+
+function start_full_reject(actor, npc)
+	level.set_weather_fx("fx_surge_day_3")
+	level.remove_pp_effector(1974)
+	level.remove_cam_effector(1975)
+	level.add_cam_effector("camera_effects\\earthquake.anm", 1975, true, "")
+end
+
+function stop_full_reject(actor, npc)
+	level.remove_pp_effector(1974)
+	level.remove_cam_effector(1975)
+end
+
+function run_weather_pp(actor,npc, p)
+	local weather_fx = p[1]
+	if weather_fx == nil then
+		weather_fx = "fx_surge_day_3"
+	end
+	level.set_weather_fx(weather_fx)
+end
+]]--
+
+function game_disconnect(actor, npc)
+	local c = get_console()
+	exec_console_cmd("disconnect")
+--	c:execute_deferred("main_menu off")
+--	c:execute_deferred("hide")
+end
+
+function game_credits(actor, npc)
+	db.gameover_credits_started = true
+	game.start_tutorial("credits_seq")
+end
+
+function game_over(actor, npc)
+	if db.gameover_credits_started ~= true then
+		return
+	end
+	printf("main_menu on console command is executed")
+	exec_console_cmd("main_menu on")
+end
+
+function after_credits(actor, npc)
+	exec_console_cmd("main_menu on")
+end
+
+function before_credits(actor, npc)
+	exec_console_cmd("main_menu off")
+end
+
+function on_tutor_gameover_stop()
+	printf("main_menu on console command is executed")
+	exec_console_cmd("main_menu on")
+end
+
+function on_tutor_gameover_quickload()
+	exec_console_cmd("load_last_save")
+end
+
+
+-- ��� ����� ������
+function get_stalker_for_new_job(actor, npc, p)
+	xr_gulag.find_stalker_for_job(npc,p[1])
+end
+function switch_to_desired_job(actor, npc, p)
+	xr_gulag.switch_to_desired_job(npc)
+end
+
+--[[
+function death_hit(actor, npc, p)
+	 local draftsman = get_story_object (p[1])
+	 local hitted_obj = (p[2] ~= nil and get_story_object (p[2])) or npc
+	 if draftsman == nil or hitted_obj == nil then
+		return
+	 end
+	 local h = hit()
+	 h.power = 1000
+	 h.direction = hitted_obj:direction()
+	 h.draftsman = draftsman
+	 h.impulse = 1
+	 h.type = hit.wound
+	 hitted_obj:hit(h)
+end
+]]--
+
+--'-----------------------------------------------------------------------------------
+--' ������� ��� ������ � ����������
+--'-----------------------------------------------------------------------------------
+function spawn_object(actor, obj, p)
+		--' p[1] - ������ ���� ��������
+		--' p[2] - ��� ����������� ���� ��� ��� �����.
+	local spawn_sect = p[1]
+	if spawn_sect == nil then
+		printf("Wrong spawn section for 'spawn_object' function %s. For object %s", tostring(spawn_sect), obj:name())
+	end
+
+	local path_name = p[2]
+	if path_name == nil then
+		printf("Wrong path_name for 'spawn_object' function %s. For object %s", tostring(path_name), obj:name())
+	end
+
+	if not level.patrol_path_exists(path_name) then
+		printf("Path %s doesnt exist. Function 'spawn_object' for object %s ", tostring(path_name), obj:name())
+	end
+	local ptr = patrol(path_name)
+	local index = p[3] or 0
+	local yaw = p[4] or 0
+
+	--' printf("Spawning %s at %s, %s", tostring(p[1]), tostring(p[2]), tostring(p[3]))
+	local se_obj = alife_create(spawn_sect,ptr:point(index),ptr:level_vertex_id(0),ptr:game_vertex_id(0))
+	if (se_obj) then
+		if IsStalker( nil, se_obj:clsid()) then
+			se_obj:o_torso().yaw = yaw * math.pi / 180
+		elseif se_obj:clsid() == clsid.script_phys then
+			se_obj:set_yaw(yaw * math.pi / 180)
+		end
+	end
+end
+
+local jup_b219_position
+local jup_b219_lvid
+local jup_b219_gvid
+
+function jup_b219_save_pos()
+	local obj = get_story_object("jup_b219_gate_id")
+	if obj and obj:position() then
+		jup_b219_position = obj:position()
+		jup_b219_lvid = obj:level_vertex_id()
+		jup_b219_gvid = obj:game_vertex_id()
+	else
+		return
+	end
+	alife_release_id(obj:id())
+end
+
+function jup_b219_restore_gate()
+	local yaw = 0
+	local spawn_sect = "jup_b219_gate"
+	if jup_b219_position then
+		local se_obj = alife_create(spawn_sect,vector():set(jup_b219_position),jup_b219_lvid,jup_b219_gvid)
+		if (se_obj) then
+			se_obj:set_yaw(yaw * math.pi / 180)
+		end
+	end
+end
+
+function spawn_corpse(actor, obj, p)
+		--' p[1] - ������ ���� ��������
+		--' p[2] - ��� ����������� ���� ��� ��������.
+	local spawn_sect = p[1]
+	if spawn_sect == nil then
+		printf("Wrong spawn section for 'spawn_corpse' function %s. For object %s", tostring(spawn_sect), obj:name())
+	end
+
+	local path_name = p[2]
+	if path_name == nil then
+		printf("Wrong path_name for 'spawn_corpse' function %s. For object %s", tostring(path_name), obj:name())
+	end
+
+	if not level.patrol_path_exists(path_name) then
+		printf("Path %s doesnt exist. Function 'spawn_corpse' for object %s ", tostring(path_name), obj:name())
+	end
+	local ptr = patrol(path_name)
+	local index = p[3] or 0
+
+	local se_obj = alife_create(spawn_sect,ptr:point(index),ptr:level_vertex_id(0),ptr:game_vertex_id(0))
+	if (se_obj) then
+		se_obj:kill()
+	end
+end
+
+
+function spawn_object_in(actor, obj, p)
+	--' p[1] - ������ ���� ��������
+	--' p[2] - ����� ���� ������� � ������� ��������
+	local spawn_sect = p[1]
+	if spawn_sect == nil then
+		printf("Wrong spawn section for 'spawn_object' function %s. For object %s", tostring(spawn_sect), obj:name())
+	end
+	if p[2] == nil then
+		printf("Wrong target_name for 'spawn_object_in' function %s. For object %s", tostring(target_name), obj:name())
+	end
+--	local box = alife_object(target_name)
+--	if(box==nil) then
+
+	printf("xr_effects.spawn_object_in trying to find object %s", tostring(p[2]))
+
+	local target_obj_id = get_story_object_id(p[2])
+	if target_obj_id ~= nil then
+		box = alife_object(target_obj_id)
+		if box == nil then
+			printf("xr_effects.spawn_object_in There is no such object %s", p[2])
+		end
+		alife_create(spawn_sect, box.position, box.m_level_vertex_id, box.m_game_vertex_id, target_obj_id)
+	else
+		printf("xr_effects.spawn_object_in object is nil %s", tostring(p[2]))
+	end
+end
+
+
+function spawn_npc_in_zone(actor, obj, p)
+	--' p[1] - ������ ���� ��������
+	--' p[2] - ��� ���� � ������� ��������.
+	local spawn_sect = p[1]
+	if spawn_sect == nil then
+		printf("Wrong spawn section for 'spawn_object' function %s. For object %s", tostring(spawn_sect), obj:name())
+	end
+	local zone_name = p[2]
+	if zone_name == nil then
+		printf("Wrong zone_name for 'spawn_object' function %s. For object %s", tostring(zone_name), obj:name())
+	end
+	if db.zone_by_name[zone_name] == nil then
+		printf("Zone %s doesnt exist. Function 'spawn_object' for object %s ", tostring(zone_name), obj:name())
+	end
+	local zone = db.zone_by_name[zone_name]
+--	printf("spawn_npc_in_zone: spawning %s at zone %s, squad %s", tostring(p[1]), tostring(p[2]), tostring(p[3]))
+	local spawned_obj = alife_create( spawn_sect,
+										zone:position(),
+										zone:level_vertex_id(),
+										zone:game_vertex_id())
+	spawned_obj.sim_forced_online = true
+	spawned_obj.squad = 1 or p[3]
+	db.script_ids[spawned_obj.id] = zone_name
+end
+
+function destroy_object(actor, obj, p)
+	local sobj
+	if (p == nil or p[1] == nil) then
+		sobj = alife_object(obj:id())
+	elseif (p[1] == "story" and p[2] ~= nil) then
+		local id = get_story_object_id(p[2])
+		if not (id) then
+			printf("destroy_object %s story id doesn't exist!",p[2])
+		end
+		sobj = id and alife_object(id)
+	end
+	
+	if not (sobj) then
+		return
+	end
+
+	-- TODO: check this
+	local cls = sobj:clsid()
+	if (cls == clsid.online_offline_group_s or IsStalker(nil,cls) or IsMonster(nil,cls)) then
+		safe_release_manager.release(sobj)
+	else
+		alife_release(sobj)
+	end
+end
+
+function give_actor(actor, npc, p)
+	for k,v in pairs(p) do
+		alife_create(v,
+				db.actor:position(),
+				db.actor:level_vertex_id(),
+				db.actor:game_vertex_id(),
+				AC_ID)
+		news_manager.relocate_item(db.actor, "in", v)
+	end
+end
+
+function activate_weapon_slot(actor, npc, p)
+	db.actor:activate_slot(p[1])
+end
+
+function anim_obj_forward(actor, npc, p)
+	for k,v in pairs(p) do
+		if v ~= nil then
+			db.anim_obj_by_name[v]:anim_forward()
+		end
+	end
+end
+function anim_obj_backward(actor, npc, p)
+	if p[1] ~= nil then
+		db.anim_obj_by_name[p[1]]:anim_backward()
+	end
+end
+function anim_obj_stop(actor, npc, p)
+	if p[1] ~= nil then
+		db.anim_obj_by_name[p[1]]:anim_stop()
+	end
+end
+
+-- ������� ��� ������ � ��������� ������.
+--[[
+function turn_on_fire_zone(actor, npc, p)
+	bind_campfire.fire_zones_table[ p[1] ]:turn_on()
+end
+
+function turn_off_fire_zone(actor, npc, p)
+	bind_campfire.fire_zones_table[ p[1] ]:turn_off()
+end
+]]--
+--'-----------------------------------------------------------------------------------
+--' ������� ��� ����������� �����
+--'-----------------------------------------------------------------------------------
+function play_sound_on_actor(actor,obj,p)
+	local snd = sound_object(p[1])
+
+	if (snd) then
+		--snd:play_at_pos(db.actor,db.actor:position(),0,sound_object.s3d)
+		snd:play(db.actor, 0, sound_object.s2d)
+	end
+end
+
+function play_sound(actor, obj, p)
+	local theme = p[1]
+	local faction = p[2]
+	local point
+	if (p[3]) then
+		local smart = SIMBOARD.smarts_by_names[p[3]]
+		if (smart) then
+			point = smart.id
+		else
+			point = p[3]
+		end
+	end
+
+	if obj and IsStalker(obj) then
+		if not obj:alive() then
+			printf("Stalker [%s][%s] is dead, but you wants to say something for you: [%s]!", tostring(obj:id()), tostring(obj:name()), p[1])
+		end
+	end
+
+	xr_sound.set_sound_play(obj:id(), theme, faction, point)
+end
+
+function play_sound_by_story(actor, obj, p)
+	local story_obj = get_story_object_id(p[1])
+	local theme = p[2]
+	local faction = p[3]
+	local point = SIMBOARD.smarts_by_names[p[4]]
+	if point ~= nil then
+		point = point.id
+	elseif p[4]~=nil then
+		point = p[4]
+	end
+	xr_sound.set_sound_play(story_obj, theme, faction, point)
+end
+
+function stop_sound(actor, npc)
+	xr_sound.stop_sounds_by_id(npc:id())
+end
+
+function play_sound_looped(actor, obj, p)
+	local theme = p[1]
+	xr_sound.play_sound_looped(obj:id(), theme)
+end
+
+function stop_sound_looped(actor, obj)
+	xr_sound.stop_sound_looped(obj:id())
+end
+
+function barrel_explode (actor , npc , p)
+	local expl_obj = get_story_object (p[1])
+	if expl_obj ~= nil then
+		expl_obj:explode(0)
+	end
+end
+
+--com
+function play_inv_repair_kit_use_fast_2p8()
+	xr_sound.set_sound_play(AC_ID,"inv_repair_kit_use_fast_2p8")
+end
+
+function play_inv_repair_kit_use_fast()
+	xr_sound.set_sound_play(AC_ID,"inv_repair_kit_use_fast")
+end
+
+function play_inv_repair_kit_with_brushes()
+	xr_sound.set_sound_play(AC_ID,"inv_repair_kit_with_brushes")
+end
+
+function play_inv_repair_sewing_kit()
+	xr_sound.set_sound_play(AC_ID,"inv_repair_sewing_kit")
+end
+
+function play_inv_repair_sewing_kit_fast()
+	xr_sound.set_sound_play(AC_ID,"inv_repair_sewing_kit_fast")
+end
+
+function play_inv_repair_spray_oil()
+	xr_sound.set_sound_play(AC_ID,"inv_repair_spray_oil")
+end
+
+function play_inv_repair_brushes()
+	xr_sound.set_sound_play(AC_ID,"inv_repair_brushes")
+end
+
+function play_inv_repair_kit()
+	xr_sound.set_sound_play(AC_ID,"inv_repair_kit")
+end
+
+function play_inv_drink_flask_2()
+	xr_sound.set_sound_play(AC_ID,"inv_drink_flask_2")
+end
+
+function play_inv_cooking()
+	xr_sound.set_sound_play(AC_ID,"inv_cooking")
+end
+
+function play_inv_cooking_cooker()
+	xr_sound.set_sound_play(AC_ID,"inv_cooking_cooker")
+end
+
+function play_inv_cooking_stove()
+	xr_sound.set_sound_play(AC_ID,"inv_cooking_stove")
+end
+
+function play_inv_aam_open()
+	xr_sound.set_sound_play(AC_ID,"inv_aam_open")
+end
+
+function play_inv_aam_close()
+	xr_sound.set_sound_play(AC_ID,"inv_aam_close")
+end
+
+function play_inv_aac_open()
+	xr_sound.set_sound_play(AC_ID,"inv_aac_open")
+end
+
+function play_inv_aac_close()
+	xr_sound.set_sound_play(AC_ID,"inv_aac_close")
+end
+
+function play_inv_iam_open()
+	xr_sound.set_sound_play(AC_ID,"inv_iam_open")
+end
+
+function play_inv_iam_close()
+	xr_sound.set_sound_play(AC_ID,"inv_iam_close")
+end
+
+function play_inv_lead_open()
+	xr_sound.set_sound_play(AC_ID,"inv_lead_open")
+end
+
+function play_inv_lead_close()
+	xr_sound.set_sound_play(AC_ID,"inv_lead_close")
+end
+
+function play_inv_batteries_switch()
+	xr_sound.set_sound_play(AC_ID,"inv_batt")
+end
+
+function play_inv_mask_clean()
+	xr_sound.set_sound_play(AC_ID,"inv_mask_clean")
+end
+
+function play_inv_drop()
+	xr_sound.set_sound_play(AC_ID,"inv_drop")
+end
+
+function play_inv_drop()
+	xr_sound.set_sound_play(AC_ID,"inv_drop")
+end
+
+function play_inv_empty()
+	xr_sound.set_sound_play(AC_ID,"inv_empty")
+end
+
+function play_inv_smoke_bag_open()
+	xr_sound.set_sound_play(AC_ID,"inv_smoke_bag_open")
+end
+
+function play_inv_eat_can_imm()
+	xr_sound.set_sound_play(AC_ID,"inv_eat_can_imm")
+end
+
+function play_inv_open()
+	xr_sound.set_sound_play(AC_ID,"inv_open")
+end
+
+function play_inv_briefcase_light_open()
+	xr_sound.set_sound_play(AC_ID,"inv_briefcase_light_open")
+end
+
+function play_inv_disassemble_metal_fast()
+	xr_sound.set_sound_play(AC_ID,"inv_disassemble_metal_fast")
+end
+
+function play_inv_disassemble_cloth_fast()
+	xr_sound.set_sound_play(AC_ID,"inv_disassemble_cloth_fast")
+end
+
+function play_inv_tear_patch()
+	xr_sound.set_sound_play(AC_ID,"inv_tear_patch")
+end
+
+
+--'-----------------------------------------------------------------------------------
+--' Alife support
+--'-----------------------------------------------------------------------------------
+--[[
+function start_sim(actor, obj)
+	SIMBOARD:start_sim()
+end
+
+function stop_sim(actor, obj)
+	SIMBOARD:stop_sim()
+end
+
+function update_faction_brain(actor, obj, p)
+	if p[1] == nil then
+		printf("Wrong parameters update_faction_brain")
+	end
+	local board = SIMBOARD
+	local player = board.players[ p[1] ]
+	if player == nil then
+		printf("Can't find player %s", tostring(p[1]))
+	end
+	player:faction_brain_update()
+end
+]]--
+
+function create_squad(actor, obj, p)
+
+	local squad_id = p[1]
+	if squad_id == nil then
+		printf("Wrong squad identificator [NIL] in create_squad function")
+		return
+	end
+	local smart_name = p[2]
+	if smart_name == nil then
+		printf("Wrong smart name [NIL] in create_squad function")
+		return
+	end
+
+	if not ini_sys:section_exist(squad_id) then
+		printf("Wrong squad identificator [%s]. Squad descr doesnt exist.", tostring(squad_id))
+	end
+
+	local board = SIMBOARD
+	local smart = board.smarts_by_names[smart_name]
+	if smart == nil then
+		printf("Wrong smart_name [%s] for [%s] faction in create_squad function", tostring(smart_name), tostring(player_name))
+	end
+
+	--printf("Create squad %s BEFORE",squad_id)
+	local squad = board:create_squad(smart, squad_id)
+	if not (squad) then 
+		return
+	end
+	--printf("Create squad %s AFTER",squad_id)
+
+	--board:enter_smart(squad, smart.id)
+
+	local sim = alife()
+	for k in squad:squad_members() do
+		local se_obj = k.object or k.id and sim:object(k.id)
+		if (se_obj) then
+			board:setup_squad_and_group(se_obj)
+		end
+	end
+
+	--squad:update()
+end
+
+function create_squad_member(actor, obj, p)
+	local squad_member_sect = p[1]
+	local story_id			= p[2]
+	local position			= nil
+	local level_vertex_id	= nil
+	local game_vertex_id	= nil
+	if story_id == nil then
+		printf("Wrong squad identificator [NIL] in 'create_squad_member' function")
+	end
+	local board = SIMBOARD
+	local squad = get_story_squad(story_id)
+	if not (squad) then
+		return
+	end
+
+	local squad_smart = squad.smart_id and board.smarts[squad.smart_id].smrt
+	if not (squad_smart) then
+		return
+	end
+
+	if p[3] ~= nil then
+		local spawn_point
+		if p[3] == "simulation_point" then
+			spawn_point = ini_sys:r_string_ex(squad:section_name(),"spawn_point")
+			if spawn_point == "" or spawn_point == nil then
+				spawn_point = xr_logic.parse_condlist(obj, "spawn_point", "spawn_point", squad_smart.spawn_point)
+			else
+				spawn_point = xr_logic.parse_condlist(obj, "spawn_point", "spawn_point", spawn_point)
+			end
+			spawn_point = xr_logic.pick_section_from_condlist(db.actor, obj, spawn_point)
+		else
+			spawn_point = p[3]
+		end
+		position 		= patrol(spawn_point):point(0)
+		level_vertex_id = patrol(spawn_point):level_vertex_id(0)
+		game_vertex_id 	= patrol(spawn_point):game_vertex_id(0)
+	else
+		local commander = alife_object(squad:commander_id())
+		position		= commander.position
+		level_vertex_id = commander.m_level_vertex_id
+		game_vertex_id	= commander.m_game_vertex_id
+	end
+	local new_member_id = squad:add_squad_member(squad_member_sect, position,  level_vertex_id, game_vertex_id)
+
+	local se_obj = new_member_id and alife_object(new_member_id)
+	if (se_obj) then
+		squad_smart:register_npc(se_obj)
+		board:setup_squad_and_group(se_obj)
+	end
+
+	--board:setup_squad_and_group(alife_object(new_member_id))
+	--squad_smart:refresh()
+	squad:update()
+end
+
+function remove_squad(actor, obj, p)
+	local story_id = p[1]
+	if story_id == nil then
+		printf("Wrong squad identificator [NIL] in remove_squad function")
+	end
+	local squad = get_story_squad(story_id)
+	if squad == nil then
+		assert("Wrong squad identificator [%s]. squad doesnt exist", tostring(story_id))
+		return
+	end
+	SIMBOARD:remove_squad(squad)
+end
+
+function kill_squad(actor, obj, p)
+	local story_id = p[1]
+	if story_id == nil then
+		printf("Wrong squad identificator [NIL] in kill_squad function")
+	end
+	local squad = get_story_squad(story_id)
+	if squad == nil then
+		return
+	end
+	local squad_npcs = {}
+	for k in squad:squad_members() do
+		squad_npcs[k.id] = true
+	end
+
+	for k,v in pairs(squad_npcs) do
+		local cl_obj = db.storage[k] and db.storage[k].object
+		if cl_obj == nil then
+			alife_object(tonumber(k)):kill()
+		else
+			cl_obj:kill(cl_obj)
+		end
+	end
+end
+
+function heal_squad(actor, obj, p)
+	local story_id = p[1]
+	local health_mod = 1
+	if p[2] and p[2] ~= nil then
+		health_mod = math.ceil(p[2]/100)
+	end
+	if story_id == nil then
+		printf("Wrong squad identificator [NIL] in heal_squad function")
+	end
+	local squad = get_story_squad(story_id)
+	if squad == nil then
+		return
+	end
+	for k in squad:squad_members() do
+		local cl_obj = db.storage[k.id] and db.storage[k.id].object
+		if cl_obj ~= nil then
+			cl_obj:change_health(health_mod)
+		end
+	end
+end
+
+--[[
+function update_squad(actor, obj, p)
+	local squad_id = p[1]
+	if squad_id == nil then
+		printf("Wrong squad identificator [NIL] in remove_squad function")
+	end
+	local board = SIMBOARD
+	local squad = board.squads[squad_id]
+	if squad == nil then
+		assert("Wrong squad identificator [%s]. squad doesnt exist", tostring(squad_id))
+		return
+	end
+	squad:update()
+end
+]]--
+
+-- this deletes squads from a smart
+function clear_smart_terrain(actor, obj, p)
+	local smart_name = p[1]
+	if smart_name == nil then
+		printf("Wrong squad identificator [NIL] in clear_smart_terrain function")
+	end
+
+	local board = SIMBOARD
+	local smart = board.smarts_by_names[smart_name]
+	local smart_id = smart.id
+	for k,v in pairs(board.smarts[smart_id].squads) do
+		local squad = alife_object(k)
+		if (squad) then
+			if p[2] and p[2] == "true" then
+				board:remove_squad(squad)
+			else
+				if not get_object_story_id(squad.id) then
+					board:remove_squad(squad)
+				end
+			end
+		end
+	end
+end
+
+-- This forces squads to leave a smart
+function flush_smart_terrain(actor,obj,p)
+	local smart_name = p[1]
+	if smart_name == nil then
+		printf("Wrong squad identificator [NIL] in clear_smart_terrain function")
+		return
+	end
+
+	local function unregister(squad)
+		squad.assigned_target_id = nil
+		squad.current_target_id = nil
+		squad.current_action = nil
+		squad.was_forced_offline = true
+		SIMBOARD:assign_squad_to_smart(squad, nil)
+		for k in squad:squad_members() do
+			local se_obj = alife_object(k.id)
+			if (se_obj) then
+				local smart_id = se_obj.m_smart_terrain_id
+				if (smart_id and smart_id ~= 65535) then
+					local smart = alife_object(smart_id)
+					if (smart) then
+						smart:unregister_npc(se_obj)
+					end
+				end
+			end
+		end
+	end
+	
+	local smart = SIMBOARD.smarts_by_names[smart_name]
+	local smart_id = smart.id
+	for k,v in pairs(SIMBOARD.smarts[smart_id].squads) do
+		local squad = alife_object(k)
+		if (squad) then
+			if p[2] and p[2] == "true" then
+				unregister(squad)
+			else
+				if not get_object_story_id(k) then
+					unregister(squad)
+				end
+			end
+		end
+	end	
+end
+
+
+--[[
+function set_actor_faction(actor, obj, p)
+	if p[1] == nil then
+		printf("Wrong parameters")
+	end
+	SIMBOARD:set_actor_community(p[1])
+end
+]]--
+--'-----------------------------------------------------------------------------------
+--' Quest support
+--'-----------------------------------------------------------------------------------
+-- TODO: add param 2 for story_id which can be used to get the npc's squad id or object id for task_giver_id
+function give_task(actor, obj, p)
+	if p[1] == nil then
+		printf("No parameter in give_task function.")
+	end
+	task_manager.get_task_manager():give_task(p[1])
+end
+
+function set_active_task(actor, npc, p)
+	if(p[1]) then
+		local t = db.actor:get_task(tostring(p[1]), true)
+		if(t) then
+			db.actor:set_active_task(t)
+		end
+	end
+end
+
+function set_task_completed(actor,npc,p)
+	if (p[1]) then
+		task_manager.get_task_manager():set_task_completed(p[1])
+	end
+end
+
+function set_task_failed(actor,npc,p)
+	if (p[1]) then
+		task_manager.get_task_manager():set_task_failed(p[1])
+	end
+end
+
+-- ������� ��� ������ � �����������
+
+function actor_friend(actor, npc)
+	printf("_bp: xr_effects: actor_friend(): npc='%s': time=%d", npc:name(), time_global())
+	npc:force_set_goodwill( 1000, actor)
+end
+
+function actor_neutral(actor, npc)
+	npc:force_set_goodwill( 0, actor)
+end
+
+function actor_enemy(actor, npc)
+	npc:force_set_goodwill( -1000, actor)
+end
+
+function set_speaker_as_enemy(actor, npc)
+	npc:force_set_goodwill( -5000, actor)
+end
+
+function set_squad_neutral_to_actor(actor, npc, p)
+	local story_id = p[1]
+	local squad = get_story_squad(story_id)
+	if squad == nil then
+		printf("There is no squad with id[%s]", tostring(story_id))
+		return
+	end
+	squad:set_squad_relation("neutral")
+end
+
+function set_squad_friend_to_actor(actor, npc, p)
+	local story_id = p[1]
+	local squad = get_story_squad(story_id)
+	if squad == nil then
+		printf("There is no squad with id[%s]", tostring(story_id))
+		return
+	end
+	squad:set_squad_relation("friend")
+end
+
+--������� ������ ������ � ������, ���������� ��� ������
+function set_squad_enemy_to_actor( actor, npc, p)
+	local story_id = p[1]
+	local squad = get_story_squad(story_id)
+	if squad == nil then
+		printf("There is no squad with id[%s]", tostring(story_id))
+		return
+	end
+	squad:set_squad_relation("enemy")
+end
+
+--[[
+function set_friends(actor, npc, p)
+	local npc1
+	for i, v in pairs(p) do
+		npc1 = get_story_object(v)
+		if npc1 and npc1:alive() then
+			--printf("_bp: %d:set_friends(%d)", npc:id(), npc1:id())
+			npc:set_relation(game_object.friend, npc1)
+			npc1:set_relation(game_object.friend, npc)
+		end
+	end
+end
+
+function set_enemies(actor, npc, p)
+	local npc1
+	for i, v in pairs(p) do
+		--printf("_bp: set_enemies(%d)", v)
+		npc1 = get_story_object(v)
+		if npc1 and npc1:alive() then
+			npc:set_relation(game_object.enemy, npc1)
+			npc1:set_relation(game_object.enemy, npc)
+		end
+	end
+end
+
+function set_gulag_relation_actor(actor, npc, p)
+	if(p[1]) and (p[2]) then
+		game_relations.set_gulag_relation_actor(p[1], p[2])
+	end
+end
+
+function set_factions_community(actor, npc, p)
+	if(p[1]~=nil) and (p[2]~=nil) and (p[3]~=nil) then
+		game_relations.set_factions_community(p[1], p[2], p[3])
+	end
+end
+
+function set_squad_community_goodwill(actor, npc, p)
+	if(p[1]~=nil) and (p[2]~=nil) and (p[3]~=nil) then
+		game_relations.set_squad_community_goodwill(p[1], p[2], p[3])
+	end
+end
+]]--
+
+--sets NPC relation to actor
+--set_npc_sympathy(number)
+--call only from npc`s logic
+function set_npc_sympathy(actor, npc, p)
+	if(p[1]~=nil) then
+		game_relations.set_npc_sympathy(npc, p[1])
+	end
+end
+
+--sets SQUAD relation to actor
+--set_squad_goodwill(faction:number)
+function set_squad_goodwill(actor, npc, p)
+	if(p[1]~=nil) and (p[2]~=nil) then
+		game_relations.set_squad_goodwill(p[1], p[2])
+	end
+end
+
+function set_squad_goodwill_to_npc(actor, npc, p)
+	if(p[1]~=nil) and (p[2]~=nil) then
+		game_relations.set_squad_goodwill_to_npc(npc, p[1], p[2])
+	end
+end
+
+function inc_faction_goodwill_to_actor(actor, npc, p)
+	local id = actor:id()
+	local community = p[1]
+	local delta		= p[2]
+	if delta and community then
+		game_relations.change_factions_community_num(community, id, tonumber(delta))
+		printdbg("/ Goodwill (main) gained with %s: %s", community, delta)
+	else
+		printe("!Wrong parameters in function 'inc_faction_goodwill_to_actor'")
+		return
+	end
+	delta = tonumber(delta)
+	
+	local is_gain = ((delta) > 0) and true or false
+	local delta_b = math.abs(delta)
+	local delta_b2 = math.ceil(delta_b * 0.5)
+	local delta_b3 = math.ceil(delta_b * 0.8)
+	local delta_rnd = ((delta_b) > 1) and math.random(delta_b2,delta_b3) or delta_b
+	local delta_rnd_sub = delta_b - delta_rnd
+	
+	local pass_natural, pass_enemy
+	local rnd_enemy = game_relations.get_random_enemy_faction(community)
+	local rnd_natural = game_relations.get_random_natural_faction(community)
+	
+	if is_gain and delta_rnd and delta_rnd_sub then
+		if rnd_enemy and (delta_rnd > 0) and (relation_registry.community_goodwill(rnd_enemy, id) > 0) then
+			game_relations.change_factions_community_num(rnd_enemy, id, ((-1) * delta_rnd ) )
+			pass_enemy = true
+			printdbg("/ Goodwill (side) lost with %s: %s", rnd_enemy, ((-1) * delta_rnd ))
+		end
+		if rnd_natural and (delta_rnd_sub > 0) and (relation_registry.community_goodwill(rnd_natural, id) > 0) then
+			game_relations.change_factions_community_num(rnd_natural, id, (delta_rnd_sub ) )
+			pass_natural = true
+			printdbg("/ Goodwill (side) gained with %s: %s", rnd_natural, (delta_rnd_sub ))
+		end
+	end
+	
+	
+	if community and p[3] then
+		dialogs_mlr.show_goodwill_change_message( community, (pass_natural and rnd_natural or nil), (pass_enemy and rnd_enemy or nil), is_gain )
+	end
+end
+
+function dec_faction_goodwill_to_actor(actor, npc, p)
+	local community = p[1]
+	local delta		= p[2]
+	if delta and community then
+		game_relations.change_factions_community_num(community,actor:id(), -tonumber(delta))
+	else
+		printf("Wrong parameters in function 'dec_faction_goodwill_to_actor'")
+	end
+end
+
+
+--[[
+function add_custom_static(actor, npc, p)
+	if p[1] ~= nil and p[2] ~= nil then
+		get_hud():AddCustomStatic(p[1], true)
+		get_hud():GetCustomStatic(p[1]):wnd():SetTextST(p[2])
+	else
+		printf("Invalid parameters in function add_custom_static!!!")
+	end
+end
+
+function remove_custom_static(actor, npc, p)
+	if p[1] ~= nil then
+		get_hud():RemoveCustomStatic(p[1])
+	else
+		printf("Invalid parameters in function remove_custom_static!!!")
+	end
+end
+]]--
+
+function kill_actor(actor, npc)
+	db.actor:kill(db.actor)
+end
+
+-----------------------------------------------------------------------
+--  Treasures support
+-----------------------------------------------------------------------
+function give_treasure (actor, npc, p)
+
+end
+
+--[[
+function change_tsg(actor, npc, p)
+	npc:change_team(p[1], p[2], p[3])
+end
+
+function exit_game(actor, npc)
+	exec_console_cmd("quit")
+end
+]]--
+
+function start_surge(actor, npc, p)
+	surge_manager.start_surge(p)
+end
+
+function stop_surge(actor, npc, p)
+	surge_manager.stop_surge()
+end
+
+function set_surge_mess_and_task(actor, npc, p)
+	if(p) then
+		surge_manager.set_surge_message(p[1])
+		if(p[2]) then
+			surge_manager.set_surge_task(p[2])
+		end
+	end
+end
+
+--[[
+function enable_level_changer(actor, npc, p)
+	if(p[1]~=nil) then
+		local obj = get_story_object(p[1])
+		if(obj) then
+			if db.storage[obj:id()] and db.storage[obj:id()].s_obj then
+				db.storage[obj:id()].s_obj.enabled = true
+				db.storage[obj:id()].s_obj.hint = "level_changer_invitation"
+			else
+				return
+			end
+			obj:enable_level_changer(true)
+			level_tasks.add_lchanger_location()
+			obj:set_level_changer_invitation("level_changer_invitation")
+		end
+	end
+end
+
+function disable_level_changer(actor, npc, p)
+	if(p[1]~=nil) then
+		local obj = get_story_object(p[1])
+		if(obj) then
+			if not(db.storage[obj:id()] and db.storage[obj:id()].s_obj) then
+				return
+			end
+			obj:enable_level_changer(false)
+			level_tasks.del_lchanger_mapspot(tonumber(p[1]))
+			db.storage[obj:id()].s_obj.enabled = false
+			if(p[2]==nil) then
+				obj:set_level_changer_invitation("level_changer_disabled")
+				db.storage[obj:id()].s_obj.hint = "level_changer_disabled"
+			else
+				obj:set_level_changer_invitation(p[2])
+				db.storage[obj:id()].s_obj.hint = p[2]
+			end
+		end
+	end
+end
+
+function change_actor_community(actor, npc, p)
+	if(p[1]~=nil) then
+		set_actor_true_community(p[1])
+	end
+end
+
+function set_faction_community_to_actor(actor, npc, p)
+-- run_string xr_effects.change_actor_community(nil,nil,{"actor_dolg"})
+	if(p[1]~=nil) and (p[2]~=nil) then
+		local rel = 0
+		if(p[2]=="enemy") then
+			rel = -3000
+		elseif(p[2]=="friend") then
+			rel = 1000
+		end
+		db.actor:set_community_goodwill(p[1], rel)
+	end
+end
+
+function disable_collision(actor, npc)
+	npc:wounded(true)
+end
+function enable_collision(actor, npc)
+	npc:wounded(false)
+end
+
+function disable_actor_collision(actor, npc)
+	actor:wounded(true)
+end
+function enable_actor_collision(actor, npc)
+	actor:wounded(false)
+end
+
+function relocate_actor_inventory_to_box(actor, npc, p)
+	local function transfer_object_item(item)
+		if item:section() ~= "wpn_binoc" and item:section() ~= "wpn_knife" and item:section() ~= "device_torch" then
+			db.actor:transfer_item(item, inv_box_1)
+		end
+	end
+	inv_box_1 = get_story_object (p[1])
+	actor:inventory_for_each(transfer_object_item)
+end
+]]--
+
+function make_actor_visible_to_squad(actor,npc,p)
+	local story_id = p and p[1]
+	local squad = get_story_squad(story_id)
+	if squad == nil then printf("There is no squad with id[%s]", story_id) end
+	for k in squad:squad_members() do
+		local obj = level.object_by_id(k.id)
+		if obj ~= nil then
+			obj:make_object_visible_somewhen( db.actor )
+		end
+	end
+end
+
+function pstor_set(actor,npc,p)
+	p[2] = tonumber(p[2])
+	if (p[1] and p[2]) then
+		save_var(db.actor,p[1],p[2])
+	end
+end
+
+function pstor_reset(actor,npc,p)
+	if (p[1]) then
+		save_var(db.actor,p[1],nil)
+	end
+end
+
+function stop_sr_cutscene(actor,npc,p)
+	local obj = db.storage[npc:id()]
+	if(obj.active_scheme~=nil) then
+		obj[obj.active_scheme].signals["cam_effector_stop"] = true
+	end
+end
+
+--[[
+function reset_dialog_end_signal(actor, npc, p)
+	local st = db.storage[npc:id()]
+	if(st.active_scheme==nil) then
+		return
+	end
+	if(st[st.active_scheme].signals==nil) then
+		return
+	end
+	st[st.active_scheme].signals["dialog_end"] = nil
+end
+
+function add_map_spot(actor, npc, p)
+	if(p[1]==nil) then
+		printf("Story id for add map spot function is not set")
+	else
+		local story_id = tonumber(p[1])
+		local id = id_by_sid(story_id)
+		if(id==nil) then
+			local obj = alife_object(p[1])
+			id = obj and obj.id
+		end
+		if(id~=nil) then
+			if(p[2]==nil) then
+				p[2] = "primary_task_location"
+			end
+			if(p[3]==nil) then
+				p[3] = "default"
+			end
+			if level.map_has_object_spot(id, p[2]) == 0 then
+				level.map_add_object_spot_ser(id, p[2], p[3])
+			end
+		else
+			printf("Wrong story id or name [%s] for map spot function", tostring(story_id))
+		end
+	end
+end
+
+function remove_map_spot(actor, npc, p)
+	if(p[1]==nil) then
+		printf("Story id for add map spot function is not set")
+	else
+		local story_id = tonumber(p[1])
+		local id = id_by_sid(story_id)
+		if(id==nil) then
+			local obj = alife_object(p[1])
+			id = obj and obj.id
+		end
+		if(id~=nil) then
+			if(p[2]==nil) then
+				p[2] = "primary_task_location"
+			end
+			if level.map_has_object_spot(id, p[2]) ~= 0 then
+				level.map_remove_object_spot(id, p[2])
+			end
+		else
+			printf("Wrong story id or name [%s] for map spot function", tostring(story_id))
+		end
+	end
+end
+]]--
+
+-- add map spot from logic
+-- param 1 is story_id of object to show on pda map
+-- param 2 is ui icon tag from map_spots.xml
+-- param 3 is name of ui_st_pda.xml string
+function add_map_spot(actor, npc, p)
+	if(p[1]==nil) then
+		printf("Story id for add map spot function is not set")
+	else
+--		local story_id = tonumber(p[1]) --original SOC/CS
+		local story_id = p[1]
+--		local id = id_by_sid(story_id) --original SOC/CS
+		local id = get_story_object_id(story_id)
+		if(id==nil) then
+			local obj = alife_object(p[1])
+			id = obj and obj.id
+		end
+		if(id~=nil) then
+			if(p[2]==nil) then
+				p[2] = "primary_object"
+			end
+			if(p[3]==nil) then
+				p[3] = "default"
+			end
+			if level.map_has_object_spot(id, p[2]) == 0 then
+				level.map_add_object_spot_ser(id, p[2], p[3])
+			end
+		else
+			printf("Wrong story id or name [%s] for map spot function", tostring(story_id))
+		end
+	end
+end
+
+-- remove map spot from logic
+-- param 1 is story_id of object to show on pda map
+-- param 2 is ui icon tag from map_spots.xml
+function remove_map_spot(actor, npc, p)
+	if(p[1]==nil) then
+		printf("Story id for add map spot function is not set")
+	else
+--		local story_id = tonumber(p[1]) --original SOC/CS
+		local story_id = p[1]
+--		local id = id_by_sid(story_id) --original SOC/CS
+		local id = get_story_object_id(story_id)
+		if(id==nil) then
+			local obj = alife_object(p[1])
+			id = obj and obj.id
+		end
+		if(id~=nil) then
+			if(p[2]==nil) then
+				p[2] = "primary_object"
+			end
+			if level.map_has_object_spot(id, p[2]) ~= 0 then
+				level.map_remove_object_spot(id, p[2])
+			end
+		else
+			printf("Wrong story id or name [%s] for map spot function", tostring(story_id))
+		end
+	end
+end
+
+function show_csky_squads_on_map(actor, npc)
+	local csky_squads_tbl =
+	{	{target="csky_sim_squad_novice",   hint="csky"},
+		{target="csky_sim_squad_advanced", hint="csky"},
+		{target="csky_sim_squad_veteran",  hint="csky"}
+	}
+	if (squad.player_id == "csky") then 
+		for k,v in pairs(csky_squads_tbl) do
+			local obj_id = get_story_squad(v.target)
+			if(obj_id) then
+			level.map_add_object_spot_ser(obj_id, "alife_presentation_squad_friend_1", v.hint)
+			end
+		end
+	end
+end
+
+function make_actor_visible_to_npc(actor, npc, p)
+	local act = db.actor
+	if act then
+		npc:make_object_visible_somewhen(act)
+	end
+end
+-- Anomal fields support
+function enable_anomaly(actor, npc, p)
+	if p[1] == nil then
+		printf("Story id for enable_anomaly function is not set")
+	end
+
+	local obj = get_story_object(p[1])
+	if not obj then
+		printf("There is no object with story_id %s for enable_anomaly function", tostring(p[1]))
+	end
+	obj:enable_anomaly()
+end
+
+function disable_anomaly(actor, npc, p)
+	if p[1] == nil then
+		printf("Story id for disable_anomaly function is not set")
+	end
+
+	local obj = get_story_object(p[1])
+	if not obj then
+		printf("There is no object with story_id %s for disable_anomaly function", tostring(p[1]))
+	end
+	obj:disable_anomaly()
+end
+
+function launch_signal_rocket(actor, obj, p)
+	if p==nil then
+		printf("Signal rocket name is not set!")
+	end
+	if db.signal_light[p[1]] then
+		db.signal_light[p[1]]:launch()
+	else
+		printf("No such signal rocket: [%s] on level", tostring(p[1]))
+	end
+end
+
+--[[
+function reset_faction_goodwill(actor, obj, p)
+	if db.actor and p[1] then
+		local board = SIMBOARD
+		local faction = board.players[ p[1] ]
+		if faction then
+			db.actor:set_community_goodwill(p[1], 0)
+		end
+	end
+end
+]]--
+
+function add_cs_text(actor, npc, p)
+	if p[1] then
+		local hud = get_hud()
+		if (hud) then
+			local cs_text = hud:GetCustomStatic("text_on_screen_center")
+			if cs_text then
+				hud:RemoveCustomStatic("text_on_screen_center")
+			end
+			hud:AddCustomStatic("text_on_screen_center", true)
+			cs_text = hud:GetCustomStatic("text_on_screen_center")
+			cs_text:wnd():TextControl():SetText(game.translate_string(p[1]))
+		end
+	end
+end
+
+function del_cs_text(actor, npc, p)
+	local hud = get_hud()
+	if (hud) then
+		cs_text = hud:GetCustomStatic("text_on_screen_center")
+		if cs_text then
+			hud:RemoveCustomStatic("text_on_screen_center")
+		end
+	end
+end
+
+function spawn_item_to_npc(actor, npc, p)
+	local new_item = p[1]
+	if p[1] then
+		alife_create(new_item,
+		npc:position(),
+		npc:level_vertex_id(),
+		npc:game_vertex_id(),
+		npc:id())
+	end
+end
+
+function give_money_to_npc(actor, npc, p)
+	local money = p[1] and tonumber(p[1])
+	if money then
+		npc:give_money(money)
+	end
+end
+
+function seize_money_to_npc(actor, npc, p)
+	local money = p[1] and tonumber(p[1])
+	if money then
+		npc:give_money(-money)
+	end
+end
+
+-- �������� �������� �� ������ � ������
+-- relocate_item(item_name:story_id_from:story_id_to)
+function relocate_item(actor, npc, p)
+	local item = p and p[1]
+	local from_obj = p and get_story_object(p[2])
+	local to_obj = p and get_story_object(p[3])
+	if to_obj ~= nil then
+		if from_obj ~= nil and from_obj:object(item) ~= nil then
+			from_obj:transfer_item(from_obj:object(item), to_obj)
+		else
+			alife_create(item,
+				to_obj:position(),
+				to_obj:level_vertex_id(),
+				to_obj:game_vertex_id(),
+				to_obj:id())
+		end
+	else
+		printf("Couldn't relocate item to NULL")
+	end
+end
+
+-- ������� ������ �������, ���������� ��� ������ set_squads_enemies(squad_name_1:squad_name_2)
+function set_squads_enemies(actor, npc, p)
+	if (p[1] == nil or p[2] == nil) then
+		printf("Wrong parameters in function set_squad_enemies")
+		return
+	end
+
+	local squad_1 = get_story_squad(p[1])
+	local squad_2 = get_story_squad(p[2])
+
+	if squad_1 == nil then
+		assert("There is no squad with id[%s]", tostring(p[1]))
+		return
+	end
+	if squad_2 == nil then
+		assert("There is no squad with id[%s]", tostring(p[2]))
+		return
+	end
+
+ 	for k in squad_1:squad_members() do
+		local npc_obj_1 = db.storage[k.id] and db.storage[k.id].object
+		if npc_obj_1 ~= nil then
+			for kk in squad_2:squad_members() do
+				local npc_obj_2 = db.storage[kk.id] and db.storage[kk.id].object
+				if npc_obj_2 ~= nil then
+					npc_obj_1:set_relation(game_object.enemy, npc_obj_2)
+					npc_obj_2:set_relation(game_object.enemy, npc_obj_1)
+					printf("set_squads_enemies: %d:set_enemy(%d)", npc_obj_1:id(), npc_obj_2:id())
+				end
+			end
+		end
+	end
+end
+
+local particles_table = {
+[1] = {particle = particles_object("anomaly2\\teleport_out_00"), sound = sound_object("anomaly\\teleport_incoming")},
+[2] = {particle = particles_object("anomaly2\\teleport_out_00"), sound = sound_object("anomaly\\teleport_incoming")},
+[3] = {particle = particles_object("anomaly2\\teleport_out_00"), sound = sound_object("anomaly\\teleport_incoming")},
+[4] = {particle = particles_object("anomaly2\\teleport_out_00"), sound = sound_object("anomaly\\teleport_incoming")},
+}
+
+function jup_b16_play_particle_and_sound(actor, npc, p)
+	particles_table[p[1]].particle :play_at_pos(patrol(npc:name().."_particle"):point(0))
+	--particles_table[p[1]].sound    :play_at_pos(actor, patrol(npc:name().."_particle"):point(0), 0, sound_object.s3d)
+end
+--������� ��������� ��������� ��������� ���������.
+-- ��������� ����� ���������� --> story_id:visibility_state(����� �������� ������ ������) ��� visibility_state(���� ���������� �� ���������� ���������)
+--  visibility_state -->
+--						0 - ���������
+--						1 - �����������
+--						2 - ��������� �������
+function set_bloodsucker_state(actor, npc, p)
+	if (p and p[1]) == nil then printf("Wrong parameters in function 'set_bloodsucker_state'!!!") end
+	local state = p[1]
+	if p[2] ~= nil then
+		state = p[2]
+		npc = get_story_object(p[1])
+	end
+	if npc ~= nil then
+		if state == "default" then
+			npc:force_visibility_state(-1)
+		else
+			npc:force_visibility_state(tonumber(state))
+		end
+	end
+end
+
+--������� ������� �������� � ������������ �����, ������ ��� ����� �57
+function drop_object_item_on_point(actor, npc, p)
+	local drop_object = db.actor:object(p[1])
+	local drop_point  = patrol(p[2]):point(0)
+	db.actor:drop_item_and_teleport(drop_object, drop_point)
+end
+
+--������� ������� �������� � ������
+function remove_item(actor, npc, p)
+	local sec = p[1]
+	if not (sec) then
+		printf("Wrong parameters in function 'remove_item'!!!")
+		return
+	end
+	local amt = p[2] and tonumber(p[2]) or 1
+	local removed = 0
+	local se_item
+	local function release_actor_item(temp, item)
+		if (item:section() == sec and amt > 0) then
+			se_item = alife_object(item:id())
+			if (se_item) then
+				alife_release(se_item)
+				amt = amt - 1
+				removed = removed + 1
+			end
+		end
+	end
+	db.actor:iterate_inventory(release_actor_item,nil)
+	if (removed > 0) then
+		news_manager.relocate_item(db.actor,"out",sec,removed)
+	end
+end
+
+-- �������� ���������� � ������ ������
+function scenario_autosave(actor, npc, p)
+	local save_name = p[1]
+	if save_name == nil then
+		printf("You are trying to use scenario_autosave without save name")
+	end
+
+	--[[ clear excess corpses everytime player saves
+	--release_body_manager.get_release_body_manager():clear()
+
+	if (IsImportantSave()) and (not ui_options.get("other/important_save")) then
+		local prefix = user_name()
+		local save_param = prefix.." - "..game.translate_string(save_name)
+
+		exec_console_cmd("save "..save_param)
+	end
+	--]]
+end
+
+function zat_b29_create_random_infop(actor, npc, p)
+	if p[2] == nil then
+		printf("Not enough parameters for zat_b29_create_random_infop!")
+	end
+
+	local amount_needed = p[1]
+	local current_infop = 0
+	local total_infop = 0
+
+	if (not amount_needed or amount_needed == nil) then
+		amount_needed = 1
+	end
+
+	for k,v in pairs(p) do
+		if k > 1 then
+			total_infop = total_infop + 1
+			disable_info(v)
+		end
+	end
+
+	if amount_needed > total_infop then
+		amount_needed = total_infop
+	end
+
+	for i = 1, amount_needed do
+		current_infop = math.random(1, total_infop)
+		for k,v in pairs(p) do
+			if k > 1 then
+				if (k == current_infop + 1 and (not has_alife_info(v))) then
+					db.actor:give_info_portion(v)
+					break
+				end
+			end
+		end
+	end
+end
+
+function give_item_b29(actor, npc, p)
+--	local story_object = p and get_story_object(p[1])
+	local az_name
+	local az_table = {
+						"zat_b55_anomal_zone",
+						"zat_b54_anomal_zone",
+						"zat_b53_anomal_zone",
+						"zat_b39_anomal_zone",
+						"zaton_b56_anomal_zone",
+						}
+
+	for i = 16, 23 do
+		if has_alife_info(dialogs_zaton.zat_b29_infop_bring_table[i]) then
+			for k,v in pairs(az_table) do
+				if has_alife_info(v) then
+					az_name = v
+					disable_info(az_name)
+					break
+				end
+			end
+			pick_artefact_from_anomaly(nil, nil, {p[1], az_name, dialogs_zaton.zat_b29_af_table[i]})
+			break
+		end
+	end
+end
+
+function relocate_item_b29(actor, npc, p)
+	local item
+	for i = 16, 23 do
+		if has_alife_info(dialogs_zaton.zat_b29_infop_bring_table[i]) then
+			item = dialogs_zaton.zat_b29_af_table[i]
+			break
+		end
+	end
+	local from_obj = p and get_story_object(p[1])
+	local to_obj = p and get_story_object(p[2])
+	if to_obj ~= nil then
+		if from_obj ~= nil and from_obj:object(item) ~= nil then
+			from_obj:transfer_item(from_obj:object(item), to_obj)
+		else
+			alife_create(item,
+				to_obj:position(),
+				to_obj:level_vertex_id(),
+				to_obj:game_vertex_id(),
+				to_obj:id())
+		end
+	else
+		printf("Couldn't relocate item to NULL")
+	end
+end
+
+-- ������� ������� ���������� �������� ���� � ������. by peacemaker, hein, redstain
+function reset_sound_npc(actor, npc, p)
+	local obj_id = npc:id()
+	if obj_id and xr_sound.sound_table and xr_sound.sound_table[obj_id] then
+		xr_sound.sound_table[obj_id]:reset(obj_id)
+	end
+end
+
+function jup_b202_inventory_box_relocate(actor, npc)
+	local inv_box_out = get_story_object("jup_b202_actor_treasure")
+	local inv_box_in = get_story_object("jup_b202_snag_treasure")
+	local items_to_relocate = {}
+	local function relocate(inv_box_out, item)
+		items_to_relocate[#items_to_relocate+1] = item
+	end
+	inv_box_out:iterate_inventory_box	(relocate, inv_box_out)
+	for k,v in ipairs(items_to_relocate) do
+		inv_box_out:transfer_item(v, inv_box_in)
+	end
+end
+
+function clear_box(actor, npc, p)
+	if (p and p[1]) == nil then printf("Wrong parameters in function 'clear_box'!!!") end
+
+	local inv_box = get_story_object(p[1])
+
+	if inv_box == nil then
+		printf("There is no object with story_id [%s]", tostring(p[1]))
+	end
+
+	local items_table = {}
+
+	local function add_items(inv_box, item)
+		items_table[#items_table+1] = item
+	end
+
+	inv_box:iterate_inventory_box(add_items, inv_box)
+
+	local sim = alife()
+	for k,v in pairs(items_table) do
+		alife_release_id(v:id())
+	end
+end
+
+function activate_weapon(actor, npc, p)
+	local object = actor:object(p[1])
+	if object == nil then
+		assert("Actor has no such weapon! [%s]", p[1])
+	end
+	if object ~= nil then
+		actor:make_item_active(object)
+	end
+end
+
+function set_game_time(actor, npc, p)
+	local real_hours = level.get_time_hours()
+	local real_minutes = level.get_time_minutes()
+	local hours = tonumber(p[1])
+	local minutes = tonumber(p[2])
+	if p[2] == nil then
+		minutes = 0
+	end
+	local hours_to_change = hours - real_hours
+	if hours_to_change <= 0 then
+		hours_to_change = hours_to_change + 24
+	end
+	local minutes_to_change = minutes - real_minutes
+	if minutes_to_change <= 0 then
+		minutes_to_change = minutes_to_change + 60
+		hours_to_change = hours_to_change - 1
+	elseif hours == real_hours then
+		hours_to_change = hours_to_change - 24
+	end
+	level.change_game_time(0,hours_to_change,minutes_to_change)
+	level_weathers.get_weather_manager():forced_weather_change()
+	surge_manager.SurgeManager.time_forwarded = true
+	printf("set_game_time: time changed to [%d][%d]", hours_to_change, minutes_to_change)
+end
+
+function forward_game_time(actor, npc, p)
+	if not p then
+		printf("Insufficient or invalid parameters in function 'forward_game_time'!")
+	end
+
+	local hours = tonumber(p[1])
+	local minutes = tonumber(p[2])
+
+	if p[2] == nil then
+		minutes = 0
+	end
+	level.change_game_time(0,hours,minutes)
+	level_weathers.get_weather_manager():forced_weather_change()
+	surge_manager.SurgeManager.time_forwarded = true
+	printf("forward_game_time: time forwarded on [%d][%d]", hours, minutes)
+end
+
+function stop_tutorial()
+	--printf("stop tutorial called")
+	game.stop_tutorial()
+end
+
+function jup_b10_spawn_drunk_dead_items(actor, npc, p)
+	local items_all = {
+					["wpn_ak74"] = 1,
+					["ammo_5.45x39_fmj"] = 5,
+					["ammo_5.45x39_ap"] = 3,
+					["wpn_fort"] = 1,
+					["ammo_9x18_fmj"] = 3,
+					["ammo_12x70_buck"] = 5,
+					["ammo_11.43x23_hydro"] = 2,
+					["grenade_rgd5"] = 3,
+					["grenade_f1"] = 2,
+					["medkit_army"] = 2,
+					["medkit"] = 4,
+					["bandage"] = 4,
+					["antirad"] = 2,
+					["vodka"] = 3,
+					["energy_drink"] = 2,
+					["conserva"] = 1,
+					["jup_b10_ufo_memory_2"] = 1,
+					}
+
+	local items = {
+					[2] = 	{
+							["wpn_sig550_luckygun"] = 1,
+							},
+					[1] = 	{
+							["ammo_5.45x39_fmj"] = 5,
+							["ammo_5.45x39_ap"] = 3,
+							["wpn_fort"] = 1,
+							["ammo_9x18_fmj"] = 3,
+							["ammo_12x70_buck"] = 5,
+							["ammo_11.43x23_hydro"] = 2,
+							["grenade_rgd5"] = 3,
+							["grenade_f1"] = 2,
+							},
+					[0] = 	{
+							["medkit_army"] = 2,
+							["medkit"] = 4,
+							["bandage"] = 4,
+							["antirad"] = 2,
+							["vodka"] = 3,
+							["energy_drink"] = 2,
+							["conserva"] = 1,
+							},
+					}
+
+	if p and p[1] ~= nil then
+		local cnt = load_var(actor, "jup_b10_ufo_counter", 0)
+		if cnt > 2 then return end
+		for k,v in pairs(items[cnt]) do
+			local target_obj_id = get_story_object_id(p[1])
+			if target_obj_id ~= nil then
+				box = alife_object(target_obj_id)
+				if box == nil then
+					printf("There is no such object %s", p[1])
+				end
+				for i = 1,v do
+					alife_create(k,vector(),0,0,target_obj_id)
+				end
+			else
+				printf("object is nil %s", tostring(p[1]))
+			end
+		end
+	else
+		for k,v in pairs(items_all) do
+			for i = 1,v do
+				alife_create(k,
+					npc:position(),
+					npc:level_vertex_id(),
+					npc:game_vertex_id(),
+					npc:id())
+			end
+		end
+	end
+
+end
+
+function pick_artefact_from_anomaly(actor, npc, p)
+	local se_obj
+	local az_name = p and p[2]
+	local af_name = p and p[3]
+	local af_id
+	local af_obj
+	local anomal_zone = db.anomaly_by_name[az_name]
+
+	if p and p[1] then
+--		if p[1] == "actor" then
+--			npc = db.actor
+--		else
+--			npc = get_story_object(p[1])
+--		end
+
+		local npc_id = get_story_object_id(p[1])
+		if npc_id == nil then
+			printf("Couldn't relocate item to NULL in function 'pick_artefact_from_anomaly!'")
+		end
+		se_obj = alife_object(npc_id)
+		if se_obj and (not IsStalker(nil,se_obj:clsid()) or not se_obj:alive()) then
+			printf("Couldn't relocate item to NULL (dead or not stalker) in function 'pick_artefact_from_anomaly!'")
+		end
+	end
+
+	if anomal_zone == nil then
+		printf("No such anomal zone in function 'pick_artefact_from_anomaly!'")
+	end
+
+	if anomal_zone.spawned_count < 1 then
+		printf("No artefacts in anomal zone [%s]", az_name)
+		return
+	end
+
+	for k,v in pairs(anomal_zone.artefact_ways_by_id) do
+		if alife_object(tonumber(k)) and af_name == alife_object(tonumber(k)):section_name() then
+			af_id = tonumber(k)
+			af_obj = alife_object(tonumber(k))
+			break
+		end
+		if af_name == nil then
+			af_id = tonumber(k)
+			af_obj = alife_object(tonumber(k))
+			af_name = af_obj:section_name()
+			break
+		end
+	end
+
+	if af_id == nil then
+		printf("No such artefact [%s] found in anomal zone [%s]", tostring(af_name), az_name)
+		return
+	end
+
+	anomal_zone:on_artefact_take(af_obj)
+
+	alife_release(af_obj)
+	give_item(db.actor, se_obj, {af_name, p[1]})
+--	alife_create(af_name,
+--		npc.position,
+--		npc.level_vertex_id,
+--		npc.game_vertex_id,
+--		npc.id)
+end
+
+function anomaly_turn_off (actor, npc, p)
+	local anomal_zone = db.anomaly_by_name[p[1]]
+	if anomal_zone == nil then
+		printf("No such anomal zone in function 'anomaly_turn_off!'")
+	end
+	anomal_zone:turn_off()
+end
+
+function anomaly_turn_on (actor, npc, p)
+	local anomal_zone = db.anomaly_by_name[p[1]]
+	if anomal_zone == nil then
+		printf("No such anomal zone in function 'anomaly_turn_on!'")
+	end
+	if p[2] then
+		anomal_zone:turn_on(true)
+	else
+		anomal_zone:turn_on(false)
+	end
+end
+
+function zat_b202_spawn_random_loot(actor, npc, p)
+	local si_table = {}
+	si_table[1] = {
+		[1] = {item = {"bandage","bandage","bandage","bandage","bandage","medkit","medkit","medkit","conserva","conserva"}},
+		[2] = {item = {"medkit","medkit","medkit","medkit","medkit","vodka","vodka","vodka","kolbasa","kolbasa"}},
+		[3] = {item = {"antirad","antirad","antirad","medkit","medkit","bandage","kolbasa","kolbasa","conserva"}},
+	}
+	si_table[2] = {
+		[1] = {item = {"grenade_f1","grenade_f1","grenade_f1"}},
+		[2] = {item = {"grenade_rgd5","grenade_rgd5","grenade_rgd5","grenade_rgd5","grenade_rgd5"}}
+	}
+	si_table[3] = {
+		[1] = {item = {"detector_elite"}},
+		[2] = {item = {"detector_advanced"}}
+	}
+	si_table[4] = {
+		[1] = {item = {"helm_hardhat"}},
+		[2] = {item = {"helm_respirator"}}
+	}
+	si_table[5] = {
+		[1] = {item = {"wpn_val","ammo_9x39_ap","ammo_9x39_ap","ammo_9x39_ap"}},
+		[2] = {item = {"wpn_spas12","ammo_12x70_buck","ammo_12x70_buck","ammo_12x70_buck","ammo_12x70_buck"}},
+		[3] = {item = {"wpn_desert_eagle","ammo_11.43x23_fmj","ammo_11.43x23_fmj","ammo_11.43x23_hydro","ammo_11.43x23_hydro"}},
+		[4] = {item = {"wpn_abakan","ammo_5.45x39_ap","ammo_5.45x39_ap"}},
+		[5] = {item = {"wpn_sig550","ammo_5.56x45_ap","ammo_5.56x45_ap"}},
+		[6] = {item = {"wpn_ak74","ammo_5.45x39_fmj","ammo_5.45x39_fmj"}},
+		[7] = {item = {"wpn_l85","ammo_5.56x45_ss190","ammo_5.56x45_ss190"}}
+	}
+	si_table[6] = {
+		[1] = {item = {"specops_outfit"}},
+		[2] = {item = {"stalker_outfit"}}
+	}
+	weight_table = {}
+	weight_table[1] = 2
+	weight_table[2] = 2
+	weight_table[3] = 2
+	weight_table[4] = 2
+	weight_table[5] = 4
+	weight_table[6] = 4
+	local spawned_item = {}
+	local max_weight = 12
+	repeat
+		local n = 0
+		repeat
+			n = math.random(1, #weight_table)
+			local prap = true
+			for k,v in pairs(spawned_item) do
+				if v == n then
+					prap = false
+					break
+				end
+			end
+		until (prap) and ((max_weight - weight_table[n]) >= 0)
+		max_weight = max_weight - weight_table[n]
+		spawned_item[#spawned_item+1] = n
+		local item = math.random(1, #si_table[n])
+		for k,v in pairs(si_table[n][item].item) do
+			spawn_object_in(actor, npc, {tostring(v),"jup_b202_snag_treasure"})
+		end
+	until max_weight <= 0
+end
+
+function zat_a1_tutorial_end_give(actor, npc)
+--	level.add_pp_effector("black.ppe", 1313, true) ---do not stop on r1 !
+	db.actor:give_info_portion("zat_a1_tutorial_end")
+end
+
+function oasis_heal()
+	local d_health = 0.005
+	local d_power = 0.01
+	local d_bleeding = 0.05
+	local d_radiation = -0.05
+	if(db.actor.health<1) then
+		db.actor:change_health(d_health)
+	end
+	if(db.actor.power<1) then
+		db.actor:change_power(d_power)
+	end
+	if(db.actor.radiation>0) then
+		db.actor:change_radiation(d_radiation)
+	end
+	if(db.actor.bleeding>0) then
+		db.actor.bleeding = d_bleeding
+	end
+	db.actor:change_satiety(0.01)
+end
+
+--������� ��������� ������ ���� ��������, ������������ ��� ����� ���������� �����������. ��������� �������� [duty, freedom]
+function jup_b221_play_main(actor, npc, p)
+	local info_table = {}
+	local main_theme
+	local reply_theme
+	local info_need_reply
+	local reachable_theme = {}
+	local theme_to_play = 0
+
+	if (p and p[1]) == nil then
+		printf("No such parameters in function 'jup_b221_play_main'")
+	end
+--���������� ������� ������������ ������������ ����������� ��� ��� ���� ����, ���������� �������� ����, ������ � �������, �������������� ��� ����� ��� ��� �������.
+	if tostring(p[1]) == "duty" then
+		info_table = {
+			[1] = "jup_b25_freedom_flint_gone",
+			[2] = "jup_b25_flint_blame_done_to_duty",
+			[3] = "jup_b4_monolith_squad_in_duty",
+			[4] = "jup_a6_duty_leader_bunker_guards_work",
+			[5] = "jup_a6_duty_leader_employ_work",
+			[6] = "jup_b207_duty_wins"
+		}
+		main_theme = "jup_b221_duty_main_"
+		reply_theme = "jup_b221_duty_reply_"
+		info_need_reply = "jup_b221_duty_reply"
+	elseif tostring(p[1]) == "freedom" then
+		info_table = {
+			[1] = "jup_b207_freedom_know_about_depot",
+			[2] = "jup_b46_duty_founder_pda_to_freedom",
+			[3] = "jup_b4_monolith_squad_in_freedom",
+			[4] = "jup_a6_freedom_leader_bunker_guards_work",
+			[5] = "jup_a6_freedom_leader_employ_work",
+			[6] = "jup_b207_freedom_wins"
+		}
+		main_theme = "jup_b221_freedom_main_"
+		reply_theme = "jup_b221_freedom_reply_"
+		info_need_reply = "jup_b221_freedom_reply"
+	else
+		printf("Wrong parameters in function 'jup_b221_play_main'")
+	end
+--���������� ������� ��������� ���(����� ������ ���).
+	for k,v in pairs(info_table) do
+		if (has_alife_info(v)) and (not has_alife_info(main_theme .. tostring(k) .. "_played")) then
+			table.insert(reachable_theme,k)
+--			printf("jup_b221_play_main: table reachable_theme ------------------------------> [%s]", tostring(k))
+		end
+	end
+--���� ������� ��������� ��� ����� ������ �����. ���� �� ��� �� ����� ������ �������� ����. ���� ������ �������� ���� ������� �������� �������� ��� ���������� ���������� �������. ���� �������� �� �������.
+	if #reachable_theme ~= 0 then
+		disable_info(info_need_reply)
+		theme_to_play = reachable_theme[math.random(1, #reachable_theme)]
+--		printf("jup_b221_play_main: variable theme_to_play ------------------------------> [%s]", tostring(theme_to_play))
+		save_var(actor,"jup_b221_played_main_theme",tostring(theme_to_play))
+		db.actor:give_info_portion(main_theme .. tostring(theme_to_play) .."_played")
+		if theme_to_play ~= 0 then
+			play_sound(actor, npc, {main_theme .. tostring(theme_to_play)})
+		else
+			printf("No such theme_to_play in function 'jup_b221_play_main'")
+		end
+	else
+		db.actor:give_info_portion(info_need_reply)
+		theme_to_play = tonumber(load_var(actor,"jup_b221_played_main_theme",0))
+		if theme_to_play ~= 0 then
+			play_sound(actor, npc, {reply_theme..tostring(theme_to_play)})
+		else
+			printf("No such theme_to_play in function 'jup_b221_play_main'")
+		end
+		save_var(actor,"jup_b221_played_main_theme","0")
+	end
+end
+
+function pas_b400_play_particle(actor, npc, p)
+	db.actor:start_particles("zones\\zone_acidic_idle","bip01_head")
+end
+
+function pas_b400_stop_particle(actor, npc, p)
+	db.actor:stop_particles("zones\\zone_acidic_idle","bip01_head")
+end
+
+function damage_pri_a17_gauss()
+	local obj = get_story_object("pri_a17_gauss_rifle")
+	--local obj = npc:object("pri_a17_gauss_rifle")
+	if obj ~= nil then
+		obj:set_condition(0.0)
+	end
+end
+
+function pri_a17_hard_animation_reset(actor, npc, p)
+	--db.storage[npc:id()].state_mgr:set_state("pri_a17_fall_down", nil, nil, nil, {fast_set = true})
+	db.storage[npc:id()].state_mgr:set_state("pri_a17_fall_down")
+
+	local state_mgr = db.storage[npc:id()].state_mgr
+	if state_mgr ~= nil then
+		state_mgr.animation:set_state(nil, true)
+		state_mgr.animation:set_state("pri_a17_fall_down")
+		state_mgr.animation:set_control()
+	end
+end
+
+function jup_b217_hard_animation_reset(actor, npc, p)
+	db.storage[npc:id()].state_mgr:set_state("jup_b217_nitro_straight")
+
+	local state_mgr = db.storage[npc:id()].state_mgr
+	if state_mgr ~= nil then
+		state_mgr.animation:set_state(nil, true)
+		state_mgr.animation:set_state("jup_b217_nitro_straight")
+		state_mgr.animation:set_control()
+	end
+end
+
+
+
+--[[
+function set_tip_to_story(actor, npc, p)
+	if p == nil or p[2] == nil then
+		printf("Not enough parameters in 'set_tip_to_story' function!")
+	end
+
+	local obj = get_story_object(p[1])
+
+	if not obj then
+		return
+	end
+
+	local tip = p[2]
+
+	obj:set_tip_text(tip)
+end
+
+function clear_tip_from_story(actor, npc, p)
+	if p == nil or p[1] == nil then
+		printf("Not enough parameters in 'clear_tip_from_story' function!")
+	end
+
+	local obj = get_story_object(p[1])
+
+	if not obj then
+		return
+	end
+
+	obj:set_tip_text("")
+end
+]]--
+
+function mech_discount(actor, npc, p)
+	if(p[1]) then
+		inventory_upgrades.mech_discount(tonumber(p[1]) or 1)
+	end
+end
+
+function polter_actor_ignore(actor, npc, p)
+	if p[1] and p[1] == "true" then
+				npc:poltergeist_set_actor_ignore(true)
+	elseif p[1] and p[1] == "false" then
+				npc:poltergeist_set_actor_ignore(false)
+	end
+end
+
+function burer_force_gravi_attack(actor, npc)
+	npc:burer_set_force_gravi_attack(true)
+end
+
+function burer_force_anti_aim(actor, npc)
+	npc:set_force_anti_aim(true)
+end
+
+function show_freeplay_dialog(actor, npc, p)
+	if p[1] and p[2] and p[2] == "true" then
+		ui_freeplay_dialog.show("message_box_yes_no", p[1])
+	elseif p[1] then
+		ui_freeplay_dialog.show("message_box_ok", p[1])
+	end
+end
+
+-- ������ ��� state_mgr
+function get_best_detector(npc)
+	local detectors = { "detector_simple", "detector_advanced", "detector_elite", "detector_scientific" }
+	for k,v in pairs(detectors) do
+		local obj = npc:object(v)
+		if obj ~= nil then
+			obj:enable_attachable_item(true)
+			return
+		end
+	end
+end
+
+function hide_best_detector(npc)
+	local detectors = { "detector_simple", "detector_advanced", "detector_elite", "detector_scientific" }
+	for k,v in pairs(detectors) do
+		local obj = npc:object(v)
+		if obj ~= nil then
+			obj:enable_attachable_item(false)
+			return
+		end
+	end
+end
+
+-- ���������� ��� ������������� �������� ��� � ������� ����������, � ��� ������ �����
+function pri_a18_radio_start(actor, npc)
+	db.actor:give_info_portion("pri_a18_radio_start")
+end
+
+function pri_a17_ice_climb_end(actor, npc)
+	db.actor:give_info_portion("pri_a17_ice_climb_end")
+end
+
+function jup_b219_opening(actor, npc)
+	db.actor:give_info_portion("jup_b219_opening")
+end
+
+function jup_b219_entering_underpass(actor, npc)
+	db.actor:give_info_portion("jup_b219_entering_underpass")
+end
+
+function pri_a17_pray_start(actor, npc)
+	db.actor:give_info_portion("pri_a17_pray_start")
+end
+
+function zat_b38_open_info(actor, npc)
+	db.actor:give_info_portion("zat_b38_open_info")
+end
+
+function zat_b38_switch_info(actor, npc)
+	db.actor:give_info_portion("zat_b38_switch_info")
+end
+function zat_b38_cop_dead(actor, npc)
+	db.actor:give_info_portion("zat_b38_cop_dead")
+end
+
+function jup_b15_zulus_drink_anim_info(actor, npc)
+	db.actor:give_info_portion("jup_b15_zulus_drink_anim_info")
+end
+
+function pri_a17_preacher_death(actor, npc)
+	db.actor:give_info_portion("pri_a17_preacher_death")
+end
+
+function zat_b3_tech_surprise_anim_end(actor, npc)
+	db.actor:give_info_portion("zat_b3_tech_surprise_anim_end")
+end
+
+function zat_b3_tech_waked_up(actor, npc)
+	db.actor:give_info_portion("zat_b3_tech_waked_up")
+end
+
+function zat_b3_tech_drinked_out(actor, npc)
+	db.actor:give_info_portion("zat_b3_tech_drinked_out")
+end
+
+function pri_a28_kirillov_hq_online(actor, npc)
+	db.actor:give_info_portion("pri_a28_kirillov_hq_online")
+end
+
+function pri_a20_radio_start(actor, npc)
+	db.actor:give_info_portion("pri_a20_radio_start")
+end
+
+function pri_a22_kovalski_speak(actor, npc)
+	db.actor:give_info_portion("pri_a22_kovalski_speak")
+end
+
+function zat_b38_underground_door_open(actor, npc)
+	db.actor:give_info_portion("zat_b38_underground_door_open")
+end
+
+function zat_b38_jump_tonnel_info(actor, npc)
+	db.actor:give_info_portion("zat_b38_jump_tonnel_info")
+end
+
+function jup_a9_cam1_actor_anim_end(actor, npc)
+	db.actor:give_info_portion("jup_a9_cam1_actor_anim_end")
+end
+
+function pri_a28_talk_ssu_video_end(actor, npc)
+	db.actor:give_info_portion("pri_a28_talk_ssu_video_end")
+end
+
+function set_torch_state(actor, npc, p)
+ 	if p == nil or p[2] == nil then
+		printf("Not enough parameters in 'set_torch_state' function!")
+	end
+
+	local obj = get_story_object(p[1])
+
+	if not obj then
+		return
+	end
+	local torch = obj:object("device_torch")
+	if torch then
+		if p[2] == "on" then
+			torch:enable_attachable_item(true)
+		elseif p[2] == "off" then
+			torch:enable_attachable_item(false)
+		end
+	end
+end
+
+
+local actor_nightvision = false
+local actor_torch		= false
+
+function disable_actor_nightvision(actor, npc)
+	local nightvision = db.actor:object("device_torch")
+	if not (nightvision) then
+		return
+	end
+	if nightvision:night_vision_enabled() then
+		nightvision:enable_night_vision(false)
+		actor_nightvision = true
+	end
+end
+
+function enable_actor_nightvision(actor, npc)
+	local nightvision = db.actor:object("device_torch")
+	if not (nightvision) then
+		return
+	end
+	if not nightvision:night_vision_enabled() and actor_nightvision then
+		nightvision:enable_night_vision(true)
+		actor_nightvision = false
+	end
+end
+
+function disable_actor_torch(actor, npc)
+	local torch = db.actor:object("device_torch")
+	if not (torch) then
+		return
+	end
+	if torch:torch_enabled() then
+		torch:enable_torch(false)
+		actor_torch = true
+	end
+end
+
+function enable_actor_torch(actor, npc)
+	local torch = db.actor:object("device_torch")
+	if not (torch) then
+		return
+	end
+	if not torch:torch_enabled() and actor_torch then
+		torch:enable_torch(true)
+		actor_torch = false
+	end
+end
+
+
+function create_cutscene_actor_with_weapon(actor, npc, p)
+	--' p[1] - ������ ���� ��������
+	--' p[2] - ��� ����������� ���� ��� ��������.
+	--' p[3] - ����� ����������� ����
+	--' p[4] - ������� �� ��� Y
+	--' p[5] - �������������� ���� - ����� �������� ���� ��� disable_ui
+	local spawn_sect = p[1]
+	if spawn_sect == nil then
+		printf("Wrong spawn section for 'spawn_object' function %s. For object %s", tostring(spawn_sect), obj:name())
+	end
+
+	local path_name = p[2]
+	if path_name == nil then
+		printf("Wrong path_name for 'spawn_object' function %s. For object %s", tostring(path_name), obj:name())
+	end
+
+	if not level.patrol_path_exists(path_name) then
+		printf("Path %s doesnt exist. Function 'spawn_object' for object %s ", tostring(path_name), obj:name())
+	end
+	local ptr = patrol(path_name)
+	local index = p[3] or 0
+	local yaw = p[4] or 0
+
+	local npc = alife_create(spawn_sect, ptr:point(index), ptr:level_vertex_id(0), ptr:game_vertex_id(0))
+	if IsStalker( nil, npc:clsid()) then
+		npc:o_torso().yaw = yaw * math.pi / 180
+	else
+		npc.angle.y = yaw * math.pi / 180
+	end
+
+	local slot_override = p[5] or 0
+
+	local slot
+	local active_item
+
+	if slot_override == 0 then
+		slot = db.actor:active_slot()
+		if(slot~=2 and slot~=3) then
+			return
+		end
+		active_item = db.actor:active_item()
+	else
+		if db.actor:item_in_slot(slot_override) ~= nil then
+			active_item = db.actor:item_in_slot(slot_override)
+		else
+			if db.actor:item_in_slot(3) ~= nil then
+				active_item = db.actor:item_in_slot(3)
+			elseif db.actor:item_in_slot(2) ~= nil then
+				active_item = db.actor:item_in_slot(2)
+			else
+				return
+			end
+		end
+	end
+
+	local actor_weapon = alife_object(active_item:id())
+	local section_name = actor_weapon:section_name()
+	if section_name == "pri_a17_gauss_rifle" then
+		section_name = "wpn_gauss"
+	end
+
+	if (active_item) then
+		local new_weapon = alife_create(section_name,
+													ptr:point(index),
+													ptr:level_vertex_id(0),
+													ptr:game_vertex_id(0),
+													npc.id)
+		if section_name ~= "wpn_gauss" then
+			new_weapon:clone_addons(actor_weapon)
+		end
+	end
+end
+
+-- ��������� ������ ���������� �������� ���(� ���������)
+function set_force_sleep_animation(actor, npc, p)
+	local num = p[1]
+	npc:force_stand_sleep_animation(tonumber(num))
+end
+-- ������ ���������� �������� ���(� ���������)
+function release_force_sleep_animation(actor, npc)
+	npc:release_stand_sleep_animation()
+end
+
+function zat_b33_pic_snag_container(actor, npc)
+	if xr_conditions.actor_in_zone(actor, npc, {"zat_b33_tutor"}) then
+		give_actor(actor, npc, {"zat_b33_safe_container"})
+		db.actor:give_info_portion("zat_b33_find_package")
+		if not has_alife_info("zat_b33_safe_container") then
+			local zone = db.zone_by_name["zat_b33_tutor"]
+			play_sound(actor, zone, {"pda_news"})
+		end
+	end
+end
+
+--���������� ����������� ���������� ��� �� ��������� ��������� ����� �� ���� ������.
+--���. ������ �� ������ ���.
+function set_visual_memory_enabled(actor, npc, p)
+	if (p and p[1]) and (tonumber(p[1]) >= 0) and (tonumber(p[1]) <= 1) then
+		local boolval = false
+		if (tonumber(p[1]) == 1) then
+			boolval = true
+		end
+		npc:set_visual_memory_enabled(boolval)
+	end
+end
+
+function disable_memory_object (actor, npc)
+	local best_enemy = npc:best_enemy()
+	if best_enemy then
+		npc:enable_memory_object(best_enemy, false)
+	end
+end
+
+function zat_b202_spawn_b33_loot(actor, npc, p)
+	local info_table = {
+		"zat_b33_first_item_gived",
+		"zat_b33_second_item_gived",
+		"zat_b33_third_item_gived",
+		"zat_b33_fourth_item_gived",
+		"zat_b33_fifth_item_gived"
+	}
+	local item_table = {}
+	item_table[1] = {
+		"wpn_fort_snag"
+	}
+	item_table[2] = {
+		"medkit_scientic",
+		"medkit_scientic",
+		"medkit_scientic",
+		"antirad",
+		"antirad",
+		"antirad",
+		"bandage",
+		"bandage",
+		"bandage",
+		"bandage",
+		"bandage"
+	}
+	item_table[3] = {
+		"wpn_ak74u_snag"
+	}
+	item_table[4] = {
+		"af_soul"
+	}
+	item_table[5] = {
+		"helm_hardhat_snag"
+	}
+	for k,v in pairs(info_table) do
+		local obj_id
+		if (k == 1) or (k == 3) then
+			obj_id = "jup_b202_stalker_snag"
+		else
+			obj_id = "jup_b202_snag_treasure"
+		end
+		if not has_alife_info(tostring(v)) then
+			for l,m in pairs(item_table[k]) do
+--				printf("zat_b202_spawn_b33_loot: number [%s] item [%s] to [%s]", tostring(k), tostring(m), tostring(obj_id))
+				spawn_object_in(actor, npc, {tostring(m),tostring(obj_id)})
+			end
+		end
+	end
+end
+
+function set_monster_animation (actor, npc, p)
+	if not (p and p[1]) then
+		printf("Wrong parameters in function 'set_monster_animation'!!!")
+	end
+	npc:set_override_animation (p[1])
+end
+
+function clear_monster_animation (actor, npc)
+	npc:clear_override_animation ()
+end
+
+local actor_position_for_restore
+local actor_direction_for_restore
+
+function save_actor_position()
+	actor_position_for_restore = get_story_object("actor"):position()
+	--actor_direction_for_restore = get_story_object("actor"):direction()
+end
+
+function restore_actor_position()
+	--db.actor:set_actor_direction(actor_direction_for_restore)
+	db.actor:set_actor_position(actor_position_for_restore)
+end
+
+function upgrade_hint(actor, npc, p)
+	if(p) then
+		inventory_upgrades.cur_hint = p
+	end
+end
+
+function force_obj(actor, npc, p)
+	local obj = get_story_object(p[1])
+	if not obj then
+		printf("'force_obj' Target object does not exist")
+		return
+	end
+	if p[2] == nil then p[2] = 20 end
+	if p[3] == nil then p[3] = 100 end
+	obj:set_const_force(VEC_Y, p[2], p[3])
+end
+
+function pri_a28_check_zones()
+	local story_obj_id
+	local dist
+	local index = 0
+
+	local zones_tbl = {
+						[1] = "pri_a28_sr_mono_add_1",
+						[2] = "pri_a28_sr_mono_add_2",
+						[3] = "pri_a28_sr_mono_add_3",
+						}
+
+	local info_tbl = {
+						[1] = "pri_a28_wave_1_spawned",
+						[2] = "pri_a28_wave_2_spawned",
+						[3] = "pri_a28_wave_3_spawned",
+						}
+
+	local squad_tbl = {
+						[1] = "pri_a28_heli_mono_add_1",
+						[2] = "pri_a28_heli_mono_add_2",
+						[3] = "pri_a28_heli_mono_add_3",
+						}
+
+	for k,v in pairs(zones_tbl) do
+		story_obj_id = get_story_object_id(v)
+		if story_obj_id then
+			local se_obj = alife_object(story_obj_id)
+			local curr_dist = se_obj.position:distance_to(db.actor:position())
+			if index == 0 then
+				dist = curr_dist
+				index = k
+			elseif dist < curr_dist then
+				dist = curr_dist
+				index = k
+			end
+		end
+	end
+
+	if index == 0 then
+		printf("Found no distance or zones in func 'pri_a28_check_zones'")
+	end
+
+	if has_alife_info(info_tbl[index]) then
+		for k,v in pairs(info_tbl) do
+			if not has_alife_info(info_tbl[k]) then
+				db.actor:give_info_portion(info_tbl[k])
+			end
+		end
+	else
+		db.actor:give_info_portion(info_tbl[index])
+	end
+
+	create_squad(db.actor,nil,{squad_tbl[index],"pri_a28_heli"})
+end
+
+function eat_vodka_script()
+	if db.actor:object("vodka_script") ~= nil then
+		db.actor:eat(db.actor:object("vodka_script"))
+	end
+end
+
+local mat_table = {
+					"jup_b200_material_1",
+					"jup_b200_material_2",
+					"jup_b200_material_3",
+					"jup_b200_material_4",
+					"jup_b200_material_5",
+					"jup_b200_material_6",
+					"jup_b200_material_7",
+					"jup_b200_material_8",
+					"jup_b200_material_9",
+					}
+
+function jup_b200_count_found(actor)
+	local cnt = 0
+
+	for k,v in pairs(mat_table) do
+		local material_obj = get_story_object(v)
+		if material_obj then
+			local parent = material_obj:parent()
+			if parent then
+				local parent_id = parent:id()
+				if parent_id ~= 65535 and parent_id == actor:id() then
+					cnt = cnt + 1
+				end
+			end
+		end
+	end
+
+	cnt = cnt + load_var(actor, "jup_b200_tech_materials_brought_counter", 0)
+	save_var(actor, "jup_b200_tech_materials_found_counter", cnt)
+end
+
+function sr_teleport(actor,npc,p)
+	ui_sr_teleport.msg_box_ui(npc,p and p[1],p and p[2])
+end
+
+function make_a_wish(actor,npc,p)
+
+
+	-- ///////////////////////////////////////////////////////////////////////////////////////////////
+	--
+	-- End Find Wish Granter Storyline Task
+	--
+	--	Added by DoctorX
+		--	October 13, 2016
+	--
+	-- -----------------------------------------------------------------------------------------------
+
+	-- Remove on find wish granter infoportion:
+	disable_info( "drx_sl_on_find_wish_granter" )
+
+	-- \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+
+
+	local action_list = {}
+
+	action_list[1] = function()
+		local str = game.translate_string("st_zone_disappeared")
+		error(str,2)
+		return
+	end
+
+	action_list[2] = function()
+		give_info("actor_made_wish")
+		give_info("actor_made_wish_for_control")
+		return
+	end
+
+	action_list[3] = function()
+		local sim = alife()
+		local function remove_this_squad(id)
+			local squad = id and sim:object(id)
+			if not (squad) then
+				return true
+			end
+
+			printf("DEBUG: removing squad %s from the game",squad:name())
+			SIMBOARD:assign_squad_to_smart(squad, nil)
+			squad:remove_squad()
+			return true
+		end
+		local squad
+		for i=1,sim:max_id() - 1 do
+			squad = sim:object(i)
+			if (squad and squad:clsid() == clsid.online_offline_group_s) then
+				CreateTimeEvent("remove_this_squad",squad.id,math.random(1,10),remove_this_squad,squad.id)
+			end
+		end
+		give_info("actor_made_wish_for_peace")
+		give_info("actor_made_wish")
+		return
+	end
+
+	action_list[4] = function()
+		local sim = alife()
+		local s_find = string.find
+		local ltx = ini_file("plugins\\spawner_blacklist.ltx")
+		local pos = db.actor:position()
+		local lid = db.actor:level_vertex_id()
+		local gid = db.actor:game_vertex_id()
+		ini_sys:section_for_each( function(section)
+			local cost = ini_sys:r_float_ex(section,"cost")
+			if cost and cost > 0 and (not ltx:line_exist("ignore_sections",section)) then
+				local parent = ini_sys:r_string_ex(section,"parent_section")
+				local qst_itm = ini_sys:r_bool_ex(section,"quest_item")
+				local anm_itm = IsItem("anim",section)
+				local tch_itm = s_find(section,"tch_") and true or false
+				local bse_itm = s_find(section,"base") and true or false
+				local main_itm = (not parent) or (parent and parent == section)
+				
+				if not (qst_itm and anm_itm and tch_itm and bse_itm and main_itm) then
+					local x = ini_sys:r_float_ex(section,"inv_grid_x")
+					local y = ini_sys:r_float_ex(section,"inv_grid_y")
+					if (x and x ~= 0) and (y and y ~= 0) then
+						sim:create(section, pos, lid, gid, AC_ID)
+					end
+				end
+			end
+		end)
+
+		local function remove_backpack(id)
+			local function itr(npc,itm)
+				if (itm:section() == "itm_actor_backpack" or itm:section() == "itm_backpack") then
+					alife_release_id(itm:id())
+					return
+				end
+			end
+			db.actor:iterate_inventory(itr,db.actor)
+		end
+
+		CreateTimeEvent(0,"remove_backpack",1,remove_backpack,0)
+
+		give_info("actor_made_wish_for_riches")
+		give_info("actor_made_wish")
+		return
+	end
+
+	action_list[5] = function()
+		local se_actor = alife():actor()
+		local data = utils_stpk.get_actor_data(se_actor)
+		if (data) then
+			data.specific_character = "actor_zombied"
+			utils_stpk.set_actor_data(data,se_actor)
+		end
+
+		set_actor_true_community("zombied")
+		give_info("actor_made_wish_immortal")
+		give_info("actor_made_wish")
+
+--		local spawn_path = patrol("spawn_player_stalker")
+--		if (spawn_path) then
+--			local pos = spawn_path:point(0)
+--			local lvid = spawn_path:level_vertex_id(0)
+--			local gvid = spawn_path:game_vertex_id(0)
+--			local gg = game_graph()
+--			if (gvid and gg:valid_vertex_id(gvid)) then
+--				ChangeLevel(pos,lvid,gvid,VEC_ZERO)
+--			end
+--		end
+
+--		Teleports the player to a smashed open grave in the Great Swamp.
+--		Goodwill is increased with the Monolith and Zombified faction to ensure they aren't hostile.
+		inc_faction_goodwill_to_actor(db.actor, nil, {"monolith", 5000})
+		inc_faction_goodwill_to_actor(db.actor, nil, {"zombied", 5000})
+		ChangeLevel(vector():set(266.99, 0.00, -131.07), 310937, 181, VEC_ZERO)
+		return
+	end
+
+	-- Hide and disable the immortality wish if actor is in Zombified or Monolith factions.
+	if (character_community(db.actor) == "actor_zombied" or character_community(db.actor) == "actor_monolith") then
+		action_list[5] = nil
+		ui_dyn_msg_box.multi_choice(action_list,"st_wish_1","st_wish_2","st_wish_3","st_wish_4","st_wish_99")
+	else
+		ui_dyn_msg_box.multi_choice(action_list,"st_wish_1","st_wish_2","st_wish_3","st_wish_4","st_wish_5","st_wish_99")
+	end
+
+end
+
+function clear_logic(actor,npc,p)
+	local st = db.storage[npc:id()]
+	st.ini, st.ini_filename = xr_logic.get_customdata_or_ini_file(npc, "<customdata>")
+	st.active_section = nil
+	st.active_scheme = nil
+	st.section_logic = "logic"
+	xr_logic.switch_to_section(npc,nil,nil)
+end
+
+function set_new_scheme_and_logic(actor,npc,p)
+	local st = db.storage[npc:id()]
+	st.ini_filename = ini_filename
+	st.ini = ini_file(ini_filename)
+	if not (st.ini) then
+		printe("!ERROR: set_new_scheme_and_logic: can't find ini %s",ini_filename)
+		return
+	end
+
+	-- Set new section logic
+	st.section_logic = logic
+
+	-- Select new active section
+	local new_section = section or xr_logic.determine_section_to_activate(npc, st.ini, st.section_logic)
+
+	-- Switch to new section
+	xr_logic.switch_to_section(npc, st.ini, new_section)
+	st.overrides = xr_logic.cfg_get_overrides(st.ini, new_section, npc)
+end
+
+function set_script_danger(actor,npc,p)
+	xr_danger.set_script_danger(npc,p and tonumber(p[1]) or 5000)
+end
+
+function spawn_npc_at_position(actor,npc,p)
+	if not (p) then return end
+	local pos = vector():set(tonumber(p[2]),tonumber(p[3]),tonumber(p[4]))
+	alife_create(p[1],pos,p[5],p[6])
+end
+
+function kill_obj_on_job(actor,npc,p)
+	local board = SIMBOARD
+	local smart = p[1] and board and board.smarts_by_names[p[1]]
+	local obj = smart and smart.npc_by_job_section["logic@"..p[2]]
+	obj = obj and level.object_by_id(obj)
+	if not obj or not obj:alive() then
+		return false
+	end
+	local h = hit()
+
+	h:bone("bip01_neck")
+	h.power = 1
+	h.impulse = 1
+	h.direction = vec_sub(npc:position(), obj:position())
+	h.draftsman = npc
+	h.type = hit.wound
+	obj:hit(h)
+end
+
+function obj_at_job_switch_section(actor,npc,p)
+	local board = SIMBOARD
+	local smart = p[1] and board and board.smarts_by_names[p[1]]
+	local obj = smart and smart.npc_by_job_section["logic@"..p[2]]
+	obj = obj and level.object_by_id(obj)
+	if not obj or not obj:alive() then
+		return
+	end
+
+	local st = db.storage[obj:id()]
+	if not (st) then
+		return
+	end
+	xr_logic.switch_to_section(obj, st.ini, p[3])
+end
+
+function change_visual(actor,npc,p)
+	if (not axr_main) then
+		return
+	end
+	local sobj = alife_object(npc:id())
+	if not (sobj) then
+		return
+	end
+	if (axr_main) then
+		CreateTimeEvent(sobj.id,"update_visual",1,update_visual,sobj.id,p[1])
+	end
+end
+
+function switch_offline(actor,npc,p)
+	local se_obj = npc and alife_object(npc:id())
+	if (se_obj and se_obj:can_switch_offline()) then
+		se_obj:switch_offline()
+	end
+end
+
+------------------- util functions
+function update_visual(id,vis)
+	local se_npc = id and alife_object(id)
+	if not (se_npc) then
+		return true
+	end
+
+	if (se_npc.online) then
+		se_npc:switch_offline()
+		return false
+	end
+
+	if not (vis) then
+		return true
+	end
+
+	local data = utils_stpk.get_stalker_data(se_npc)
+	if (data) then
+		data.visual_name = vis
+		utils_stpk.set_stalker_data(data,se_npc)
+	end
+	return true
+end
+
+
+function up_start()
+	--up.up_objects_spawn()
+	--up.up_stalkers_spawn()
+end
+
+function up_freeplay()
+	--up.freeplay_clean_territory()
+end
+
+function stop_sr_cutscene(actor,npc,p)
+	local obj = db.storage[npc:id()]
+	if(obj.active_scheme~=nil) then
+		obj[obj.active_scheme].signals["cam_effector_stop"] = true
+	end
+end
+
+function update_weather(actor, npc, p)
+	if p and p[1] then
+		if p[1] == "true" then
+			level_weathers.get_weather_manager():select_weather(true)
+		elseif p[1] == "false" then
+			level_weathers.get_weather_manager():select_weather(false)
+		end
+	end
+end
+
+--X16 machine switch off
+function yan_gluk (actor, npc)
+
+	local sound_obj_l		= xr_sound.get_safe_sound_object( [[affects\psy_blackout_l]] )
+    local sound_obj_r		= xr_sound.get_safe_sound_object( [[affects\psy_blackout_r]] )
+
+	sound_obj_l:play_no_feedback(db.actor, sound_object.s2d, 0, vector():set(-1, 0, 1), 1.0, 1.0)
+	sound_obj_r:play_no_feedback(db.actor, sound_object.s2d, 0, vector():set( 1, 0, 1), 1.0, 1.0)
+	level.add_cam_effector("camera_effects\\earthquake.anm", 1974, false, "")
+end
+
+function yan_saharov_message(actor, npc, p)
+	local actor_comm = get_actor_true_community()
+	if (not game_relations.is_factions_enemies(actor_comm,"ecolog")) then
+		if (p[1] == 1) then
+			news_manager.send_tip(db.actor, "st_yan_saharov_message", nil, "saharov", 15000, nil)
+			db.actor:give_info_portion("labx16_find")
+		elseif (p[1] == 2) and db.actor:object("bad_psy_helmet") then
+			news_manager.send_tip(db.actor, "st_yan_saharov_message_2", nil, "saharov", 20000, nil)
+		elseif (p[1] == 3) then
+			news_manager.send_tip(db.actor, "st_yan_saharov_message_3", nil, "saharov", 15000, nil)
+		elseif (p[1] == "free_upgrade") then
+			news_manager.send_tip(db.actor, "st_yan_saharov_message_free_upgrade", nil, "saharov", 15000, nil)
+		end
+	end
+end
+
+--X18 dream
+function x18_gluk (actor, npc)
+		level.add_pp_effector ("blink.ppe", 234, false)
+		local sound_obj_l		= xr_sound.get_safe_sound_object( [[affects\psy_blackout_l]] )
+        local sound_obj_r		= xr_sound.get_safe_sound_object( [[affects\psy_blackout_r]] )
+        local snd_obj			= xr_sound.get_safe_sound_object( [[affects\tinnitus3a]] )
+		snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0, 1.0)
+		sound_obj_l:play_no_feedback(db.actor, sound_object.s2d, 0, vector():set(-1, 0, 1), 1.0, 1.0)
+		sound_obj_r:play_no_feedback(db.actor, sound_object.s2d, 0, vector():set( 1, 0, 1), 1.0, 1.0)
+	level.add_cam_effector("camera_effects\\earthquake.anm", 1974, false, "")
+end
+
+function end_yantar_dream(actor, npc)
+	db.actor:give_info_portion("yantar_find_ghost_task_start")
+end
+
+function end_x18_dream(actor, npc)
+	db.actor:give_info_portion("dar_x18_dream")
+end
+
+function end_radar_dream(actor, npc)
+	db.actor:give_info_portion("bun_patrol_start")
+end
+
+function end_warlab_dream(actor, npc)
+	db.actor:give_info_portion("end_warlab_dream")
+end
+
+function end_final_peace(actor, npc)
+	db.actor:give_info_portion("end_final_peace")
+end
+
+---------------------------------------------------------
+-- Sarcofag2
+---------------------------------------------------------
+
+function aes_earthshake (npc)
+	local snd_obj = xr_sound.get_safe_sound_object([[ambient\earthquake]])
+	snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0, 1.0)
+	level.add_cam_effector("camera_effects\\earthquake.anm", 1974, false, "")
+    --set_postprocess ("scripts\\earthshake.ltx")
+end
+
+function oso_init_dialod ()
+	-- local oso = level_object_by_sid(osoznanie)
+	-- db.actor:run_talk_dialog(oso)
+end
+
+function warlab_stop_particle(actor, npc, p)
+	db.actor:stop_particles("anomaly2\\control_monolit_holo", "link")
+end
+
+function play_snd_from_obj(actor, npc, p)
+	if p[1] and p[2] then
+		local snd_obj = xr_sound.get_safe_sound_object(p[2])
+		local obj     = level_object_by_sid(p[1])
+        if obj ~= nil then
+           printf("can't find object with story id %s", tostring(p[1]))
+
+--		snd_obj:play_at_pos(obj, obj:position(), sound_object.s3d)
+		snd_obj:play_no_feedback(obj, sound_object.s3d, 0, obj:position(), 1.0, 1.0)
+		end
+	end
+end
+
+function play_snd(actor, npc, p)
+	if p[1] then
+		local snd_obj = xr_sound.get_safe_sound_object(p[1])
+		--snd_obj:play(actor, p[2] or 0, sound_object.s2d)
+		snd_obj:play_no_feedback(actor, sound_object.s2d, p[2] or 0, vector(), 1.0, 1.0)
+	end
+end
+
+function erase_pstor_ctime(actor,npc,p)
+	if not (p[1]) then
+		return
+	end
+
+	save_ctime(db.actor,p[1],nil)
+end
+
+-- Shows progress bar health for last hit enemy with db.storage[id].show_health = true
+-- param 1: Story ID
+-- param 2: true or false; default is true. True will set db.storage[id].show_health = true while false will remove custom static from screen
+function show_health(actor,npc,p)
+	if (p[2] == "false") then
+		ui_enemy_health.cs_remove()
+	else
+		local id = get_story_object_id(p[1])
+		local st = id and db.storage[id]
+		if (st) then
+			st.show_health = true
+		end
+	end
+end
+
+
+function disable_monolith_zones(actor,npc,p)
+	local remove_sections = {
+		["zone_monolith"] = true
+	}
+	local sim = alife()
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if (se_obj and remove_sections[se_obj:section_name()]) then
+			alife_release(se_obj)
+		end
+	end
+end
+
+function disable_generator_zones(actor,npc,p)
+	local remove_sections = {
+		["generator_torrid"] = true,
+		["generator_dust"] = true,
+		["generator_electra"] = true,
+		["generator_dust_static"] = true
+	}
+	local sim = alife()
+	for i=1,sim:max_id() - 1 do
+		local se_obj = sim:object(i)
+		if (se_obj and remove_sections[se_obj:section_name()]) then
+			alife_release(se_obj)
+		end
+	end
+end
+
+--OLD ARENA
+function bar_arena_hit(actor, npc)
+	local h = hit()
+	h.power = 0.01
+	h.direction = npc:direction()
+	h.draftsman = db.actor
+	h.impulse = 1
+	h.type = hit.wound
+	npc:hit(h)
+end
+
+function bar_arena_introduce(actor, npc)
+	if db.actor:has_info("bar_arena_pseudodog_choosen") then
+		news_manager.send_tip(db.actor, "bar_arena_fight_pseudodog", nil, "arena", 24000, nil)
+	elseif db.actor:has_info("bar_arena_snork_choosen") then
+		news_manager.send_tip(db.actor, "bar_arena_fight_snork", nil, "arena", 30000, nil)
+	elseif db.actor:has_info("bar_arena_bloodsucker_choosen") then
+		news_manager.send_tip(db.actor, "bar_arena_fight_bloodsucker", nil, "arena", 30000, nil)
+	elseif db.actor:has_info("bar_arena_burer_choosen") then
+		news_manager.send_tip(db.actor, "bar_arena_fight_burer", nil, "arena", 52000, nil)
+	elseif db.actor:has_info("bar_arena_savage_choosen") then
+		news_manager.send_tip(db.actor, "bar_arena_fight_savage", nil, "arena", 34000, nil)
+	end
+end
+
+function bar_arena_fight_begin(actor, npc)
+	if db.actor:has_info("bar_arena_actor_lose") or db.actor:has_info("bar_arena_actor_victory") then
+		return
+	end
+	
+	news_manager.send_tip(db.actor, "bar_arena_fight_begin", nil, "arena")
+end
+
+function bar_arena_fight_10(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_10", nil, "arena")
+end
+
+function bar_arena_fight_20(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_20", nil, "arena")
+end
+
+function bar_arena_fight_30(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_30", nil, "arena")
+end
+
+function bar_arena_fight_40(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_40", nil, "arena")
+end
+
+function bar_arena_fight_50(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_50", nil, "arena")
+end
+
+function bar_arena_fight_60(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_60", nil, "arena")
+end
+
+function bar_arena_fight_70(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_70", nil, "arena")
+end
+
+function bar_arena_fight_80(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_80", nil, "arena")
+end
+
+function bar_arena_fight_90(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_90", nil, "arena")
+end
+
+function bar_arena_check_lose(actor, npc)
+	if db.actor:has_info("bar_arena_100_p") then
+		if db.actor:has_info("bar_arena_fight_30") then
+			db.actor:give_info_portion("bar_arena_actor_lose")
+			news_manager.send_tip(actor, "bar_arena_fight_timeout", nil, "arena")
+		end
+		return
+	end
+	if db.actor:has_info("bar_arena_50_p") then
+		if db.actor:has_info("bar_arena_fight_90") then
+			db.actor:give_info_portion("bar_arena_actor_lose")
+			news_manager.send_tip(actor, "bar_arena_fight_timeout", nil, "arena")
+		end
+		return
+	end
+end
+
+function bar_arena_after_fight(actor, npc)
+	if db.actor:has_info("bar_arena_actor_lose") or db.actor:has_info("bar_arena_actor_victory") then 
+		return
+	end
+	
+	if db.actor:dont_has_info("bar_arena_actor_lose") then
+		db.actor:give_info_portion("bar_arena_actor_victory")
+		news_manager.send_tip(actor, "bar_arena_fight_victory", nil, "arena")
+	else
+		news_manager.send_tip(actor, "bar_arena_fight_lose", nil, "arena")
+	end
+	
+	db.actor:give_info_portion("bar_arena_start_introduce")
+end
+
+function bar_arena_actor_afraid(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_actor_afraid", nil, "arena")
+end
+
+function bar_arena_actor_dead(actor, npc)
+	news_manager.send_tip(db.actor, "bar_arena_fight_dead", nil, "arena")
+end
+
+--NEW ARENA
+
+function bar_arena_teleport (actor, npc)
+	actor_effects.disable_effects_timer(100)
+
+	--hide_hud_inventory()
+	hide_hud_all()
+
+	local box = get_story_object("bar_arena_inventory_box")
+	if (box) then
+		local function transfer_object_item(item)
+			db.actor:transfer_item(item, box)
+		end
+		db.actor:inventory_for_each(transfer_object_item)
+	end
+
+	local spawn_items = {}
+
+	if	has_alife_info("bar_arena_fight_1") then 
+		table.insert(spawn_items, "novice_outfit")	
+		table.insert(spawn_items, "wpn_pm")
+		table.insert(spawn_items, "ammo_9x18_pmm")
+		table.insert(spawn_items, "ammo_9x18_pmm")
+		--table.insert(spawn_items, "wpn_knife")
+	elseif	has_alife_info("bar_arena_fight_2") then
+		table.insert(spawn_items, "stalker_outfit")	
+		table.insert(spawn_items, "wpn_mp5")
+		table.insert(spawn_items, "ammo_9x19_pbp")
+		--table.insert(spawn_items, "wpn_knife")		
+	elseif	has_alife_info("bar_arena_fight_3") then
+		table.insert(spawn_items, "stalker_outfit")		
+		table.insert(spawn_items, "wpn_bm16")
+		table.insert(spawn_items, "ammo_12x70_buck")
+		table.insert(spawn_items, "ammo_12x70_buck")
+		--table.insert(spawn_items, "wpn_knife")
+	elseif	has_alife_info("bar_arena_fight_4") then
+		table.insert(spawn_items, "stalker_outfit")		
+		table.insert(spawn_items, "wpn_ak74")
+		table.insert(spawn_items, "ammo_5.45x39_ap")
+		table.insert(spawn_items, "ammo_5.45x39_ap")
+		--table.insert(spawn_items, "wpn_knife")
+		table.insert(spawn_items, "bandage")
+		table.insert(spawn_items, "bandage")
+	elseif	has_alife_info("bar_arena_fight_5") then
+		table.insert(spawn_items, "wpn_abakan")
+		table.insert(spawn_items, "ammo_5.45x39_ap")
+		table.insert(spawn_items, "ammo_5.45x39_ap")
+		table.insert(spawn_items, "ammo_5.45x39_ap")
+		--table.insert(spawn_items, "wpn_knife")
+		table.insert(spawn_items, "bandage")
+		table.insert(spawn_items, "medkit")
+		table.insert(spawn_items, "svoboda_light_outfit")
+	elseif	has_alife_info("bar_arena_fight_6") then
+		table.insert(spawn_items, "wpn_groza")
+		table.insert(spawn_items, "ammo_9x39_ap")
+		table.insert(spawn_items, "ammo_9x39_ap")
+		table.insert(spawn_items, "ammo_9x39_ap")
+		--table.insert(spawn_items, "wpn_knife")
+
+		table.insert(spawn_items, "specops_outfit")
+	elseif	has_alife_info("bar_arena_fight_7") then
+		table.insert(spawn_items, "wpn_knife")
+		table.insert(spawn_items, "bandage")
+		table.insert(spawn_items, "grenade_f1")
+		table.insert(spawn_items, "grenade_f1")
+	elseif	has_alife_info("bar_arena_fight_8") then
+		table.insert(spawn_items, "wpn_g36")
+		table.insert(spawn_items, "exo_outfit")
+		table.insert(spawn_items, "ammo_5.56x45_ap")
+		table.insert(spawn_items, "ammo_5.56x45_ap")
+		table.insert(spawn_items, "ammo_5.56x45_ap")
+		table.insert(spawn_items, "ammo_5.56x45_ap")
+		--table.insert(spawn_items, "wpn_knife")
+	end
+
+	local k,v = 0,0
+
+	for k,v in pairs(spawn_items) do
+		local se = alife_create(v,
+						db.actor:position(),
+						db.actor:level_vertex_id(),
+						db.actor:game_vertex_id(),
+						AC_ID)
+		se_save_var( se.id, se:name(), "unpatched", true )
+	end
+
+end
+
+function bar_arena_weapon_slot (actor,npc,p)
+	db.actor:activate_slot(tonumber(p[1]) or 1)
+end
+
+function bar_arena_teleport_2 (actor, npc)
+	actor_effects.disable_effects_timer(100)
+	--hide_hud_inventory()
+	hide_hud_all()
+
+	-- remove items from actor given to him by arena
+	local box = get_story_object("bar_arena_inventory_box_2")
+	if (box) then
+		local function transfer_object_item(item)
+			db.actor:transfer_item(item, box)
+		end
+		db.actor:inventory_for_each(transfer_object_item)
+	end
+
+	-- purge all marked items
+	xr_zones.purge_arena_items("bar_arena")
+
+	level.add_pp_effector ("blink.ppe", 234, false)
+
+	db.actor:set_actor_position(patrol("t_walk_2"):point(0))
+	local dir = patrol("t_look_2"):point(0):sub(patrol("t_walk_2"):point(0))
+	db.actor:set_actor_direction(-dir:getH())
+
+	-- give actor back his items that were taken
+	local box = get_story_object("bar_arena_inventory_box")
+	if (box) then
+		local function transfer_object_item(box,item)
+			box:transfer_item(item, db.actor)
+		end
+		box:iterate_inventory_box(transfer_object_item,box)
+	end
+end
+
+function purge_zone(actor,npc,p)
+	if (p and p[1]) then
+		xr_zones.purge_arena_items(p[1])
+	end
+end
+
+function clear_weather(actor,npc,p)
+
+end
+
+function actor_surge_immuned(actor,npc,p)
+	save_var(db.actor,"surge_immuned",p[1] == "true" or nil)
+end
+
+function force_always_online(actor,npc,p)
+	local squad = p[1] and get_story_squad(p[1])
+	if not (squad) then
+		return
+	end
+
+	alife():set_switch_offline(squad.id,false)
+	alife():set_switch_online(squad.id,true)
+end
+
+function set_smart_alarm_status(actor,npc,p)
+	local smart = p[1] and SIMBOARD:get_smart_by_name(p[1])
+	if (smart) then
+		smart:set_alarm()
+	end
+end
+
+function setup_base_defense_fail_conditions(actor,npc,p)
+	save_var(db.actor,"base_defense_level",level.name())
+end
+--// AWR (������� �������� ��������� �� ��������� �������, ���������� ����, �������� UI)
+function awr_timer_msg_off(actor,npc,p)
+	local npc_name = npc:section()
+	if not (db.actor:has_info(string.format("awr_%s_dead", npc_name))) then
+		bind_awr.dout('xr_effects', 'Timer off for %s', npc_name)
+		actor_menu.set_item_news('fail', 'detail', "st_awr_timer_msg_off")
+		bind_awr.Lamp(npc:section(), false)
+		bind_awr.CloseDl()
+		db.actor:disable_info_portion(string.format('awr_%s_access', npc_name))
+	else
+		bind_awr.dout('xr_effects', "NPC %s is dead. Timer ignored", npc_name)
+	end
+end
diff --git a/gamedata/scripts/xrs_debug_tools.script b/gamedata/scripts/xrs_debug_tools.script
new file mode 100644
index 000000000..f5f9e1af0
--- /dev/null
+++ b/gamedata/scripts/xrs_debug_tools.script
@@ -0,0 +1,2115 @@
+--[[
+************************************************************
+					xrs_debug_tools
+by Alundaio
+************************************************************
+
+Copyright (C) 2012 Alundaio
+This work is licensed under a Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License
+--]]
+
+---------------------------------------------------------------------------------------------------------
+-- HOW TO CREATE YOUR OWN HUD TOOL
+--[[ Steps:
+
+1. Add tool name to the toggle rotation for either top hud or left hud. ( ie. { "my_hud" } )
+2. create a show() function with hud name as prefix_ ( ie. local function my_hud_show() )
+3. use the add_msg() class function to add text to your new hud. ( ie. hud:add_msg("Variable",value) )
+4. call display() class function.	( ie. hud:display() )
+5. Optionally set header display ( ie. hud:set_header("-[My Hud Info]-") )
+
+--]]
+---------------------------------------------------------------------------------------------------------
+
+local toggle_hud_list = 	{
+							["right"]  = { "actor_inside_zone_hud","feel_touch_hud","task_hud","squad_info_hud","stalker_info_hud","stalker_data_hud","position_other_hud","position_target_hud","null"},
+							["left"] = { "alife_monitor","inventory_hover_hud","actor_feel_touch_hud","team_squad_group_hud","enemy_hud","weapon_hud","anim_hud","behavior_hud","trader_hud","monster_hud","surge_hud","arena_hud","null"},
+							["top"] = { "position_hud","actor_slot_hud","space_restrictor_hud","npc_memory_hud","npc_info_hud","actor_info_hud","planner_hud","planner_target_hud","gulag_info_hud","wounded_hud","corpse_hud","heli_hud","null"}
+							}
+--------------------------------------------------------------------------------------------------
+
+local toggle_left_key = 1
+local toggle_top_key = 1
+local toggle_right_key = 1
+local debug_ui
+
+-- used for debugging
+NEAREST_STALKER_ID = nil
+
+local developer_debug = true
+local position_file = ""
+
+local keybinds
+actions_by_stalker_ids = nil
+
+local hud_display_top
+local hud_display_left
+local hud_display_right
+local _tmr
+
+local TARGET_HUD_OLD_ID
+
+feature_is_active = nil
+
+local export = false
+
+--
+local s_sub = string.sub
+
+local function main_loop()
+	local tg = time_global()
+	if (_tmr and tg < _tmr) then 
+		return false 
+	end
+	_tmr = tg + 1000
+	
+	if not (db.actor) then
+		return false
+	end
+	
+	if (STEP) then
+		collectgarbage("step",STEP)
+	end
+	
+	if not (hud_display_top) then 
+		hud_display_top = hud_tool("cs_debug")
+		hud_display_left = hud_tool("cop_debug")
+		hud_display_right = hud_tool("cop2_debug")
+	end
+
+	local nearest_stalker = utils_obj.get_nearest_stalker("cam",500)
+	NEAREST_STALKER_ID = nearest_stalker and nearest_stalker:id() or nil
+
+	local top_hud = toggle_hud_list["top"][toggle_top_key]
+	local left_hud = toggle_hud_list["left"][toggle_left_key]
+	local right_hud = toggle_hud_list["right"][toggle_right_key]
+
+	if not(top_hud) or not(left_hud) then return false end
+
+	_G["xrs_debug_tools"][top_hud.."_show"](hud_display_top)
+	_G["xrs_debug_tools"][left_hud.."_show"](hud_display_left)
+	_G["xrs_debug_tools"][right_hud.."_show"](hud_display_right)
+	
+	if export then
+		export = false
+		hud_display_top:export()
+		hud_display_left:export()
+		hud_display_right:export()
+	end
+	
+	
+	
+	return false
+end
+
+CMD = debug_cmd_list.command_get_list()
+
+function CMD.print_debug_hud()
+	export = true
+end
+
+
+function activate_feature()
+	if (feature_is_active) then
+		return 
+	end
+	feature_is_active = true
+	smart_terrain.dbg_hud = true
+	smart_terrain_warfare.dbg_hud = true
+	_G._ALIFE_CACHE_RECORD = true
+	
+	toggle_left_key = axr_main.config:r_value("xrs_debug_tools","toggle_left_key",2,1)
+	toggle_top_key = axr_main.config:r_value("xrs_debug_tools","toggle_top_key",2,1)
+	toggle_right_key = axr_main.config:r_value("xrs_debug_tools","toggle_right_key",2,1)
+	
+	actions_by_stalker_ids = {}
+	for k,v in pairs(_G.xr_actions_id) do
+		actions_by_stalker_ids[v] = k
+	end
+	actions_by_stalker_ids[4294967295] = "undefined"
+	actions_by_stalker_ids[7] = "action_accomplish_task"
+	actions_by_stalker_ids[16] = "action_aim_enemy"
+	actions_by_stalker_ids[88] = "action_alife_planner"
+	actions_by_stalker_ids[90] = "action_anomaly_planner"
+	actions_by_stalker_ids[89] = "action_combat_planner"
+	actions_by_stalker_ids[9] = "action_communicate_with_customer"
+	actions_by_stalker_ids[36] = "action_critically_wounded"
+	actions_by_stalker_ids[73] = "action_danger_by_sound_planner"
+	actions_by_stalker_ids[85] = "action_danger_grenade_look_around"
+	actions_by_stalker_ids[72] = "action_danger_grenade_planner"
+	actions_by_stalker_ids[86] = "action_danger_grenade_search"
+	actions_by_stalker_ids[82] = "action_danger_grenade_take_cover"
+	actions_by_stalker_ids[84] = "action_danger_grenade_take_cover_after_explosion"
+	actions_by_stalker_ids[83] = "action_danger_grenade_wait_for_explosion"
+	actions_by_stalker_ids[80] = "action_danger_in_direction_detour"
+	actions_by_stalker_ids[79] = "action_danger_in_direction_hold_position"
+	actions_by_stalker_ids[78] = "action_danger_in_direction_look_out"
+	actions_by_stalker_ids[71] = "action_danger_in_direction_planner"
+	actions_by_stalker_ids[81] = "action_danger_in_direction_search"
+	actions_by_stalker_ids[77] = "action_danger_in_direction_take_cover"
+	actions_by_stalker_ids[91] = "action_danger_planner"
+	actions_by_stalker_ids[75] = "action_danger_unknown_look_around"
+	actions_by_stalker_ids[70] = "action_danger_unknown_planner"
+	actions_by_stalker_ids[76] = "action_danger_unknown_search"
+	actions_by_stalker_ids[74] = "action_danger_unknown_take_cover"
+	actions_by_stalker_ids[0] = "action_dead"
+	actions_by_stalker_ids[87] = "action_death_planner"
+	actions_by_stalker_ids[25] = "action_detour_enemy"
+	actions_by_stalker_ids[1] = "action_dying"
+	actions_by_stalker_ids[15] = "action_find_ammo"
+	actions_by_stalker_ids[13] = "action_find_item_to_kill"
+	actions_by_stalker_ids[2] = "action_gather_items"
+	actions_by_stalker_ids[24] = "action_get_distance"
+	actions_by_stalker_ids[12] = "action_get_item_to_kill"
+	actions_by_stalker_ids[17] = "action_get_ready_to_kill"
+	actions_by_stalker_ids[23] = "action_hold_position"
+	actions_by_stalker_ids[19] = "action_kill_enemy"
+	actions_by_stalker_ids[29] = "action_kill_enemy_if_not_visible"
+	actions_by_stalker_ids[37] = "action_kill_if_enemy_critically_wounded"
+	actions_by_stalker_ids[35] = "action_kill_if_player_on_the_path"
+	actions_by_stalker_ids[33] = "action_kill_wounded_enemy"
+	actions_by_stalker_ids[22] = "action_look_out"
+	actions_by_stalker_ids[14] = "action_make_item_killing"
+	actions_by_stalker_ids[3] = "action_no_alife"
+	actions_by_stalker_ids[34] = "action_post_combat_wait"
+	actions_by_stalker_ids[32] = "action_prepare_wounded_enemy"
+	actions_by_stalker_ids[8] = "action_reach_customer_location"
+	actions_by_stalker_ids[6] = "action_reach_task_location"
+	actions_by_stalker_ids[30] = "action_reach_wounded_enemy"
+	actions_by_stalker_ids[20] = "action_retreat_from_enemy"
+	actions_by_stalker_ids[92] = "action_script"
+	actions_by_stalker_ids[26] = "action_search_enemy"
+	actions_by_stalker_ids[4] = "action_smart_terrain_task"
+	actions_by_stalker_ids[5] = "action_solve_zone_puzzle"
+	actions_by_stalker_ids[28] = "action_sudden_attack"
+	actions_by_stalker_ids[21] = "action_take_cover"
+	actions_by_stalker_ids[95] = "script_combat_planner"
+	actions_by_stalker_ids[96] = "reach_task_location"
+	actions_by_stalker_ids[142] = "corpse_exist"
+	actions_by_stalker_ids[147] = "wounded_exist"
+	actions_by_stalker_ids[192] = "state_mgr"
+	actions_by_stalker_ids[193] = "state_mgr_to_idle_combat"
+	actions_by_stalker_ids[194] = "state_mgr_to_idle_alife"
+	actions_by_stalker_ids[195] = "state_mgr_to_idle_items"
+	actions_by_stalker_ids[307] = "smartcover_action"
+	actions_by_stalker_ids[343] = "meet_contact"
+	actions_by_stalker_ids[3865] = "action_walker"
+	actions_by_stalker_ids[453] = "action_animpoint"
+	actions_by_stalker_ids[454] = "action_reach_animpoint"
+	actions_by_stalker_ids[xr_actions_id.stohe_camper_base + 1] = "camper_patrol"
+	actions_by_stalker_ids[xr_actions_id.sidor_act_patrol + 1] = "action_commander"
+	--alundaio schemes
+	actions_by_stalker_ids[17000] = "xr_campfire_point"
+	actions_by_stalker_ids[18803] = "rx_ff"
+	actions_by_stalker_ids[18801] = "rx_gl"
+	actions_by_stalker_ids[18815] = "xrs_facer"
+	actions_by_stalker_ids[188111] = "beh"
+	actions_by_stalker_ids[188112] = "kill_wounded"
+	actions_by_stalker_ids[188113] = "script_danger"
+	actions_by_stalker_ids[188114] = "axr_turn_on_campfire"
+	actions_by_stalker_ids[188115] = "axr_stalker_panic"
+	actions_by_stalker_ids[188116] = "axr_radio_in_heli"
+	actions_by_stalker_ids[188117] = "axr_npc_vs_heli"
+	actions_by_stalker_ids[188118] = "axr_fight_from_cover"
+	actions_by_stalker_ids[188119] = "axr_anomaly_planner-action_evade_anom"
+	actions_by_stalker_ids[188120] = "axr_npc_vs_box"
+	actions_by_stalker_ids[90005] = "gather_items"
+	
+	AddUniqueCall(main_loop)
+end 
+
+function deactivate_feature()
+	if not (feature_is_active) then
+		return 
+	end
+	
+	feature_is_active = false
+	smart_terrain.dbg_hud = false
+	smart_terrain_warfare.dbg_hud = false
+	_G._ALIFE_CACHE_RECORD = false
+	
+	RemoveUniqueCall(main_loop)
+	if (hud_display_top) then
+		hud_display_top:clear()
+		hud_display_left:clear()
+		hud_display_right:clear()
+	end
+end
+
+------------------------------------------------------------------------
+-- Class to create hud tools
+class "hud_tool"
+function hud_tool:__init(custom_static)
+	local hud = get_hud() 
+	if (hud) then
+		hud:AddCustomStatic(custom_static,true)
+	end
+	self.custom_static = custom_static
+	self.header = ""
+	self.msg = ""
+end
+
+function hud_tool:add_msg(text,value,...)
+	text = tostring(text)
+	value = tostring(value)
+	self.msg = self.msg..strformat( (text ~= "nil" and text..": %s\\n" or "\\n"), strformat(value ~= nil and value or "",...)  )
+	self.msg = self.msg:sub(1,3000)
+end
+
+function hud_tool:set_header(header)
+	self.header = header
+end
+
+function hud_tool:display(disable)
+	if (disable) then 
+		return 
+	end 
+	
+	local hud = get_hud()
+	local cus = hud and hud:GetCustomStatic(self.custom_static)
+	if (cus) then
+		cus:wnd():TextControl():SetText(self.msg)
+		self.old_msg = self.msg
+		self.msg = self.header and self.header .."\\n" or ""
+	end
+end
+
+function hud_tool:export()
+	local t = str_explode(self.old_msg, '\\n')
+	for i,v in ipairs(t) do
+		printf("%s",v)
+	end
+end
+
+function hud_tool:clear()
+	local hud = get_hud()
+	local cus = hud and hud:GetCustomStatic(self.custom_static)
+	if (cus) then
+		cus:wnd():TextControl():SetText("")
+	end
+end
+
+-- Callback main_menu_on_keyboard
+local function main_menu_on_keyboard(dik,keyboard_action,main_menu,level_present)
+	if keyboard_action ~= ui_events.WINDOW_KEY_RELEASED then return end
+	if (level_present and keybinds["print_position"] and dik == DIK_keys["DIK_"..keybinds["print_position"]]) then
+		--[[
+		if (db.actor) then
+			local lvid, gvid = db.actor:level_vertex_id(), db.actor:game_vertex_id()
+			local pos = db.actor:position()
+			local dir = device().cam_dir
+			local pos2 = level.vertex_position(lvid)
+			local valid = pos2:distance_to(pos) <= 0.7
+			local function write_file(text,...)
+				if not text then return end
+				local debug_file = io.open(position_file,"a+")
+
+				if ( debug_file == nil ) then
+					debug_mode = false
+					return
+				end
+
+				local i = 0
+				local p = {...}
+				local function sr(a)
+					i = i + 1
+					return tostring(p[i])
+				end
+				local output = string.gsub(text,"%%s",sr)
+
+				debug_file:write(output.."\n")
+
+				debug_file:close()
+
+				exec_console_cmd("load ~#I#:"..output)
+			end
+			write_file('pos:%s,%s,%s look:%s,%s,%s',pos.x,pos.y,pos.z,pos.x+dir.x,pos.y,pos.z+dir.z)
+			write_file("position 		= %s,%s,%s",pos.x,pos.y,pos.z)
+			write_file("level_vertex_id = %s",lvid)
+			write_file("game_vertex_id 	= %s",gvid)
+			write_file("direction 		= %s,%s,%s",dir.x,dir.y,dir.z)
+			write_file("direction HP 	= %s,%s",dir:getH(),dir:getP())
+			write_file("direction beh 	= %s,%s,%s",pos.x+dir.x,pos.y,pos.z+dir.z)
+			write_file("valid 			= %s",valid)
+			write_file("where 			= %s",dynamic_news_helper.GetPointDescription(db.actor) or "")
+			write_file("","")
+			main_menu:SetMsg(strformat("Positional data output to %s",position_file),5)
+		end
+		--]]
+	elseif (level_present and keybinds["toggle_top_hud"] and dik == DIK_keys["DIK_"..keybinds["toggle_top_hud"]]) then
+		if ( toggle_top_key < #toggle_hud_list["top"]) then
+			toggle_top_key = toggle_top_key + 1
+		else
+			toggle_top_key = 1
+		end
+		axr_main.config:w_value("xrs_debug_tools","toggle_top_key",toggle_top_key)
+		axr_main.config:save()
+		printf("TOP HUD = %s",toggle_hud_list["top"][toggle_top_key])
+		main_menu:SetMsg(strformat("TOP HUD = %s",toggle_hud_list["top"][toggle_top_key]),5)
+	elseif (level_present and keybinds["toggle_left_hud"] and dik == DIK_keys["DIK_"..keybinds["toggle_left_hud"]]) then
+		if ( toggle_left_key < #toggle_hud_list["left"]) then
+			toggle_left_key = toggle_left_key + 1
+		else
+			toggle_left_key = 1
+		end
+		axr_main.config:w_value("xrs_debug_tools","toggle_left_key",toggle_left_key)
+		axr_main.config:save()
+		printf("LEFT HUD = %s",toggle_hud_list["left"][toggle_left_key])
+		main_menu:SetMsg(strformat("LEFT HUD = %s",toggle_hud_list["left"][toggle_left_key]),5)
+	elseif (level_present and keybinds["toggle_right_hud"] and dik == DIK_keys["DIK_"..keybinds["toggle_right_hud"]]) then
+		if ( toggle_right_key < #toggle_hud_list["right"]) then
+			toggle_right_key = toggle_right_key + 1
+		else
+			toggle_right_key = 1
+		end
+		axr_main.config:w_value("xrs_debug_tools","toggle_right_key",toggle_right_key)
+		axr_main.config:save()
+		printf("right HUD = %s",toggle_hud_list["right"][toggle_right_key])
+		main_menu:SetMsg(strformat("RIGHT HUD = %s",toggle_hud_list["right"][toggle_right_key]),5)
+	elseif keybinds["debug_ui"] and dik == DIK_keys["DIK_"..keybinds["debug_ui"]] then
+		--[[
+		if not (debug_ui) then
+			debug_ui = ui_debug_main and ui_debug_main.debug_ui(main_menu,keybinds)
+		end
+
+		if (debug_ui) then
+			debug_ui:Reinit(level_present)
+			debug_ui:ShowDialog(true)
+			if (main_menu:IsShown()) then
+				main_menu:HideDialog()
+				main_menu:Show(false)
+			end
+		end
+		--]]
+	end
+end
+
+local draw_debug_hud = true
+function set_draw_debug_hud(val)
+	hud_display_top:clear()
+	hud_display_left:clear()
+	hud_display_right:clear()
+	draw_debug_hud = val
+end
+
+------------------------------------------------------------------------------------
+--										GAME START
+function on_game_start()
+	if not (DEV_DEBUG) then 
+		return 
+	end
+
+	if not (keybinds) then 
+		local ini = ini_file("plugins\\xrs_debug_tools.ltx")
+
+		RegisterScriptCallback("main_menu_on_keyboard",main_menu_on_keyboard)
+		RegisterScriptCallback("ActorMenu_on_item_focus_receive",OnItemFocusReceive)
+		
+		local sect = "plugin"
+		position_file = ini:r_string_ex(sect,"file_save_position_info") or "positional_info.txt"
+
+		keybinds = 	{
+						["debug_ui"] = ini:r_string_ex(sect,"keybind_debug_ui","S"),
+						["debug_ui_nearest_stalker"] = ini:r_string_ex(sect,"keybind_debug_ui_nearest_stalker","F1"),
+						["debug_ui_spawn_position"] = ini:r_string_ex(sect,"keybind_debug_ui_spawn_position","F2"),
+						["print_position"] = ini:r_string_ex(sect,"keybind_print_position","P"),
+						["toggle_top_hud"] = ini:r_string_ex(sect,"keybind_toggle_top_hud","1"),
+						["toggle_left_hud"] = ini:r_string_ex(sect,"keybind_toggle_left_hud","2"),
+						["toggle_right_hud"] = ini:r_string_ex(sect,"keybind_toggle_right_hud","3")
+					}
+	end
+	
+	if (ui_options.get("other/debug_hud") and level.present()) then
+		activate_feature()
+	end
+end 
+
+-- NPC target for hud display ( nil = off )
+local DEBUG_NPC_ID
+function set_debug_npc(id)
+	DEBUG_NPC_ID = id and db.storage[id] and db.storage[id].object and id or nil
+end
+
+function get_debug_npc()
+	if (DEBUG_NPC_ID and db.storage[DEBUG_NPC_ID] and db.storage[DEBUG_NPC_ID].object) then 
+		return db.storage[DEBUG_NPC_ID].object
+	end
+
+	local obj = get_target_at_cursor()
+	if (obj and obj.clsid) and IsStalker(obj) then
+		return db.storage[obj:id()] and db.storage[obj:id()].object
+	end
+	
+	return NEAREST_STALKER_ID and db.storage[NEAREST_STALKER_ID] and db.storage[NEAREST_STALKER_ID].object
+end
+
+function get_target_at_cursor()
+	if (level.get_target_obj) then
+		return level.get_target_obj()
+	end
+end
+
+function space_restrictor_hud_show(hud)
+	for k,v in pairs(db.storage) do 
+		if (v.object and tostring(v.active_section) ~= "nil") then 
+			hud:add_msg(v.object:name(),strformat("ID=%s Section=%s",v.object:id(),v.active_section))
+		end
+	end
+	hud:set_header("-[SpaceRestrictors]-")
+	hud:display()
+end 
+
+function simboard_hud_show(hud)
+	local populations = {}
+	local smart
+	for community,t in pairs(sim_board.smart_bases) do
+		for smart_name,v in pairs(t) do
+			smart = SIMBOARD.smarts_by_names[smart_name]
+			if (smart) then
+				if not (populations[community]) then 
+					populations[community] = {}
+					populations[community].population = 0
+					populations[community].max_population = 0
+				end
+				if (SIMBOARD.smarts[smart.id]) then
+					populations[community].population = populations[community].population + SIMBOARD.smarts[smart.id].population
+				end
+				populations[community].max_population = populations[community].max_population + smart.max_population
+			end
+		end
+	end
+	
+	hud:add_msg("-----Totals-----")
+	for k,v in pairs(populations) do 
+		hud:add_msg(k,strformat("%s of %s",v.population,v.max_population))
+	end
+	
+	populations = {}
+	for community,t in pairs(sim_board.smart_bases) do
+		for smart_name,v in pairs(t) do
+			smart = SIMBOARD.smarts_by_names[smart_name]
+			if (smart and SIMBOARD.smarts[smart.id]) then
+				if not (populations[community]) then 
+					populations[community] = {}
+					populations[community].population = 0
+					populations[community].max_population = 0
+				end
+				if (SIMBOARD.smarts[smart.id]) then
+					populations[community].population = populations[community].population + SIMBOARD.smarts[smart.id].population
+				end
+				populations[community].max_population = populations[community].max_population + smart.max_population
+			end
+		end
+	end
+	
+	hud:add_msg("-----Linked Levels Only-----")
+	for k,v in pairs(populations) do 
+		hud:add_msg(k,strformat("%s of %s",v.population,v.max_population))
+	end
+	
+	hud:set_header("-[Simboard Info]-")
+	hud:display()
+end 
+
+local tg_am = 0
+function alife_monitor_show(hud)
+	if (tg_am < time_global()) then
+		tg_am = time_global() + 60000
+		alife_first_update()
+	end
+	
+	hud:add_msg("Server objects count",_ALIFE_CNT)
+	hud:add_msg("","--------------------------")
+	hud:add_msg("Listed", #_ALIFE_CACHE)
+	hud:add_msg("","--------------------------")
+	for i=1,25 do
+		if _ALIFE_CACHE[i] then
+			local str = s_sub(_ALIFE_CACHE[i],1,1)
+			hud:add_msg(str == "+" and "[+]" or "[-]", s_sub(_ALIFE_CACHE[i],2))
+		end
+	end
+	hud:set_header("-[Alife Monitor]-")
+	hud:display()
+end
+
+function trader_hud_show(hud)
+	local function get_nearest_trader(npc)
+		local mon
+		local dist
+		local nearest_stalker,nearest_dist
+		local pos
+		local st
+		for id,st in pairs(db.storage) do
+			mon = st.object or level.object_by_id(id)
+			if (mon and mon.clsid and mon:clsid() == clsid.script_trader) then
+				pos = npc == "cam" and device().cam_pos or mon:position()
+				dist = pos:distance_to_sqr(mon:position())
+				if not (nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = mon
+				end
+
+				if (dist < nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = mon
+				end
+			end
+		end
+		return nearest_stalker,nearest_dist
+	end
+
+	local near = get_nearest_trader("cam")
+	if (near and near:alive()) then
+		st = db.storage[near:id()]
+		if (st) then
+			hud:add_msg("Section Name",near:section())
+			hud:add_msg("ID",near:id())
+			hud:add_msg("Name",near:name())
+			hud:add_msg("Visual",near:get_visual_name())
+			--hud:add_msg("Health",math.floor(near.health*100))
+			hud:add_msg("SID",get_object_story_id(near:id()))
+			hud:add_msg("A.Scheme",st.active_scheme)
+			hud:add_msg("A.Section",st.active_section)
+			hud:add_msg("Logic",st.section_logic)
+			hud:add_msg("Ini",st.ini_filename)
+		end
+	end
+	hud:set_header("-[Trader Info]-")
+	hud:display()
+end
+
+
+function heli_hud_show(hud)
+	local function get_nearest_heli(npc)
+		local mon
+		local dist
+		local nearest_stalker,nearest_dist
+		local pos
+		local st
+		for id,st in pairs(db.storage) do
+			mon = st.object or level.object_by_id(id)
+			if (mon and IsHelicopter(mon)) then
+				pos = npc == "cam" and device().cam_pos or mon:position()
+				dist = pos:distance_to_sqr(mon:position())
+				if not (nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = mon
+				end
+
+				if (dist < nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = mon
+				end
+			end
+		end
+		return nearest_stalker,nearest_dist
+	end
+
+	local near = get_nearest_heli("cam")
+	if (near) then
+		hud:add_msg("Name",near:name())
+		local st = db.storage[near:id()]
+		if (st) then 
+			hud:add_msg("A.Scheme",st.active_scheme)
+			hud:add_msg("A.Section",st.active_section)
+			hud:add_msg("Logic",st.section_logic)
+			hud:add_msg("Ini",st.ini_filename)
+			
+			local sim = alife()
+			local se_heli = sim:object(near:id())
+			if (se_heli) then
+				local assigned_target = se_heli.assigned_target_id and sim:object(se_heli.assigned_target_id)
+				if (assigned_target) then 
+					hud:add_msg("Assigned Target",assigned_target:name())
+				end
+			
+				local current_target = se_heli.current_target_id and (se_heli.current_target_id == se_heli.assigned_target_id and assigned_target or sim:object(se_heli.current_target_id))
+				if (current_target) then 
+					hud:add_msg("Current Target",current_target:name())
+				end
+				
+				if (se_heli.current_action) then 
+					hud:add_msg("Current Action",se_heli.current_action == 0 and "Stay Point" or "Reach Target")
+					if (se_heli.current_action == 0 and se_heli.stay_point_idle) then 
+						hud:add_msg("Stay Time",1800 - game.get_game_time():diffSec(se_heli.stay_point_idle))
+					end
+				end
+				
+				local smart = se_heli.m_smart_terrain_id and alife_object(se_heli.m_smart_terrain_id)
+				if (smart) then 
+					hud:add_msg("Smart",smart:name())
+					local npc_info = smart.npc_info[se_heli.id]
+					if (npc_info) then 
+						hud:add_msg("itr",npc_info.current_index)
+						if (npc_info.job) then 
+							hud:add_msg("Job",npc_info.job.section)
+						end
+					end
+				end
+			end
+			
+			if (st.enemy_id) then
+				local enemy = st.enemy_id and db.storage[st.enemy_id] and db.storage[st.enemy_id].object
+				hud:add_msg("Enemy",enemy and enemy:name())
+			end
+			
+			local heli_enemy_flag = load_var(db.actor,"heli_enemy_flag",false)
+			if (heli_enemy_flag) then 
+				hud:add_msg("ActorFlaggedEnemy",heli_enemy_flag)
+			end
+			
+			if (st.combat and st.combat.combat_type) then
+				local ct = {
+							[0] = "flyby",
+							[1] = "round",
+							[2] = "search",
+							[3] = "retreat"
+							}
+				hud:add_msg("Combat Type",ct[st.combat.combat_type])
+				
+				if (st.combat.combat_type == 0) then
+					ct = {  [0] = "flyby_state_to_attack_dist",
+							[1] = "flyby_state_to_enemy"
+					}
+					hud:add_msg("Flyby State",ct[st.combat.state])
+					hud:add_msg("flyby_states_for_one_pass",st.combat.flyby_states_for_one_pass)
+				end
+			end
+		end
+	end
+	
+	hud:add_msg("------------")
+	
+	if (smart_terrain.nearest_to_actor_smart and smart_terrain.nearest_to_actor_smart.id) then
+		local smart = alife_object(smart_terrain.nearest_to_actor_smart.id)
+		if (smart) then
+			local npc,job,sec
+			if (smart.heli_jobs) then 
+				for i=1,#smart.heli_jobs do
+					job = smart.heli_jobs[i]
+					sec = string.gsub(job.section,"logic@","")
+					hud:add_msg("["..i.."]",strformat("'%s' | %s",sec,smart.npc_by_job_section[job.section] or "empty"))
+				end
+			end 
+		end
+	end
+	
+	hud:set_header("-[Helicopter Info]-")
+	hud:display()
+end 
+
+function monster_hud_show(hud)
+	local function get_nearest_monster(npc)
+		local mon
+		local dist
+		local nearest_stalker,nearest_dist
+		local pos
+		local st
+		for id,st in pairs(db.storage) do
+			mon = st.object or level.object_by_id(id)
+			if (mon and IsMonster(mon) and mon:alive()) then
+				pos = npc == "cam" and device().cam_pos or mon:position()
+				dist = pos:distance_to_sqr(mon:position())
+				if not (nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = mon
+				end
+
+				if (dist < nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = mon
+				end
+			end
+		end
+		return nearest_stalker,nearest_dist
+	end
+
+	local near = get_nearest_monster("cam")
+	if (near and near:alive()) then
+		st = db.storage[near:id()]
+		local sobj = alife_object(near:id())
+		if not (sobj) then 
+			return 
+		end
+
+		hud:add_msg("Section Name",sobj:section_name())
+		hud:add_msg("ID",near:id())
+		if (sobj.parent_id and sobj.parent_id ~= 65535) then 
+			hud:add_msg("Parent ID",sobj.parent_id)
+		end
+		--hud:add_msg("Name",near:name())
+		hud:add_msg("Rank",ranks.get_obj_rank_name(near))
+		hud:add_msg("Visual",near:get_visual_name())
+		hud:add_msg("Health",math.floor(near.health*100))
+		hud:add_msg("FOV",near:fov())
+		hud:add_msg("Range",near:range())
+		hud:add_msg("SID",get_object_story_id(near:id()))
+		hud:add_msg("A.Scheme",st.active_scheme)
+		hud:add_msg("A.Section",st.active_section)
+		hud:add_msg("Logic",st.section_logic)
+		hud:add_msg("Ini",st.ini_filename)
+		local be = near:best_enemy()
+		hud:add_msg("Best Enemy",be and be:name())
+		
+		if (st.overrides and st.overrides.combat_ignore) then
+			hud:add_msg("CombatIgnoreCond",xr_logic.pick_section_from_condlist(be, near, st.overrides.combat_ignore.condlist))
+		end
+		
+		be = near:get_enemy()
+		hud:add_msg("Enemy",be and be:name())
+		
+		if (st.overrides and st.overrides.combat_ignore and be) then
+			hud:add_msg("CombatIgnoreCond",xr_logic.pick_section_from_condlist(be, near, st.overrides.combat_ignore.condlist))
+		end
+
+		local smart = sobj.m_smart_terrain_id and sobj.m_smart_terrain_id ~= 65535 and alife_object(sobj.m_smart_terrain_id)
+		local npc_info = smart and smart.npc_info[near:id()]
+		if (npc_info) then 
+			if (npc_info.job) then
+				local jobinfo = strformat("section=%s prior=%s exclusive=%s itr=%s",npc_info.job.section,gulag_general.get_job_prior(npc_info.job),npc_info.job.exclusive,npc_info.current_index)
+				hud:add_msg("Job",jobinfo)
+			else 
+				local jobinfo = strformat("no job itr=%s",npc_info.current_index)
+				hud:add_msg("Job",jobinfo)
+			end
+		else 
+			hud:add_msg("No npc_info present")
+		end
+	end
+	hud:set_header("-[Monster Info]-")
+	hud:display()
+end
+
+function position_other_hud_show(hud)
+	local obj = get_debug_npc()
+
+	hud:set_header("-[Pos. Info]-")
+	if (obj and obj:alive()) then
+		local se_obj = alife_object(obj:id())
+		if (se_obj) then
+			local lvid, gvid = obj:level_vertex_id(), obj:game_vertex_id()
+			local pos = obj:position()
+			local dir = obj:direction()
+			local angle = se_obj.angle
+			local pos2 = level.vertex_position(lvid)
+			local valid = pos2:distance_to(pos) <= 0.7
+
+			hud:add_msg("Name",obj:name())
+			hud:add_msg("Visual",obj:get_visual_name())
+			local dist = level.get_target_dist and level.get_target_dist()
+			if (dist) then
+				hud:add_msg("Distance",string.format("%0.3f",dist))
+			end
+			hud:add_msg("Lvid",lvid)
+			hud:add_msg("Gvid",gvid)
+			hud:add_msg("Pos",string.format("%0.3f, %0.3f, %0.3f", pos.x, pos.y, pos.z))
+			hud:add_msg("Dir",string.format("%0.3f, %0.3f, %0.3f HP (%0.3f, %0.3f)", dir.x, dir.y, dir.z,dir:getH(),dir:getP()))
+			hud:add_msg("Angle",angle and string.format("%0.3f, %0.3f, %0.3f", angle.x, angle.y, angle.z))
+			hud:add_msg("Valid",valid)
+		end
+
+		hud:display()
+	end
+end
+
+function position_target_hud_show(hud)
+	hud:set_header("-[Target Position Info]-")
+	local obj = level.get_target_obj()
+	if not obj then 
+		obj = TARGET_HUD_OLD_ID and level.object_by_id(TARGET_HUD_OLD_ID)
+	end
+	
+	if (obj) then
+		local se_obj = alife_object(obj:id())
+		TARGET_HUD_OLD_ID = obj:id()
+		if (se_obj) then
+			local lvid, gvid = obj:level_vertex_id(), obj:game_vertex_id()
+			local pos = obj:position()
+			local dir = obj:direction()
+			local angle = se_obj.angle
+			local pos2 = level.vertex_position(lvid)
+			local valid = pos2:distance_to(pos) <= 0.7
+
+			hud:add_msg("Name",obj:name())
+			hud:add_msg("Section",obj:section())
+			hud:add_msg("Visual",obj:get_visual_name())
+			local dist = level.get_target_dist and level.get_target_dist()
+			if (dist) then
+				hud:add_msg("Distance",string.format("%0.3f",dist))
+			end
+			hud:add_msg("Lvid",lvid)
+			hud:add_msg("Gvid",gvid)
+			hud:add_msg("Pos",string.format("%0.3f, %0.3f, %0.3f", pos.x, pos.y, pos.z))
+			hud:add_msg("----------")
+			hud:add_msg("Lvid from pos",level.vertex_id(pos))
+			hud:add_msg("Pos from vertex",string.format("%0.3f, %0.3f, %0.3f", pos2.x, pos2.y, pos2.z))
+			hud:add_msg("----------")
+			hud:add_msg("Dir",string.format("%0.3f, %0.3f, %0.3f HP (%0.3f, %0.3f)", dir.x, dir.y, dir.z,dir:getH(),dir:getP()))
+			hud:add_msg("Angle",angle and string.format("%0.3f, %0.3f, %0.3f", angle.x, angle.y, angle.z))
+			hud:add_msg("Valid",valid)
+		end
+
+		hud:display()
+	end
+end
+
+function wounded_hud_show(hud)
+	local obj = get_debug_npc()
+	hud:set_header("-[Wound Info]-")
+	if (obj and obj:alive()) then
+		hud:add_msg("Name",obj:name())
+		local st = db.storage[obj:id()]
+		if (st) then
+			local tg = time_global()
+			if (xr_wounded.is_wounded(obj)) then
+				hud:add_msg("help_wounded helper id",st.wounded_already_selected)
+			end
+
+			if (st.help_wounded) then
+				local vo = st.help_wounded.selected_id and level.object_by_id(st.help_wounded.selected_id)
+				hud:add_msg("help_wounded Victim",vo and vo:name())
+				hud:add_msg("help_wounded Vertex",st and st.help_wounded.vertex_id)
+				hud:add_msg("help_wounded Stage",st and st.help_wounded.stage)
+			end
+			if (st.kill_wounded) then
+				local vo = st.kill_wounded.current_id and level.object_by_id(st.kill_wounded.current_id)
+				hud:add_msg("kill_wounded Victim",vo and vo:name())
+				hud:add_msg("kill_wounded Timer",st.kill_wounded.timer and st.kill_wounded.timer - tg)
+				hud:add_msg("kill_wounded Weapon",st.kill_wounded.weapon and st.kill_wounded.weapon:name())
+			end
+
+			if (st.victim_surrender) then
+				local po = level.object_by_id(st.victim_surrender)
+				hud:add_msg("Surrender to",po and po:name())
+			end
+
+
+		end
+	end
+
+	hud:display()
+end
+
+local hover_item_id
+function OnItemFocusReceive(itm)
+	hover_item_id = itm:id()
+end
+
+function inventory_hover_hud_show(hud)
+	hud:set_header("-[HOVER]-")
+	local itm = hover_item_id and level.object_by_id(hover_item_id)
+	hud:add_msg("section", itm and itm:section())
+	hud:add_msg("condition", itm and itm:condition())
+	hud:add_msg("cost", itm and ini_sys:r_float_ex(itm:section(),"cost"))
+	hud:add_msg("cost*condition", itm and itm:condition() * ini_sys:r_float_ex(itm:section(),"cost"))
+	hud:display()
+end
+
+function actor_feel_touch_hud_show(hud)
+	hud:set_header("-[ACTOR FEEL TOUCH]-")
+	local obj = level.get_target_obj()
+	if (obj) then 
+		hud:add_msg("Object At Cursor",strformat("ID=%s Name=%s",obj:id(),obj:name()))
+	end
+	
+	hud:add_msg("------------")
+	
+	if (db.actor and db.actor:alive()) then
+		local itr = function(id)
+			local o = id and alife_object(id)
+			if (o) then
+				hud:add_msg("-",strformat("ID=%s Name=%s",id,o:name()))
+			end
+		end
+		db.actor:iterate_feel_touch(itr)
+	end
+	hud:display()
+end 
+
+function actor_inside_zone_hud_show(hud)
+	hud:set_header("-[ACTOR INSIDE ZONE INFO]-")
+	if (db.actor and db.actor:alive()) then
+		-- local itr = function(id)
+			-- local st = id and db.storage[id]
+			-- local o = st and st.object 
+			-- if (o and o:cast_SpaceRestrictor()) then
+				-- hud:add_msg(o:name(),strformat("ID=%s Section=%s",id,st.active_section))
+			-- end
+		-- end
+		-- db.actor:iterate_feel_touch(itr)
+		for name,zone in pairs(db.actor_inside_zones) do
+			local st = db.storage[zone:id()]
+			hud:add_msg(zone:name(),strformat("ID=%s Section=%s",zone:id(),st and st.active_section))
+		end
+	end
+	hud:display()
+end 
+local stalker_id
+local stalker_data = {}
+
+function feel_touch_hud_show(hud)
+	local obj = get_debug_npc()
+	hud:set_header(strformat("-[FEEL TOUCH for %s]-",obj and obj:name()))
+	if (obj and obj:alive()) then
+		local itr = function(id)
+			local o = id and alife_object(id)
+			if (o) then
+				hud:add_msg("",strformat("ID=%s Name=%s",id,o:name()))
+			end
+		end
+		obj:iterate_feel_touch(itr)
+	end
+	
+	hud:display()
+end 
+
+function stalker_data_hud_show(hud)
+	local obj = get_debug_npc()
+	hud:set_header("-[Stalker Packet Data]-")
+	if (obj and obj:alive()) then
+		if (stalker_id ~= obj:id()) then
+			stalker_id = obj:id()
+			local se_obj = alife_object(stalker_id)
+			if not (se_obj) then 
+				return 
+			end
+			--utils_obj.switch_offline(se_obj.id)
+			stalker_data = utils_stpk.get_stalker_data(se_obj)
+			--utils_obj.switch_online(se_obj.id)
+		end
+		hud:add_msg("Character Name",stalker_data.character_name)
+		hud:add_msg("Spec Char",stalker_data.specific_character)
+		hud:add_msg("Profile",stalker_data.character_profile)
+		hud:add_msg("Money",stalker_data.money)
+		hud:add_msg("Community Index",stalker_data.community_index)
+		hud:add_msg("Reputation",stalker_data.reputation)
+		hud:add_msg("Rank",stalker_data.rank)
+		hud:add_msg("trader_unk1_u8",stalker_data.cse_alife_trader_abstract__unk1_u8)
+		hud:add_msg("trader_unk2_u8",stalker_data.cse_alife_trader_abstract__unk2_u8)
+		hud:add_msg("unk1_f32",stalker_data.cse_alife_object__unk1_f32)
+		hud:add_msg("unk2_u32",stalker_data.cse_alife_object__unk2_u32)
+		hud:add_msg("unk3_u32",stalker_data.cse_alife_object__unk3_u32)
+		hud:add_msg("Skeleton",stalker_data.skeleton_name)
+		hud:add_msg("Skel. Flag",stalker_data.skeleton_flag)
+		hud:add_msg("Source ID",stalker_data.source_id)
+		hud:add_msg("Custom Data",stalker_data.custom_data)
+		hud:add_msg("Visual",stalker_data.visual_name)
+		hud:add_msg("Vis. Flags",stalker_data.visual_flags)
+		hud:add_msg("team,squad,group",string.format("%d, %d, %d", stalker_data.g_team, stalker_data.g_squad, stalker_data.g_group))
+		--[[
+		hud:add_msg("Out Rest.",#stalker_data.dynamic_out_restrictions)
+		for k,v in ipairs(stalker_data.dynamic_out_restrictions) do
+			hud:add_msg(k,v)
+		end
+		hud:add_msg("In Rest.",#stalker_data.dynamic_in_restrictions)
+		for k,v in ipairs(stalker_data.dynamic_in_restrictions) do
+			hud:add_msg(k,v)
+		end
+		--]]
+		hud:add_msg("Equip. Pref.",#stalker_data.equipment_preferences)
+		for k,v in ipairs(stalker_data.equipment_preferences) do
+			hud:add_msg(k,v)
+		end
+		--hud:add_msg("Equipment Pref.",stalker_data.equipment_preferences)
+		hud:add_msg("Weapon Pref.",#stalker_data.weapon_preferences)
+		for k,v in ipairs(stalker_data.weapon_preferences) do
+			hud:add_msg(k,v)
+		end
+		hud:add_msg("Out Rest.",stalker_data.base_out_restrictors)
+		hud:add_msg("In Rest.",stalker_data.base_in_restrictors)
+		hud:add_msg("luminocity_hemi",obj.get_luminocity_hemi and obj:get_luminocity_hemi())
+		hud:add_msg("luminocity",obj.get_luminocity and obj:get_luminocity())
+	end
+	hud:display()
+end
+
+local function r_seq(count, stpk)
+	local seq = {}
+
+	for i = 1, count do
+		seq[i] = stpk:r_stringZ()
+	end
+
+	return seq
+end
+
+function planner_hud_show(hud)
+	local obj = get_debug_npc()
+	hud:set_header("-[Planner Info]-")
+	if (obj and obj:id() ~= 0 and obj:alive()) then
+		hud:add_msg("Name",obj:name())
+		
+		local manager = obj.motivation_action_manager and obj:motivation_action_manager()
+		hud:add_msg("motivation_action_manager",manager == nil and "doesn't exist!" or manager:initialized())
+		
+		if (manager and manager:initialized()) then
+			local s = obj:sight_params()
+			if (s) then 
+				local t = {
+					[0] = "look.cur_dir",
+					[5] = "look.danger",
+					[2] = "look.direction",
+					[10] = "look.fire_point",
+					[1] = "look.path_dir",
+					[3] = "look.point",
+					[6] = "look.search"
+					}
+	
+				hud:add_msg("Sight Type",s.m_sight_type and t[s.m_sight_type] or m_object and m_object:name())
+			end
+
+			local actid = manager:current_action_id()
+			local name = "script"
+			if (actid and actid < 4294967295) then
+				name = actions_by_stalker_ids[actid] or "script"
+				hud:add_msg("Mgr. Act",name)
+				hud:add_msg("Mgr. Act ID",actid)
+			end
+			
+			local combat_action = manager:action(stalker_ids.action_combat_planner)
+			local combat_action_planner = cast_planner(combat_action)
+			actid = combat_action_planner and combat_action_planner:initialized() and combat_action_planner:current_action_id()
+			if (actid and actid < 4294967295) then
+				name = actions_by_stalker_ids[actid] or "unknown"
+				hud:add_msg("Combat Act",name)
+				hud:add_msg("Combat Act ID",actid)
+				hud:add_msg("time in act",time_in_act)
+			end
+
+			local danger_action = manager:action(stalker_ids.action_danger_planner)
+			local danger_action_planner = cast_planner(danger_action)
+			actid = danger_action_planner and danger_action_planner:initialized() and danger_action_planner:current_action_id()
+			if (actid and actid < 4294967295) then
+				name = actions_by_stalker_ids[actid] or "unknown"
+				hud:add_msg("Danger Act",name)
+				hud:add_msg("Danger Act ID",actid)
+			end
+
+			local alife_action = manager:action(stalker_ids.action_alife_planner)
+			local alife_action_planner = cast_planner(alife_action)
+			actid = alife_action_planner and alife_action_planner:initialized() and alife_action_planner:current_action_id()
+			if (actid and actid < 4294967295) then
+				name = actions_by_stalker_ids[actid] or "unknown"
+				hud:add_msg("Alife Act",name)
+				hud:add_msg("Alife Act ID",actid)
+			end
+			
+			-- local anomaly_action = manager:action(stalker_ids.action_anomaly_planner)
+			-- local anomaly_action_planner = cast_planner(anomaly_action)
+			-- actid = anomaly_action_planner and anomaly_action_planner:initialized() and anomaly_action_planner:current_action_id()
+			-- if (actid and actid < 4294967295) then
+			-- 	name = actions_by_stalker_ids[actid] or "unknown"
+			-- 	hud:add_msg("Alife Act",name)
+			-- 	hud:add_msg("Alife Act ID",actid)
+			-- end
+			-- 
+			-- hud:add_msg("Inside Anomaly",anomaly_action_planner:evaluator(stalker_ids.property_inside_anomaly):evaluate())
+			
+			local st = db.storage[obj:id()]
+			if (st) then
+				local sm = st.state_mgr
+				if (sm and sm.planner and sm.planner:initialized()) then
+					hud:add_msg("alife",sm.alife)
+					hud:add_msg("combat",sm.combat)
+					hud:add_msg("locked",sm.planner:evaluator(state_mgr_goap.properties["locked"]):evaluate())
+					hud:add_msg("locked_external",sm.planner:evaluator(state_mgr_goap.properties["locked_external"]):evaluate())
+					hud:add_msg("Weapon Locked",sm.planner:evaluator(state_mgr_goap.properties["weapon_locked"]):evaluate())
+					hud:add_msg("Animstate Locked",sm.planner:evaluator(state_mgr_goap.properties["animstate_locked"]):evaluate())
+					hud:add_msg("Animation Locked",sm.planner:evaluator(state_mgr_goap.properties["animation_locked"]):evaluate())
+					hud:add_msg("Smartcover Locked",sm.planner:evaluator(state_mgr_goap.properties["in_smartcover"]):evaluate())
+					hud:add_msg("End",sm.planner:evaluator(state_mgr_goap.properties["end"]):evaluate())
+					hud:add_msg("Weapon",sm.planner:evaluator(state_mgr_goap.properties["weapon"]):evaluate())
+					hud:add_msg("Movement",sm.planner:evaluator(state_mgr_goap.properties["movement"]):evaluate())
+					hud:add_msg("Mental",sm.planner:evaluator(state_mgr_goap.properties["mental"]):evaluate())
+					hud:add_msg("BodyState",sm.planner:evaluator(state_mgr_goap.properties["bodystate"]):evaluate())
+					hud:add_msg("Direction",sm.planner:evaluator(state_mgr_goap.properties["direction"]):evaluate())
+					hud:add_msg("Animstate",sm.planner:evaluator(state_mgr_goap.properties["animstate"]):evaluate())
+					hud:add_msg("Animation",sm.planner:evaluator(state_mgr_goap.properties["animation"]):evaluate()) 
+					hud:add_msg("Smartcover",sm.planner:evaluator(state_mgr_goap.properties["smartcover"]):evaluate())
+					hud:add_msg("Animstate Marker",sm.animstate.states.anim_marker)
+					hud:add_msg("Animation Marker",sm.animation.states.anim_marker)
+					
+				end
+			end
+		end
+	end
+	hud:display()
+end
+
+function planner_target_hud_show(hud)
+	hud:set_header("-[Target Planner Info]-")
+	
+	local obj = level.get_target_obj()
+	if not obj or (obj and not IsStalker(obj)) then 
+		obj = TARGET_HUD_OLD_ID and level.object_by_id(TARGET_HUD_OLD_ID)
+	end
+	
+	if (obj and IsStalker(obj) and obj:id() ~= 0 and obj:alive()) then
+	
+		TARGET_HUD_OLD_ID = obj:id()
+		hud:add_msg("Name",obj:name())
+		
+		local manager = obj.motivation_action_manager and obj:motivation_action_manager()
+		hud:add_msg("motivation_action_manager",manager == nil and "doesn't exist!" or manager:initialized())
+		
+		if (manager and manager:initialized()) then
+			local s = obj:sight_params()
+			if (s) then 
+				local t = {
+					[0] = "look.cur_dir",
+					[5] = "look.danger",
+					[2] = "look.direction",
+					[10] = "look.fire_point",
+					[1] = "look.path_dir",
+					[3] = "look.point",
+					[6] = "look.search"
+					}
+	
+				hud:add_msg("Sight Type",s.m_sight_type and t[s.m_sight_type] or m_object and m_object:name())
+			end
+
+			local actid = manager:current_action_id()
+			local name = "script"
+			if (actid and actid < 4294967295) then
+				name = actions_by_stalker_ids[actid] or "script"
+				hud:add_msg("Mgr. Act",name)
+				hud:add_msg("Mgr. Act ID",actid)
+			end
+			
+			local combat_action = manager:action(stalker_ids.action_combat_planner)
+			local combat_action_planner = cast_planner(combat_action)
+			actid = combat_action_planner and combat_action_planner:initialized() and combat_action_planner:current_action_id()
+			if (actid and actid < 4294967295) then
+				name = actions_by_stalker_ids[actid] or "unknown"
+				hud:add_msg("Combat Act",name)
+				hud:add_msg("Combat Act ID",actid)
+			end
+
+			local danger_action = manager:action(stalker_ids.action_danger_planner)
+			local danger_action_planner = cast_planner(danger_action)
+			actid = danger_action_planner and danger_action_planner:initialized() and danger_action_planner:current_action_id()
+			if (actid and actid < 4294967295) then
+				name = actions_by_stalker_ids[actid] or "unknown"
+				hud:add_msg("Danger Act",name)
+				hud:add_msg("Danger Act ID",actid)
+			end
+
+			local alife_action = manager:action(stalker_ids.action_alife_planner)
+			local alife_action_planner = cast_planner(alife_action)
+			actid = alife_action_planner and alife_action_planner:initialized() and alife_action_planner:current_action_id()
+			if (actid and actid < 4294967295) then
+				name = actions_by_stalker_ids[actid] or "unknown"
+				hud:add_msg("Alife Act",name)
+				hud:add_msg("Alife Act ID",actid)
+			end
+			
+			-- local anomaly_action = manager:action(stalker_ids.action_anomaly_planner)
+			-- local anomaly_action_planner = cast_planner(anomaly_action)
+			-- actid = anomaly_action_planner and anomaly_action_planner:initialized() and anomaly_action_planner:current_action_id()
+			-- if (actid and actid < 4294967295) then
+			-- 	name = actions_by_stalker_ids[actid] or "unknown"
+			-- 	hud:add_msg("Alife Act",name)
+			-- 	hud:add_msg("Alife Act ID",actid)
+			-- end
+			-- 
+			-- hud:add_msg("Inside Anomaly",anomaly_action_planner:evaluator(stalker_ids.property_inside_anomaly):evaluate())
+			
+			local st = db.storage[obj:id()]
+			if (st) then
+				local sm = st.state_mgr
+				if (sm and sm.planner and sm.planner:initialized()) then
+					hud:add_msg("alife",sm.alife)
+					hud:add_msg("combat",sm.combat)
+					hud:add_msg("locked",sm.planner:evaluator(state_mgr_goap.properties["locked"]):evaluate())
+					hud:add_msg("locked_external",sm.planner:evaluator(state_mgr_goap.properties["locked_external"]):evaluate())
+					hud:add_msg("Weapon Locked",sm.planner:evaluator(state_mgr_goap.properties["weapon_locked"]):evaluate())
+					hud:add_msg("Animstate Locked",sm.planner:evaluator(state_mgr_goap.properties["animstate_locked"]):evaluate())
+					hud:add_msg("Animation Locked",sm.planner:evaluator(state_mgr_goap.properties["animation_locked"]):evaluate())
+					hud:add_msg("Smartcover Locked",sm.planner:evaluator(state_mgr_goap.properties["in_smartcover"]):evaluate())
+					hud:add_msg("End",sm.planner:evaluator(state_mgr_goap.properties["end"]):evaluate())
+					hud:add_msg("Weapon",sm.planner:evaluator(state_mgr_goap.properties["weapon"]):evaluate())
+					hud:add_msg("Movement",sm.planner:evaluator(state_mgr_goap.properties["movement"]):evaluate())
+					hud:add_msg("Mental",sm.planner:evaluator(state_mgr_goap.properties["mental"]):evaluate())
+					hud:add_msg("BodyState",sm.planner:evaluator(state_mgr_goap.properties["bodystate"]):evaluate())
+					hud:add_msg("Direction",sm.planner:evaluator(state_mgr_goap.properties["direction"]):evaluate())
+					hud:add_msg("Animstate",sm.planner:evaluator(state_mgr_goap.properties["animstate"]):evaluate())
+					hud:add_msg("Animation",sm.planner:evaluator(state_mgr_goap.properties["animation"]):evaluate()) 
+					hud:add_msg("Smartcover",sm.planner:evaluator(state_mgr_goap.properties["smartcover"]):evaluate())
+					hud:add_msg("Animstate Marker",sm.animstate.states.anim_marker)
+					hud:add_msg("Animation Marker",sm.animation.states.anim_marker)
+					
+				end
+			end
+		end
+	end
+	hud:display()
+end
+
+function arena_hud_show(hud) 
+	hud:set_header("-[Arena Debugger]-")
+	for name,zone in pairs(db.zone_by_name) do 
+		if (string.find(name,"arena")) then 
+			local st = db.storage[zone:id()]
+			if (st and st.active_section and st.active_section ~= "nil") then
+				hud:add_msg(zone:name(),strformat("ini=%s active_section=%s",st.ini_filename ~= "<custom_data>" and st.ini_filename or "",st.active_section))
+			end
+		end
+	end
+	
+	hud:display()
+end
+
+function surge_hud_show(hud)
+	hud:set_header("-[Emissions Debugger]-")
+	local sm = surge_manager.get_surge_manager()
+	if (sm) then
+		hud:add_msg("Surge.first_update",sm.first_update)
+		hud:add_msg("Surge.started",sm.started)
+		hud:add_msg("Surge.finished",sm.finished)
+		hud:add_msg("Surge.last_surge_time",sm.last_surge_time and game.get_game_time():diffSec(sm.last_surge_time))
+	end
+	local pm = psi_storm_manager.get_psi_storm_manager()
+	if (pm) then
+		hud:add_msg("Psi.first_update",sm.first_update)
+		hud:add_msg("Psi.started",pm.started)
+		hud:add_msg("Psi.finished",pm.finished)
+		hud:add_msg("Psi.last_psi_storm_time",pm.last_psi_storm_time and game.get_game_time():diffSec(pm.last_psi_storm_time))
+	end
+	hud:display()
+end
+
+function actor_slot_hud_show(hud)
+	hud:set_header("-[Actor Slots]-")
+	
+	for i=1,14 do 
+		local name
+		if (i == 1) then 
+			name = "Knife"
+		elseif (i == 2) then 
+			name = "Pistol"
+		elseif (i == 3) then 
+			name = "Automatic"
+		elseif (i == 4) then 
+			name = "Grenade"
+		elseif (i == 5) then 
+			name = "Binocular"
+		elseif (i == 6) then 
+			name = "Bolt"
+		elseif (i == 7) then 
+			name = "Outfit"
+		elseif (i == 8) then 
+			name = "PDA"
+		elseif (i == 9) then 
+			name = "Detector"
+		elseif (i == 10) then 
+			name = "Torch"
+		elseif (i == 11) then 
+			name = "Artefact"
+		elseif (i == 12) then 
+			name = "Helmet"
+		elseif (i == 13) then 
+			name = "Backpack"
+		elseif (i == 14) then 
+			name = "Script"
+		end
+		
+		local itm = db.actor:item_in_slot(i)
+		hud:add_msg(name,itm and itm:name())
+	end
+	hud:display()
+end 
+
+function actor_info_hud_show(hud)
+	hud:set_header("-[Actor Info-Portions]-")
+	local function itr(id,info)
+		hud:add_msg("",info)
+	end
+	alife():iterate_info(0,itr)
+	
+	hud:display()
+end 
+
+function npc_info_hud_show(hud)
+	hud:set_header("-[NPC Info-Portions]-")
+
+	local near = get_debug_npc()
+	if (near and near:alive()) then
+		local function itr(id,info)
+			hud:add_msg("",info)
+		end
+		alife():iterate_info(near:id(),itr)
+	end
+	
+	hud:display()
+end
+
+function null_show(hud)
+	hud:set_header("")
+	hud:add_msg("","")
+	hud:display()
+
+end
+
+function npc_memory_hud_show(hud)
+	hud:set_header("-[NPC Memory]-")
+
+	local near = get_debug_npc()
+	if (near and near:alive()) then
+		hud:add_msg("","-------Visual-------")
+		for o in near:memory_visible_objects() do
+			local obj = o:object()
+			if (obj) then
+				hud:add_msg("",obj:name() .. " | " .. near:memory_time(obj))
+			end
+		end
+		hud:add_msg("","-------Sound-------")
+		for o in near:memory_sound_objects() do
+			local obj = o:object()
+			hud:add_msg("",obj and obj:name())
+		end
+	end
+	
+	hud:display()
+end
+
+function position_hud_show(hud)
+	if not (db.actor) then 
+		return 
+	end 
+	
+	local pos = db.actor:position()
+	local cam
+	if (pos:distance_to_sqr(device().cam_pos) > 25) then
+		cam = true
+		pos = device().cam_pos
+	end
+
+	local lvid = cam and level.vertex_id(pos) or db.actor:level_vertex_id()
+	local gvid = cam and nil or db.actor:game_vertex_id()
+
+	local dir = device().cam_dir
+	local pos2 = level.vertex_position(lvid)
+	local valid = lvid < 4294967295 and pos2:distance_to(pos) <= 0.7
+
+	local se_actor = not cam and alife_object(AC_ID)
+
+	hud:set_header("-[Actor Info]-")
+	hud:add_msg("Lvid",lvid)
+	hud:add_msg("Gvid",gvid)
+	hud:add_msg("Pos",string.format("%0.4f, %0.4f, %0.4f", pos.x, pos.y, pos.z))
+	hud:add_msg("Dir",string.format("%0.3f, %0.3f, %0.3f HP = %0.3f, %0.3f", dir.x, dir.y, dir.z,dir:getH(),dir:getP()))
+	hud:add_msg("Angle",se_actor and se_actor.angle and string.format("%0.3f, %0.3f, %0.3f", se_actor.angle.x, se_actor.angle.y, se_actor.angle.z))
+	hud:add_msg("Valid",valid)
+	hud:add_msg("FOV",math.floor(device().fov))
+
+	local Y, M, D, h, m, s, ms
+	Y, M, D, h, m, s, ms = game.get_game_time():get( Y, M, D, h, m, s, ms )
+	hud:add_msg("GameTime",string.format("Y:%d M:%d D:%d h:%d m:%d s:%d ms:%d",Y, M, D, h, m, s, ms))
+
+	if (sr_psy_antenna.psy_antenna) then
+		hud:add_msg("psy_antenna.global_state",sr_psy_antenna.psy_antenna.global_state)
+	end 
+	
+	hud:add_msg("","------nearest campfires------")
+	if (smart_terrain.nearest_to_actor_smart and smart_terrain.nearest_to_actor_smart.id) then
+		local smart = alife_object(smart_terrain.nearest_to_actor_smart.id)
+		if (smart) then
+			local campfires = db.campfire_table_by_smart_names[smart:name()]
+			if (campfires) then
+				local camp
+				for id,binder in pairs(campfires) do
+					camp = binder.object
+					if (camp and binder.campfire) then
+						hud:add_msg(camp:name(), strformat("id=%s is_on=%s selected=%s",id,binder.campfire:is_on(),axr_turn_on_campfire.already_selected[id]) )
+					end
+				end
+			end
+		end
+	end
+	
+	hud:add_msg("","------ MISC. ------")
+	hud:add_msg("luminocity_hemi",db.actor.get_luminocity_hemi and db.actor:get_luminocity_hemi())
+	hud:add_msg("luminocity",db.actor.get_luminocity and db.actor:get_luminocity())
+	__tmr_pos_hud = not __tmr_pos_hud and time_global()+5000 or __tmr_pos_hud
+	if (time_global() > __tmr_pos_hud) then
+		__tmr_pos_hud = nil
+		_g_o_count = 0
+		local sim = alife()
+		for i=1,sim:max_id() - 1 do
+			if (sim:object(i) ~= nil) then
+				_g_o_count = _g_o_count + 1
+			end
+		end
+	end
+	hud:add_msg("GameObject IDs",_g_o_count)
+	
+	for name,zone in pairs(db.zone_by_name) do 
+		if (zone:inside(db.actor:position())) then
+			hud:add_msg("InsideZone",strformat("name=%s active_section=%s",zone:name(),db.storage[zone:id()] and db.storage[zone:id()].active_section))
+		end
+	end 
+	
+	hud:display()
+end
+
+function gulag_info_hud_show(hud)
+	if (smart_terrain.nearest_to_actor_smart and smart_terrain.nearest_to_actor_smart.id) then
+		local smart = alife_object(smart_terrain.nearest_to_actor_smart.id)
+		if (smart and smart.stalker_jobs) then
+			if (smart.faction_controlled) then
+				hud:add_msg("Is Faction Controlled",true)
+			end
+			hud:add_msg("Faction",smart.faction or "")
+			hud:add_msg("Nearest Smart",smart:name().." dist="..smart_terrain.nearest_to_actor_smart.dist)
+			hud:add_msg("Job Count",#smart.stalker_jobs)
+
+			local npc,job,sec
+		
+			for i=1,#smart.stalker_jobs do
+				job = smart.stalker_jobs[i]
+				sec = string.gsub(job.section,"logic@","")
+				hud:add_msg("["..i.."]",strformat("'%s' | %s",sec,smart.npc_by_job_section[job.section] or "empty"))
+			end
+		end
+	end
+	hud:set_header("-[Gulag Info]-")
+	hud:display()
+end
+
+
+
+
+function squad_info_hud_show(hud)
+	local near = get_debug_npc()
+	if (near and near:alive()) then
+		local st = db.storage[near:id()]
+		if (st) then
+			local squad = get_object_squad(near)
+			if (squad) then
+				local smart = squad.smart_id and alife_object(squad.smart_id)
+				local current_target = squad.current_target_id and alife_object(squad.current_target_id)
+				local assigned_target = squad.assigned_target_id and alife_object(squad.assigned_target_id)
+
+				hud:add_msg("Section Name",squad:section_name())
+				hud:add_msg("ID",squad.id)
+				hud:add_msg("Behavior Community",squad.player_id)
+
+				if (smart) then
+					hud:add_msg("Smart",smart:name())
+				end
+
+				if (current_target) then
+					hud:add_msg("Current Target",current_target:name())
+				end
+
+				if (assigned_target) then
+					hud:add_msg("Assigned Target",assigned_target:name())
+				end
+
+				--if (squad.entered_smart) then
+					--hud:add_msg("Entered Smart",squad.entered_smart and SIMBOARD.smarts[squad.entered_smart] and SIMBOARD.smarts[squad.entered_smart].smrt:name())
+				--end
+
+				local npc_info = smart and smart.npc_info[near:id()]
+				if (npc_info) then 
+					if (npc_info.job) then
+						local jobinfo = strformat("section=%s prior=%s exclusive=%s itr=%s",npc_info.job.section,gulag_general.get_job_prior(npc_info.job),npc_info.job.exclusive,npc_info.current_index)
+						hud:add_msg("Job",jobinfo)
+					else 
+						local jobinfo = strformat("no job itr=%s",npc_info.current_index)
+						hud:add_msg("Job",jobinfo)
+					end
+				else 
+					hud:add_msg("No npc_info present")
+				end
+			end
+		end
+	end
+	hud:set_header("-[Squad Info]-")
+	hud:display()
+end
+
+function stalker_info_hud_show(hud)
+	local near = get_debug_npc()
+
+	local st = near and near:alive() and db.storage[near:id()]
+	if (st) then
+		local sobj = alife_object(near:id())
+		if not (sobj) then 
+			return 
+		end
+
+		hud:add_msg("Name",near:name())
+		hud:add_msg("Section",sobj:section_name())
+		hud:add_msg("SID",get_object_story_id(near:id()))
+		hud:add_msg("CLSID",near:clsid())
+		if (sobj.parent_id and sobj.parent_id ~= 65535) then 
+			hud:add_msg("Parent ID",sobj.parent_id)
+		end
+		if (sobj.group_id and sobj.group_id ~= 65535) then 
+			hud:add_msg("Squad ID",sobj.group_id)
+		end
+		hud:add_msg("Community",character_community(near))
+		hud:add_msg("Rank",ranks.get_obj_rank_name(near))
+		hud:add_msg("Visual",near:get_visual_name())
+		hud:add_msg("Health",math.floor(near.health*100))
+		hud:add_msg("FOV",near:fov())
+		hud:add_msg("Range",near:range())
+		hud:add_msg("rx_dont_shoot",st.rx_dont_shoot)
+		local sight_type = near:sight_params()
+		hud:add_msg("Sight Type",sight_type and sight_type.m_sight_type)
+		local smrt = sobj.m_smart_terrain_id and sobj.m_smart_terrain_id ~= 65535 and alife_object(sobj.m_smart_terrain_id)
+		hud:add_msg("m_smart_terrain_id",smrt and smrt:name())
+		if (smrt) then
+			local arriving = smrt.arriving_npc[sobj.id]
+			if (arriving) then 
+				hud:add_msg("arriving_npc",true)
+			end
+			local function arrived_to_smart(obj, smart)
+				--utils_obj.debug_nearest(obj,"check arrived_to_smart %s",smart:name())
+
+				if not (obj and smart) then 
+					return false 
+				end 
+				
+				local cls = obj and obj.clsid and obj:clsid()
+				if not (cls) then 
+					return false 
+				end 
+				
+				local gg = game_graph()
+				local obj_gv, obj_pos = gg:vertex(obj.m_game_vertex_id), obj.position
+				local smart_gv = gg:vertex(smart.m_game_vertex_id)
+				
+				if obj_gv:level_id() ~= smart_gv:level_id() then
+					return false 
+				end
+				
+				if (IsHelicopter(nil,cls)) then 
+					return true 
+				end 
+
+				local squad = obj.group_id ~= 65535 and alife_object(obj.group_id)
+				if (squad) then
+					if (squad.m_game_vertex_id == smart.m_game_vertex_id) then 
+						return true 
+					end 
+					
+					if (squad.current_target_id and squad.current_target_id == smart.id) then 
+						return true 
+					end
+					
+					if (is_squad_monster[squad.player_id] and squad:get_script_target() == nil) then 
+						return squad.position:distance_to_sqr(smart.position) <= 625
+					end
+
+					return squad.always_arrived or squad.position:distance_to_sqr(smart.position) <= smart.arrive_dist^2
+				end 
+
+				return obj_pos:distance_to_sqr(smart.position) <= 2500
+			end
+			hud:add_msg("Arrived",arrived_to_smart(sobj,smrt))
+			local npc_info = smrt.npc_info and smrt.npc_info[sobj.id]
+			if (npc_info) then
+				hud:add_msg("Job",npc_info.job and npc_info.job.section)
+			else 
+				hud:add_msg("npc_info","nil")
+			end
+		end
+		hud:add_msg("A.Scheme",st.active_scheme)
+		hud:add_msg("A.Section",st.active_section)
+		hud:add_msg("Logic",st.section_logic)
+		hud:add_msg("Ini",st.ini_filename)
+		hud:add_msg("AnimState",state_mgr.get_state(near))
+
+		local pt_index = near.get_current_point_index and near:get_current_point_index()
+		if (not pt_index or pt_index == 4294967296 ) then
+			pt_index = st.active_scheme and (st.active_scheme == "camper" or st.active_scheme == "beh") and load_var(near,"path_index",nil)
+		end
+
+		if (pt_index) then
+			hud:add_msg("PT index",pt_index)
+		end
+		--[[
+		local smart = xr_gulag.get_npc_smart(near)
+		if (smart) then
+			local npc_job
+			for k,v in pairs(smart.npc_info) do
+				hud:add_msg("Job",smart.job_data[v.job_id].section)
+			end
+		end
+		--]]
+
+		if (st.corpse_detection and st.corpse_detection.selected_corpse_id) then
+			local vo = level.object_by_id(st.corpse_detection.selected_corpse_id)
+			if (vo) then
+				hud:add_msg("Looting corpse",vo:name())
+			end
+		end
+
+		if (st.help_wounded and st.help_wounded.selected_id) then
+			local vo = level.object_by_id(st.help_wounded.selected_id)
+			if (vo) then
+				hud:add_msg("Helping wounded",vo:name())
+			end
+		end
+
+		if (st.gather_items and st.gather_items.selected_id) then
+			local vo = level.object_by_id(st.gather_items.selected_id)
+			if (vo) then
+				hud:add_msg("Picking up",vo:name())
+			end
+		end
+
+		local vo = near:best_enemy()
+		if (vo and vo:alive() and IsStalker(vo) and IsWounded(vo)) then
+			if (db.storage[vo:id()] and db.storage[vo:id()].victim_surrender and db.storage[vo:id()].victim_surrender < 65535) then
+				hud:add_msg("Kill wounded",vo:name())
+			end
+		end
+		
+		local dist = device().cam_pos:distance_to(near:position())
+		hud:add_msg("distance",string.format("%d (%dm)",dist*dist,dist))
+		
+		hud:add_msg("OUT RESTR",near:out_restrictions())
+		hud:add_msg("IN RESTR",near:in_restrictions())
+	end
+
+	hud:set_header("-[Stalker Info]-")
+	hud:display()
+end
+
+function team_squad_group_hud_show(hud)
+	local function get_nearest_monster(npc)
+		local dist
+		local pos = device().cam_pos
+		local nearest_stalker = npc
+		local nearest_dist = npc and pos:distance_to_sqr(npc:position())
+		for id,st in pairs(db.storage) do
+			local mon = st.object or level.object_by_id(id)
+			if (mon and IsMonster(mon) and mon:alive()) then
+				dist = pos:distance_to_sqr(mon:position())
+				if not (nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = mon
+				end
+
+				if (dist < nearest_dist) then
+					nearest_dist = dist
+					nearest_stalker = mon
+				end
+			end
+		end
+		return nearest_stalker,nearest_dist
+	end
+	
+	hud:set_header("-[team_squad_group Info]-")
+	local near = get_nearest_monster(get_debug_npc())
+	if (near) then 
+		local se_obj = alife_object(near:id())
+		if (se_obj) then
+			hud:add_msg("Name",strformat("%s [%s]",se_obj:name(),se_obj.id))
+			hud:add_msg("Team",se_obj.team)
+			hud:add_msg("Squad",se_obj.squad)
+			hud:add_msg("Group",se_obj.group)
+		end
+	end 
+	
+	hud:add_msg("---Nearest Smart Gulag---")
+	if (smart_terrain.nearest_to_actor_smart and smart_terrain.nearest_to_actor_smart.id) then
+		local smart = alife_object(smart_terrain.nearest_to_actor_smart.id)
+		if (smart) then
+			hud:add_msg("------NPC_INFO-------")
+			for id,v in pairs(smart.npc_info) do
+				if (v.se_obj) then
+					hud:add_msg("Name",v.se_obj:name())
+				end
+			end
+			hud:add_msg("------ARRIVING_NPC-------")
+			for id,se_obj in pairs(smart.arriving_npc) do
+				if (se_obj) then
+					hud:add_msg("Name","%s (%s m)",se_obj:name(),se_obj.position:distance_to(smart.position))
+				end
+			end
+		end 
+	end
+		
+	hud:display()
+end
+
+function enemy_hud_show(hud)
+	local near = get_debug_npc()
+	if (near and near:alive()) then
+		local id = near:id()
+		local se_obj = alife_object(id)
+		if not (se_obj) then 
+			return 
+		end
+		local st = db.storage[id]
+		if (st) then
+			local be = near:best_enemy()
+			local relation = { [game_object.enemy] = "enemy",
+								[game_object.friend] = "friend",
+								[game_object.neutral] = "neutral"
+			}
+
+			hud:add_msg("Name", near:name())
+			hud:add_msg("Actor Relation",relation[near:relation(db.actor)])
+
+			if (st.script_combat_type) then
+				hud:add_msg("Script Combat",st.script_combat_type)
+			end
+
+			if (be) then
+				hud:add_msg("Best Enemy",be and be:name())
+				hud:add_msg("Can See",near:see(be))
+			end
+
+			local ene = st.enemy_id and level.object_by_id(st.enemy_id)
+			if (ene) then
+				-- What I call pure enemy is an evaluated enemy before combat ignore condition check
+				hud:add_msg("Pure Enemy",ene and ene:name())
+				if (st.overrides and st.overrides.combat_ignore) then
+					hud:add_msg("combat_ignore_cond",xr_logic.pick_section_from_condlist(ene, near, st.overrides.combat_ignore.condlist))
+				end
+			end
+			
+			local tg = time_global()
+			local pcw = st.post_combat_wait and st.post_combat_wait.timer and st.post_combat_wait.timer > 0 and st.post_combat_wait.timer-tg
+			if (pcw and pcw > 0) then
+				hud:add_msg("Post Combat Idle",pcw)
+			end
+
+			if (be and not new_enemy) then
+				hud:add_msg("Memory Time",tg - near:memory_time(be))
+				if (st.combat_ignore and st.combat_ignore.search_time) then
+					hud:add_msg("Search Time",st.combat_ignore.search_time)
+				end
+			end
+
+			local squad = get_object_squad(near)
+			local cid = squad and squad.id or id
+			if (xr_combat_ignore.safe_zone_npcs and xr_combat_ignore.safe_zone_npcs[cid]) then
+				local timer = xr_combat_ignore.safe_zone_npcs[cid] - tg
+				hud:add_msg("In no-combat zone",timer)
+			end
+
+			local bd = near:best_danger()
+			if (bd) then
+				local danger_types = {
+
+					[danger_object.grenade] 		= "grenade",
+					[danger_object.entity_corpse] 	= "entity_corpse",
+					[danger_object.entity_attacked] = "entity_attacked",
+					[danger_object.attacked] 		= "attacked",
+					[danger_object.bullet_ricochet] = "bullet_ricochet",
+					[danger_object.enemy_sound] 	= "enemy_sound",
+					[danger_object.attack_sound] 	= "attack_sound",
+					[danger_object.entity_death] 	= "entity_death",
+					[danger_object.hit]				= "hit",
+					[danger_object.sound]			= "sound",
+					[danger_object.visual]			= "visual"
+				}
+
+				local bdname = bd:object() and bd:object():name()
+				local bddname = bd:dependent_object() and bd:dependent_object():name()
+				local bd_type = bd:type()
+
+				hud:add_msg("","<---Best Danger (Pre-Evaluation)--->")
+				hud:add_msg("Type",danger_types[bd_type])
+				hud:add_msg("Danger Object",bdname)
+				hud:add_msg("Dependent",bddname)
+
+				--[[
+				if (xr_danger.DangerInertion) then
+					local src = xr_danger.DangerInertion[ danger_types[bd_type] ]
+					local inertion = tonumber(xr_logic.pick_section_from_condlist(db.actor,near,xr_logic.parse_condlist(near,danger_types[bd_type],"danger_intertion_time",src))) or 30000
+					hud:add_msg("Inertion",inertion)
+
+					if (st.danger_flag) then
+						local danger_time = xr_danger.get_danger_time(bd,near)
+						local timr = inertion and danger_time and (danger_time + inertion) - time_global()
+						hud:add_msg("Timer",timr and timr > 0 and timr or 0)
+					end
+				end
+				--]]
+
+				if (xr_danger.has_danger(near)) then
+					hud:add_msg("","---Danger Mode is Active---")
+					if (st.danger) then
+						local bd_type = st.danger.type
+						hud:add_msg("Type",bd_type and danger_types[bd_type])
+						local danger_time = st.danger.danger_time
+						local inertion = st.danger.inertion
+						local timr = inertion and danger_time and (danger_time + inertion) - time_global()
+						hud:add_msg("Timer",timr and timr > 0 and timr or 0)
+					end
+				end
+
+				hud:add_msg("-----Used Lvids-----")
+				for k,v in pairs(db.used_level_vertex_ids) do 
+					hud:add_msg(tostring(k),tostring(v))
+				end
+			end
+		end
+	end
+	hud:add_msg("CurrentItemAtCell",CurrentItemAtCell and CurrentItemAtCell())
+	hud:set_header("-[Enemy Info]-")
+	hud:display()
+end
+
+function anim_hud_show(hud)
+	local near = get_debug_npc()
+	if (near and near:alive()) then
+		local st = db.storage[near:id()]
+		if (st) then
+			local sobj = alife_object(near:id())
+			if not (sobj) then 
+				return 
+			end
+
+			if (st.active_scheme == "animpoint") then
+				local avail_animations = ""
+				if st and st.animpoint then
+					if st.animpoint.avail_animations then
+						for k, v in pairs(st.animpoint.avail_animations) do
+							avail_animations = avail_animations .. "," .. v
+						end
+					end
+
+					local approved_actions = ""
+					local description = st and st.animpoint and st.animpoint.description
+					local avail_actions = description and xr_animpoint_predicates.associations[description]
+					local actions = ""
+					if avail_actions then
+						for k,v in pairs(avail_actions) do
+							if (v.predicate(near:id(), st.animpoint.use_camp)) then
+								approved_actions = v.name .. ", " .. approved_actions
+							end
+							actions = v.name .. ", " .. actions
+						end
+					end
+
+					hud:add_msg("Section Name",sobj:section_name())
+					hud:add_msg("Avail. Animations",avail_animations)
+					hud:add_msg("Avail. Actions",actions)
+					hud:add_msg("Approved Actions",approved_actions)
+					hud:add_msg("Cover Name",st.animpoint.cover_name)
+					hud:add_msg("Use Camp",st.animpoint.use_camp)
+					hud:add_msg("Description",description)
+					hud:add_msg("Smart Direction",st.animpoint.smart_direction and utils_data.vector_to_string(st.animpoint.smart_direction))
+				end
+			elseif (st.active_scheme == "walker") then
+				local avail_actions = xr_animpoint_predicates.associations["walker_camp"]
+				local actions = ""
+				local approved_actions = ""
+				if avail_actions then
+					for k,v in pairs(avail_actions) do
+						actions = actions .. "," .. v.name
+						if (v.predicate(near:id())) then
+							approved_actions = v.name .. "," .. approved_actions
+						end
+					end
+				end
+
+				hud:add_msg("Section Name",sobj:section_name())
+				hud:add_msg("Use Camp",st and st.walker and st.walker.use_camp)
+				hud:add_msg("Avail. Actions",actions)
+				hud:add_msg("Approved Actions",approved_actions)
+				hud:add_msg("Def. State Mov.",st and st.walker and st.walker.suggested_state.moving)
+				hud:add_msg("Def. State Stand.", st and st.walker and st.walker.suggested_state.standing)
+			end
+
+			hud:add_msg("In Cover",near:in_smart_cover())
+
+			local cover = near:get_dest_smart_cover_name()
+			hud:add_msg("Dest Cover",cover)
+			hud:add_msg("UseSmartCoverOnly",near:use_smart_covers_only())
+		end
+	end
+	hud:set_header("-[Anim Info]-")
+	hud:display()
+end
+
+function behavior_hud_show(hud)
+	local near = get_debug_npc()
+	if (near and near:alive()) then
+		local st = db.storage[near:id()].beh
+		if (st) then
+			local target = st.desired_target and st.desired_target.object and st.desired_target.object:name()
+			local target_type = st.target
+			local pos = st.desired_target and st.desired_target.position and vec_to_str(st.desired_target.position)
+			local beh = st.behavior
+			local assist_pt = st.assist_point
+			local state = st.last_state
+			local lvid = st.desired_target and st.desired_target.level_vertex_id
+
+			hud:add_msg("Target",target)
+			hud:add_msg("Type",target_type)
+			hud:add_msg("Desired lvid",lvid)
+			hud:add_msg("Behavior",beh)
+			if (assist_pt) then
+				hud:add_msg("Assist Pt",assist_pt)
+			end
+			hud:add_msg("State",state)
+			st = db.storage[near:id()]
+			hud:add_msg("PT Index",st.beh and st.beh.path_index)
+			hud:add_msg("PT wait",st.beh and st.beh.wait_delay and st.beh.wait_delay - time_global())
+			hud:add_msg("PT reached",st.beh and st.beh.am_i_reached == true)
+			hud:add_msg("Gather Items",st.gather_items and st.gather_items.gather_items_enabled and xr_logic.pick_section_from_condlist(db.actor, near, st.gather_items.gather_items_enabled))
+			hud:add_msg("Loot Corpses",st.corpse_detection and st.corpse_detection.corpse_detection_enabled and xr_logic.pick_section_from_condlist(db.actor, near, st.corpse_detection.corpse_detection_enabled))
+		end
+	end
+	hud:set_header("-[Beh Info]-")
+	hud:display()
+end
+
+function weapon_hud_show(hud)
+	local near = get_debug_npc()
+	local wpn = near and near:alive() and near:active_item() or db.actor:active_item()
+
+	if (wpn) then
+		local sobj = alife_object(wpn:id())
+		if not (sobj) then 
+			return 
+		end
+		local id = wpn:id()
+		local data = sobj and IsWeapon(wpn) and utils_stpk.get_weapon_data(sobj)
+		local sec = wpn:section()
+		hud:add_msg("Weapon",sec)
+		local owner = sobj and sobj.parent_id ~= 65535 and level.object_by_id(sobj.parent_id)
+		if (owner) then
+			hud:add_msg("Owner",owner:name())
+		end
+		local ef_main_weapon_type = ini_sys:r_string_ex(sec,"ef_main_weapon_type","nil")
+		hud:add_msg("ef_main_weapon_type",ef_main_weapon_type)
+		local ef_weapon_type = ini_sys:r_string_ex(sec,"ef_weapon_type","nil")
+		hud:add_msg("ef_weapon_type",ef_weapon_type)			
+		if (data) then
+			hud:add_msg("Visual",data.visual_name)
+			hud:add_msg("Visual Flag",data.visual_flags)
+			hud:add_msg("Condition",data.condition and math.floor(data.condition*100))
+			hud:add_msg("Upgrades",table.concat(data.upgrades,","))
+			hud:add_msg("Scope",data.scope)
+			hud:add_msg("AddonFlag",data.addon_flags)
+			hud:add_msg("AmmoType",data.ammo_type)
+			hud:add_msg("NV Status",data.remember_nv_status)
+		end
+		
+		local states = {
+		eIdle,				--= 0
+		eShowing,			--= 1
+		eHiding,			--= 2
+		eHidden,			--= 3
+		eBore,				--= 4
+		eFire,				--= 5
+        eFire2, 			--= 6
+        eReload, 			--= 7
+        eMisfire, 			--= 8
+        eMagEmpty,			--= 9
+        eSwitch				--= 10
+		}
+		hud:add_msg("State",strformat("%s (%s)",states[wpn:get_state()],wpn:get_state()))
+		hud:add_msg("SubState",wpn:get_weapon_substate())
+		hud:add_msg("AmmoCountTotal",wpn:get_ammo_count_for_type(0))
+		hud:add_msg("MainWeaponType",wpn:get_main_weapon_type())
+		hud:add_msg("WeaponType",wpn:get_weapon_type())
+	end
+
+	hud:set_header("-[Weapon Info]-")
+	hud:display()
+end
+
+function corpse_hud_show(hud)
+	local rbm = release_body_manager.get_release_body_manager()
+	local corpses = rbm.release_objects_table
+	local count = 0
+	if (corpses) then
+		local id
+		for id,v in pairs(corpses) do
+			local obj = type(v) == "table" and v.id and level.object_by_id(v.id) or level.object_by_id(id)
+			if (obj) then
+				if (xr_corpse_detection.has_valuable_loot and xr_corpse_detection.has_valuable_loot(obj)) then
+					hud:add_msg("",obj:name().."  HasLoot = "..tostring(xr_corpse_detection.has_valuable_loot(obj)))--  DeathTime = "..time_global()-obj:death_time())
+				else
+					hud:add_msg("",strformat("%s death_time = %s",obj:name(),time_global()-obj:death_time()))
+				end
+			end
+			count = count + 1
+		end
+		
+	end
+	hud:set_header("-[Release Table]["..count.."]")
+	hud:display()
+end
+
+
+function task_hud_show(hud)
+	local debug_task_infos = task_manager.get_task_manager().task_info
+	
+	for k,v in pairs(debug_task_infos) do
+		hud:add_msg("======["..k.."]======","")
+		if (v.task_giver_id) then 
+			local se_obj = alife_object(v.task_giver_id)
+			if (se_obj) then 
+				hud:add_msg("Giver",se_obj:name())
+			end
+		end
+		
+		if (v.repeat_timeout and v.timeout) then 
+			hud:add_msg("Cooldown", v.repeat_timeout - game.get_game_time():diffSec(v.timeout))
+		end
+		
+		local id = load_var(db.actor,k.."_target_id")
+		local o = id and alife_object(id)
+		local smart_id = load_var(db.actor,k.."_id")
+		local smart = smart_id and alife_object(smart_id)
+		
+		hud:add_msg("Has CTaskObject",v.t ~= nil)
+		if (v.status ~= "selected") then
+			hud:add_msg("Status",v.status)
+		end
+		
+		if (v.stage and v.stage > 0) then 
+			hud:add_msg("Stage",v.stage)
+		end 
+		
+		if (smart) then 
+			hud:add_msg("Smart",smart:name())
+		end
+		
+		if (o) then 
+			hud:add_msg("Target",o:name())
+		end 
+	end
+
+	hud:set_header("-[Task Debugger]-")
+	hud:display()
+end
+
+function get_debug_hud()
+	return debug_ui
+end
+
+--[[	Misc. Functions
+--]]
+
+function give_game_news(t,d)
+	if db.actor then
+		db.actor:give_game_news("",t,"ui_iconsTotal_grouping",0,d,0)
+	end
+end
+
+
+---------------------------------------
+-- Keybinding
+---------------------------------------
+axr_keybind.bind("DIK_NUMPAD0",function(p)
+	if not (DEV_DEBUG) then 
+		return 
+	end
+	if (p==1) then
+		exec_console_cmd("demo_record t")
+	end
+end,"debug_demo_record")
+
diff --git a/src/xrGame/alife_object_registry.h b/src/xrGame/alife_object_registry.h
index 4800115af..a03c73ea5 100644
--- a/src/xrGame/alife_object_registry.h
+++ b/src/xrGame/alife_object_registry.h
@@ -20,6 +20,7 @@ class CALifeObjectRegistry
 {
 public:
 	typedef xr_map<ALife::_OBJECT_ID, CSE_ALifeDynamicObject*> OBJECT_REGISTRY;
+	ALife::_OBJECT_ID max_id = ALife::_OBJECT_ID(-1);
 
 protected:
 	OBJECT_REGISTRY m_objects;
diff --git a/src/xrGame/alife_simulator_script.cpp b/src/xrGame/alife_simulator_script.cpp
index fd6a1f1b1..dd8543d05 100644
--- a/src/xrGame/alife_simulator_script.cpp
+++ b/src/xrGame/alife_simulator_script.cpp
@@ -412,15 +412,6 @@ CSE_Abstract* reprocess_spawn(CALifeSimulator* self, CSE_Abstract* object)
 	return (self->server().Process_spawn(packet, clientID));
 }
 
-// demonized: iterate alife objects
-void CALifeSimulator__iterate_objects(const CALifeSimulator* self, const luabind::functor<bool>& functor)
-{
-	const CALifeObjectRegistry &objects = self->objects();
-	for (const auto& se_obj : objects.objects()) {
-		if (functor(se_obj.second)) break;
-	}
-}
-
 CSE_Abstract* try_to_clone_object(CALifeSimulator* self, CSE_Abstract* object, LPCSTR section, const Fvector& position,
                                   u32 level_vertex_id, GameGraph::_GRAPH_ID game_vertex_id, ALife::_OBJECT_ID id_parent,
                                   bool bRegister = true)
@@ -460,10 +451,85 @@ void set_process_time(CALifeSimulator* self, int micro)
 	self->set_process_time(micro);
 }
 
-const CALifeObjectRegistry::OBJECT_REGISTRY& alife_objects(const CALifeSimulator *self)
+// demonized: iterate alife objects, functor style
+void CALifeSimulator__iterate_objects(const CALifeSimulator* self, const luabind::functor<bool>& functor)
+{
+	const CALifeObjectRegistry& objects = self->objects();
+	for (const auto& se_obj : objects.objects()) {
+		if (functor(se_obj.second)) break;
+	}
+}
+
+void CALifeSimulator__iterate_objects_without_actor(const CALifeSimulator* self, const luabind::functor<bool>& functor)
+{
+	const CALifeObjectRegistry& objects = self->objects();
+	for (const auto& se_obj : objects.objects()) {
+		if (se_obj.first != 0 && functor(se_obj.second)) break;
+	}
+}
+
+struct alife_object_iterator {
+	const CALifeObjectRegistry::OBJECT_REGISTRY* container;
+	CALifeObjectRegistry::OBJECT_REGISTRY::const_iterator it;
+
+	alife_object_iterator(const CALifeObjectRegistry::OBJECT_REGISTRY* c)
+		: container(c), it(c ? c->begin() : CALifeObjectRegistry::OBJECT_REGISTRY::const_iterator()) {}
+
+	CSE_ALifeDynamicObject* next() {
+		if (!container || it == container->end())
+			return nullptr;
+		auto obj = it->second;
+		++it;
+		return obj;
+	}
+};
+
+struct alife_object_without_actor_iterator {
+	const CALifeObjectRegistry::OBJECT_REGISTRY* container;
+	CALifeObjectRegistry::OBJECT_REGISTRY::const_iterator it;
+
+	alife_object_without_actor_iterator(const CALifeObjectRegistry::OBJECT_REGISTRY* c)
+		: container(c), it(c ? c->begin() : CALifeObjectRegistry::OBJECT_REGISTRY::const_iterator()) {}
+
+	CSE_ALifeDynamicObject* next() {
+		if (!container || it == container->end())
+			return nullptr;
+		if (it->first == 0) {
+			++it;
+			return next();
+		}
+		auto obj = it->second;
+		++it;
+		return obj;
+	}
+};
+
+// demonized: iterate alife objects, for loop
+alife_object_iterator alife_object_iter(const CALifeSimulator* self)
+{
+	VERIFY(self);
+	const CALifeObjectRegistry& objects = self->objects();
+	return alife_object_iterator(&objects.objects());
+}
+// demonized: iterate alife objects without actor, for loop
+alife_object_without_actor_iterator alife_object_without_actor_iter(const CALifeSimulator* self)
+{
+	VERIFY(self);
+	const CALifeObjectRegistry& objects = self->objects();
+	return alife_object_without_actor_iterator(&objects.objects());
+}
+
+ALife::_OBJECT_ID alife_max_id(const CALifeSimulator* self)
+{
+	return self->objects().max_id;
+}
+
+//-Alundaio
+CALifeObjectRegistry::OBJECT_REGISTRY const& alife_objects(const CALifeSimulator *self)
 {
 	VERIFY(self);
-	return self->objects().objects();
+	const CALifeObjectRegistry& objects = self->objects();
+	return objects.objects();
 }
 
 xr_vector<u16>& get_children(const CALifeSimulator *self, CSE_Abstract *object)
@@ -471,21 +537,26 @@ xr_vector<u16>& get_children(const CALifeSimulator *self, CSE_Abstract *object)
 	VERIFY(self);
 	return object->children;
 }
-//-Alundaio
-
 
 #pragma optimize("s",on)
 void CALifeSimulator::script_register(lua_State* L)
 {
 	module(L)
 	[
+		class_<alife_object_iterator>("alife_object_iterator")
+		.def("next", &alife_object_iterator::next)
+		.def("__call", &alife_object_iterator::next), // for Lua for-loop
+
+		class_<alife_object_without_actor_iterator>("alife_object_without_actor_iterator")
+		.def("next", &alife_object_iterator::next)
+		.def("__call", &alife_object_iterator::next), // for Lua for-loop
+
 		class_<CALifeSimulator>("alife_simulator")
 		.def("valid_object_id", &valid_object_id)
 		.def("level_id", &get_level_id)
 		.def("level_name", &get_level_name)
 		.def("object", (CSE_ALifeDynamicObject *(*)(const CALifeSimulator*, ALife::_OBJECT_ID))(alife_object))
 		.def("object", (CSE_ALifeDynamicObject *(*)(const CALifeSimulator*, ALife::_OBJECT_ID, bool))(alife_object))
-// FIX LATER:		.def("objects", &alife_objects, return_stl_pair_iterator)
 		.def("story_object", (CSE_ALifeDynamicObject *(*)(const CALifeSimulator*, ALife::_STORY_ID))(alife_story_object))
 		.def("set_switch_online", (void (CALifeSimulator::*)(ALife::_OBJECT_ID, bool))(&CALifeSimulator::set_switch_online))
 		.def("set_switch_offline", (void (CALifeSimulator::*)(ALife::_OBJECT_ID, bool))(&CALifeSimulator::set_switch_offline))
@@ -525,6 +596,10 @@ void CALifeSimulator::script_register(lua_State* L)
 
 		// demonized: iterate alife objects
 		.def("iterate_objects", &CALifeSimulator__iterate_objects)
+		.def("iterate_objects_without_actor", &CALifeSimulator__iterate_objects_without_actor)
+		.def("objects_iter", &alife_object_iter)
+		.def("objects_without_actor_iter", &alife_object_without_actor_iter)
+		.def("max_id", &alife_max_id)
 
 		, def("alife", &alife)
 	];
diff --git a/src/xrGame/alife_surge_manager.cpp b/src/xrGame/alife_surge_manager.cpp
index 17bffbe91..7131d2e85 100644
--- a/src/xrGame/alife_surge_manager.cpp
+++ b/src/xrGame/alife_surge_manager.cpp
@@ -54,8 +54,8 @@ void CALifeSurgeManager::fill_spawned_objects()
 {
 	m_temp_spawned_objects.clear();
 
-	D_OBJECT_P_MAP::const_iterator I = objects().objects().begin();
-	D_OBJECT_P_MAP::const_iterator E = objects().objects().end();
+	auto I = objects().objects().begin();
+	auto E = objects().objects().end();
 	for (; I != E; ++I)
 		if (spawns().spawns().vertex((*I).second->m_tSpawnID))
 			m_temp_spawned_objects.push_back((*I).second->m_tSpawnID);