Divergent/mods/Redone Radar and Red Forest/gamedata/scripts/xr_dynamic_object_redone.script

local dynamic_object_storage = {}

function dynamic_object(actor,obj,p)
	local ini = p and p[1] and ini_file(p[1])
	local smart_name = ini and ini:r_string_ex("dynamic_object_configs","smart")
	local smart = smart_name and SIMBOARD.smarts_by_names[smart_name]
	
	if not (smart) then
		return
	end
	
	if not (dynamic_object_storage[smart_name]) then
		dynamic_object_storage[smart_name] = {}
	end
	
	local lst = dynamic_object_storage[smart_name]
	
	local n = ini:line_count("exclusive")
	for k=0,n-1 do
		local r,i,v = ini:r_line("exclusive",k)
		local s = get_object_config(v)
		if (i and s) then
			local idx = lst[i]
			local sec = s.sec
			local pos = s.pos
			local ang = s.ang
			local con = s.con and ini:r_string_to_condlist("dynamic_object_configs",s.con,"true")
			if (xr_logic.pick_section_from_condlist(db.actor,obj,con) == "true") then
				local se = idx and tonumber(idx.id) and alife():object(tonumber(idx.id))
				if (se and string.find(se:name(),sec)) then
					-- Correct. Update object.
					se.position = vector():set(pos)
					se.angle = vector():set(ang)
				else
					-- Wrong object or doesn't exit. Try to delete the old object and create a new one.
					if (se and idx.sec and string.find(se:name(),idx.sec)) then
						alife_release(se)
					end
					local new_se = alife():create(sec,pos,smart.m_level_vertex_id,smart.m_game_vertex_id)
					if (new_se) then
						new_se.angle = vector():set(ang)
						lst[i] = {id = tonumber(new_se.id),sec = tostring(sec)}
						--printf("GhenTuong: dynamic_object create %s [%s]",new_se.id,new_se:name())
					end
				end
			else
				if (idx) then
					local se = tonumber(idx.id) and alife():object(tonumber(idx.id))
					if (se and idx.sec and string.find(se:name(),idx.sec)) then
						--printf("GhenTuong: dynamic_object delete %s [%s]",se.id,se:name())
						alife_release(se)
					end
					lst[i] = nil
				end
			end
		end
	end
	
	for i,idx in pairs(lst) do
		if (i and idx) then
			if not (ini:line_exist("exclusive",i)) then
				local se = idx and tonumber(idx.id) and alife():object(tonumber(idx.id))
				if (se and idx.sec and string.find(se:name(),idx.sec)) then
					--printf("GhenTuong: dynamic_object delete %s [%s]",se.id,se:name())
					alife_release(se)
				end
				lst[i] = nil
			end
		else
			lst[i] = nil
		end
	end
end
--[[
if not (ini:section_exist("exclusive") and ini:line_exist("exclusive",i)) then
	return
end

local v = ini:r_string_ex("exclusive",i)
--]]

function get_object_config(v)
	local str = v and str_explode(v,"|")
	local sec = str[1] and (str[1] ~= "") and (str[1] ~= "nil") and tostring(str[1])
	
	local tp = str[2] and str_explode(str[2],",") or nil
	local td = str[3] and str_explode(str[3],",") or nil
	local pox = tp and tonumber(tp[1])
	local poy = tp and tonumber(tp[2])
	local poz = tp and tonumber(tp[3])
	local rox = td and tonumber(td[1]) and math.rad(tonumber(td[1]))
	local roy = td and tonumber(td[2]) and math.rad(tonumber(td[2]))
	local roz = td and tonumber(td[3]) and math.rad(tonumber(td[3]))
	local con = str[4] or "nil"
	
	if not (pox and poy and poz and rox and roy and roz and con) then
		return
	end
	return {sec = sec, pos = vector():set(pox,poy,poz), ang = vector():set(rox,roy,roz), con = con}
end

function get_object(smart_name,index)
	local idx = dynamic_object_storage_loaded and dynamic_object_storage[smart_name] and dynamic_object_storage[smart_name][index]
	return idx and {id = tonumber(idx.id),sec = tostring(idx.sec)}
end

function save_state(m_data)
	m_data.xr_dynamic_object_storage = dynamic_object_storage
end

function load_state(m_data)
	dynamic_object_storage = m_data.xr_dynamic_object_storage or {}
end

function on_game_start()
   RegisterScriptCallback("save_state",save_state)
   RegisterScriptCallback("load_state",load_state)
end