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
|
------------------------------------------------------------------------------
-- lm_1way.lua:
-- One-way stair marker.
------------------------------------------------------------------------------
util.subclass(PortalDescriptor, "OneWayStair")
function OneWayStair:new(props)
local instance = PortalDescriptor.new(self, props)
if instance.props and instance.props.onclimb then
instance.props.onclimb = global_function(instance.props.onclimb)
end
return instance
end
function OneWayStair:activate(marker)
local ev = dgn.dgn_event_type('player_climb')
dgn.register_listener(ev, marker, marker:pos())
end
function OneWayStair:disappear(marker, x, y)
dgn.terrain_changed(x, y, self.props.floor or 'floor', false)
dgn.tile_feat_changed(x, y, self.props.feat_tile or nil)
if self.props.floor_tile ~= nil then
dgn.tile_floor_changed(x, y, self.props.floor_tile)
end
dgn.remove_listener(marker, x, y)
dgn.remove_marker(marker)
end
function OneWayStair:event(marker, ev)
if ev:type() == dgn.dgn_event_type('player_climb') then
local x, y = ev:pos()
-- If there's an onclimb function, call it before we do our thing.
if self.props.onclimb then
self.props.onclimb(self, marker, ev)
end
self:disappear(marker, x, y)
return true
end
end
function OneWayStair:read(marker, th)
PortalDescriptor.read(self, marker, th)
setmetatable(self, OneWayStair)
return self
end
function one_way_stair(pars)
return OneWayStair:new(pars)
end
|
