std::string prompt = make_stringf("%s%s ", str ? str : "Buggy prompt?",
                                      _list_allowed_keys(alt_yes, alt_yes2,
                                                         safe, allow_all).c_str());

    std::string prompt =
        make_stringf("%s%s ", str ? str : "Buggy prompt?",
                     _list_allowed_keys(alt_yes, alt_yes2,
                                        safe, allow_all).c_str());

    // Bail if any markers veto the move.
    if (!dungeon_events.fire_vetoable_position_event(DETV_LEAVE_LEVEL,
                                                     you.pos()))
        return;

    // Bail if any markers veto the move.
    if (!dungeon_events.fire_vetoable_position_event(DETV_LEAVE_LEVEL,
                                                     you.pos()))
        return;

    void notify_dgn_event(const dgn_event &e);

    bool notify_dgn_event(const dgn_event &e);

void map_lua_marker::notify_dgn_event(const dgn_event &e)

bool map_lua_marker::notify_dgn_event(const dgn_event &e)

    if (!dlua.callfn("dlua_marker_method", 4, 0))

    if (!dlua.callfn("dlua_marker_method", 4, 1))

        // Lua error prevents veto if the event is vetoable.
        return (true);

    bool accepted = true;
    // We accept only a real boolean false as a veto.
    if (lua_isboolean(dlua, -1))
        accepted = lua_toboolean(dlua, -1);
    return (accepted);

    "monster_dies", "item_pickup", "item_moved", "feat_change"

    "monster_dies", "item_pickup", "item_moved", "feat_change",
    // vetoable events
    "v_leave_level"

    DET_FEAT_CHANGE     = 0x0800

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

    virtual void notify_dgn_event(const dgn_event &e) = 0;

    // For vetoable events, return false to veto.
    virtual bool notify_dgn_event(const dgn_event &e) = 0;

    // Returns false if the event is vetoed.
    bool fire_vetoable_position_event(const dgn_event &e,
                                      const coord_def &pos);
    bool fire_vetoable_position_event(dgn_event_type et,
                                      const coord_def &pos);

}
bool dgn_event_dispatcher::fire_vetoable_position_event(
    dgn_event_type et, const coord_def &pos)
{
    const dgn_event event(et, pos);
    return fire_vetoable_position_event(event, pos);
}
bool dgn_event_dispatcher::fire_vetoable_position_event(
    const dgn_event &et, const coord_def &pos)
{
    dgn_square_alarm *alarm = grid_triggers[pos.x][pos.y].get();
    if (alarm && (alarm->eventmask & et.type))
    {
        dgn_square_alarm alcopy(*alarm);
        for (std::list<dgn_event_listener*>::iterator
                 i = alcopy.listeners.begin();
             i != alcopy.listeners.end(); ++i)
        {
            if (!(*i)->notify_dgn_event(et))
                return (false);
        }
    }
    return (true);

require("clua/lm_toll.lua")

  local d = crawl.roll_dice
  local entry_fee =
    10 * math.floor(100 + d(3,200) / 3 + d(10) * d(10) * d(10))

    return one_way_stair {

    return toll_stair {
      amount = entry_fee,

------------------------------------------------------------------------------
-- lm_toll.lua:
-- One-way toll-stair marker.
------------------------------------------------------------------------------
require("clua/lm_1way.lua")
TollStair = util.subclass(OneWayStair)
function TollStair:new(props)
  local toll = self.super.new(self, props)
  if not props.amount or props.amount < 1 then
    error("Bad toll amount: " .. props.amount)
  end
  return toll
end
function TollStair:activate(marker)
  self.super.activate(self, marker)
  dgn.register_listener(dgn.dgn_event_type("v_leave_level"),
                        marker, marker:pos())
end
function TollStair:event(marker, ev)
  if self.super.event(self, marker, ev) then
    return true
  end
  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
    -- Ok, ask if the player wants to spend the $$$.
    if not crawl.yesno("This portal charges " .. needed ..
                       " gold for entry. Pay?", true, "n") then
      return false
    end
    -- Gold gold gold! Forget that gold!
    you.gold(you.gold() - needed)
    return true
  end
end
function TollStair:read(marker, th)
  TollStair.super.read(self, marker, th)
  setmetatable(self, TollStair)
  return self
end
function toll_stair(pars)
  return TollStair:new(pars)
end

#define ASSERT_DLUA \
    do {                                                            \
        if (CLua::get_vm(ls).managed_vm)                            \
            luaL_error(ls, "Operation forbidden in end-user script");   \
    } while (false)

static int _you_gold(lua_State *ls)
{
    if (lua_gettop(ls) >= 1)
    {
        ASSERT_DLUA;
        const int new_gold = luaL_checkint(ls, 1);
        you.gold = std::max(new_gold, 0);
        you.redraw_gold = true;
    }
    PLUARET(number, you.gold);
}

    { "gold"        , _you_gold },

static char _lua_char(lua_State *ls, int ndx, char defval = 0)
{
    return (lua_isnone(ls, ndx) || !lua_isstring(ls, ndx)? defval
            : lua_tostring(ls, ndx)[0]);
}
static int crawl_yesno(lua_State *ls)
{
    const char *prompt = luaL_checkstring(ls, 1);
    const bool safe = lua_toboolean(ls, 2);
    const int safeanswer = _lua_char(ls, 3);
    const bool clear_after =
        lua_isnone(ls, 4) ? true : lua_toboolean(ls, 4);
    const bool interrupt_delays =
        lua_isnone(ls, 5) ? true : lua_toboolean(ls, 5);
    const bool noprompt =
        lua_isnone(ls, 6) ? false : lua_toboolean(ls, 6);
    cursor_control con(true);
    lua_pushboolean(ls, yesno(prompt, safe, safeanswer, clear_after,
                              interrupt_delays, noprompt));
    return (1);
}
static int crawl_yesnoquit(lua_State *ls)
{
    const char *prompt = luaL_checkstring(ls, 1);
    const bool safe = lua_toboolean(ls, 2);
    const int safeanswer = _lua_char(ls, 3);
    const bool allow_all =
        lua_isnone(ls, 4) ? false : lua_toboolean(ls, 4);
    const bool clear_after =
        lua_isnone(ls, 5) ? true : lua_toboolean(ls, 5);
    // Skipping the other params until somebody needs them.
    cursor_control con(true);
    lua_pushnumber(ls, yesnoquit(prompt, safe, safeanswer, allow_all,
                                 clear_after));
    return (1);
}

LUARET1(crawl_roll_dice, number,
        lua_gettop(ls) == 1
        ? roll_dice( 1, luaL_checkint(ls, 1) )
        : roll_dice( luaL_checkint(ls, 1), luaL_checkint(ls, 2) ))

    { "roll_dice",      crawl_roll_dice },

    { "yesno",          crawl_yesno },
    { "yesnoquit",      crawl_yesnoquit },

#define ASSERT_DLUA \
    do {                                                            \
        if (CLua::get_vm(ls).managed_vm)                            \
            luaL_error(ls, "Operation forbidden in end-user script");   \
    } while (false)