VoxeLibre/mods/PLAYER/mcl_hunger/init.lua

290 lines
9.3 KiB
Lua
Raw Normal View History

2017-01-16 16:09:07 +01:00
local S
if (minetest.get_modpath("intllib")) then
S = intllib.Getter()
else
S = function ( s ) return s end
end
2017-02-16 14:19:34 +01:00
mcl_hunger = {}
mcl_hunger.exhaust = function() 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 -- TODO: 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 -- TODO (mostly done): taking damage (protected by armor)
mcl_hunger.EXHAUST_REGEN = 6000 -- Regenerate 1 HP
mcl_hunger.EXHAUST_LVL = 4000 -- at what exhaustion player saturation gets lowered
mcl_hunger.SATURATION_INIT = 50 -- Initial saturation for new/respawning players
mcl_hunger.active = false
if minetest.setting_getbool("enable_damage") then
mcl_hunger.active = true
2017-01-16 16:09:07 +01:00
-- Debug Mode. If enabled, saturation and exhaustion are shown as well.
-- NOTE: Read-only. The setting should only be read at the beginning, this mod is not
-- prepared to change this setting later.
mcl_hunger.debug = minetest.setting_getbool("mcl_hunger_debug")
if mcl_hunger.debug == nil then
mcl_hunger.debug = false
2017-05-20 22:55:33 +02:00
end
2017-05-20 22:51:40 +02:00
2017-05-20 22:33:10 +02:00
--[[ 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 exhaustion times 10 and ranges from 0 to 200.
2017-05-20 22:35:50 +02:00
Food saturation is stored in the custom item definition field _mcl_saturation.
This field uses the original Minecraft value.
2017-05-20 22:33:10 +02:00
]]
2017-01-16 16:09:07 +01:00
-- Count number of poisonings a player has at once
2017-02-16 14:19:34 +01:00
mcl_hunger.poisonings = {}
2017-01-16 16:09:07 +01:00
2017-05-23 01:39:19 +02:00
-- Cooldown timers for each player, to force a short delay between consuming 2 food items
mcl_hunger.last_eat = {}
2017-01-16 16:09:07 +01:00
-- HUD item ids
local hunger_hud = {}
--load custom settings
2017-02-16 14:19:34 +01:00
local set = io.open(minetest.get_modpath("mcl_hunger").."/mcl_hunger.conf", "r")
if set then
2017-02-16 14:19:34 +01:00
dofile(minetest.get_modpath("mcl_hunger").."/mcl_hunger.conf")
2017-01-16 16:09:07 +01:00
set:close()
end
2017-05-20 22:06:12 +02:00
local function init_hud(player)
2017-05-20 23:26:54 +02:00
hb.init_hudbar(player, "hunger", mcl_hunger.get_hunger(player))
if mcl_hunger.debug then
2017-05-20 22:51:40 +02:00
hb.init_hudbar(player, "saturation", mcl_hunger.get_saturation(player), mcl_hunger.get_hunger(player)*10)
hb.init_hudbar(player, "exhaustion", mcl_hunger.get_exhaustion(player))
end
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
2017-05-20 22:51:40 +02:00
local satulimit
if hunger then
satulimit = hunger * 10
end
hb.change_hudbar(player, "saturation", saturation, satulimit)
end
end
function mcl_hunger.update_exhaustion_hud(player, exhaustion)
if mcl_hunger.debug then
2017-05-20 22:51:40 +02:00
hb.change_hudbar(player, "exhaustion", exhaustion)
end
2017-01-16 16:09:07 +01:00
end
2017-02-16 14:19:34 +01:00
dofile(minetest.get_modpath("mcl_hunger").."/hunger.lua")
2017-01-16 16:09:07 +01:00
-- register saturation hudbar
2017-05-20 23:26:54 +02:00
hb.register_hudbar("hunger", 0xFFFFFF, S("Food"), { icon = "hbhunger_icon.png", bgicon = "hbhunger_bgicon.png", bar = "hbhunger_bar.png" }, 20, 20, false)
if mcl_hunger.debug then
2017-05-20 23:20:50 +02:00
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" }, mcl_hunger.SATURATION_INIT, 200, false, S("%s: %d/%d"))
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" }, 0, mcl_hunger.EXHAUST_LVL, false, S("%s: %d/%d"))
2017-05-20 22:51:40 +02:00
end
2017-05-20 21:23:02 +02:00
local RAW_VALUE_FOOD = 1
local RAW_VALUE_SATURATION = 2
local RAW_VALUE_EXHAUSTION = 3
local get_player_value_raw = function(player, id, default)
2017-01-16 16:09:07 +01:00
local inv = player:get_inventory()
if not inv then return nil end
2017-05-20 21:23:02 +02:00
local value = inv:get_stack("hunger", id):get_count()
if value == 0 then
inv:set_stack("hunger", id, ItemStack({name=":", count=default+1}))
return default
2017-01-16 16:09:07 +01:00
else
2017-05-20 21:23:02 +02:00
return value - 1
2017-01-16 16:09:07 +01:00
end
end
2017-05-20 21:23:02 +02:00
local set_player_value_raw = function(player, id, value)
2017-01-16 16:09:07 +01:00
local inv = player:get_inventory()
2017-05-20 21:23:02 +02:00
inv:set_stack("hunger", id, ItemStack({name=":", count=value+1}))
return true
end
-- API START --
mcl_hunger.get_hunger = function(player)
return get_player_value_raw(player, RAW_VALUE_FOOD, 20)
end
2017-05-20 22:06:12 +02:00
mcl_hunger.get_saturation = function(player)
2017-05-20 22:33:10 +02:00
return get_player_value_raw(player, RAW_VALUE_SATURATION, 50)
2017-05-20 22:06:12 +02:00
end
mcl_hunger.get_exhaustion = function(player)
2017-05-20 22:33:10 +02:00
return get_player_value_raw(player, RAW_VALUE_EXHAUSTION, 0)
2017-05-20 22:06:12 +02:00
end
2017-05-20 21:23:02 +02:00
mcl_hunger.set_hunger = function(player, hunger, update_hudbars)
2017-05-20 22:06:12 +02:00
hunger = math.min(20, math.max(0, hunger))
2017-05-20 21:23:02 +02:00
local ok = set_player_value_raw(player, RAW_VALUE_FOOD, hunger)
2017-05-20 22:06:12 +02:00
if not ok then return false end
2017-01-16 16:09:07 +01:00
if update_hudbars ~= false then
2017-05-20 23:26:54 +02:00
hb.change_hudbar(player, "hunger", hunger)
2017-05-20 22:51:40 +02:00
mcl_hunger.update_saturation_hud(player, nil, hunger)
end
2017-05-20 21:23:02 +02:00
return true
2017-01-16 16:09:07 +01:00
end
2017-05-20 22:06:12 +02:00
mcl_hunger.set_saturation = function(player, saturation, update_hudbar)
2017-05-20 22:33:10 +02:00
saturation = math.min(mcl_hunger.get_hunger(player)*10, math.max(0, saturation))
2017-05-20 22:06:12 +02:00
2017-05-20 22:33:10 +02:00
local ok = set_player_value_raw(player, RAW_VALUE_SATURATION, saturation)
2017-05-20 22:06:12 +02:00
if not ok then return false end
if update_hudbar ~= false then
2017-05-20 22:51:40 +02:00
mcl_hunger.update_saturation_hud(player, saturation)
2017-05-20 22:06:12 +02:00
end
return true
end
mcl_hunger.set_exhaustion = function(player, exhaustion, update_hudbar)
2017-05-20 22:33:10 +02:00
exhaustion = math.min(mcl_hunger.EXHAUST_LVL, math.max(0.0, exhaustion))
2017-05-20 22:06:12 +02:00
2017-05-20 22:33:10 +02:00
local ok = set_player_value_raw(player, RAW_VALUE_EXHAUSTION, exhaustion)
2017-05-20 22:06:12 +02:00
if not ok then return false end
if update_hudbar ~= false then
2017-05-20 22:51:40 +02:00
mcl_hunger.update_exhaustion_hud(player, exhaustion)
2017-05-20 22:06:12 +02:00
end
return true
end
-- END OF API --
2017-01-16 16:09:07 +01:00
minetest.register_on_joinplayer(function(player)
local name = player:get_player_name()
local inv = player:get_inventory()
2017-05-20 21:23:02 +02:00
inv:set_size("hunger", 3)
2017-02-16 14:19:34 +01:00
mcl_hunger.poisonings[name] = 0
2017-05-23 01:39:19 +02:00
mcl_hunger.last_eat[name] = -1
2017-05-20 22:06:12 +02:00
init_hud(player)
2017-01-16 16:09:07 +01:00
end)
minetest.register_on_respawnplayer(function(player)
2017-05-23 02:20:10 +02:00
-- reset hunger, related values and poison
2017-01-16 16:09:07 +01:00
local name = player:get_player_name()
2017-05-23 02:20:10 +02:00
mcl_hunger.stop_poison(player)
2017-05-23 01:39:19 +02:00
mcl_hunger.last_eat[name] = -1
2017-05-20 22:33:10 +02:00
local h, s, e = 20, mcl_hunger.SATURATION_INIT, 0
mcl_hunger.set_hunger(player, h, false)
2017-05-20 22:06:12 +02:00
mcl_hunger.set_saturation(player, s, false)
mcl_hunger.set_exhaustion(player, e, false)
2017-05-20 23:26:54 +02:00
hb.change_hudbar(player, "hunger", h)
2017-05-20 22:51:40 +02:00
mcl_hunger.update_saturation_hud(player, s, h)
mcl_hunger.update_exhaustion_hud(player, e)
2017-01-16 16:09:07 +01:00
end)
2017-05-21 06:20:00 +02:00
-- PvP combat exhaustion
minetest.register_on_punchplayer(function(victim, puncher, time_from_last_punch, tool_capabilities, dir, damage)
if victim:is_player() and puncher:is_player() then
mcl_hunger.exhaust(victim:get_player_name(), mcl_hunger.EXHAUST_DAMAGE)
mcl_hunger.exhaust(puncher:get_player_name(), mcl_hunger.EXHAUST_ATTACK)
end
end)
function mcl_hunger.exhaust(playername, increase)
local player = minetest.get_player_by_name(playername)
2017-05-20 22:06:12 +02:00
if not player then return false end
mcl_hunger.set_exhaustion(player, mcl_hunger.get_exhaustion(player) + increase)
2017-05-20 22:33:10 +02:00
if mcl_hunger.get_exhaustion(player) >= mcl_hunger.EXHAUST_LVL then
2017-05-20 22:06:12 +02:00
mcl_hunger.set_exhaustion(player, 0.0)
local h = nil
local satuchanged = false
2017-05-20 22:06:12 +02:00
local s = mcl_hunger.get_saturation(player)
2017-05-20 22:33:10 +02:00
if s > 0 then
mcl_hunger.set_saturation(player, math.max(s - 10, 0))
satuchanged = true
2017-05-20 22:33:10 +02:00
elseif s <= 0.0001 then
h = mcl_hunger.get_hunger(player)
2017-05-20 20:40:22 +02:00
h = math.max(h-1, 0)
mcl_hunger.set_hunger(player, h)
satuchanged = true
end
if satuchanged then
2017-05-20 22:33:10 +02:00
if h ~= nil then h = h*10 end
2017-05-20 22:51:40 +02:00
mcl_hunger.update_saturation_hud(player, mcl_hunger.get_saturation(player), h)
end
end
2017-05-20 22:51:40 +02:00
mcl_hunger.update_exhaustion_hud(player, mcl_hunger.get_exhaustion(player))
2017-05-20 22:06:12 +02:00
return true
end
function mcl_hunger.saturate(playername, increase, update_hudbar)
2017-05-20 16:37:31 +02:00
local player = minetest.get_player_by_name(playername)
2017-05-20 22:33:10 +02:00
mcl_hunger.set_saturation(player, math.min(mcl_hunger.get_saturation(player) + increase, mcl_hunger.get_hunger(player)*10))
if update_hudbar ~= false then
2017-05-20 22:51:40 +02:00
mcl_hunger.update_saturation_hud(player, mcl_hunger.get_saturation(player), mcl_hunger.get_hunger(player))
end
2017-05-20 16:37:31 +02:00
end
2017-01-16 16:09:07 +01:00
local main_timer = 0
local timer = 0 -- Half second timer
local timerMult = 1 -- Cycles from 0 to 7, each time when timer hits half a second
2017-01-16 16:09:07 +01:00
minetest.register_globalstep(function(dtime)
main_timer = main_timer + dtime
timer = timer + dtime
if main_timer > mcl_hunger.HUD_TICK or timer > 0.5 then
2017-02-16 14:19:34 +01:00
if main_timer > mcl_hunger.HUD_TICK then main_timer = 0 end
2017-01-16 16:09:07 +01:00
for _,player in ipairs(minetest.get_connected_players()) do
local name = player:get_player_name()
local h = tonumber(mcl_hunger.get_hunger(player))
2017-01-16 16:09:07 +01:00
local hp = player:get_hp()
if timer > 0.5 then
-- Quick heal (every 0.5s)
if h >= 20 and hp > 0 and hp < 20 then
2017-05-20 22:33:10 +02:00
-- +1 HP, +exhaustion
2017-01-16 16:09:07 +01:00
player:set_hp(hp+1)
mcl_hunger.exhaust(name, mcl_hunger.EXHAUST_REGEN)
-- Slow heal, and hunger damage (every 4s)
elseif timerMult == 0 then
if h >= 18 and hp > 0 and hp < 20 then
2017-05-20 22:33:10 +02:00
-- +1 HP, +exhaustion
player:set_hp(hp+1)
mcl_hunger.exhaust(name, mcl_hunger.EXHAUST_REGEN)
2017-05-20 22:51:40 +02:00
mcl_hunger.update_exhaustion_hud(player, mcl_hunger.get_exhaustion(player))
elseif h == 0 then
-- Damage hungry player down to 1 HP
if hp-1 >= 0 then
player:set_hp(hp-1)
end
2017-01-16 16:09:07 +01:00
end
end
2017-01-16 16:09:07 +01:00
end
end
end
if timer > 0.5 then
timer = 0
timerMult = timerMult + 1
if timerMult > 7 then
timerMult = 0
end
2017-01-16 16:09:07 +01:00
end
end)
end