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
|
------------------------------------------------------------------------------
-- lm_timed.lua:
-- Lua timed map feature markers.
------------------------------------------------------------------------------
require('clua/lm_tmsg.lua')
require('clua/lm_1way.lua')
require('clua/lm_toll.lua')
TimedMarker = util.subclass(OneWayStair)
TimedMarker.CLASS = "TimedMarker"
function TimedMarker:new(props)
props = props or { }
local tmarker = self.super.new(self, props)
if not props.msg then
error("No messaging object provided (msg = nil)")
end
props.high = props.high or props.low or props.turns or 1
props.low = props.low or props.high or props.turns or 1
local dur = crawl.random_range(props.low, props.high, props.navg or 1)
if fnum == dgn.feature_number('unseen') then
error("Bad feature name: " .. feat)
end
tmarker.dur = dur * 10
tmarker.msg = props.msg
if props.amount and props.amount > 0 then
tmarker.toll = TollStair:new(props)
end
props.msg = nil
return tmarker
end
function TimedMarker:activate(marker, verbose)
self.super.activate(self, marker, verbose)
self.msg:init(self, marker, verbose)
dgn.register_listener(dgn.dgn_event_type('turn'), marker)
if self.toll then
self.toll:activate(marker, verbose)
end
end
function TimedMarker:property(marker, pname)
return ((self.toll and self.toll:property(marker, pname))
or self.super.property(self, marker, pname))
end
function TimedMarker:disappear(marker, affect_player, x, y)
dgn.remove_listener(marker)
self.super.disappear(self, marker, affect_player, x, y)
end
function TimedMarker:timeout(marker, verbose, affect_player)
local x, y = marker:pos()
if you.pos() == marker:pos() and you.taking_stairs() then
if verbose then
crawl.mpr( dgn.feature_desc_at(x, y, "The") .. " vanishes " ..
"just as you enter it!")
return
end
end
if verbose then
if you.see_cell(marker:pos()) then
crawl.mpr( util.expand_entity(self.props.entity, self.props.disappear) or
dgn.feature_desc_at(x, y, "The") .. " disappears!")
else
crawl.mpr("The walls and floor vibrate strangely for a moment.")
end
end
self:disappear(marker, affect_player, x, y)
end
function TimedMarker:event(marker, ev)
if self.super.event(self, marker, ev) then
return true
end
self.ticktype = self.ticktype or dgn.dgn_event_type('turn')
if ev:type() ~= self.ticktype then
return
end
self.dur = self.dur - ev:ticks()
self.msg:event(self, marker, ev)
if self.dur <= 0 then
self:timeout(marker, true, true)
return true
end
end
function TimedMarker:describe(marker)
local feat = self.props.floor or 'floor'
return feat .. "/" .. tostring(self.dur)
end
function TimedMarker:read(marker, th)
TimedMarker.super.read(self, marker, th)
self.dur = file.unmarshall_number(th)
self.msg = file.unmarshall_fn(th)(th)
if self.props.amount then
self.toll = TollStair:new(self.props)
end
setmetatable(self, TimedMarker)
return self
end
function TimedMarker:write(marker, th)
TimedMarker.super.write(self, marker, th)
file.marshall(th, self.dur)
file.marshall(th, self.msg.read)
self.msg:write(th)
end
function timed_marker(pars)
return TimedMarker:new(pars)
end
|