}
static bool _marker_vetoes_level_change()
{
    return (marker_vetoes_operation("veto_level_change"));

    if (!dungeon_events.fire_vetoable_position_event(DETV_LEAVE_LEVEL,
                                                     you.pos()))

    if (_marker_vetoes_level_change())

    if (!dungeon_events.fire_vetoable_position_event(DETV_LEAVE_LEVEL,
                                                     you.pos()))

    if (_marker_vetoes_level_change())

bool marker_vetoes_operation(const char *op);

/////////////////////////////////////////////////////////////////////////
bool marker_vetoes_operation(const char *op)
{
    return env.markers.property_at(you.pos(), MAT_ANY, op) == "veto";
}

    // vetoable events
    "v_leave_level"

    DET_FEAT_CHANGE     = 0x0800,
    // Vetoable events, usually fired before the corresponding (real) event.
    DETV_LEAVE_LEVEL    = 0x1000

    DET_FEAT_CHANGE     = 0x0800

function TollStair:event(marker, ev)
  if self.super.event(self, marker, ev) then
    return true
  end

function TollStair:check_veto(marker, pname)
  -- Have we enough gold?
  local gold = you.gold()
  local needed = self.props.amount

  if ev:type() == dgn.dgn_event_type('v_leave_level') then
    -- Have we enough gold?
    local gold = you.gold()
    local needed = self.props.amount
    if gold < needed then
      crawl.mpr("This portal charges " .. needed .. " gold for entry; " ..
                "you have only " .. gold .. " gold.")
      return false
    end

  if gold < needed then
    crawl.mpr("This portal charges " .. needed .. " gold for entry; " ..
              "you have only " .. gold .. " gold.")
    return "veto"
  end

  if pname == "veto_stair" then

      return false

      return "veto"

  elseif pname == "veto_level_change" then

    return true

    return
  end
end
function TollStair:property(marker, pname)
  if pname == 'veto_stair' or pname == 'veto_level_change' then
    return self:check_veto(marker, pname)

  return self.super.property(self, marker, pname)

}
static bool _marker_vetoes_stair()
{
    return marker_vetoes_operation("veto_stair");

    if (_marker_vetoes_stair())
        return;

        if (_marker_vetoes_stair())
            return;