hunger.lua

   1 -- Keep these for backwards compatibility
   2 function hbhunger.save_hunger(player)
   3         hbhunger.set_hunger_raw(player)
   4 end
   5 function hbhunger.load_hunger(player)
   6         hbhunger.get_hunger_raw(player)
   7 end
   8
   9 -- wrapper for minetest.item_eat (this way we make sure other mods can't break this one)
  10 local org_eat = core.do_item_eat
  11 core.do_item_eat = function(hp_change, replace_with_item, itemstack, user, pointed_thing)
  12         local old_itemstack = itemstack
  13         itemstack = hbhunger.eat(hp_change, replace_with_item, itemstack, user, pointed_thing)
  14         for _, callback in pairs(core.registered_on_item_eats) do
  15                 local result = callback(hp_change, replace_with_item, itemstack, user, pointed_thing, old_itemstack)
  16                 if result then
  17                         return result
  18                 end
  19         end
  20         return itemstack
  21 end
  22
  23 -- food functions
  24 local food = hbhunger.food
  25
  26 function hbhunger.register_food(name, hunger_change, replace_with_item, poisen, heal, sound)
  27         food[name] = {}
  28         food[name].saturation = hunger_change   -- hunger points added
  29         food[name].replace = replace_with_item  -- what item is given back after eating
  30         food[name].poisen = poisen                              -- time its poisening
  31         food[name].healing = heal                               -- amount of HP
  32         food[name].sound = sound                                -- special sound that is played when eating
  33 end
  34
  35 function hbhunger.eat(hp_change, replace_with_item, itemstack, user, pointed_thing)
  36         local item = itemstack:get_name()
  37         local def = food[item]
  38         if not def then
  39                 def = {}
  40                 if type(hp_change) ~= "number" then
  41                         hp_change = 1
  42                         core.log("error", "Wrong on_use() definition for item '" .. item .. "'")
  43                 end
  44                 def.saturation = hp_change * 1.3
  45                 def.replace = replace_with_item
  46         end
  47         local func = hbhunger.item_eat(def.saturation, def.replace, def.poisen, def.healing, def.sound)
  48         return func(itemstack, user, pointed_thing)
  49 end
  50
  51 -- Poison player
  52 local function poisenp(tick, time, time_left, player)
  53         -- First check if player is still there
  54         if not player:is_player() then
  55                 return
  56         end
  57         time_left = time_left + tick
  58         if time_left < time then
  59                 minetest.after(tick, poisenp, tick, time, time_left, player)
  60         else
  61                 hbhunger.poisonings[player:get_player_name()] = hbhunger.poisonings[player:get_player_name()] - 1
  62                 if hbhunger.poisonings[player:get_player_name()] <= 0 then
  63                         -- Reset HUD bar color
  64                         hb.change_hudbar(player, "health", nil, nil, "hudbars_icon_health.png", nil, "hudbars_bar_health.png")
  65                 end
  66         end
  67         if player:get_hp()-1 > 0 then
  68                 player:set_hp(player:get_hp()-1)
  69         end
  70
  71 end
  72
  73 function hbhunger.item_eat(hunger_change, replace_with_item, poisen, heal, sound)
  74         return function(itemstack, user, pointed_thing)
  75                 if itemstack:take_item() ~= nil and user ~= nil then
  76                         local name = user:get_player_name()
  77                         local h = tonumber(hbhunger.hunger[name])
  78                         local hp = user:get_hp()
  79                         minetest.sound_play({name = sound or "hbhunger_eat_generic", gain = 1}, {pos=user:getpos(), max_hear_distance = 16})
  80
  81                         -- Saturation
  82                         if h < 30 and hunger_change then
  83                                 h = h + hunger_change
  84                                 if h > 30 then h = 30 end
  85                                 hbhunger.hunger[name] = h
  86                                 hbhunger.set_hunger_raw(user)
  87                         end
  88                         -- Healing
  89                         if hp < 20 and heal then
  90                                 hp = hp + heal
  91                                 if hp > 20 then hp = 20 end
  92                                 user:set_hp(hp)
  93                         end
  94                         -- Poison
  95                         if poisen then
  96                                 -- Set poison bar
  97                                 hb.change_hudbar(user, "health", nil, nil, "hbhunger_icon_health_poison.png", nil, "hbhunger_bar_health_poison.png")
  98                                 hbhunger.poisonings[name] = hbhunger.poisonings[name] + 1
  99                                 poisenp(1, poisen, 0, user)
 100                         end
 101
 102                         if itemstack:get_count() == 0 then
 103                                 itemstack:add_item(replace_with_item)
 104                         else
 105                                 local inv = user:get_inventory()
 106                                 if inv:room_for_item("main", replace_with_item) then
 107                                         inv:add_item("main", replace_with_item)
 108                                 else
 109                                         minetest.add_item(user:getpos(), replace_with_item)
 110                                 end
 111                         end
 112                 end
 113                 return itemstack
 114         end
 115 end
 116
 117 if minetest.get_modpath("default") ~= nil then
 118         hbhunger.register_food("default:apple", 2)
 119 end
 120 if minetest.get_modpath("flowers") ~= nil then
 121         hbhunger.register_food("flowers:mushroom_brown", 1)
 122         hbhunger.register_food("flowers:mushroom_red", 1, "", 3)
 123 end
 124 if minetest.get_modpath("farming") ~= nil then
 125         hbhunger.register_food("farming:bread", 4)
 126 end
 127
 128 if minetest.get_modpath("mobs") ~= nil then
 129         if mobs.mod ~= nil and mobs.mod == "redo" then
 130                 hbhunger.register_food("mobs:cheese", 4)
 131                 hbhunger.register_food("mobs:meat", 8)
 132                 hbhunger.register_food("mobs:meat_raw", 4)
 133                 hbhunger.register_food("mobs:rat_cooked", 4)
 134                 hbhunger.register_food("mobs:honey", 2)
 135                 hbhunger.register_food("mobs:pork_raw", 3, "", 3)
 136                 hbhunger.register_food("mobs:pork_cooked", 8)
 137                 hbhunger.register_food("mobs:chicken_cooked", 6)
 138                 hbhunger.register_food("mobs:chicken_raw", 2, "", 3)
 139                 hbhunger.register_food("mobs:chicken_egg_fried", 2)
 140                 if minetest.get_modpath("bucket") then
 141                         hbhunger.register_food("mobs:bucket_milk", 3, "bucket:bucket_empty")
 142                 end
 143         else
 144                 hbhunger.register_food("mobs:meat", 6)
 145                 hbhunger.register_food("mobs:meat_raw", 3)
 146                 hbhunger.register_food("mobs:rat_cooked", 5)
 147         end
 148 end
 149
 150 if minetest.get_modpath("moretrees") ~= nil then
 151         hbhunger.register_food("moretrees:coconut_milk", 1)
 152         hbhunger.register_food("moretrees:raw_coconut", 2)
 153         hbhunger.register_food("moretrees:acorn_muffin", 3)
 154         hbhunger.register_food("moretrees:spruce_nuts", 1)
 155         hbhunger.register_food("moretrees:pine_nuts", 1)
 156         hbhunger.register_food("moretrees:fir_nuts", 1)
 157 end
 158
 159 if minetest.get_modpath("dwarves") ~= nil then
 160         hbhunger.register_food("dwarves:beer", 2)
 161         hbhunger.register_food("dwarves:apple_cider", 1)
 162         hbhunger.register_food("dwarves:midus", 2)
 163         hbhunger.register_food("dwarves:tequila", 2)
 164         hbhunger.register_food("dwarves:tequila_with_lime", 2)
 165         hbhunger.register_food("dwarves:sake", 2)
 166 end
 167
 168 if minetest.get_modpath("animalmaterials") ~= nil then
 169         hbhunger.register_food("animalmaterials:milk", 2)
 170         hbhunger.register_food("animalmaterials:meat_raw", 3)
 171         hbhunger.register_food("animalmaterials:meat_pork", 3)
 172         hbhunger.register_food("animalmaterials:meat_beef", 3)
 173         hbhunger.register_food("animalmaterials:meat_chicken", 3)
 174         hbhunger.register_food("animalmaterials:meat_lamb", 3)
 175         hbhunger.register_food("animalmaterials:meat_venison", 3)
 176         hbhunger.register_food("animalmaterials:meat_undead", 3, "", 3)
 177         hbhunger.register_food("animalmaterials:meat_toxic", 3, "", 5)
 178         hbhunger.register_food("animalmaterials:meat_ostrich", 3)
 179         hbhunger.register_food("animalmaterials:fish_bluewhite", 2)
 180         hbhunger.register_food("animalmaterials:fish_clownfish", 2)
 181 end
 182
 183 if minetest.get_modpath("fishing") ~= nil then
 184         hbhunger.register_food("fishing:fish_raw", 2)
 185         hbhunger.register_food("fishing:fish_cooked", 5)
 186         hbhunger.register_food("fishing:sushi", 6)
 187         hbhunger.register_food("fishing:shark", 4)
 188         hbhunger.register_food("fishing:shark_cooked", 8)
 189         hbhunger.register_food("fishing:pike", 4)
 190         hbhunger.register_food("fishing:pike_cooked", 8)
 191 end
 192
 193 if minetest.get_modpath("glooptest") ~= nil then
 194         hbhunger.register_food("glooptest:kalite_lump", 1)
 195 end
 196
 197 if minetest.get_modpath("bushes") ~= nil then
 198         hbhunger.register_food("bushes:sugar", 1)
 199         hbhunger.register_food("bushes:strawberry", 2)
 200         hbhunger.register_food("bushes:berry_pie_raw", 3)
 201         hbhunger.register_food("bushes:berry_pie_cooked", 4)
 202         hbhunger.register_food("bushes:basket_pies", 15)
 203 end
 204
 205 if minetest.get_modpath("bushes_classic") then
 206         -- bushes_classic mod, as found in the plantlife modpack
 207         local berries = {
 208             "strawberry",
 209                 "blackberry",
 210                 "blueberry",
 211                 "raspberry",
 212                 "gooseberry",
 213                 "mixed_berry"}
 214         for _, berry in ipairs(berries) do
 215                 if berry ~= "mixed_berry" then
 216                         hbhunger.register_food("bushes:"..berry, 1)
 217                 end
 218                 hbhunger.register_food("bushes:"..berry.."_pie_raw", 2)
 219                 hbhunger.register_food("bushes:"..berry.."_pie_cooked", 5)
 220                 hbhunger.register_food("bushes:basket_"..berry, 15)
 221         end
 222 end
 223
 224 if minetest.get_modpath("mushroom") ~= nil then
 225         hbhunger.register_food("mushroom:brown", 1)
 226         hbhunger.register_food("mushroom:red", 1, "", 3)
 227         -- mushroom potions: red = strong poison, brown = light restorative
 228         if minetest.get_modpath("vessels") then
 229                 hbhunger.register_food("mushroom:brown_essence", 1, "vessels:glass_bottle", nil, 4)
 230                 hbhunger.register_food("mushroom:poison", 1, "vessels:glass_bottle", 10)
 231         end
 232 end
 233
 234 if minetest.get_modpath("docfarming") ~= nil then
 235         hbhunger.register_food("docfarming:carrot", 3)
 236         hbhunger.register_food("docfarming:cucumber", 2)
 237         hbhunger.register_food("docfarming:corn", 3)
 238         hbhunger.register_food("docfarming:potato", 4)
 239         hbhunger.register_food("docfarming:bakedpotato", 5)
 240         hbhunger.register_food("docfarming:raspberry", 3)
 241 end
 242
 243 if minetest.get_modpath("farming_plus") ~= nil then
 244         hbhunger.register_food("farming_plus:carrot_item", 3)
 245         hbhunger.register_food("farming_plus:banana", 2)
 246         hbhunger.register_food("farming_plus:orange_item", 2)
 247         hbhunger.register_food("farming:pumpkin_bread", 4)
 248         hbhunger.register_food("farming_plus:strawberry_item", 2)
 249         hbhunger.register_food("farming_plus:tomato_item", 2)
 250         hbhunger.register_food("farming_plus:potato_item", 4)
 251         hbhunger.register_food("farming_plus:rhubarb_item", 2)
 252 end
 253
 254 if minetest.get_modpath("mtfoods") ~= nil then
 255         hbhunger.register_food("mtfoods:dandelion_milk", 1)
 256         hbhunger.register_food("mtfoods:sugar", 1)
 257         hbhunger.register_food("mtfoods:short_bread", 4)
 258         hbhunger.register_food("mtfoods:cream", 1)
 259         hbhunger.register_food("mtfoods:chocolate", 2)
 260         hbhunger.register_food("mtfoods:cupcake", 2)
 261         hbhunger.register_food("mtfoods:strawberry_shortcake", 2)
 262         hbhunger.register_food("mtfoods:cake", 3)
 263         hbhunger.register_food("mtfoods:chocolate_cake", 3)
 264         hbhunger.register_food("mtfoods:carrot_cake", 3)
 265         hbhunger.register_food("mtfoods:pie_crust", 3)
 266         hbhunger.register_food("mtfoods:apple_pie", 3)
 267         hbhunger.register_food("mtfoods:rhubarb_pie", 2)
 268         hbhunger.register_food("mtfoods:banana_pie", 3)
 269         hbhunger.register_food("mtfoods:pumpkin_pie", 3)
 270         hbhunger.register_food("mtfoods:cookies", 2)
 271         hbhunger.register_food("mtfoods:mlt_burger", 5)
 272         hbhunger.register_food("mtfoods:potato_slices", 2)
 273         hbhunger.register_food("mtfoods:potato_chips", 3)
 274         --mtfoods:medicine
 275         hbhunger.register_food("mtfoods:casserole", 3)
 276         hbhunger.register_food("mtfoods:glass_flute", 2)
 277         hbhunger.register_food("mtfoods:orange_juice", 2)
 278         hbhunger.register_food("mtfoods:apple_juice", 2)
 279         hbhunger.register_food("mtfoods:apple_cider", 2)
 280         hbhunger.register_food("mtfoods:cider_rack", 2)
 281 end
 282
 283 if minetest.get_modpath("fruit") ~= nil then
 284         hbhunger.register_food("fruit:apple", 2)
 285         hbhunger.register_food("fruit:pear", 2)
 286         hbhunger.register_food("fruit:bananna", 3)
 287         hbhunger.register_food("fruit:orange", 2)
 288 end
 289
 290 if minetest.get_modpath("mush45") ~= nil then
 291         hbhunger.register_food("mush45:meal", 4)
 292 end
 293
 294 if minetest.get_modpath("seaplants") ~= nil then
 295         hbhunger.register_food("seaplants:kelpgreen", 1)
 296         hbhunger.register_food("seaplants:kelpbrown", 1)
 297         hbhunger.register_food("seaplants:seagrassgreen", 1)
 298         hbhunger.register_food("seaplants:seagrassred", 1)
 299         hbhunger.register_food("seaplants:seasaladmix", 6)
 300         hbhunger.register_food("seaplants:kelpgreensalad", 1)
 301         hbhunger.register_food("seaplants:kelpbrownsalad", 1)
 302         hbhunger.register_food("seaplants:seagrassgreensalad", 1)
 303         hbhunger.register_food("seaplants:seagrassgreensalad", 1)
 304 end
 305
 306 if minetest.get_modpath("mobfcooking") ~= nil then
 307         hbhunger.register_food("mobfcooking:cooked_pork", 6)
 308         hbhunger.register_food("mobfcooking:cooked_ostrich", 6)
 309         hbhunger.register_food("mobfcooking:cooked_beef", 6)
 310         hbhunger.register_food("mobfcooking:cooked_chicken", 6)
 311         hbhunger.register_food("mobfcooking:cooked_lamb", 6)
 312         hbhunger.register_food("mobfcooking:cooked_venison", 6)
 313         hbhunger.register_food("mobfcooking:cooked_fish", 6)
 314 end
 315
 316 if minetest.get_modpath("creatures") ~= nil then
 317         hbhunger.register_food("creatures:meat", 6)
 318         hbhunger.register_food("creatures:flesh", 3)
 319         hbhunger.register_food("creatures:rotten_flesh", 3, "", 3)
 320 end
 321
 322 if minetest.get_modpath("ethereal") then
 323    hbhunger.register_food("ethereal:strawberry", 1)
 324    hbhunger.register_food("ethereal:banana", 4)
 325    hbhunger.register_food("ethereal:pine_nuts", 1)
 326    hbhunger.register_food("ethereal:bamboo_sprout", 0, "", 3)
 327    hbhunger.register_food("ethereal:fern_tubers", 1)
 328    hbhunger.register_food("ethereal:banana_bread", 7)
 329    hbhunger.register_food("ethereal:mushroom_plant", 2)
 330    hbhunger.register_food("ethereal:coconut_slice", 2)
 331    hbhunger.register_food("ethereal:golden_apple", 4, "", nil, 10)
 332    hbhunger.register_food("ethereal:wild_onion_plant", 2)
 333    hbhunger.register_food("ethereal:mushroom_soup", 4, "ethereal:bowl")
 334    hbhunger.register_food("ethereal:mushroom_soup_cooked", 6, "ethereal:bowl")
 335    hbhunger.register_food("ethereal:hearty_stew", 6, "ethereal:bowl", 3)
 336    hbhunger.register_food("ethereal:hearty_stew_cooked", 10, "ethereal:bowl")
 337    if minetest.get_modpath("bucket") then
 338         hbhunger.register_food("ethereal:bucket_cactus", 2, "bucket:bucket_empty")
 339    end
 340    hbhunger.register_food("ethereal:fish_raw", 2)
 341    hbhunger.register_food("ethereal:fish_cooked", 5)
 342    hbhunger.register_food("ethereal:seaweed", 1)
 343    hbhunger.register_food("ethereal:yellowleaves", 1, "", nil, 1)
 344    hbhunger.register_food("ethereal:sashimi", 4)
 345    hbhunger.register_food("ethereal:orange", 2)
 346 end
 347
 348 if minetest.get_modpath("farming") and farming.mod == "redo" then
 349    hbhunger.register_food("farming:bread", 6)
 350    hbhunger.register_food("farming:potato", 1)
 351    hbhunger.register_food("farming:baked_potato", 6)
 352    hbhunger.register_food("farming:cucumber", 4)
 353    hbhunger.register_food("farming:tomato", 4)
 354    hbhunger.register_food("farming:carrot", 3)
 355    hbhunger.register_food("farming:carrot_gold", 6, "", nil, 8)
 356    hbhunger.register_food("farming:corn", 3)
 357    hbhunger.register_food("farming:corn_cob", 5)
 358    hbhunger.register_food("farming:melon_slice", 2)
 359    hbhunger.register_food("farming:pumpkin_slice", 1)
 360    hbhunger.register_food("farming:pumpkin_bread", 9)
 361    hbhunger.register_food("farming:coffee_cup", 2, "farming:drinking_cup")
 362    hbhunger.register_food("farming:coffee_cup_hot", 3, "farming:drinking_cup", nil, 2)
 363    hbhunger.register_food("farming:cookie", 2)
 364    hbhunger.register_food("farming:chocolate_dark", 3)
 365    hbhunger.register_food("farming:donut", 4)
 366    hbhunger.register_food("farming:donut_chocolate", 6)
 367    hbhunger.register_food("farming:donut_apple", 6)
 368    hbhunger.register_food("farming:raspberries", 1)
 369    hbhunger.register_food("farming:blueberries", 1)
 370    hbhunger.register_food("farming:muffin_blueberry", 4)
 371    if minetest.get_modpath("vessels") then
 372         hbhunger.register_food("farming:smoothie_raspberry", 2, "vessels:drinking_glass")
 373    end
 374    hbhunger.register_food("farming:rhubarb", 1)
 375    hbhunger.register_food("farming:rhubarb_pie", 6)
 376    hbhunger.register_food("farming:beans", 1)
 377 end
 378
 379 if minetest.get_modpath("kpgmobs") ~= nil then
 380         hbhunger.register_food("kpgmobs:uley", 3)
 381         hbhunger.register_food("kpgmobs:meat", 6)
 382         hbhunger.register_food("kpgmobs:rat_cooked", 5)
 383         hbhunger.register_food("kpgmobs:med_cooked", 4)
 384         if minetest.get_modpath("bucket") then
 385            hbhunger.register_food("kpgmobs:bucket_milk", 4, "bucket:bucket_empty")
 386         end
 387 end
 388
 389 if minetest.get_modpath("jkfarming") ~= nil then
 390         hbhunger.register_food("jkfarming:carrot", 3)
 391         hbhunger.register_food("jkfarming:corn", 3)
 392         hbhunger.register_food("jkfarming:melon_part", 2)
 393         hbhunger.register_food("jkfarming:cake", 3)
 394 end
 395
 396 if minetest.get_modpath("jkanimals") ~= nil then
 397         hbhunger.register_food("jkanimals:meat", 6)
 398 end
 399
 400 if minetest.get_modpath("jkwine") ~= nil then
 401         hbhunger.register_food("jkwine:grapes", 2)
 402         hbhunger.register_food("jkwine:winebottle", 1)
 403 end
 404
 405 if minetest.get_modpath("cooking") ~= nil then
 406         hbhunger.register_food("cooking:meat_beef_cooked", 4)
 407         hbhunger.register_food("cooking:fish_bluewhite_cooked", 3)
 408         hbhunger.register_food("cooking:fish_clownfish_cooked", 1)
 409         hbhunger.register_food("cooking:meat_chicken_cooked", 2)
 410         hbhunger.register_food("cooking:meat_cooked", 2)
 411         hbhunger.register_food("cooking:meat_pork_cooked", 3)
 412         hbhunger.register_food("cooking:meat_toxic_cooked", -3)
 413         hbhunger.register_food("cooking:meat_venison_cooked", 3)
 414         hbhunger.register_food("cooking:meat_undead_cooked", 1)
 415 end
 416
 417 -- ferns mod of plantlife_modpack
 418 if minetest.get_modpath("ferns") ~= nil then
 419         hbhunger.register_food("ferns:fiddlehead", 1, "", 1)
 420         hbhunger.register_food("ferns:fiddlehead_roasted", 3)
 421         hbhunger.register_food("ferns:ferntuber_roasted", 3)
 422         hbhunger.register_food("ferns:horsetail_01", 1)
 423 end
 424
 425 if minetest.get_modpath("pizza") ~= nil then
 426         hbhunger.register_food("pizza:pizza", 30, "", nil, 30)
 427         hbhunger.register_food("pizza:pizzaslice", 5, "", nil, 5)
 428 end
 429
 430 if minetest.get_modpath("nssm") then
 431         hbhunger.register_food("nssm:werewolf_leg", 3)
 432         hbhunger.register_food("nssm:heron_leg", 2)
 433         hbhunger.register_food("nssm:chichibios_heron_leg", 4)
 434         hbhunger.register_food("nssm:crocodile_tail", 3)
 435         hbhunger.register_food("nssm:duck_legs", 1)
 436         hbhunger.register_food("nssm:ant_leg", 1)
 437         hbhunger.register_food("nssm:spider_leg", 1)
 438         hbhunger.register_food("nssm:tentacle", 2)
 439         hbhunger.register_food("nssm:worm_flesh", 2, "", 2) -- poisonous
 440         hbhunger.register_food("nssm:amphibian_heart", 1)
 441         hbhunger.register_food("nssm:raw_scrausics_wing", 1)
 442         -- superfoods
 443         hbhunger.register_food("nssm:phoenix_nuggets", 20, "", nil, 20)
 444         hbhunger.register_food("nssm:phoenix_tear", 20, "", nil, 20)
 445 end
 446
 447 -- player-action based hunger changes
 448 function hbhunger.handle_node_actions(pos, oldnode, player, ext)
 449         -- is_fake_player comes from the pipeworks, we are not interested in those
 450         if not player or not player:is_player() or player.is_fake_player == true then
 451                 return
 452         end
 453         local name = player:get_player_name()
 454         local exhaus = hbhunger.exhaustion[name]
 455         if exhaus == nil then return end
 456         local new = hbhunger.EXHAUST_PLACE
 457         -- placenode event
 458         if not ext then
 459                 new = hbhunger.EXHAUST_DIG
 460         end
 461         -- assume its send by main timer when movement detected
 462         if not pos and not oldnode then
 463                 new = hbhunger.EXHAUST_MOVE
 464         end
 465         exhaus = exhaus + new
 466         if exhaus > hbhunger.EXHAUST_LVL then
 467                 exhaus = 0
 468                 local h = tonumber(hbhunger.hunger[name])
 469                 h = h - 1
 470                 if h < 0 then h = 0 end
 471                 hbhunger.hunger[name] = h
 472                 hbhunger.set_hunger_raw(player)
 473         end
 474         hbhunger.exhaustion[name] = exhaus
 475 end
 476
 477 minetest.register_on_placenode(hbhunger.handle_node_actions)
 478 minetest.register_on_dignode(hbhunger.handle_node_actions)