1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
diet = {
players = {}
}
function diet.__init()
local file = io.open(minetest.get_worldpath().."/diet.txt", "r")
if file then
local table = minetest.deserialize(file:read("*all"))
if type(table) == "table" then
diet.players = table.players
return
end
end
end
function diet.save()
local file = io.open(minetest.get_worldpath().."/diet.txt", "w")
if file then
file:write(minetest.serialize({
players = diet.players
}))
file:close()
end
end
function diet.item_eat(max)
return function(itemstack, user, pointed_thing)
-- Process player data
local name = user:get_player_name()
local player = diet.__player(name)
local item = itemstack:get_name()
-- Get type
local ftype = ""
if (minetest.registered_items[item] and minetest.registered_items[item].groups) then
local groups = minetest.registered_items[item].groups
if groups.food_type_meal then
ftype = "meal"
elseif groups.food_type_snack then
ftype = "snack"
elseif groups.food_type_dessert then
ftype = "dessert"
elseif groups.food_type_drink then
ftype = "drink"
end
end
-- Calculate points
local points = max
if (#player.eaten>0) then
local same_food = 0
local same_type = 0
for _,v in pairs(player.eaten) do
if v[1] == item then
same_food = same_food + 1
end
if v[2] == ftype then
same_type = same_type + 1
end
end
local mult = same_food/10
points = points * 1-mult
if (mult > 0.9) then
local desc = item
if (minetest.registered_items[item] and minetest.registered_items[item].description) then
desc = minetest.registered_items[item].description
end
minetest.chat_send_player(name,"Your stomach hates "..desc)
elseif (mult > 0.4) then
minetest.chat_send_player(name,"Your stomach could do with a change.")
end
if points > max then
error("[DIET] This shouldn't happen! points > max")
return
end
end
-- Increase health
if minetest.get_modpath("hud") and hud then
local h = tonumber(hud.hunger[name])
h = h + points
if h>30 then h = 30 end
hud.hunger[name] = h
hud.save_hunger(user)
else
local hp = user:get_hp()
if (hp+points > 20) then
hp = 20
else
hp = hp + points
end
user:set_hp(hp)
end
-- Register
diet.__register_eat(player,item,ftype)
diet.save()
-- Remove item
itemstack:take_item()
return itemstack
end
end
function diet.__player(name)
if name == "" then
return nil
end
if diet.players[name] then
return diet.players[name]
end
diet.players[name] = {
name = name,
eaten = {}
}
diet.save()
return diet.players[name]
end
function diet.__register_eat(player,food,type)
table.insert(player.eaten,{food,type})
while (#player.eaten > 10) do
table.remove(player.eaten,1)
end
end
diet.__init()
|
