1
0
Fork 0
VoxeLibre/mods/PLAYER/mcl_hunger/hunger.lua

255 lines
8.6 KiB
Lua
Raw Normal View History

2017-02-16 14:19:34 +01:00
-- wrapper for minetest.item_eat (this way we make sure other mods can't break this one)
2019-02-05 21:14:28 +01:00
local org_eat = minetest.do_item_eat
minetest.do_item_eat = function(hp_change, replace_with_item, itemstack, user, pointed_thing)
if not user or user:is_player() == false then
return itemstack
end
-- Call on_rightclick if the pointed node defines it
if pointed_thing.type == "node" then
local node = minetest.get_node(pointed_thing.under)
if user and not user:get_player_control().sneak then
if minetest.registered_nodes[node.name] and minetest.registered_nodes[node.name].on_rightclick then
return minetest.registered_nodes[node.name].on_rightclick(pointed_thing.under, node, user, itemstack) or itemstack
end
end
end
2017-02-16 14:19:34 +01:00
local old_itemstack = itemstack
2017-05-23 01:39:19 +02:00
local name = user:get_player_name()
local creative = minetest.settings:get_bool("creative_mode") == true
2017-05-23 01:51:37 +02:00
-- Special foodstuffs like the cake may disable the eating delay
local no_eat_delay = creative or (minetest.get_item_group(itemstack:get_name(), "no_eat_delay") == 1)
2017-05-23 01:51:37 +02:00
-- Allow eating only after a delay of 2 seconds. This prevents eating as an excessive speed.
-- FIXME: time() is not a precise timer, so the actual delay may be +- 1 second, depending on which fraction
-- of the second the player made the first eat.
2017-05-23 01:39:19 +02:00
-- FIXME: In singleplayer, there's a cheat to circumvent this, simply by pausing the game between eats.
-- This is because os.time() obviously does not care about the pause. A fix needs a different timer mechanism.
if no_eat_delay or (mcl_hunger.last_eat[name] < 0) or (os.difftime(os.time(), mcl_hunger.last_eat[name]) >= 2) then
2019-02-06 21:23:05 +01:00
local can_eat_when_full = creative or (mcl_hunger.active == false) or minetest.get_item_group(itemstack:get_name(), "can_eat_when_full") == 1
-- Don't allow eating when player has full hunger bar (some exceptional items apply)
if can_eat_when_full or (mcl_hunger.get_hunger(user) < 20) then
itemstack = mcl_hunger.eat(hp_change, replace_with_item, itemstack, user, pointed_thing)
2019-02-05 21:14:28 +01:00
for _, callback in pairs(minetest.registered_on_item_eats) do
local result = callback(hp_change, replace_with_item, itemstack, user, pointed_thing, old_itemstack)
if result then
return result
end
2017-05-23 01:39:19 +02:00
end
mcl_hunger.last_eat[name] = os.time()
2017-02-16 14:19:34 +01:00
end
end
2017-05-23 01:39:19 +02:00
2017-02-16 14:19:34 +01:00
return itemstack
end
function mcl_hunger.eat(hp_change, replace_with_item, itemstack, user, pointed_thing)
local item = itemstack:get_name()
2019-02-06 21:23:05 +01:00
local def = mcl_hunger.registered_foods[item]
2017-02-16 14:19:34 +01:00
if not def then
def = {}
if type(hp_change) ~= "number" then
hp_change = 1
2019-02-05 21:14:28 +01:00
minetest.log("error", "Wrong on_use() definition for item '" .. item .. "'")
2017-02-16 14:19:34 +01:00
end
def.saturation = hp_change
def.replace = replace_with_item
end
local func = mcl_hunger.item_eat(def.saturation, def.replace, def.poisontime, def.poison, def.exhaust, def.poisonchance, def.sound)
2017-02-16 14:19:34 +01:00
return func(itemstack, user, pointed_thing)
end
-- Reset HUD bars after poisoning
2019-02-06 21:23:05 +01:00
function mcl_hunger.reset_bars_poison_damage(player)
hb.change_hudbar(player, "health", nil, nil, "hudbars_icon_health.png", nil, "hudbars_bar_health.png")
end
2019-02-06 21:23:05 +01:00
function mcl_hunger.reset_bars_poison_hunger(player)
hb.change_hudbar(player, "hunger", nil, nil, "hbhunger_icon.png", nil, "hbhunger_bar.png")
if mcl_hunger.debug then
hb.change_hudbar(player, "exhaustion", nil, nil, nil, nil, "mcl_hunger_bar_exhaustion.png")
end
end
2017-02-16 14:19:34 +01:00
-- Poison player
local function poisonp(tick, time, time_left, damage, exhaustion, name)
2019-02-06 21:23:05 +01:00
if not mcl_hunger.active then
return
end
local player = minetest.get_player_by_name(name)
2017-02-16 14:19:34 +01:00
-- First check if player is still there
if not player then
2017-02-16 14:19:34 +01:00
return
end
local name = player:get_player_name()
2017-05-21 00:19:12 +02:00
-- Abort if poisonings have been stopped
if mcl_hunger.poison_damage[name] == 0 and mcl_hunger.poison_hunger[name] == 0 then
2017-05-21 00:19:12 +02:00
return
end
2017-02-16 14:19:34 +01:00
time_left = time_left + tick
if time_left < time then
minetest.after(tick, poisonp, tick, time, time_left, damage, exhaustion, name)
2017-02-16 14:19:34 +01:00
else
if damage > 0 then
mcl_hunger.poison_damage[name] = mcl_hunger.poison_damage[name] - 1
end
if exhaustion > 0 then
mcl_hunger.poison_hunger [name] = mcl_hunger.poison_hunger[name] - 1
end
if mcl_hunger.poison_damage[name] <= 0 then
2019-02-06 21:23:05 +01:00
mcl_hunger.reset_bars_poison_damage(player)
end
if mcl_hunger.poison_hunger[name] <= 0 then
2019-02-06 21:23:05 +01:00
mcl_hunger.reset_bars_poison_hunger(player)
2017-02-16 14:19:34 +01:00
end
end
2017-05-21 00:01:39 +02:00
-- Deal damage and exhaust player
if player:get_hp()-damage > 0 then
player:set_hp(player:get_hp()-damage)
2017-02-16 14:19:34 +01:00
end
mcl_hunger.exhaust(name, exhaustion)
2017-05-23 01:39:19 +02:00
2017-02-16 14:19:34 +01:00
end
local poisonrandomizer = PseudoRandom(os.time())
function mcl_hunger.item_eat(hunger_change, replace_with_item, poisontime, poison, exhaust, poisonchance, sound)
2017-02-16 14:19:34 +01:00
return function(itemstack, user, pointed_thing)
2017-02-16 14:47:50 +01:00
local itemname = itemstack:get_name()
local creative = minetest.settings:get_bool("creative_mode") == true
if itemstack:peek_item() ~= nil and user ~= nil then
if not creative then
itemstack:take_item()
end
2017-02-16 14:19:34 +01:00
local name = user:get_player_name()
local hp = user:get_hp()
2017-02-16 14:47:50 +01:00
2019-02-01 06:33:07 +01:00
local pos = user:get_pos()
2017-02-17 03:12:46 +01:00
-- player height
pos.y = pos.y + 1.5
local foodtype = minetest.get_item_group(itemname, "food")
2017-02-16 15:08:26 +01:00
if foodtype == 3 then
-- Item is a drink, only play drinking sound (no particle)
minetest.sound_play("survival_thirst_drink", {
pos = pos,
max_hear_distance = 12,
gain = 1.0,
})
else
-- Assume the item is a food
-- Add eat particle effect and sound
local def = minetest.registered_items[itemname]
local texture = def.inventory_image
if not texture or texture == "" then
texture = def.wield_image
end
-- Special item definition field: _food_particles
-- If false, force item to not spawn any food partiles when eaten
if def._food_particles ~= false and texture and texture ~= "" then
local v = user:get_player_velocity()
local minvel = vector.add(v, {x=-1, y=1, z=-1})
local maxvel = vector.add(v, {x=1, y=2, z=1})
minetest.add_particlespawner({
amount = math.min(math.max(8, hunger_change*2), 25),
time = 0.1,
minpos = {x=pos.x, y=pos.y, z=pos.z},
maxpos = {x=pos.x, y=pos.y, z=pos.z},
minvel = minvel,
maxvel = maxvel,
minacc = {x=0, y=-5, z=0},
maxacc = {x=0, y=-9, z=0},
minexptime = 1,
maxexptime = 1,
minsize = 1,
maxsize = 2,
collisiondetection = true,
vertical = false,
texture = texture,
})
end
2017-02-16 15:08:26 +01:00
minetest.sound_play("mcl_hunger_bite", {
pos = pos,
max_hear_distance = 12,
gain = 1.0,
})
end
2017-02-16 14:19:34 +01:00
2019-02-06 21:23:05 +01:00
if mcl_hunger.active and hunger_change then
-- Add saturation (must be defined in item table)
2017-05-21 00:04:39 +02:00
local _mcl_saturation = minetest.registered_items[itemname]._mcl_saturation
local saturation
if not _mcl_saturation then
2017-05-20 22:33:10 +02:00
saturation = 0
2017-05-21 00:04:39 +02:00
else
saturation = minetest.registered_items[itemname]._mcl_saturation
2017-05-20 17:45:04 +02:00
end
mcl_hunger.saturate(name, saturation, false)
-- Add food points
2017-05-20 21:23:02 +02:00
local h = mcl_hunger.get_hunger(user)
if h < 20 and hunger_change then
h = h + hunger_change
if h > 20 then h = 20 end
2017-05-20 21:23:02 +02:00
mcl_hunger.set_hunger(user, h, false)
end
2017-05-20 23:26:54 +02:00
hb.change_hudbar(user, "hunger", h)
2017-05-20 22:51:40 +02:00
mcl_hunger.update_saturation_hud(user, mcl_hunger.get_saturation(user), h)
end
2017-02-16 14:19:34 +01:00
-- Poison
2019-02-06 21:23:05 +01:00
if mcl_hunger.active and poisontime then
local do_poison = false
if poisonchance then
if poisonrandomizer:next(0,100) < poisonchance then
do_poison = true
end
else
do_poison = true
end
if do_poison then
-- Set poison bars
if poison and poison > 0 then
hb.change_hudbar(user, "health", nil, nil, "hbhunger_icon_health_poison.png", nil, "hbhunger_bar_health_poison.png")
mcl_hunger.poison_damage[name] = mcl_hunger.poison_damage[name] + 1
end
if exhaust and exhaust > 0 then
hb.change_hudbar(user, "hunger", nil, nil, "mcl_hunger_icon_foodpoison.png", nil, "mcl_hunger_bar_foodpoison.png")
if mcl_hunger.debug then
hb.change_hudbar(user, "exhaustion", nil, nil, nil, nil, "mcl_hunger_bar_foodpoison.png")
end
mcl_hunger.poison_hunger[name] = mcl_hunger.poison_hunger[name] + 1
end
poisonp(1, poisontime, 0, poison, exhaust, user:get_player_name())
end
2017-02-16 14:19:34 +01:00
end
if not creative then
itemstack:add_item(replace_with_item)
end
2017-02-16 14:19:34 +01:00
end
return itemstack
end
end
2019-02-06 21:23:05 +01:00
if mcl_hunger.active then
-- player-action based hunger changes
minetest.register_on_dignode(function(pos, oldnode, player)
-- is_fake_player comes from the pipeworks, we are not interested in those
if not player or not player:is_player() or player.is_fake_player == true then
return
end
local name = player:get_player_name()
-- dig event
mcl_hunger.exhaust(name, mcl_hunger.EXHAUST_DIG)
end)
end
2017-05-21 00:19:12 +02:00