VoxeLibre/mods/PLAYER/mcl_hunger/init.lua

local modname = minetest.get_current_modname()
local modpath = minetest.get_modpath(modname)

local S = minetest.get_translator(modname)

local max_tick_timer
vl_tuning.setting("health_regen_delay", "number", {
	default = tonumber(minetest.settings:get("mcl_health_regen_delay")) or 0.5,
	set = function(val) max_tick_timer = val end,
	get = function() return max_tick_timer end,
})
local natural_regeneration = true
vl_tuning.setting("gamerule:naturalRegeneration", "bool", {
	default = true,
	set = function(val) natural_regeneration = val end,
	get = function() return natural_regeneration end,
})

mcl_hunger = {}

--[[ This variable tells you if the hunger gameplay mechanic is active.
The state of the hunger mechanic will be determined at game start.
Hunger is enabled when damage is enabled.
If the damage setting is changed within the game, this does NOT
update the hunger mechanic, so the game must be restarted for this
to take effect. ]]
mcl_hunger.active = false
if minetest.settings:get_bool("enable_damage") == true and minetest.settings:get_bool("mcl_enable_hunger") ~= false then
	mcl_hunger.active = true
end

mcl_hunger.HUD_TICK = 0.1

-- Exhaustion increase
mcl_hunger.EXHAUST_DIG = 5  -- after digging node
mcl_hunger.EXHAUST_JUMP = 50 -- jump
mcl_hunger.EXHAUST_SPRINT_JUMP = 200 -- jump while sprinting
mcl_hunger.EXHAUST_ATTACK = 100 -- hit an enemy
mcl_hunger.EXHAUST_SWIM = 10 -- player movement in water
mcl_hunger.EXHAUST_SPRINT = 100 -- sprint (per node)
mcl_hunger.EXHAUST_DAMAGE = 100 -- taking damage (protected by armor)
mcl_hunger.EXHAUST_REGEN = 6000 -- Regenerate 1 HP
mcl_hunger.EXHAUST_HUNGER = 5 -- Hunger status effect at base level.
mcl_hunger.EXHAUST_LVL = 4000 -- at what exhaustion player saturation gets lowered

mcl_hunger.EATING_DELAY = tonumber(minetest.settings:get("mcl_eating_delay")) or 1.61
mcl_hunger.EATING_WALK_SPEED = tonumber(minetest.settings:get("movement_speed_crouch")) / tonumber(minetest.settings:get("movement_speed_walk"))
mcl_hunger.EATING_TOUCHSCREEN_DELAY_PADDING = 0.75

mcl_hunger.SATURATION_INIT = 5 -- Initial saturation for new/respawning players

-- Debug Mode. If enabled, saturation and exhaustion are shown as well.
-- NOTE: Only updated when settings are loaded.
mcl_hunger.debug = false

-- Cooldown timers for each player, to force a short delay between consuming 2 food items
mcl_hunger.last_eat = {}

-- Is player eating API
function mcl_hunger.is_eating(name)
	local result
	if name then
		if type(name) ~= "string" then
			name = name:get_player_name()
		end
		result = mcl_hunger.eat_internal[name].is_eating_no_padding
	end
	return result
end

-- Variables for each player, to handle delayed eating
mcl_hunger.eat_internal = {}
mcl_hunger.eat_anim_hud = {}

-- Set per player internal variables for delayed eating
minetest.register_on_joinplayer(function(player)
	local name = player:get_player_name()

	mcl_hunger.eat_internal[name] = {
		is_eating = false,
		is_eating_no_padding = false,
		itemname = nil,
		item_definition = nil,
		hp_change = nil,
		replace_with_item = nil,
		itemstack = nil,
		user = nil,
		pointed_thing = nil,
		pitch = nil,
		do_item_eat = false,
		_custom_itemstack = nil, -- Used as comparison to make sure _custom_wrapper only executes when the same item is eaten
		_custom_var = {}, -- Variables that can be used by _custom_var and _custom_wrapper
		_custom_func = nil, -- Can be executed by _custom_wrapper
		_custom_wrapper = nil, -- Will execute alongside minetest.do_item_eat if not empty and _custom_itemstack is equal to current player itemstack
		_custom_do_delayed = false, -- If true, then will execute only _custom_wrapper after holding RMB or LMB within a delay specified by mcl_hunger.EATING_DELAY (Use to bypass minetest.do_item_eat entirely)
	}
	playerphysics.remove_physics_factor(player, "speed", "mcl_hunger:eating_speed")
	player:hud_set_flags({wielditem = true})
end)

