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
|
-- add this: dofile("debug.lua")
-- after last line in your main.lua
-- for debug tools
choose_location = dlg {
debug = true,
nam = 'Go to',
dsc = 'Select location.',
gen = function(s)
local k,v
objs(s):zap();
for k,v in pairs(_G) do
if isRoom(v) and not v.debug then
local n = call(v, 'nam');
put(phr(n, '', [[return walk("]]..k..[[")]]), s);
end
end
put (phr('Exit','','back()'), s)
end
}
choose_object = dlg {
debug = true,
nam = 'Get object',
dsc = 'Select object to get.',
gen = function(s)
local k,v
objs(s):zap();
for k,v in pairs(_G) do
if isObject(v) and not isRoom(v) and not isPlayer(v) and not v.debug and not have(v) and not isStatus(v) then
local n = call(v, 'nam');
put(phr(n, '', k..':enable(); return take("'..k..'")'), s);
end
end
put (phr('Exit','','back()'), s)
end
}
drop_object = dlg {
debug = true,
nam = 'Drop object',
dsc = 'Select object to drop.',
gen = function(s)
local k,v
objs(s):zap();
for k,v in pairs(_G) do
if isObject(v) and not isRoom(v) and not isPlayer(v) and not v.debug and have(v) then
local n = call(v, 'nam');
put (phr(k,'','drop("'..k..'","'..deref(from())..'")'), s)
end
end
put (phr('Exit','','back()'), s)
end
}
debug_dlg = dlg {
debug = true,
nam = 'Debug Tool',
dsc = 'Select tool.',
obj = {
[1]=phr('Go to location...', nil ,[[pon(1); choose_location:gen(); return walk('choose_location')]]),
[2]=phr('Get object...', nil , [[pon(2); choose_object:gen(); return walk('choose_object')]]),
[3]=phr('Put object...', nil , [[pon(3); drop_object:gen(); return walk('drop_object')]]),
[4]=phr('Exit', nil , [[pon(4); back()]]),
},
};
debug_tool = obj {
debug = true,
nam = txtb('debug'),
inv = function(s)
debug_dlg.__from__ = deref(here());
me().where = 'debug_dlg'; -- force to go
local r = call(debug_dlg, 'enter');
return r;
end
};
putf('debug_tool', me());
|
