central_message/init.lua

cmsg = {}
cmsg.hudids = {}
cmsg.active_messages = {}
cmsg.settings = {}

cmsg.settings.max_messages = 7
local setting = minetest.setting_get("central_message_max")
if type(tonumber(setting)) == "number" then
	cmsg.settings.max_messages = tonumber(setting)
elseif setting == "inf" then
	cmsg.settings.max_messages = nil
end

cmsg.default_color = 0xFFFFFF

cmsg.push_message_player = function(player, text, color)
	local function push(tbl)
		-- Horrible Workaround code starts here
		if not (cmsg.last_push < cmsg.steps) then
			minetest.after(0, push, tbl)
			return
		end

		local player = tbl.player
		local text = tbl.text
		local color = tbl.color
		-- Horrible Workaround code ends here

		local pname = player:get_player_name()
		if color == nil then color = cmsg.default_color end
		if cmsg.hudids[pname] == nil then
			cmsg.hudids[pname] = {}
			cmsg.active_messages[pname] = 0
		else
			-- move older HUD IDs up
			for hudid,tbl in pairs(cmsg.hudids[pname]) do
				tbl.stackpos = tbl.stackpos + 1
				if cmsg.settings.max_messages and tbl.stackpos >= cmsg.settings.max_messages then
					player:hud_remove(hudid)
					cmsg.hudids[pname][hudid] = nil
					cmsg.active_messages[pname] = cmsg.active_messages[pname] - 1
				else
					player:hud_change(hudid, "offset", {x=0,y=-128-(18*tbl.stackpos)})
				end
			end
		end
		local hudid = player:hud_add({
			hud_elem_type = "text",
			text = text,
			number = color,
			position = {x=0.5, y=0.5},
			offset = {x=0,y=-128},
			direction = 0,
			alignment = {x=0,y=0},
			scale = {x=300,y=18},
		})

		cmsg.hudids[pname][hudid] = {stackpos=0}
		cmsg.active_messages[pname] = cmsg.active_messages[pname] + 1

		minetest.after(5, function(param)
			local pname = param.player:get_player_name()
			param.player:hud_remove(param.hudid)
			cmsg.hudids[pname][param.hudid] = nil
			cmsg.active_messages[pname] = cmsg.active_messages[pname] - 1
		end, {player=player, hudid = hudid})
	
		-- Update timer for Horrible Workaround
		cmsg.last_push = cmsg.steps
	end

	if cmsg.last_push < cmsg.steps then
		push({player=player, text=text, color=color})
	else
		minetest.after(0, push, {player=player, text=text, color=color})
	end
end

cmsg.push_message_all = function(text, color)
	local players = minetest.get_connected_players()
	for i=1,#players do
		cmsg.push_message_player(players[i], text, color)
	end
end

minetest.register_on_leaveplayer(function(player)
	cmsg.hudids[player:get_player_name()] = nil
end)

-- Horrible Workaround code starts here
cmsg.steps = 0
cmsg.last_push = -1
minetest.register_globalstep(function(dtime)
	cmsg.steps = cmsg.steps + 1
end)
-- Horrible Workaround code ends here