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
|
/*
* File: l_debug.cc
* Summary: Various debugging bindings.
*/
#include "AppHdr.h"
#include "cluautil.h"
#include "l_libs.h"
#include "chardump.h"
#include "dungeon.h"
#include "message.h"
#include "place.h"
// WARNING: This is a very low-level call.
LUAFN(debug_goto_place)
{
try
{
const level_id id = level_id::parse_level_id(luaL_checkstring(ls, 1));
you.level_type = id.level_type;
if (id.level_type == LEVEL_DUNGEON)
{
you.where_are_you = static_cast<branch_type>(id.branch);
you.your_level = absdungeon_depth(id.branch, id.depth);
}
}
catch (const std::string &err)
{
luaL_error(ls, err.c_str());
}
return (0);
}
LUAFN(debug_flush_map_memory)
{
dgn_flush_map_memory();
init_level_connectivity();
return (0);
}
LUAFN(debug_generate_level)
{
no_messages mx;
env.show.init(0);
env.map.init(map_cell());
#ifdef USE_TILE
tile_init_default_flavour();
tile_clear_flavour();
TileNewLevel(true);
#endif
builder(you.your_level, you.level_type);
return (0);
}
LUAFN(debug_dump_map)
{
const int pos = lua_isuserdata(ls, 1) ? 2 : 1;
if (lua_isstring(ls, pos))
dump_map(lua_tostring(ls, pos), true);
return (0);
}
LUAFN(_debug_test_explore)
{
#ifdef WIZARD
debug_test_explore();
#endif
return (0);
}
const struct luaL_reg debug_dlib[] =
{
{ "goto_place", debug_goto_place },
{ "flush_map_memory", debug_flush_map_memory },
{ "generate_level", debug_generate_level },
{ "dump_map", debug_dump_map },
{ "test_explore", _debug_test_explore },
{ NULL, NULL }
};
|