-- Clear when player leaves
minetest.register_on_leaveplayer(function(player)
	local name = player:get_player_name()

	mcl_hunger.eat_internal[name] = nil
	mcl_hunger.eat_anim_hud[name] = nil
end)

dofile(modpath.."/api.lua")
dofile(modpath.."/hunger.lua")
dofile(modpath.."/register_foods.lua")

--[[ IF HUNGER IS ENABLED ]]
if mcl_hunger.active == true then

-- Read debug mode setting
-- The setting should only be read at the beginning, this mod is not
-- prepared to change this setting later.
mcl_hunger.debug = minetest.settings:get_bool("mcl_hunger_debug")
if mcl_hunger.debug == nil then
	mcl_hunger.debug = false
end

--[[ Data value format notes:
	Hunger values is identical to Minecraft's and ranges from 0 to 20.
	Exhaustion and saturation values are stored as integers, unlike in Minecraft.
	Exhaustion is Minecraft exhaustion times 1000 and ranges from 0 to 4000.
	Saturation is Minecraft saturation and ranges from 0 to 20.

	Food saturation is stored in the custom item definition field _mcl_saturation.
	This field uses the original Minecraft value.
]]

-- Count number of poisonings a player has at once
mcl_hunger.poison_hunger = {} -- food poisoning, increasing hunger

-- HUD
local function init_hud(player)
	local name = player:get_player_name()
	hb.init_hudbar(player, "hunger", mcl_hunger.get_hunger(player))
	if mcl_hunger.debug then
		hb.init_hudbar(player, "saturation", mcl_hunger.get_saturation(player), mcl_hunger.get_hunger(player))
		hb.init_hudbar(player, "exhaustion", mcl_hunger.get_exhaustion(player))
	end
	mcl_hunger.eat_anim_hud[name] = player:hud_add({
		hud_elem_type = "image",
		text = "blank.png",
		position = {x = 0.5, y = 1},
		scale = {x = -25, y = -45},
		alignment = {x = 0, y = -1},
		offset = {x = 0, y = -30},
		z_index = -200,
	})
end

-- HUD updating functions for Debug Mode. No-op if not in Debug Mode
function mcl_hunger.update_saturation_hud(player, saturation, hunger)
	if mcl_hunger.debug then
		hb.change_hudbar(player, "saturation", saturation, hunger)
	end
end
function mcl_hunger.update_exhaustion_hud(player, exhaustion)
	if mcl_hunger.debug then
		if not exhaustion then
			exhaustion =  mcl_hunger.get_exhaustion(player)
		end
		hb.change_hudbar(player, "exhaustion", exhaustion)
	end
end

-- register saturation hudbar
hb.register_hudbar("hunger", 0xFFFFFF, S("Food"), { icon = "hbhunger_icon.png", bgicon = "hbhunger_bgicon.png",  bar = "hbhunger_bar.png" }, 1, 20, 20, false)
if mcl_hunger.debug then
	hb.register_hudbar("saturation", 0xFFFFFF, S("Saturation"), { icon = "mcl_hunger_icon_saturation.png", bgicon = "mcl_hunger_bgicon_saturation.png", bar = "mcl_hunger_bar_saturation.png" }, 1, mcl_hunger.SATURATION_INIT, 200, false)
	hb.register_hudbar("exhaustion", 0xFFFFFF, S("Exhaust."), { icon = "mcl_hunger_icon_exhaustion.png", bgicon = "mcl_hunger_bgicon_exhaustion.png", bar = "mcl_hunger_bar_exhaustion.png" }, 1, 0, mcl_hunger.EXHAUST_LVL, false)
end

minetest.register_on_joinplayer(function(player)
	local name = player:get_player_name()
	mcl_hunger.init_player(player)
	init_hud(player)
	mcl_hunger.poison_hunger[name] = 0
	mcl_hunger.last_eat[name] = -1
end)

minetest.register_on_respawnplayer(function(player)
	-- reset hunger, related values and poison
	local name = player:get_player_name()

	mcl_hunger.stop_poison(player)
	mcl_hunger.last_eat[name] = -1

	local h, s, e = 20, mcl_hunger.SATURATION_INIT, 0
	mcl_hunger.set_hunger(player, h, false)
	mcl_hunger.set_saturation(player, s, false)
	mcl_hunger.set_exhaustion(player, e, false)
	hb.change_hudbar(player, "hunger", h)
	mcl_hunger.update_saturation_hud(player, s, h)
	mcl_hunger.update_exhaustion_hud(player, e)
end)

