musttest_game/mods/xp/init.lua

if not minetest.global_exists("xp") then xp = {} end
xp.modpath = minetest.get_modpath("xp")
xp.digxp_max = 1000000
xp.digxp_hp_max = 50000
xp.data = xp.data or {} -- Data is stored in string form.
xp.dirty = true
xp.dirty_players = xp.dirty_players or {}

-- Localize for performance.
local math_floor = math.floor
local math_min = math.min
local math_max = math.max



-- This code supports multiple types of XP.
-- Different types of XP are stored seperately.
function xp.set_xp(pname, kind, amount)
	local key = pname .. ":" .. kind
	xp.data[key] = tostring(amount)
	xp.dirty = true
	xp.dirty_players[pname] = true
end



function xp.get_xp(pname, kind)
	local key = pname .. ":" .. kind
	if not xp.data[key] then
		return 0
	end
	return tonumber(xp.data[key])
end



-- 500 internal hp = 1 player-visible HP.
--
-- Note: max hp gain from XP must be no greater than 40000.
-- Add 10000 which is the base hp, and we get 50000 hp, which is 100 HP.
-- Adding 15000 to that brings us to 65000 hp, which is near the maximum the
-- engine allows us; a total of 130 HP, obtainable with the health boost item.
-- Unfortunately, this means that a bunch of people who used to have 120 HP
-- just from the XP are now suddenly down 20 HP ... and they're probably not
-- going to be happy.
--
-- The upside is that the health boost drink gives a fixed amount of HP, and is
-- available much sooner than high XP normally is. Hope it's worth it.
--
-- Note: this function must return HP from XP ONLY, without taking any other
-- factors into account, esp. NOT health boosts.
function xp.get_hp_max(pname)
	local amount = math_max(math_min(xp.get_xp(pname, "digxp"), xp.digxp_hp_max), 0)
	local hpinc = math_floor(amount / 620)
	local scale = 500
	local max_hp = math_floor((minetest.PLAYER_MAX_HP_DEFAULT + hpinc) * scale)
	return max_hp
end



function xp.update_players_max_hp(pname, login)
	local pref = minetest.get_player_by_name(pname)
	if not pref then
		return
	end

	local pmeta = pref:get_meta()
	local max_hp = pova.get_active_modifier(pref, "properties").hp_max
	local cur_hp = pref:get_hp()

	if login then
		-- Get stored values.
		max_hp = pmeta:get_int("hp_max")
		cur_hp = pmeta:get_int("hp_cur")

		-- Should only happen for new players (and existing that don't have 'hp_max'
		-- in their meta info yet).
		if max_hp == 0 or cur_hp == 0 then
			max_hp = minetest.PLAYER_MAX_HP_DEFAULT
			cur_hp = max_hp
		end
	end

	local percent = (cur_hp / max_hp)
	if percent > 1 then percent = 1 end

	local new_max_hp = xp.get_hp_max(pname)
	local new_hp = math_min((percent * new_max_hp), new_max_hp)

	-- Note: 'hp_max' must be manually stored in player meta, because Minetest
	-- does not store this itself, and reverts to HP_MAX=20 on every login. The
	-- same logic applies to 'hp_cur', which we must keep track of ourselves.
	--
	-- Note: HP max must be set *before* HP update!
	-- Otherwise set_hp() will be ignored if hp is higher than existing max!
	--
	-- Note: must manually notify the HP change reason, here.
	pova.set_modifier(pref, "properties", {hp_max = new_max_hp}, "xphp")
	armor.notify_set_hp_reason({reason="xp_update"})
	pref:set_hp(new_hp)
	pmeta:set_int("hp_max", new_max_hp)

	-- Data 'hp_cur' will be updated when player leaves.

	-- Manually update HUD.
	hud.player_event(pref, "health_changed")
end



function xp.on_joinplayer(player)
	minetest.after(0, xp.update_players_max_hp, player:get_player_name(), true)
end

function xp.on_leaveplayer(player)
	local meta = player:get_meta()
	meta:set_int("hp_cur", player:get_hp())
end



function xp.write_xp()
	if xp.dirty then
		local temp = {}
		for k, v in pairs(xp.data) do
			-- Only save XP if >= min XP.
			local n = tonumber(v)
			if n >= 5.0 then
				temp[k] = v
			end
		end
		xp.storage:from_table({fields=temp})
	end
	xp.dirty = false
end



local timer = 0
local delay = 60*5
function xp.globalstep(dtime)
	timer = timer + dtime
	if timer >= delay then
		timer = 0
		xp.write_xp()

		local done_players = {}
		for k, v in pairs(xp.dirty_players) do
			xp.update_players_max_hp(k)
			done_players[k] = true
		end
		for k, v in pairs(done_players) do
			xp.dirty_players[k] = nil
		end
	end
end



if not xp.run_once then
	xp.storage = minetest.get_mod_storage()

	-- Load data.
	local data = xp.storage:to_table() or {}
	xp.data = data.fields or {}

	-- Save data.
	minetest.register_on_shutdown(function() xp.write_xp() end)
	minetest.register_globalstep(function(...) xp.globalstep(...) end)
	minetest.register_on_joinplayer(function(...) xp.on_joinplayer(...) end)
	minetest.register_on_leaveplayer(function(...) xp.on_leaveplayer(...) end)

	local c = "xp:core"
	local f = xp.modpath .. "/init.lua"
	reload.register_file(c, f, false)

	xp.run_once = true
end