beh_wander = mons.behaviour("wander")
function ziggurat_awaken_all(mons)
  mons.beh = beh_wander
end

  local depth = zig().depth
  -- XXX: This is a placeholder!
  local generate_awake = depth > 9 and crawl.random2(30) < depth
  zig().monster_hook = generate_awake and ziggurat_awaken_all

         end
end
local function zig_monster_fn(spec)
  local mfn = dgn.monster_fn(spec)
  return function (x, y)
           local mons = mfn(x, y)
           if mons then
             local monster_hook = zig().monster_hook
             if monster_hook then
               monster_hook(mons)
             end
           end
           return mons

    local mcreator = dgn.monster_fn(arg)

    local mcreator = zig_monster_fn(arg)

     local d = math.max(0, zig().depth - 12)
     return "place:Vault:$ w:60 / ancient lich w:" .. d
   end))

               local d = math.max(0, zig().depth - 12)
               return "place:Vault:$ w:60 / ancient lich w:" .. d
             end))

    local d = math.max(0, zig().depth - 5)
     return "place:Pan w:40 / pandemonium lord w:" .. d
   end))

               local d = math.max(0, zig().depth - 5)
               return "place:Pan w:40 / pandemonium lord w:" .. d
             end))

     local d = zig().depth + 5
     return "place:Tomb:$ w:200 / greater mummy w:" .. d
   end))

               local d = zig().depth + 5
               return "place:Tomb:$ w:200 / greater mummy w:" .. d
             end))

     local d = 300 - 10 * zig().depth
     return "place:Elf:$ w:" .. d .. " / deep elf sorcerer / " ..
            "deep elf blademaster / deep elf master archer / " ..
            "deep elf annihilator / deep elf demonologist"
   end))

               local d = 300 - 10 * zig().depth
               return "place:Elf:$ w:" .. d .. " / deep elf sorcerer / " ..
                 "deep elf blademaster / deep elf master archer / " ..
                 "deep elf annihilator / deep elf demonologist"
             end))

     local d = 310 - 10 * zig().depth
     local e = math.max(0, zig().depth - 20)
     return "place:Orc:$ w:" .. d .. " / orc warlord / orc knight / " ..
            "orc high priest w:5 / orc sorcerer w:5 / stone giant / " ..
            "moth of wrath w:" .. e
   end))

               local d = 310 - 10 * zig().depth
               local e = math.max(0, zig().depth - 20)
               return "place:Orc:$ w:" .. d .. " / orc warlord / orc knight / " ..
                 "orc high priest w:5 / orc sorcerer w:5 / stone giant / " ..
                 "moth of wrath w:" .. e
             end))

local drac_creator = dgn.monster_fn("random draconian")

local drac_creator = zig_monster_fn("random draconian")

local pan_lord_fn = dgn.monster_fn("pandemonium lord")
local pan_critter_fn = dgn.monster_fn("place:Pan")

local pan_lord_fn = zig_monster_fn("pandemonium lord")
local pan_critter_fn = zig_monster_fn("place:Pan")

// We currently permit no set operations on monsters

static const char *_monster_behaviour_names[] = {
    "sleep",
    "wander",
    "seek",
    "flee",
    "cornered",
    "panic",
    "lurk"
};
static beh_type behaviour_by_name(const std::string &name) {
    ASSERT(ARRAYSZ(_monster_behaviour_names) == NUM_BEHAVIOURS);
    for (unsigned i = 0; i < ARRAYSZ(_monster_behaviour_names); ++i)
        if (name == _monster_behaviour_names[i])
            return static_cast<beh_type>(i);
    return NUM_BEHAVIOURS;
}

    // Changing monster behaviour is for the dungeon builder only,
    // never for user scripts.
    ASSERT_DLUA;
    MonsterWrap *mw = clua_get_userdata< MonsterWrap >(ls, MONS_METATABLE);
    if (!mw || !mw->mons)
        return (0);
    const char *attr = luaL_checkstring(ls, 2);
    if (!attr)
        return (0);
    if (!strcmp(attr, "beh")) {
        const beh_type beh =
            lua_isnumber(ls, 3) ?
            static_cast<beh_type>(lua_tonumber(ls, 3)) :
            lua_isstring(ls, 3) ? behaviour_by_name(lua_tostring(ls, 3)) :
            NUM_BEHAVIOURS;
        if (beh != NUM_BEHAVIOURS)
            mw->mons->behaviour = beh;
    }

static int mons_behaviour(lua_State *ls) {
    if (lua_gettop(ls) < 1)
        return (0);
    if (lua_isnumber(ls, 1)) {
        lua_pushvalue(ls, 1);
        return (1);
    }
    else if (lua_isstring(ls, 1)) {
        const beh_type beh = behaviour_by_name(lua_tostring(ls, 1));
        if (beh != NUM_BEHAVIOURS) {
            lua_pushnumber(ls, beh);
            return (1);
        }
    }
    return (0);
}
static const struct luaL_reg mons_lib[] =
{
    { "behaviour", mons_behaviour },
    { NULL, NULL }
};

    luaL_openlib(ls, "mons", mons_lib, 0);