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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
/*** Interact with food and eating.
* @module food
*/
#include "AppHdr.h"
#include "l-libs.h"
#include "butcher.h"
#include "cluautil.h"
#include "food.h"
#include "item-prop.h"
#include "player.h"
/*** Eat food.
* Tries to eat.
* @treturn boolean returns true if we did
* @function do_eat
*/
static int food_do_eat(lua_State *ls)
{
bool eaten = false;
if (!you.turn_is_over)
eaten = eat_food(-1);
lua_pushboolean(ls, eaten);
return 1;
}
/*** Prompt the player to eat chunks.
* @treturn boolean true if the player ate chunks or if they cancel
* @function prompt_eat_chunks
*/
static int food_prompt_eat_chunks(lua_State *ls)
{
int eaten = 0;
if (!you.turn_is_over)
eaten = prompt_eat_chunks();
lua_pushboolean(ls, (eaten != 0));
return 1;
}
/*** Prompt the player to eat directly from the inventory menu.
* @treturn boolean true if we ate
* @function prompt_inventory_menu
*/
static int food_prompt_inventory_menu(lua_State *ls)
{
bool eaten = false;
if (!you.turn_is_over)
eaten = prompt_eat_item();
lua_pushboolean(ls, eaten);
return 1;
}
/*** Can we eat this (in our current hunger state)?
* @tparam items.Item morsel
* @tparam[opt=true] boolean hungercheck
* @treturn boolean
* @function can_eat
*/
static int food_can_eat(lua_State *ls)
{
LUA_ITEM(ls, item, 1);
bool hungercheck = true;
if (lua_isboolean(ls, 2))
hungercheck = lua_toboolean(ls, 2);
const bool edible = item && can_eat(*item, true, hungercheck);
lua_pushboolean(ls, edible);
return 1;
}
/*** Eat this item.
* @tparam items.Item morsel
* @treturn boolean If we succeeded
* @function eat
*/
static int food_eat(lua_State *ls)
{
LUA_ITEM(ls, item, 1);
bool eaten = false;
if (!you.turn_is_over && item && can_eat(*item, false))
eaten = eat_item(*item);
lua_pushboolean(ls, eaten);
return 1;
}
static int food_dangerous(lua_State *ls)
{
LUA_ITEM(ls, item, 1);
bool dangerous = false;
if (item)
dangerous = is_bad_food(*item);
lua_pushboolean(ls, dangerous);
return 1;
}
/*** Is this food a chunk?
* @tparam items.Item morsel
* @treturn boolean
* @function ischunk
*/
static int food_ischunk(lua_State *ls)
{
LUA_ITEM(ls, item, 1);
lua_pushboolean(ls, item && item->is_type(OBJ_FOOD, FOOD_CHUNK));
return 1;
}
// retained for script compatibility
static int food_isfruit(lua_State *ls)
{
LUA_ITEM(ls, item, 1);
lua_pushboolean(ls, item->is_type(OBJ_FOOD, FOOD_RATION));
return 1;
}
/*** Is this food meaty?
* @tparam items.Item morsel
* @treturn boolean
* @function ismeaty
*/
static int food_ismeaty(lua_State *ls)
{
LUA_ITEM(ls, item, 1);
lua_pushboolean(ls, food_is_meaty(*item));
return 1;
}
static int food_isveggie(lua_State *ls)
{
lua_pushboolean(ls, false);
return 1;
}
/*** Can we bottle blood from this?
* @tparam items.Item body
* @treturn boolean if we succeed
* @function bottleable
*/
static int food_bottleable(lua_State *ls)
{
LUA_ITEM(ls, item, 1);
lua_pushboolean(ls, item && item->is_type(OBJ_CORPSES, CORPSE_BODY)
&& can_bottle_blood_from_corpse(item->mon_type));
return 1;
}
/*** Is this edible?
* Differs from can_eat in that it checks temporary forms?
* @tparam items.Item morsel
* @treturn boolean
* @function edible
*/
static int food_edible(lua_State *ls)
{
LUA_ITEM(ls, item, 1);
lua_pushboolean(ls, item && !is_inedible(*item));
return 1;
}
static const struct luaL_reg food_lib[] =
{
{ "do_eat", food_do_eat },
{ "prompt_eat_chunks", food_prompt_eat_chunks },
{ "prompt_inv_menu", food_prompt_inventory_menu },
{ "can_eat", food_can_eat },
{ "eat", food_eat },
{ "dangerous", food_dangerous },
{ "ischunk", food_ischunk },
{ "isfruit", food_isfruit },
{ "ismeaty", food_ismeaty },
{ "isveggie", food_isveggie },
{ "bottleable", food_bottleable },
{ "edible", food_edible },
{ nullptr, nullptr },
};
void cluaopen_food(lua_State *ls)
{
luaL_openlib(ls, "food", food_lib, 0);
}
|
