game-antum/mods/mobs/mobf/utils/settings.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 settings.lua
--! @brief generic functions used in many different places
--! @copyright Sapier
--! @author Sapier
--! @date 2013-02-04
--!
-- Contact sapier a t gmx net
-------------------------------------------------------------------------------

--! @defgroup gen_func Generic functions
--! @brief functions for various tasks
--! @ingroup framework_int
--! @{

-------------------------------------------------------------------------------
-- name: mobf_init_world_specific_settings(name,value)
--
--! @brief check if world specific settings are supported by core if not do in lua
--
-------------------------------------------------------------------------------
function mobf_init_world_specific_settings()
	local mobf_world_settings_data = nil

	if minetest.world_setting_set == nil or
		type(minetest.world_setting_set) ~= "function" then

		local mobf_world_path = minetest.get_worldpath()

		--initialy read settings file
		mobf_world_settings_data = nil
		local file,error = io.open(mobf_world_path .. "/mobf_settings.conf","r")

		if error ~= nil then
			minetest.log(LOGLEVEL_WARNING,"MOBF: failed to open world specific config file")
			mobf_world_settings_data = {}
		else
			local data_raw = file:read("*a")
			file:close()

			data_raw=data_raw:gsub("\n","")

			if data_raw ~= nil then
				mobf_world_settings_data = minetest.deserialize(data_raw)
			end
		end

		--set world settings function
		minetest.world_setting_set = function(name,value)
			mobf_world_settings_data[name] = value

			local file,error = io.open(mobf_world_path .. "/mobf_settings.conf.new","w")

			if error ~= nil then
				minetest.log(LOGLEVEL_ERROR,"MOBF: failed to open world specific config file")
			end
			mobf_assert_backtrace(file ~= nil)

			local serialized_data = minetest.serialize(mobf_world_settings_data)

			local prefix=""
			local lastwasnewline = false
			local commahandled = false
			local got_non_space_char = false

			for i = 1, #serialized_data do
				local c = serialized_data:sub(i,i)

				if (c == "{") then
					if not lastwasnewline then
						file:write("\n")
					end
					file:write(prefix .. c .. "\n")
					prefix = prefix .. "    "
					lastwasnewline = true
					got_non_space_char = false
				elseif (c == "}") then
					if not lastwasnewline then
						file:write("\n")
					end
					prefix = prefix:sub(1,#prefix-4)
					local nextchar = serialized_data:sub(i+1,i+1)
					if nextchar == "," then
						file:write(prefix .. c ..nextchar .. "\n")
						commahandled = true
					else
						file:write(prefix .. c .. "\n")
					end
					got_non_space_char = false
					lastwasnewline = true
				elseif (c == ",") then
					if not commahandled then
						file:write(c .. "\n")
					end
					commahandled = false
					lastwasnewline = true
					got_non_space_char = false
				elseif (c == " ") then
					if got_non_space_char then
						file:write(c)
					end
				else
					if lastwasnewline then
						file:write(prefix)
					end
					file:write(c)
					lastwasnewline = false
					got_non_space_char = true
				end
			end
			file:write("\n")
			file:close()
			
			if not os.rename(mobf_world_path .. "/mobf_settings.conf.new",
				mobf_world_path .. "/mobf_settings.conf") then
				minetest.log(LOGLEVEL_ERROR,"MOBF: failed to swap old conf file to new one")
			end
		end

		minetest.world_setting_get = function(name)
			mobf_assert_backtrace(mobf_world_settings_data ~= nil)

			return mobf_world_settings_data[name]
		end
	end


	--initialize defaults
	if minetest.world_setting_get("vombie_3d_burn_animation_enabled") == nil then
		minetest.world_setting_set("vombie_3d_burn_animation_enabled",false)
	end

	if minetest.world_setting_get("mobf_log_removed_entities") == nil then
		minetest.world_setting_set("mobf_log_removed_entities",false)
	end

	if minetest.world_setting_get("mobf_disable_animal_spawning") == nil then
		minetest.world_setting_set("mobf_disable_animal_spawning",false)
	end

	if minetest.world_setting_get("mobf_disable_3d_mode") == nil then
		minetest.world_setting_set("mobf_disable_3d_mode",false)
	end

	if minetest.world_setting_get("mobf_disable_pathfinding") == nil then
		minetest.world_setting_set("mobf_disable_pathfinding",true)
	end

	if minetest.world_setting_get("mobf_delayed_spawning") == nil then
		minetest.world_setting_set("mobf_delayed_spawning",true)
	end

	if minetest.world_setting_get("mobf_log_bug_warnings") == nil then
		minetest.world_setting_set("mobf_log_bug_warnings",false)
	end

	if minetest.world_setting_get("mobf_show_spawners") == nil then
		minetest.world_setting_set("mobf_show_spawners",false)
	end

	if minetest.world_setting_get("mobf_lifebar") == nil then
		minetest.world_setting_set("mobf_lifebar",true)
	end

	if minetest.world_setting_get("mobf_enable_statistics") == nil then
		minetest.world_setting_set("mobf_enable_statistics",false)
	end

	if minetest.world_setting_get("mobf_animal_spawning_secondary") == nil then
		minetest.world_setting_set("mobf_animal_spawning_secondary",false)
	end

	if minetest.world_setting_get("mobf_grief_protection") == nil then
		minetest.world_setting_set("mobf_grief_protection",false)
	end

end

-------------------------------------------------------------------------------
-- name: mobf_set_world_setting(name,value)
--
--! @brief save a setting dedicated to a single world only
--
--! @param name key to use for storage
--! @param value to save
-------------------------------------------------------------------------------
function mobf_set_world_setting(name,value)
	minetest.world_setting_set(name,value)
end

-------------------------------------------------------------------------------
-- name: mobf_get_world_setting(name,value)
--
--! @brief read a setting dedicated to a single world only
--
--! @param name key to use for storage
-------------------------------------------------------------------------------
function mobf_get_world_setting(name)
	return minetest.world_setting_get(name)
end

mobf_init_world_specific_settings()

--!@}