Merge pull request 'Add debug hud' (#2459) from debug_hud into master

Reviewed-on: MineClone2/MineClone2#2459
Reviewed-by: MysticTempest <mystictempest@noreply.git.minetest.land>

mods/HUD/mcl_info/API.md

@@ -0,0 +1,18 @@
+## mcl_info
+An api to make custom entries in the mcl2 debug hud.
+
+### mcl_info.register_debug_field(name,defintion)
+Debug field defintion example:
+{
+	level = 3,
+	--show with debug level 3 and upwards
+
+	func = function(player,pos) return minetest.pos_to_string(pos) end,
+	-- Function that is run for at each debug
+	-- sample (default: every .63 seconds)
+	-- It should output a string and determines
+	-- the content of the debug field.
+}
+
+### mcl_info.registered_debug_fields
+Table the debug definitions are stored in. Do not modify this directly. If you need to overwrite a field just set it again with mcl_info.register_debug_field().

mods/HUD/mcl_info/init.lua

@@ -0,0 +1,161 @@
+mcl_info = {}
+local refresh_interval      = .63
+local huds                  = {}
+local default_debug         = 0
+local after                 = minetest.after
+local get_connected_players = minetest.get_connected_players
+local get_biome_name        = minetest.get_biome_name
+local get_biome_data        = minetest.get_biome_data
+local format                = string.format
+
+local min1, min2, min3 = mcl_vars.mg_overworld_min, mcl_vars.mg_end_min, mcl_vars.mg_nether_min
+local max1, max2, max3 = mcl_vars.mg_overworld_max, mcl_vars.mg_end_max, mcl_vars.mg_nether_max + 128
+
+local modname = minetest.get_current_modname()
+local modpath = minetest.get_modpath(modname)
+local S = minetest.get_translator(modname)
+local storage = minetest.get_mod_storage()
+local player_dbg = {}
+
+local function check_setting(s)
+	return s
+end
+
+--return player setting, set it to 2nd argument if supplied
+local function player_setting(p,s)
+	local name = p:get_player_name()
+	if check_setting(s) then
+		p:get_meta():set_string("mcl_info_show",s)
+		player_dbg[name] = tonumber(s)
+	end
+	if not player_dbg[name] then
+		local r = p:get_meta():get_string("mcl_info_show")
+		if r == nil or r == "" then r = 0 end
+		player_dbg[name] = tonumber(r)
+	end
+	return player_dbg[name]
+end
+
+mcl_info.registered_debug_fields = {}
+local fields_keyset = {}
+function mcl_info.register_debug_field(name,def)
+	table.insert(fields_keyset,name)
+	mcl_info.registered_debug_fields[name]=def
+end
+
+local function nodeinfo(pos)
+	local n = minetest.get_node_or_nil(pos)
+	if not n then return "" end
+	local l = minetest.get_node_light(pos)
+	local ld = minetest.get_node_light(pos,0.5)
+	local r = n.name .. " p1:"..n.param1.." p2:"..n.param2
+	if l and ld then
+		r = r .. " Light: "..l.."/"..ld
+	end
+	return r
+end
+
+local function get_text(player, bits)
+	local pos = vector.offset(player:get_pos(),0,0.5,0)
+	local bits = bits
+	if bits == 0 then return "" end
+
+	local r = ""
+	for _,key in ipairs(fields_keyset) do
+		local def = mcl_info.registered_debug_fields[key]
+		if def.level == nil or def.level <= bits then
+			r = r ..key..": "..tostring(def.func(player,pos)).."\n"
+		end
+	end
+
+	return r
+end
+
+local function info()
+	for _, player in pairs(get_connected_players()) do
+		local name = player:get_player_name()
+		local s = player_setting(player)
+		local pos = player:get_pos()
+		local text = get_text(player, s)
+		local hud = huds[name]
+		if s and not hud then
+			local def = {
+				hud_elem_type = "text",
+				alignment     = {x = 1, y = -1},
+				scale         = {x = 100, y = 100},
+				position      = {x = 0.0073, y = 0.889},
+				text          = text,
+				style         = 5,
+				["number"]    = 0xcccac0,
+				z_index       = 0,
+			}
+			local def_bg = table.copy(def)
+			def_bg.offset = {x = 2, y = 1}
+			def_bg["number"] = 0
+			def_bg.z_index = -1
+			huds[name] = {
+				player:hud_add(def),
+				player:hud_add(def_bg),
+				text,
+			}
+		elseif text ~= hud[3] then
+			hud[3] = text
+			player:hud_change(huds[name][1], "text", text)
+			player:hud_change(huds[name][2], "text", text)
+		end
+	end
+	after(refresh_interval, info)
+end
+info()
+
+minetest.register_on_leaveplayer(function(p)
+	local name = p:get_player_name()
+	huds[name] = nil
+	player_dbg[name] = nil
+end)
+
+minetest.register_chatcommand("debug",{
+	description = S("Set debug bit mask: 0 = disable, 1 = biome name, 2 = coordinates, 3 = all"),
+	params = S("<bitmask>"),
+	privs = { debug = true },
+	func = function(name, params)
+		local player = minetest.get_player_by_name(name)
+		if params == "" then return true, "Debug bitmask is "..player_setting(player) end
+		local dbg = math.floor(tonumber(params) or default_debug)
+		if dbg < 0 or dbg > 4 then
+			minetest.chat_send_player(name, S("Error! Possible values are integer numbers from @1 to @2", 0, 4))
+			return false,"Current bitmask: "..player_setting(player)
+		end
+		return true, "Debug bit mask set to "..player_setting(player,dbg)
+	end
+})
+
+mcl_info.register_debug_field("Node feet",{
+	level = 4,
+	func = function(pl,pos)
+		return nodeinfo(pos)
+	end
+})
+mcl_info.register_debug_field("Node below",{
+	level = 4,
+	func = function(pl,pos)
+		return nodeinfo(vector.offset(pos,0,-1,0))
+	end
+})
+mcl_info.register_debug_field("Biome",{
+	level = 3,
+	func = function(pl,pos)
+		local biome_data = get_biome_data(pos)
+		local biome = biome_data and get_biome_name(biome_data.biome) or "No biome"
+		if biome_data then
+			return format("%s (%s), Humidity: %.1f, Temperature: %.1f",biome, biome_data.biome, biome_data.humidity, biome_data.heat)
+		end
+		return "No biome"
+	end
+})
+mcl_info.register_debug_field("Coords",{
+	level = 2,
+	func = function(pl,pos)
+		return format("x:%.1f y:%.1f z:%.1f", pos.x, pos.y, pos.z)
+	end
+})

mods/HUD/mcl_info/locale/mcl_info.ru.tr

@@ -0,0 +1,4 @@
+# textdomain: mcl_info
+Set debug bit mask: 0 @= disable, 1 @= biome name, 2 @= coordinates, 3 @= all=Установка отладочной битовой маски: 0 @= отключить, 1 @= биом, 2 @= координаты, 3 @= всё
+Error! Possible values are integer numbers from @1 to @2=Ошибка! Допустимые значения - целые числа от @1 до @2
+Debug bit mask set to @1=Отладочной битовой маске присвоено значение @1

mods/HUD/mcl_info/locale/template.txt

@@ -0,0 +1,4 @@
+# textdomain: mcl_info
+Set debug bit mask: 0 @= disable, 1 @= biome name, 2 @= coordinates, 3 @= all=
+Error! Possible values are integer numbers from @1 to @2=
+Debug bit mask set to @1=

mods/HUD/mcl_info/mod.conf

@@ -0,0 +1,3 @@
+name = mcl_info
+description = Prints biome name and player position
+depends = mcl_init