Added back hbhunger

mods/hbhunger/init.lua

@@ -0,0 +1,143 @@
+if minetest.setting_getbool("enable_damage") then
+
+hbhunger = {}
+
+-- HUD statbar values
+hbhunger.hunger = {}
+hbhunger.hunger_out = {}
+
+-- HUD item ids
+local hunger_hud = {}
+
+HUNGER_HUD_TICK = 0.1
+
+--Some hunger settings
+hbhunger.exhaustion = {} -- Exhaustion is experimental!
+
+HUNGER_HUNGER_TICK = 800 -- time in seconds after that 1 hunger point is taken
+HUNGER_EXHAUST_DIG = 3  -- exhaustion increased this value after digged node
+HUNGER_EXHAUST_PLACE = 1 -- exhaustion increased this value after placed
+HUNGER_EXHAUST_MOVE = 0.3 -- exhaustion increased this value if player movement detected
+HUNGER_EXHAUST_LVL = 160 -- at what exhaustion player satiation gets lowerd
+
+
+--load custom settings
+local set = io.open(minetest.get_modpath("hbhunger").."/hbhunger.conf", "r")
+if set then
+	dofile(minetest.get_modpath("hbhunger").."/hbhunger.conf")
+	set:close()
+end
+
+local function custom_hud(player)
+	hb.init_hudbar(player, "satiation", hbhunger.get_hunger(player))
+end
+
+dofile(minetest.get_modpath("hbhunger").."/hunger.lua")
+
+-- register satiation hudbar
+hb.register_hudbar("satiation", 0xFFFFFF, "Satiation", { icon = "hbhunger_icon.png", bar = "hbhunger_bar.png" }, 20, 30, false)
+
+-- update hud elemtens if value has changed
+local function update_hud(player)
+	local name = player:get_player_name()
+ --hunger
+	local h_out = tonumber(hbhunger.hunger_out[name])
+	local h = tonumber(hbhunger.hunger[name])
+	if h_out ~= h then
+		hbhunger.hunger_out[name] = h
+		hb.change_hudbar(player, "satiation", h)
+	end
+end
+
+hbhunger.get_hunger = function(player)
+	local inv = player:get_inventory()
+	if not inv then return nil end
+	local hgp = inv:get_stack("hunger", 1):get_count()
+	if hgp == 0 then
+		hgp = 21
+		inv:set_stack("hunger", 1, ItemStack({name=":", count=hgp}))
+	else
+		hgp = hgp
+	end
+	return hgp-1
+end
+
+hbhunger.set_hunger = function(player)
+	local inv = player:get_inventory()
+	local name = player:get_player_name()
+	local value = hbhunger.hunger[name]
+	if not inv  or not value then return nil end
+	if value > 30 then value = 30 end
+	if value < 0 then value = 0 end
+
+	inv:set_stack("hunger", 1, ItemStack({name=":", count=value+1}))
+
+	return true
+end
+
+minetest.register_on_joinplayer(function(player)
+	local name = player:get_player_name()
+	local inv = player:get_inventory()
+	inv:set_size("hunger",1)
+	hbhunger.hunger[name] = hbhunger.get_hunger(player)
+	hbhunger.hunger_out[name] = hbhunger.hunger[name]
+	hbhunger.exhaustion[name] = 0
+	custom_hud(player)
+	hbhunger.set_hunger(player)
+end)
+
+minetest.register_on_respawnplayer(function(player)
+	-- reset hunger (and save)
+	local name = player:get_player_name()
+	hbhunger.hunger[name] = 20
+	hbhunger.set_hunger(player)
+	hbhunger.exhaustion[name] = 0
+end)
+
+local main_timer = 0
+local timer = 0
+local timer2 = 0
+minetest.register_globalstep(function(dtime)
+	main_timer = main_timer + dtime
+	timer = timer + dtime
+	timer2 = timer2 + dtime
+	if main_timer > HUNGER_HUD_TICK or timer > 4 or timer2 > HUNGER_HUNGER_TICK then
+		if main_timer > HUNGER_HUD_TICK then main_timer = 0 end
+		for _,player in ipairs(minetest.get_connected_players()) do
+		local name = player:get_player_name()
+
+		local h = tonumber(hbhunger.hunger[name])
+		local hp = player:get_hp()
+		if timer > 4 then
+			-- heal player by 1 hp if not dead and satiation is > 15 (of 30)
+			if h > 15 and hp > 0 and player:get_breath() > 0 then
+				player:set_hp(hp+1)
+				-- or damage player by 1 hp if satiation is < 2 (of 30)
+				elseif h <= 1 then
+					if hp-1 >= 0 then player:set_hp(hp-1) end
+				end
+			end
+			-- lower satiation by 1 point after xx seconds
+			if timer2 > HUNGER_HUNGER_TICK then
+				if h > 0 then
+					h = h-1
+					hbhunger.hunger[name] = h
+					hbhunger.set_hunger(player)
+				end
+			end
+
+			-- update all hud elements
+			update_hud(player)
+
+			local controls = player:get_player_control()
+			-- Determine if the player is walking
+			if controls.up or controls.down or controls.left or controls.right then
+				hbhunger.handle_node_actions(nil, nil, player)
+			end
+		end
+	end
+	if timer > 4 then timer = 0 end
+	if timer2 > HUNGER_HUNGER_TICK then timer2 = 0 end
+end)
+
+end