1-- NetHack 3.7	mines.des	$NHDT-Date: 1548631704 2019/01/27 23:28:24 $  $NHDT-Branch: NetHack-3.6.2-beta01 $:$NHDT-Revision: 1.30 $
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-- "Grotto Town" by Kelly Bailey
7
8des.level_init({ style = "solidfill", fg = " " });
9
10des.level_flags("mazelevel");
11
12des.map([[
13-----         ---------
14|...---  ------.......--    -------                       ---------------
15|.....----.........--..|    |.....|          -------      |.............|
16--..-....-.----------..|    |.....|          |.....|     --+---+--.----+-
17 --.--.....----     ----    |.....|  ------  --....----  |..-...--.-.+..|
18  ---.........----  -----   ---+---  |..+.|   ---..-..----..---+-..---..|
19    ----.-....|..----...--    |.|    |..|.|    ---+-.....-+--........--+-
20       -----..|....-.....---- |.|    |..|.------......--................|
21    ------ |..|.............---.--   ----.+..|-.......--..--------+--..--
22    |....| --......---...........-----  |.|..|-...{....---|.........|..--
23    |....|  |........-...-...........----.|..|--.......|  |.........|...|
24    ---+--------....-------...---......--.-------....---- -----------...|
25 ------.---...--...--..-..--...-..---...|.--..-...-....------- |.......--
26 |..|-.........-..---..-..---.....--....|........---...-|....| |.-------
27 |..+...............-+---+-----..--..........--....--...+....| |.|...S.
28-----.....{....----...............-...........--...-...-|....| |.|...|
29|..............-- --+--.---------.........--..-........------- |.--+-------
30-+-----.........| |...|.|....|  --.......------...|....---------.....|....|
31|...| --..------- |...|.+....|   ---...---    --..|...--......-...{..+..-+|
32|...|  ----       ------|....|     -----       -----.....----........|..|.|
33-----                   ------                     -------  ---------------
34]]);
35
36if percent(75) then
37  if percent(50) then
38    des.terrain(selection.line(25,8, 25,9), "|")
39  else
40    des.terrain(selection.line(16,13, 17,13), "-")
41  end
42end
43if percent(75) then
44  if percent(50) then
45    des.terrain(selection.line(36,10, 36,11), "|")
46  else
47    des.terrain(selection.line(32,15, 33,15), "-")
48  end
49end
50if percent(50) then
51  des.terrain(selection.area(21,4, 22,5), ".")
52  des.terrain(selection.line(14,9, 14,10), "|")
53end
54if percent(50) then
55  des.terrain({46,13}, "|")
56  des.terrain(selection.line(43,5, 47,5), "-")
57  des.terrain(selection.line(42,6, 46,6), ".")
58  des.terrain(selection.line(46,7, 47,7), ".")
59end
60if percent(50) then
61  des.terrain(selection.area(69,11, 71,11), "-")
62end
63
64des.stair("up", 01,01)
65des.stair("down", 46,03)
66des.feature("fountain", 50,09)
67des.feature("fountain", 10,15)
68des.feature("fountain", 66,18)
69
70des.region(selection.area(00,00,74,20),"unlit")
71des.region(selection.area(09,13,11,17),"lit")
72des.region(selection.area(08,14,12,16),"lit")
73des.region(selection.area(49,07,51,11),"lit")
74des.region(selection.area(48,08,52,10),"lit")
75des.region(selection.area(64,17,68,19),"lit")
76des.region(selection.area(37,13,39,17),"lit")
77des.region(selection.area(36,14,40,17),"lit")
78des.region(selection.area(59,02,72,10),"lit")
79
80des.monster({ id = "watchman", peaceful = 1 })
81des.monster({ id = "watchman", peaceful = 1 })
82des.monster({ id = "watchman", peaceful = 1 })
83des.monster({ id = "watchman", peaceful = 1 })
84des.monster({ id = "watch captain", peaceful = 1 })
85des.monster("gnome")
86des.monster("gnome")
87des.monster("gnome")
88des.monster("gnome")
89des.monster("gnome")
90des.monster("gnome")
91des.monster("gnome lord")
92des.monster("gnome lord")
93des.monster("dwarf")
94des.monster("dwarf")
95des.monster("dwarf")
96
97-- The shops
98des.region({ region={25,17, 28,19}, lit=1, type="candle shop", filled=1 })
99des.door("closed",24,18)
100des.region({ region={59, 9, 67,10}, lit=1, type="shop", filled=1 })
101des.door("closed",66,08)
102des.region({ region={57,13, 60,15}, lit=1, type="tool shop", filled=1 })
103des.door("closed",56,14)
104des.region({ region={05,09, 08,10}, lit=1, type=monkfoodshop(), filled=1 })
105des.door("closed",07,11)
106-- Gnome homes
107des.door("closed",04,14)
108des.door("locked",01,17)
109des.monster("gnomish wizard", 02, 19)
110des.door("locked",20,16)
111des.monster("G", 20, 18)
112des.door("random",21,14)
113des.door("random",25,14)
114des.door("random",42,08)
115des.door("locked",40,05)
116des.monster("G", 38, 07)
117des.door("random",59,03)
118des.door("random",58,06)
119des.door("random",63,03)
120des.door("random",63,05)
121des.door("locked",71,03)
122des.door("locked",71,06)
123des.door("closed",69,04)
124des.door("closed",67,16)
125des.monster("gnomish wizard", 67, 14)
126des.object("=", 70, 14)
127des.door("locked",69,18)
128des.monster("gnome lord", 71, 19)
129des.door("locked",73,18)
130des.object("chest", 73, 19)
131des.door("locked",50,06)
132des.object("(", 50, 03)
133des.object({ id = "statue", x=38, y=15, montype="gnome king", historic=1 })
134-- Temple
135des.region({ region={29,02, 33,04}, lit=1, type="temple", filled=1 })
136des.door("closed",31,05)
137des.altar({ x=31,y=03, align=align[1], type="shrine" })
138