-- PvP combat exhaustion
minetest.register_on_punchplayer(function(victim, puncher, time_from_last_punch, tool_capabilities, dir, damage)
	if puncher:is_player() then
		mcl_hunger.exhaust(puncher:get_player_name(), mcl_hunger.EXHAUST_ATTACK)
	end
end)

-- Exhaust on taking damage
minetest.register_on_player_hpchange(function(player, hp_change)
	if hp_change < 0 then
		local name = player:get_player_name()
		mcl_hunger.exhaust(name, mcl_hunger.EXHAUST_DAMAGE)
	end
end)

local food_tick_timers = {} -- one food_tick_timer per player, keys are the player-objects
local eat_start_timers = {}
local eat_tick_timers = {}
local eat_effects_cooldown = {}

local function clear_eat_internal_and_timers(player, player_name)
	playerphysics.remove_physics_factor(player, "speed", "mcl_hunger:eating_speed")
	player:hud_set_flags({wielditem = true})
	player:hud_change(mcl_hunger.eat_anim_hud[player_name], "text", "blank.png")
	mcl_hunger.eat_internal[player_name] = {
		is_eating = false,
		is_eating_no_padding = false,
		itemname = nil,
		item_definition = nil,
		hp_change = nil,
		replace_with_item = nil,
		itemstack = nil,
		user = nil,
		pointed_thing = nil,
		pitch = nil,
		do_item_eat = false,
		_custom_itemstack = nil,
		_custom_var = {},
		_custom_func = nil,
		_custom_wrapper = nil,
		_custom_do_delayed = false,
	}
	eat_start_timers[player] = 0
	eat_tick_timers[player] = 0
	eat_effects_cooldown[player] = 0
end

