-- NetHack 3.6	yendor.des	$NHDT-Date: 1432512783 2015/05/25 00:13:03 $  $NHDT-Branch: master $:$NHDT-Revision: 1.10 $
--	Copyright (c) 1989 by Jean-Christophe Collet
--	Copyright (c) 1992 by M. Stephenson and Izchak Miller
-- NetHack may be freely redistributed.  See license for details.
--
des.level_init({ style="mazegrid", bg ="-" });

des.level_flags("mazelevel", "noteleport", "hardfloor")
des.map([[
----------------------------.
|..|............S..........|.
|..|..------------------S--|.
|..|..|.........|..........|.
|..S..|.}}}}}}}.|..........|.
|..|..|.}}---}}.|-S--------|.
|..|..|.}--.--}.|..|.......|.
|..|..|.}|...|}.|..|.......|.
|..---|.}--.--}.|..|.......|.
|.....|.}}---}}.|..|.......|.
|.....S.}}}}}}}.|..|.......|.
|.....|.........|..|.......|.
----------------------------.
]]);
des.levregion({ type="stair-up", region={01,00,79,20}, region_islev=1, exclude={0,0,28,12} })
des.levregion({ type="stair-down", region={01,00,79,20}, region_islev=1, exclude={0,0,28,12} })
des.levregion({ type="branch", region={01,00,79,20}, region_islev=1, exclude={0,0,28,12} })
des.teleport_region({ region={01,00,79,20}, region_islev=1, exclude={0,0,27,12} })
des.levregion({ region={25,11,25,11}, type="portal", name="fakewiz1" });
des.mazewalk(28,09,"east")
des.region({ region={07,03, 15,11}, lit=0 ,type="morgue",prefilled=1 })
des.region({ region={17,06, 18,11}, lit=0, type="beehive" })
-- make the entry chamber a real room; it affects monster arrival;
-- `unfilled' is a kludge to force an ordinary room to remain a room
des.region({ region={20,06,26,11},lit=0,type="ordinary",prefilled=1,
             contents = function()
                local w = "north";
                if percent(50) then w = "west" end
                des.door({ state="secret", wall=w })
             end
});
des.door("closed",18,05)
des.ladder("up", 11,07)
-- Non diggable walls
-- Walls inside the moat stay diggable
des.non_diggable(selection.area(00,00,06,12))
des.non_diggable(selection.area(06,00,27,02))
des.non_diggable(selection.area(16,02,27,12))
des.non_diggable(selection.area(06,12,16,12))
--
des.non_passwall(selection.area(00,00,06,12))
des.non_passwall(selection.area(06,00,27,02))
des.non_passwall(selection.area(16,02,27,12))
des.non_passwall(selection.area(06,12,16,12))
--
des.monster("L", 10, 07)
des.monster("vampire lord", 12, 07)
-- Some surrounding horrors
des.monster("kraken", 08, 05)
des.monster("giant eel", 08, 08)
des.monster("kraken", 14, 05)
des.monster("giant eel", 14, 08)
-- Other monsters
des.monster("L")
des.monster("D")
des.monster("D", 26, 09)
des.monster("&")
des.monster("&")
des.monster("&")
-- And to make things a little harder.
des.trap("board",10,07)
des.trap("board",12,07)
des.trap("board",11,06)
des.trap("board",11,08)
-- Some loot
des.object(")")
des.object("!")
des.object("?")
des.object("?")
des.object("(")
-- treasures
des.object("\"", 11, 07)