minetest_hbarmor/init.lua

hud = {}

-- HUD statbar values
hud.armor = {}

-- Stores if player's HUD bar has been initialized so far.
hud.player_active = {}

-- HUD item ids
local armor_hud = {}

HUD_TICK = 0.1

--load custom settings
local set = io.open(minetest.get_modpath("hbarmor").."/hud.conf", "r")
if set then 
	dofile(minetest.get_modpath("hbarmor").."/hud.conf")
	set:close()
end

local must_hide = function(playername, arm)
	return ((not armor.def[playername].count or armor.def[playername].count == 0) and arm == 0)
end

local arm_printable = function(arm)
	return math.ceil(math.floor(arm+0.5))
end

local function custom_hud(player)
	local name = player:get_player_name()

	if minetest.setting_getbool("enable_damage") then
		local arm = tonumber(hud.armor[name])
		if not arm then arm = 0 end
		local hide = must_hide(name, arm)
		hb.init_hudbar(player, "armor", arm_printable(arm), nil, nil, hide)
	end
end

--register and define armor HUD bar
hb.register_hudbar("armor", 0xFFFFFF, "Armor", { icon = "hbarmor_icon.png", bar = "hbarmor_bar.png" }, 0, 100, true, "%s: %d%%")

--needs to be defined for older version of 3darmor
function hud.set_armor()
end

dofile(minetest.get_modpath("hbarmor").."/armor.lua")


-- update hud elemtens if value has changed
local function update_hud(player)
	local name = player:get_player_name()
 --armor
	local arm = tonumber(hud.armor[name])
	if not arm then
		arm = 0
		hud.armor[name] = 0
	end
	-- hide armor bar completely when there is none
	if must_hide(name, arm) then
		hb.hide_hudbar(player, "armor")
	else
		hb.change_hudbar(player, "armor", arm_printable(arm))
		hb.unhide_hudbar(player, "armor")
	end
end

minetest.register_on_joinplayer(function(player)
	local name = player:get_player_name()
	hud.armor[name] = 0
	custom_hud(player)
	hud.player_active[name] = true
end)

minetest.register_on_leaveplayer(function(player)
	local name = player:get_player_name()
	hud.player_active[name] = false
end)

local main_timer = 0
local timer = 0
minetest.register_globalstep(function(dtime)
	main_timer = main_timer + dtime
	timer = timer + dtime
	if main_timer > HUD_TICK or timer > 4 then
		if minetest.setting_getbool("enable_damage") then
			if main_timer > HUD_TICK then main_timer = 0 end
			for _,player in ipairs(minetest.get_connected_players()) do
				local name = player:get_player_name()
				if hud.player_active[name] == true then
					hud.get_armor(player)

					-- update all hud elements
					update_hud(player)
				end
			end
		end
	end
	if timer > 4 then timer = 0 end
end)