minetest.register_globalstep(function(dtime)
	for _,player in pairs(minetest.get_connected_players()) do

		local food_tick_timer = food_tick_timers[player] and food_tick_timers[player] + dtime or 0
		local player_name = player:get_player_name()
		local food_level = mcl_hunger.get_hunger(player)
		local food_saturation_level = mcl_hunger.get_saturation(player)
		local player_health = player:get_hp()

		if food_tick_timer > 4 then
			food_tick_timer = 0

			-- let hunger work always
			if player_health > 0 then
				--mcl_hunger.exhaust(player_name, mcl_hunger.EXHAUST_HUNGER) -- later for hunger status effect
				mcl_hunger.update_exhaustion_hud(player)
			end

			if food_level >= 18 then -- slow regeneration
				if natural_regeneration and player_health > 0 and player_health < player:get_properties().hp_max then
					player:set_hp(player_health+1)
					mcl_hunger.exhaust(player_name, mcl_hunger.EXHAUST_REGEN)
					mcl_hunger.update_exhaustion_hud(player)
				end

			elseif food_level == 0 then -- starvation
				-- the amount of health at which a player will stop to get
				-- harmed by starvation (10 for Easy, 1 for Normal, 0 for Hard)
				local maximum_starvation = 1
				-- TODO: implement Minecraft-like difficulty modes and the update maximumStarvation here
				if player_health > maximum_starvation then
					mcl_util.deal_damage(player, 1, {type = "starve"})
				end
			end

		elseif food_tick_timer > max_tick_timer and food_level == 20 and food_saturation_level > 0 then -- fast regeneration
			if natural_regeneration and player_health > 0 and player_health < player:get_properties().hp_max then
				food_tick_timer = 0
				player:set_hp(player_health+1)
				mcl_hunger.exhaust(player_name, mcl_hunger.EXHAUST_REGEN)
				mcl_hunger.update_exhaustion_hud(player)
			end
		end

		food_tick_timers[player] = food_tick_timer -- update food_tick_timer table

		-- Eating delay code
		if mcl_hunger.eat_internal[player_name] and mcl_hunger.eat_internal[player_name].is_eating or mcl_hunger.eat_internal[player_name]._custom_do_delayed then
			mcl_hunger.eat_internal[player_name].is_eating = true
			mcl_hunger.eat_internal[player_name].is_eating_no_padding = true

			local control = player:get_player_control()
			local inv = player:get_inventory()
			local current_itemstack = player:get_wielded_item()

			if not eat_start_timers[player] then
				eat_start_timers[player] = 0
			end

			eat_start_timers[player] = eat_start_timers[player] + dtime

			if not eat_tick_timers[player] then
				eat_tick_timers[player] = 0
			end

			if not eat_effects_cooldown[player] then
				eat_effects_cooldown[player] = 0
			end

			if not mcl_hunger.eat_internal[player_name].pitch then
				mcl_hunger.eat_internal[player_name].pitch = 1 + math.random(-10, 10)*0.005
			end

			-- check if holding RMB (or LMB as workaround for touchscreen)
			if (current_itemstack == mcl_hunger.eat_internal[player_name].itemstack or current_itemstack == mcl_hunger.eat_internal[player_name]._custom_itemstack) and (control.RMB or control.LMB) then
				eat_tick_timers[player] = eat_tick_timers[player] + dtime
				eat_effects_cooldown[player] = eat_effects_cooldown[player] + dtime

				playerphysics.add_physics_factor(player, "speed", "mcl_hunger:eating_speed", mcl_hunger.EATING_WALK_SPEED)

				player:hud_set_flags({wielditem = false})
				local itemstackdef = current_itemstack:get_definition()
				local wield_image = itemstackdef.wield_image
				if not wield_image or wield_image == "" then wield_image = itemstackdef.inventory_image end
				player:hud_change(mcl_hunger.eat_anim_hud[player_name], "text", wield_image)
				player:hud_change(mcl_hunger.eat_anim_hud[player_name], "offset", {x = 0, y = 50*math.sin(10*eat_tick_timers[player]+math.random())-50})

				if eat_effects_cooldown[player] > 0.2 then
					eat_effects_cooldown[player] = 0

					if not mcl_hunger.eat_internal[player_name].user then
						mcl_hunger.eat_internal[player_name].user = player
					end

					if not mcl_hunger.eat_internal[player_name].itemname then
						mcl_hunger.eat_internal[player_name].itemname = current_itemstack:get_name()
					end

					if not mcl_hunger.eat_internal[player_name].hp_change then
						mcl_hunger.eat_internal[player_name].hp_change = 0
					end

					local pos = player:get_pos()
					local itemname = mcl_hunger.eat_internal[player_name].itemname
					local def = minetest.registered_items[itemname]

					mcl_hunger.eat_effects(
						mcl_hunger.eat_internal[player_name].user,
						mcl_hunger.eat_internal[player_name].itemname,
						pos,
						mcl_hunger.eat_internal[player_name].hp_change,
						def,
						mcl_hunger.eat_internal[player_name].pitch
					)
				end

				-- check if eating delay is over
				if eat_tick_timers[player] >= mcl_hunger.EATING_DELAY then

					if not mcl_hunger.eat_internal[player_name]._custom_do_delayed then
						mcl_hunger.eat_internal[player_name].do_item_eat = true

						minetest.do_item_eat(
							mcl_hunger.eat_internal[player_name].hp_change,
							mcl_hunger.eat_internal[player_name].replace_with_item,
							mcl_hunger.eat_internal[player_name].itemstack,
							mcl_hunger.eat_internal[player_name].user,
							mcl_hunger.eat_internal[player_name].pointed_thing
						)

					-- bypass minetest.do_item_eat and only execute _custom_wrapper
					elseif mcl_hunger.eat_internal[player_name]._custom_itemstack and
						mcl_hunger.eat_internal[player_name]._custom_wrapper and
						mcl_hunger.eat_internal[player_name]._custom_itemstack == current_itemstack then

						mcl_hunger.eat_internal[player_name]._custom_wrapper(player_name)

						player:get_inventory():set_stack("main", player:get_wield_index(), itemstack)
					end

					clear_eat_internal_and_timers(player, player_name)
				end

			elseif eat_start_timers[player] and eat_start_timers[player] > 0.2 then
				playerphysics.remove_physics_factor(player, "speed", "mcl_hunger:eating_speed")
				player:hud_set_flags({wielditem = true})
				player:hud_change(mcl_hunger.eat_anim_hud[player_name], "text", "blank.png")
				mcl_hunger.eat_internal[player_name].is_eating_no_padding = false

			elseif eat_start_timers[player] and eat_start_timers[player] > mcl_hunger.EATING_TOUCHSCREEN_DELAY_PADDING then
				clear_eat_internal_and_timers(player, player_name)
			end
		end

		if eat_start_timers[player] and eat_start_timers[player] > mcl_hunger.EATING_DELAY + mcl_hunger.EATING_TOUCHSCREEN_DELAY_PADDING then
			clear_eat_internal_and_timers(player, player_name)
		end
	end
end)

--[[ IF HUNGER IS NOT ENABLED ]]
else

minetest.register_on_joinplayer(function(player)
	mcl_hunger.init_player(player)
	mcl_hunger.last_eat[player:get_player_name()] = -1
end)

end