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
|
/*
* File: l_moninf.cc
* Summary: User-accessible monster info.
*/
#include "AppHdr.h"
#include "l_libs.h"
#include "cluautil.h"
#include "coord.h"
#include "env.h"
#include "libutil.h"
#include "mon-info.h"
#include "player.h"
#define MONINF_METATABLE "monster.info"
void lua_push_moninf(lua_State *ls, monster_info *mi)
{
monster_info **miref =
clua_new_userdata<monster_info *>(ls, MONINF_METATABLE);
*miref = new monster_info(*mi);
}
#define MONINF(ls, n, var) \
monster_info *var = *(monster_info **) \
luaL_checkudata(ls, n, MONINF_METATABLE)
#define MIRET1(type, field) \
static int moninf_get_##field(lua_State *ls) \
{ \
MONINF(ls, 1, mi); \
lua_push##type(ls, mi->m_##field); \
return (1); \
}
#define MIREG(field) { #field, moninf_get_##field }
MIRET1(number, damage_level)
MIRET1(boolean, is_safe)
LUAFN(moninf_get_damage_desc)
{
MONINF(ls, 1, mi);
lua_pushstring(ls, mi->m_damage_desc.c_str());
return (1);
}
// FIXME: This is unsafe, since monster_info::to_string
// acccesses the underlying monsters*. monster_info
// should be changed to collect all info it needs
// on instantiation.
LUAFN(moninf_get_desc)
{
MONINF(ls, 1, mi);
std::string desc;
int col;
mi->to_string(1, desc, col);
lua_pushstring(ls, desc.c_str());
return (1);
}
static const struct luaL_reg moninf_lib[] =
{
MIREG(is_safe),
MIREG(damage_level),
MIREG(damage_desc),
MIREG(desc),
{ NULL, NULL }
};
// XXX: unify with directn.cc/h
// This uses relative coordinates with origin the player.
bool in_show_bounds(const coord_def &s)
{
return (s.rdist() <= ENV_SHOW_OFFSET);
}
LUAFN(mi_get_monster_at)
{
COORDSHOW(s, 1, 2)
coord_def p = player2grid(s);
if (!you.see_cell(p))
return (0);
if (env.mgrid(p) == NON_MONSTER)
return (0);
monsters* m = &env.mons[env.mgrid(p)];
if (!m->visible_to(&you))
return (0);
monster_info mi(m);
lua_push_moninf(ls, &mi);
return (1);
}
static const struct luaL_reg mon_lib[] =
{
{ "get_monster_at", mi_get_monster_at },
{ NULL, NULL }
};
void cluaopen_moninf(lua_State *ls)
{
clua_register_metatable(ls, MONINF_METATABLE, moninf_lib,
lua_object_gc<monster_info>);
luaL_openlib(ls, "monster", mon_lib, 0);
}
|
