-- Returns a function that changes the depth in the ziggurat to the depth
-- specified.

-- Increments the depth in the ziggurat when the player takes a
-- downstair in the ziggurat.

  dgn.set_level_type_name  ("Ziggurat:" .. zig().depth)
  dgn.set_level_type_origin("on level " .. zig().depth .. " of a ziggurat")

  local newdepth = zig().depth + 1

    onclimb = zig_depth_increment

    onclimb = zig_depth_increment,
    dstname = "Ziggurat:" .. newdepth,
    dstorigin = "on level " .. newdepth .. " of a ziggurat"

function util.subclass(parent)
  -- parent should have no-arg constructor.
  local subclass = parent:new()
  subclass.super = parent
  -- Not strictly necessary - parent constructor should do this.
  subclass.__index = subclass
  return subclass
end

dofile('clua/lm_pdesc.lua')
dofile('clua/lm_1way.lua')
dofile('clua/lm_timed.lua')
dofile('clua/lm_flags.lua')
dofile('clua/lm_fog.lua')
dofile('clua/lm_props.lua')

require('clua/lm_pdesc.lua')
require('clua/lm_1way.lua')
require('clua/lm_timed.lua')
require('clua/lm_flags.lua')
require('clua/lm_fog.lua')
require('clua/lm_props.lua')

dofile('clua/lm_tmsg.lua')

require('clua/lm_tmsg.lua')
require('clua/lm_1way.lua')

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

TimedMarker = util.subclass(OneWayStair)

function TimedMarker:_new()
  local marker = { }
  setmetatable(marker, self)
  self.__index = self
  return marker
end

function TimedMarker:new(props)
  props = props or { }
  local tmarker = self.super.new(self, props)

function TimedMarker:new(pars)
  pars = pars or { }
  if not pars.msg then

  if not props.msg then

  pars.high = pars.high or pars.low or pars.turns or 1
  pars.low  = pars.low or pars.high or pars.turns or 1
  local dur = crawl.random_range(pars.low, pars.high, pars.navg or 1)
  local feat = pars.floor or 'floor'
  local fnum = dgn.feature_number(feat)

  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)

  local tmarker     = self:_new()
  tmarker.dur       = dur * 10
  tmarker.fnum      = fnum
  tmarker.feat      = feat
  tmarker.msg       = pars.msg
  tmarker.disappear = pars.disappear

  tmarker.dur = dur * 10
  tmarker.msg = props.msg

  if pars.props then
    tmarker.props = pars.props
  end

  props.msg = nil

  self.super.activate(self, marker, verbose)

  dgn.register_listener(dgn.dgn_event_type('turn'), marker)
end

  dgn.register_listener(dgn.dgn_event_type('turn'), marker)
  dgn.register_listener(dgn.dgn_event_type('player_climb'),
                        marker, marker:pos())

function TimedMarker:disappear(marker, affect_player, x, y)
  dgn.remove_listener(marker)
  self.super.disappear(self, marker, affect_player, x, y)

      crawl.mpr( self.disappear or

      crawl.mpr( self.props.disappear or

  dgn.terrain_changed(x, y, self.fnum, affect_player, false)
  dgn.remove_listener(marker)
  dgn.remove_listener(marker, marker:pos())
  dgn.remove_marker(marker)

  self:disappear(marker, affect_player, x, y)

  self.ticktype = self.ticktype or dgn.dgn_event_type('turn')
  self.stairtype = self.stairtype or dgn.dgn_event_type('player_climb')
  if ev:type() == self.stairtype then
    local mx, my = marker:pos()
    local ex, ey = ev:pos()
    if mx == ex and my == ey then
      self:timeout(marker, false, false)
    end
    return

  if self.super.event(self, marker, ev) then
    return true

  self.ticktype = self.ticktype or dgn.dgn_event_type('turn')

    return true

  return self.feat .. "/" .. tostring(self.dur)

  local feat = self.props.floor or 'floor'
  return feat .. "/" .. tostring(self.dur)

  PortalDescriptor.read(self, marker, th)

  TimedMarker.super.read(self, marker, th)

  self.fnum = file.unmarshall_number(th)
  self.feat = file.unmarshall_string(th)
  self.disappear = file.unmarshall_meta(th)

  PortalDescriptor.write(self, marker, th)

  TimedMarker.super.write(self, marker, th)

  file.marshall(th, self.fnum)
  file.marshall(th, self.feat)
  file.marshall_meta(th, self.disappear)

  self.__index = self

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

OneWayStair = util.subclass(PortalDescriptor)

end
function OneWayStair:disappear(marker, affect_player, x, y)
  dgn.terrain_changed(x, y, self.props.floor or 'floor', affect_player, false)
  dgn.remove_listener(marker, x, y)
  dgn.remove_marker(marker)

    dgn.terrain_changed(x, y, self.props.floor or 'floor', false, false)
    dgn.remove_listener(marker, ev:pos())
    dgn.remove_marker(marker)

    self:disappear(marker, false, x, y)
    return true