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
|
------------------------------------------------------------------------------
-- lm_timed.lua:
-- Lua timed map feature markers.
------------------------------------------------------------------------------
require('clua/lm_tmsg.lua')
require('clua/lm_1way.lua')
TimedMarker = util.subclass(OneWayStair)
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
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)
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_grid(marker:pos()) then
crawl.mpr( 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)
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
|