mobf_core/mobf/utils/permanent_data.lua
sapier fdd78d8a87 add support for saving userdefined values
entity.dynamic_data.permanent_data is preserved troughout load/unload of mob
2013-04-04 22:15:22 +02:00

234 lines
7.3 KiB
Lua

-------------------------------------------------------------------------------
-- Mob Framework Mod by Sapier
--
-- You may copy, use, modify or do nearly anything except removing this
-- copyright notice.
-- And of course you are NOT allow to pretend you have written it.
--
--! @file permanent_data.lua
--! @brief functions for storing required data permanently
--! @copyright Sapier
--! @author Sapier
--! @date 2012-08-09
--!
-- Contact sapier a t gmx net
-------------------------------------------------------------------------------
--! @defgroup perm_data Permanent data handling
--! @brief functions to deal with permanent data
--! @ingroup framework_int
--! @{
-------------------------------------------------------------------------------
-- name: mobf_deserialize_permanent_entity_data(datastring)
--
--! @brief parse datastring and return table of data
--
--! @param staticdata string to deserialize
--! @return table containing data
-------------------------------------------------------------------------------
function mobf_deserialize_permanent_entity_data(staticdata)
local deserialized = minetest.deserialize(staticdata)
if deserialized ~= nil and
deserialized.version ~= nil then
--print("DEBUG: deserialized -> " ..dump(deserialized))
return deserialized
end
--old style serialized static data
local retval = {spawnpoint={x=0,y=0,z=0},playerspawned=false,original_spawntime=-1,state="default"}
if staticdata ~= nil and
staticdata ~= "" then
local start_pos = 1
local end_pos = string.find(staticdata,";")
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as first element")
if string.sub(staticdata,start_pos,end_pos-1) == "true" then
retval.playerspawned = true
end
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as second element")
retval.spawnpoint.x = tonumber(string.sub(staticdata,start_pos,end_pos-1))
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as third element")
retval.spawnpoint.y = tonumber(string.sub(staticdata,start_pos,end_pos-1))
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as fourth element")
retval.spawnpoint.z = tonumber(string.sub(staticdata,start_pos,end_pos-1))
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as fivth element")
retval.original_spawntime = tonumber(string.sub(staticdata,start_pos,end_pos-1))
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as sixth element")
retval.spawner = string.sub(staticdata,start_pos,end_pos-1)
if retval.spawner == "" then
retval.spawner = nil
end
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as seventh element")
retval.state = string.sub(staticdata,start_pos,end_pos-1)
if retval.state == "" then
retval.state = nil
end
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as eigth element")
retval.pathindex_raw = string.sub(staticdata,start_pos,end_pos-1)
retval.pathindex = tonumber(retval.pathindex_raw)
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as nineth element")
retval.pathowner = string.sub(staticdata,start_pos,end_pos-1)
if retval.pathowner == "" then
retval.pathowner = nil
end
else
return retval
end
start_pos = end_pos +1
end_pos = string.find(staticdata,";",start_pos)
if end_pos ~= nil then
dbg_mobf.permanent_store_lvl1("MOBF: Found: ".. string.sub(staticdata,start_pos,end_pos-1).. " as tenth element")
retval.pathname = string.sub(staticdata,start_pos,end_pos-1)
if retval.pathname == "" then
retval.pathname = nil
end
else
return retval
end
end
return retval
end
-------------------------------------------------------------------------------
-- name: mobf_serialize_permanent_entity_data(entity)
--
--! @brief return string containing all entity data to be preserved
--
--! @param entity to get data from
--! @return string containing entitys permanent data
-------------------------------------------------------------------------------
function mobf_serialize_permanent_entity_data(entity)
if entity.removed == false and
entity.dynamic_data ~= nil and
entity.dynamic_data.spawning ~= nil then
local state = "default"
if entity.dynamic_data.state ~= nil and
entity.dynamic_data.state.current ~= nil then
state = entity.dynamic_data.state.current
end
if entity.dynamic_data.spawning.original_spawntime == nil then
entity.dynamic_data.spawning.original_spawntime = mobf_get_current_time()
minetest.log(LOGLEVEL_WARNING,
"MOBF: deactivating entity without spawntime setting current time")
end
local pathowner = ""
local pathname = ""
local pathindex = ""
if entity.dynamic_data.p_movement ~= nil then
if entity.dynamic_data.p_movement.pathowner ~= nil then
pathowner = entity.dynamic_data.p_movement.pathowner
end
if entity.dynamic_data.p_movement.pathname ~= nil then
pathname = entity.dynamic_data.p_movement.pathname
end
if entity.dynamic_data.p_movement.next_path_index ~= nil then
pathindex = "" .. entity.dynamic_data.p_movement.next_path_index
end
end
local toserialize = {
spawnpoint = entity.dynamic_data.spawning.spawnpoint,
playerspawned = entity.dynamic_data.spawning.player_spawned,
original_spawntime = entity.dynamic_data.spawning.original_spawntime,
spawner = entity.dynamic_data.spawning.spawner,
version = 3,
state = state,
pathindex = pathindex,
pathowner = pathowner,
pathname = pathname,
custom_persistent = entity.dynamic_data.custom_persistent,
}
local serialized = minetest.serialize(toserialize)
--print("DEBUG: serialized -> " .. serialized)
return serialized
else
mobf_bug_warning(LOGLEVEL_ERROR,"MOBF: >" .. dump(entity.data.name) ..
"< removed=" ..dump(entity.removed) .. " entity=" .. tostring(entity) ..
" No spawning information available on saving mob or mob already deleted")
end
return ""
end
--!@}