summaryrefslogtreecommitdiffstats
path: root/crawl-ref/source/dat/clua/lm_1way.lua
blob: 35fd85a52240aa12336cc02e36dc4c028de0f7be (plain) (blame)
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
------------------------------------------------------------------------------
-- lm_1way.lua:
-- One-way stair marker.
------------------------------------------------------------------------------

OneWayStair = PortalDescriptor:new()
OneWayStair.__index = OneWayStair

function OneWayStair:new(props)
  local ows = PortalDescriptor.new(self, props)
  setmetatable(ows, self)
  return ows
end

function OneWayStair:activate(marker)
  local ev = dgn.dgn_event_type('player_climb')
  dgn.register_listener(ev, marker, marker:pos())
end

function OneWayStair:event(marker, ev)
  if ev:type() == dgn.dgn_event_type('player_climb') then
    local x, y = ev:pos()
    dgn.terrain_changed(x, y, self.props.floor or 'floor', false)
    dgn.remove_listener(marker, ev:pos())
    dgn.remove_marker(marker)
  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