minetest_hbhunger/init.lua

151 lines
4.2 KiB
Lua
Raw Normal View History

hunger = {}
2013-06-28 22:58:06 +02:00
-- HUD statbar values
hunger.hunger = {}
hunger.hunger_out = {}
-- HUD item ids
2013-06-28 22:58:06 +02:00
local hunger_hud = {}
HUNGER_HUD_TICK = 0.1
--Some hunger settings
hunger.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 saturation gets lowerd
--load custom settings
local set = io.open(minetest.get_modpath("hunger").."/hunger.conf", "r")
2013-07-20 22:07:24 +02:00
if set then
dofile(minetest.get_modpath("hunger").."/hunger.conf")
2013-07-20 22:07:24 +02:00
set:close()
2013-06-28 22:58:06 +02:00
end
local function custom_hud(player)
2013-06-28 23:03:54 +02:00
if minetest.setting_getbool("enable_damage") then
--hunger
hb.init_hudbar(player, "saturation")
2013-06-28 23:03:54 +02:00
end
2013-06-28 22:58:06 +02:00
end
2015-02-23 23:16:52 +01:00
dofile(minetest.get_modpath("hunger").."/hunger.lua")
-- register saturation hudbar
hb.register_hudbar("saturation", 0xFFFFFF, "Saturation", { icon = "hunger_icon.png", bar = "hunger_bar.png" }, 20, 20, false)
-- update hud elemtens if value has changed
2013-06-28 22:58:06 +02:00
local function update_hud(player)
local name = player:get_player_name()
--hunger
local h_out = tonumber(hunger.hunger_out[name])
local h = tonumber(hunger.hunger[name])
if h_out ~= h then
hunger.hunger_out[name] = h
-- bar should not have more than 10 icons
if h>20 then h=20 end
hb.change_hudbar(player, "saturation", h)
end
2013-06-28 22:58:06 +02:00
end
hunger.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
2013-06-28 22:58:06 +02:00
end
return hgp-1
end
hunger.set_hunger = function(player)
local inv = player:get_inventory()
local name = player:get_player_name()
local value = hunger.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
2013-06-28 22:58:06 +02:00
end
minetest.register_on_joinplayer(function(player)
local name = player:get_player_name()
local inv = player:get_inventory()
inv:set_size("hunger",1)
hunger.hunger[name] = hunger.get_hunger(player)
hunger.hunger_out[name] = hunger.hunger[name]
hunger.exhaustion[name] = 0
2015-02-23 23:16:52 +01:00
custom_hud(player)
hunger.set_hunger(player)
2013-06-28 22:58:06 +02:00
end)
2013-09-09 03:16:18 +02:00
minetest.register_on_respawnplayer(function(player)
2014-04-14 06:51:28 +02:00
-- reset hunger (and save)
local name = player:get_player_name()
hunger.hunger[name] = 20
hunger.set_hunger(player)
hunger.exhaustion[name] = 0
2013-09-09 03:16:18 +02:00
end)
2014-04-14 06:51:28 +02:00
local main_timer = 0
2013-06-28 22:58:06 +02:00
local timer = 0
local timer2 = 0
minetest.after(2.5, function()
minetest.register_globalstep(function(dtime)
2014-04-14 06:51:28 +02:00
main_timer = main_timer + dtime
2013-07-20 22:07:24 +02:00
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
2014-04-14 06:51:28 +02:00
for _,player in ipairs(minetest.get_connected_players()) do
local name = player:get_player_name()
-- only proceed if damage is enabled
if minetest.setting_getbool("enable_damage") then
local h = tonumber(hunger.hunger[name])
local hp = player:get_hp()
if timer > 4 then
-- heal player by 1 hp if not dead and saturation is > 15 (of 30)
2015-02-23 23:16:52 +01:00
if h > 15 and hp > 0 and player:get_breath() > 0 then
player:set_hp(hp+1)
2014-04-14 11:01:47 +02:00
-- or damage player by 1 hp if saturation is < 2 (of 30)
elseif h <= 1 and minetest.setting_getbool("enable_damage") then
2014-04-14 11:01:47 +02:00
if hp-1 >= 0 then player:set_hp(hp-1) end
2013-06-28 22:58:06 +02:00
end
end
-- lower saturation by 1 point after xx seconds
if timer2 > HUNGER_HUNGER_TICK then
if h > 0 then
h = h-1
hunger.hunger[name] = h
hunger.set_hunger(player)
2013-06-28 22:58:06 +02:00
end
end
-- update all hud elements
update_hud(player)
2015-02-23 23:16:52 +01:00
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
hunger.handle_node_actions(nil, nil, player)
2015-02-23 23:16:52 +01:00
end
2013-06-28 22:58:06 +02:00
end
2014-04-14 06:51:28 +02:00
end
2014-04-14 06:51:28 +02:00
end
if timer > 4 then timer = 0 end
if timer2 > HUNGER_HUNGER_TICK then timer2 = 0 end
2013-06-28 22:58:06 +02:00
end)
end)