1-- NetHack 3.7	mines.des	$NHDT-Date: 1432512783 2015/05/25 00:13:03 $  $NHDT-Branch: master $:$NHDT-Revision: 1.25 $
2--	Copyright (c) 1989-95 by Jean-Christophe Collet
3--	Copyright (c) 1991-95 by M. Stephenson
4-- NetHack may be freely redistributed.  See license for details.
5--
6-- Mine end level variant 2
7-- "Gnome King's Wine Cellar"
8
9des.level_init({ style = "solidfill", fg = " " });
10
11des.level_flags("mazelevel");
12
13des.map([[
14---------------------------------------------------------------------------
15|...................................................|                     |
16|.|---------S--.--|...|--------------------------|..|                     |
17|.||---|   |.||-| |...|..........................|..|                     |
18|.||...| |-|.|.|---...|.............................|                ..   |
19|.||...|-|.....|....|-|..........................|..|.               ..   |
20|.||.....|-S|..|....|............................|..|..                   |
21|.||--|..|..|..|-|..|----------------------------|..|-.                   |
22|.|   |..|..|....|..................................|...                  |
23|.|   |..|..|----|..-----------------------------|..|....                 |
24|.|---|..|--|.......|----------------------------|..|.....                |
25|...........|----.--|......................|     |..|.......              |
26|-----------|...|.| |------------------|.|.|-----|..|.....|..             |
27|-----------|.{.|.|--------------------|.|..........|.....|....           |
28|...............|.S......................|-------------..-----...         |
29|.--------------|.|--------------------|.|.........................       |
30|.................|                    |.....................|........    |
31---------------------------------------------------------------------------
32]]);
33
34if percent(50) then
35   des.terrain({55,14},"-")
36   des.terrain({56,14},"-")
37   des.terrain({61,15},"|")
38   des.terrain({52,5}, "S")
39   des.door("locked", 52,5)
40end
41if percent(50) then
42   des.terrain({18,1}, "|")
43   des.terrain(selection.area(7,12, 8,13), ".")
44end
45if percent(50) then
46   des.terrain({49,4}, "|")
47   des.terrain({21,5}, ".")
48end
49if percent(50) then
50   if percent(50) then
51      des.terrain({22,1}, "|")
52   else
53      des.terrain({50,7}, "-")
54      des.terrain({51,7}, "-")
55   end
56end
57
58
59-- Dungeon Description
60des.feature("fountain", {14,13})
61des.region(selection.area(23,03,48,06),"lit")
62des.region(selection.area(21,06,22,06),"lit")
63des.region(selection.area(14,04,14,04),"unlit")
64des.region(selection.area(10,05,14,08),"unlit")
65des.region(selection.area(10,09,11,09),"unlit")
66des.region(selection.area(15,08,16,08),"unlit")
67-- Secret doors
68des.door("locked",12,02)
69des.door("locked",11,06)
70-- Stairs
71des.stair("up", 36,04)
72-- Non diggable walls
73des.non_diggable(selection.area(00,00,52,17))
74des.non_diggable(selection.area(53,00,74,00))
75des.non_diggable(selection.area(53,17,74,17))
76des.non_diggable(selection.area(74,01,74,16))
77des.non_diggable(selection.area(53,07,55,07))
78des.non_diggable(selection.area(53,14,61,14))
79-- The Gnome King's wine cellar.
80-- the Trespassers sign is a long-running joke
81des.engraving({12,03}, "engrave",
82	      "You are now entering the Gnome King's wine cellar.")
83des.engraving({12,04}, "engrave", "Trespassers will be persecuted!")
84des.object("booze", 10, 07)
85des.object("booze", 10, 07)
86des.object("!", 10, 07)
87des.object("booze", 10, 08)
88des.object("booze", 10, 08)
89des.object("!", 10, 08)
90des.object("booze", 10, 09)
91des.object("booze", 10, 09)
92des.object("object detection", 10, 09)
93-- Objects
94-- The Treasure chamber...
95des.object("diamond", 69, 04)
96des.object("*", 69, 04)
97des.object("diamond", 69, 04)
98des.object("*", 69, 04)
99des.object("emerald", 70, 04)
100des.object("*", 70, 04)
101des.object("emerald", 70, 04)
102des.object("*", 70, 04)
103des.object("emerald", 69, 05)
104des.object("*", 69, 05)
105des.object("ruby", 69, 05)
106des.object("*", 69, 05)
107des.object("ruby", 70, 05)
108des.object("amethyst", 70, 05)
109des.object("*", 70, 05)
110des.object("amethyst", 70, 05)
111des.object({ id="luckstone", x=70, y=05,
112	     buc="not-cursed", achievement=1 });
113-- Scattered gems...
114des.object("*")
115des.object("*")
116des.object("*")
117des.object("*")
118des.object("*")
119des.object("*")
120des.object("*")
121des.object("(")
122des.object("(")
123des.object()
124des.object()
125des.object()
126-- Random traps
127des.trap()
128des.trap()
129des.trap()
130des.trap()
131des.trap()
132des.trap()
133-- Random monsters.
134des.monster("gnome king")
135des.monster("gnome lord")
136des.monster("gnome lord")
137des.monster("gnome lord")
138des.monster("gnomish wizard")
139des.monster("gnomish wizard")
140des.monster("gnome")
141des.monster("gnome")
142des.monster("gnome")
143des.monster("gnome")
144des.monster("gnome")
145des.monster("gnome")
146des.monster("gnome")
147des.monster("gnome")
148des.monster("gnome")
149des.monster("hobbit")
150des.monster("hobbit")
151des.monster("dwarf")
152des.monster("dwarf")
153des.monster("dwarf")
154des.monster("h")
155