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
|
---------------------------------------------------------------------------
-- userbase.lua:
-- Base Lua definitions that other Lua scripts rely on (auto-loaded).
---------------------------------------------------------------------------
-- Lua global data
chk_interrupt_macro = { }
chk_interrupt_activity = { }
chk_lua_option = { }
-- Push into this table, rather than indexing into it.
chk_lua_save = { }
chk_force_autopickup = { }
chk_deny_autopickup = { }
function c_save(file)
if not chk_lua_save then
return
end
for i, fn in ipairs(chk_lua_save) do
fn(file)
end
end
-- This function returns true to tell Crawl not to process the option further
function c_process_lua_option(key, val)
if chk_lua_option and chk_lua_option[key] then
return chk_lua_option[key](key, val)
end
return false
end
function c_interrupt_macro(iname, cause, extra)
-- If some joker undefined the table, stop all macros
if not chk_interrupt_macro then
return true
end
-- Maybe we don't know what macro is running? Kill it to be safe
-- We also kill macros that don't add an entry to chk_interrupt_macro.
if not c_macro_name or not chk_interrupt_macro[c_macro_name] then
return true
end
return chk_interrupt_macro[c_macro_name](iname, cause, extra)
end
-- Notice that c_interrupt_activity defaults to *false* whereas
-- c_interrupt_macro defaults to *true*. This is because "false" really just
-- means "go ahead and use the default logic to kill this activity" here,
-- whereas false is interpreted as "no, don't stop this macro" for
-- c_interrupt_macro.
--
-- If c_interrupt_activity, or one of the individual hooks wants to ensure that
-- the activity continues, it must return *nil* (make sure you know what you're
-- doing when you return nil!).
function c_interrupt_activity(aname, iname, cause, extra)
-- If some joker undefined the table, bail out
if not chk_interrupt_activity then
return false
end
-- No activity name? Bail!
if not aname or not chk_interrupt_activity[aname] then
return false
end
return chk_interrupt_activity[aname](iname, cause, extra)
end
function opt_boolean(optname, default)
default = default or false
local optval = options[optname]
if optval == nil then
return default
else
return optval == "true" or optval == "yes"
end
end
function ch_force_autopickup(it, name)
if not chk_force_autopickup then
return false
end
for i = 1, #chk_force_autopickup do
if chk_force_autopickup[i](it, name) then
return true
end
end
return false
end
function add_autopickup_func(func)
table.insert(chk_force_autopickup, func)
end
function ch_deny_autopickup(it, name)
if not chk_deny_autopickup then
return false
end
for i = 1, #chk_deny_autopickup do
if chk_deny_autopickup[i](it, name) then
return true
end
end
return false
end
function add_no_autopickup_func(func)
table.insert(chk_deny_autopickup, func)
end
|