1;; ----------------------------------------------------------------------------
2;; Map
3;; ----------------------------------------------------------------------------
4(kern-mk-map
5 'm_angriss_lair 19 19 pal_expanded
6	(list
7		"|| || || || || || || || tt tt tt || || || tt || || || || "
8		"|| || || || || || || || || tt || || || tt tt tt || || || "
9		"|| || || || || || bb bb bb bb || || || bb .. bb || || || "
10		"|| || || || bb bb bb t3 t5 bb bb || bb .. .. .. bb || || "
11		"|| || || bb .. .. t3 || || t5 bb .. .. .. .. .. bb || || "
12		"|| || || bb .. .. ta || || tc .. .. .. .. .. bb || || || "
13		"|| || || bb bb bb .. .. .. .. .. .. .. bb bb || || || || "
14		"|| || || || bb bb .. bb .. .. tC t3 tt t5 bb || || || || "
15		"tt || || || bb || || || bb .. tb || || tt td bb || || tt "
16		"tt tt || || bb || tF || bb .. t% |A || tc t# bb || tt tt "
17		"tt || || || bb || || || bb bb .. .. .. .. bb || || || tt "
18		"|| || || || bb bb bb bb .. .. .. bb .. bb bb bb || || || "
19		"|| || || bb .. tC t3 t5 tA .. .. bb .. || || bb || || || "
20		"|| || || bb .. t3 || || td .. bb .. .. t% || bb || || || "
21		"|| || || bb .. ta || |C t# .. bb .. .. .. .. bb || || || "
22		"|| || || || bb .. .. .. .. bb || bb bb .. bb || || || || "
23		"|| || || || || bb .. bb bb || || || tt tt tt || || || || "
24		"|| || || || || tt tt tt || tt || || || tt || || || || || "
25		"|| || || || || || tt || tt tt tt || || || || || || || || "
26	)
27
28
29 )
30;;----------------------------------------------------------------------------
31;; Place
32;;----------------------------------------------------------------------------
33(kern-mk-place
34 'p_angriss_lair ; tag
35 "Entrance to Angriss's Lair"   ; name
36 s_spider_web     ; sprite
37 m_angriss_lair  ; map
38 #f               ; wraps
39 #f                     ; underground
40 #f                     ; large-scale (wilderness)
41 #f                     ; tmp combat place
42 nil                    ; subplaces
43
44 ;; neighbors
45 (list
46  )
47
48 ;; objects
49 (list
50  (put (mk-monman) 0 0)
51  (put (mk-ladder-down 'p_spider_cave 6 9) 6 9)
52  (put (mk-ladder-down 'p_spider_cave 15 4) 15 4)
53
54  (put (spawn-pt 'giant-spider faction-spider) 6 9)
55  (put (spawn-pt 'giant-spider faction-spider) 15 4)
56  (put (spawn-pt 'giant-spider faction-spider) 7 4)
57  (put (spawn-pt 'giant-spider faction-spider) 6 13)
58  (put (spawn-pt 'giant-spider faction-spider) 14 12)
59
60  )
61
62 (list 'on-entry-to-dungeon-room
63 	'quest-rune-f-lair
64 	) ; hooks
65 nil ; edge entrances
66 )
67
68(mk-place-music p_angriss_lair 'ml-outdoor-adventure)
69
70(kern-load "angriss.scm")
71
72(mk-dungeon-room
73 'p_angriss_throne_room  "Angriss's Throne Room"
74 (list
75		"rn rn rn rn r8 r8 r8 r8 r8 r8 r8 r8 r8 r8 rn rn rn rn rn "
76		"rn rn r8 r4 .. .. .. .. .. .. .. .. .. .. r2 rn r8 rn rn "
77		"rn rc .. re .. .. bb .. .. .. .. .. .. .. ra r4 .. ra rn "
78		"r4 .. .. .. .. .. bb bb .. bb bb bb .. .. .. re .. .. r2 "
79		"r4 .. .. .. .. bb .. bb bb bb .. bb r7 .. .. .. .. .. r2 "
80		"r4 .. .. .. bb bb .. .. .. .. bb rb rc bb .. .. .. .. r2 "
81		"rn r5 .. .. bb .. .. bb bb .. .. bb bb .. bb .. .. .. r2 "
82		"rn rc .. bb .. .. bb .. .. .. .. .. bb .. bb bb .. .. r2 "
83		"r4 .. .. bb .. bb .. .. .. .. .. bb .. .. bb .. .. rb rn "
84		"r4 .. .. bb .. .. bb .. .. .. .. .. bb .. bb .. .. .. r2 "
85		"r4 .. .. bb bb .. bb .. .. .. .. .. bb bb .. bb .. .. r2 "
86		"r4 .. .. .. .. .. bb bb .. .. .. bb bb .. .. bb .. .. r2 "
87		"r4 .. .. .. bb rf bb .. bb .. bb .. .. bb bb .. .. .. r2 "
88		"r4 .. .. .. bb bb bb bb bb bb bb .. bb bb bb .. .. .. r2 "
89		"r4 bb .. .. .. bb .. rf bb .. bb .. .. bb .. .. .. .. r2 "
90		"r4 bb bb .. .. .. bb bb bb bb .. bb .. .. .. .. .. .. r2 "
91		"rn rd .. .. .. .. .. .. .. .. .. .. .. .. r7 .. .. bb r2 "
92		"r4 bb bb .. bb .. .. .. .. .. .. .. .. r3 r4 .. bb bb r2 "
93		"rn r1 r1 r1 r1 r1 r5 .. .. .. .. .. r3 rn rn r1 r1 r1 rn "
94  )
95
96 (put (mk-angriss) 9 9)
97
98 (put (kern-mk-obj F_web_perm 1) 9  6)
99 (put (kern-mk-obj F_web_perm 1) 10 6)
100
101 (put (kern-mk-obj F_web_perm 1) 7  7)
102 (put (kern-mk-obj F_web_perm 1) 8  7)
103 (put (kern-mk-obj F_web_perm 1) 9  7)
104 (put (kern-mk-obj F_web_perm 1) 10 7)
105 (put (kern-mk-obj F_web_perm 1) 11 7)
106
107 (put (kern-mk-obj F_web_perm 1) 6  8)
108 (put (kern-mk-obj F_web_perm 1) 7  8)
109 (put (kern-mk-obj F_web_perm 1) 8  8)
110 (put (kern-mk-obj F_web_perm 1) 9  8)
111 (put (kern-mk-obj F_web_perm 1) 10 8)
112
113 (put (kern-mk-obj F_web_perm 1) 7  9)
114 (put (kern-mk-obj F_web_perm 1) 8  9)
115 (put (kern-mk-obj F_web_perm 1) 9  9)
116 (put (kern-mk-obj F_web_perm 1) 10 9)
117 (put (kern-mk-obj F_web_perm 1) 11 9)
118
119 (put (kern-mk-obj F_web_perm 1) 7  10)
120 (put (kern-mk-obj F_web_perm 1) 8  10)
121 (put (kern-mk-obj F_web_perm 1) 9  10)
122 (put (kern-mk-obj F_web_perm 1) 10 10)
123 (put (kern-mk-obj F_web_perm 1) 11 10)
124
125 (put (kern-mk-obj F_web_perm 1) 8  11)
126 (put (kern-mk-obj F_web_perm 1) 9  11)
127 (put (kern-mk-obj F_web_perm 1) 10 11)
128
129 (put (kern-mk-obj F_web_perm 1) 9  12)
130
131 (put (kern-mk-obj F_web_perm 1) 11 12)
132 (put (kern-mk-obj F_web_perm 1) 11 13)
133 (put (kern-mk-obj F_web_perm 1) 11 14)
134 (put (kern-mk-obj F_web_perm 1) 12 14)
135 (put (kern-mk-obj F_web_perm 1) 5 6)
136
137 )
138
139(mk-place-music p_angriss_throne_room 'ml-dungeon-adventure)
140
141;; corpse & treasure heaps
142(put-random-stuff p_angriss_throne_room
143                  (mk-rect 0 0 19 19)
144                  (lambda (loc)
145                    (eqv? (kern-place-get-terrain loc)
146                          t_grass))
147                  (lambda (loc)
148                    (kern-obj-put-at (mk-corpse-with-loot)
149                                     loc))
150                  50)
151
152;; spider eggs
153(put-random-stuff p_angriss_throne_room
154                  (mk-rect 6 6 7 7)
155                  (lambda (loc) #t)
156                  (lambda (loc)
157                    (kern-obj-put-at (mk-spider-egg) loc))
158                  20)
159
160
161
162(mk-dungeon-room
163 'p_spider_cave "Spider Cave"
164	(list
165		"rn r8 r8 r8 r8 r8 rc .. .. .. .. .. r2 rn r8 r8 r8 r8 rn "
166		"r4 bb .. .. .. .. .. .. .. .. .. .. r2 rc bb .. bb bb r2 "
167		"rn r5 .. .. .. .. .. .. .. .. .. r3 rc bb .. .. .. bb r2 "
168		"rn rn r5 .. r7 .. .. .. tC t7 tA r6 .. .. .. .! .. bb r2 "
169		"rn rn rn r9 rn rd .. tC t3 tt t5 r6 .. .. .! .! .! .. r2 "
170		"rn rn rc bb re t3 tt tt tt tt tc r6 bb .. .. .! .. .. r2 "
171		"rn rc .. tC t3 tt tt tt tt tt t# ra r5 bb bb .. .. bb r2 "
172		"r4 .. tC t3 tt tt tt tt tt tt tA .. ra r9 r9 r9 r9 r9 rn "
173		"r4 .. t3 tt tt .! .! .! tt tt t5 tA .. .. bb .. .. .. r2 "
174		"r4 .. tt tt tt .! .! .! tt tt tt td .. .. .. .. .. rb rn "
175		"r4 .. tt tt tt .! .! .! tt tt tc t# .. .. bb .. .. .. r2 "
176		"r4 .. ta tt tt tt tt tt tt tc r7 .. .. .. .. bb .. .. r2 "
177		"r4 .. t% ta tt tc bb ta tc r3 r4 bb .. r3 rd .. .. rb rn "
178		"r4 .. .. t% te rb r1 r1 r9 r8 r8 r9 r9 rc bb rf .. .. r2 "
179		"r4 bb .. rf .. .. ra rc .. .. bb .. .. bb .. .. .. .. r2 "
180		"rn r5 bb .. .. .. .. .. .. .. .. bb .. .. .. .. .. .. r2 "
181		"rn rc .. .. .. bb .. .. .. .. bb .. .. .. .. bb .. bb r2 "
182		"r4 .. .. .. .. .. .. .. r3 r1 r1 r1 r5 .. .. .. .. r3 rn "
183		"rn r1 r1 r1 r1 r1 r1 r1 rn rn rn rn rn r1 r1 r1 r1 rn rn "
184	)
185
186 (put (mk-ladder-up 'p_angriss_lair 6 9) 6 9)
187 (put (mk-ladder-up 'p_angriss_lair 15 4) 15 4)
188
189 (put (spawn-pt 'queen-spider faction-spider) 9 0)
190 (put (spawn-pt 'queen-spider faction-spider) 15 15)
191 (put (spawn-pt 'queen-spider faction-spider) 1 17)
192
193 ;; meat locker
194 (put (mk-corpse) 15 1)
195 (put (mk-corpse) 12 3)
196 (put (mk-corpse) 12 4)
197 (put (mk-corpse) 16 6)
198 (put (mk-corpse) 17 4)
199 (put (mk-spider-egg) 15 1)
200 (put (mk-spider-egg) 12 3)
201 (put (mk-spider-egg) 12 4)
202 (put (mk-spider-egg) 16 6)
203 (put (mk-spider-egg) 17 4)
204 (put (kern-mk-obj web-type 1) 15 1)
205 (put (kern-mk-obj web-type 1) 12 3)
206 (put (kern-mk-obj web-type 1) 12 4)
207 (put (kern-mk-obj web-type 1) 16 6)
208 (put (kern-mk-obj web-type 1) 17 4)
209 (put (kern-mk-obj web-type 1) 17 5)
210 (put (kern-mk-obj web-type 1) 15 6)
211 (put (kern-mk-obj web-type 1) 13 5)
212 (put (kern-mk-obj t_spell_book_white_magick_2 1) 15 1)
213 (put (kern-mk-obj t_gold_coins 52) 14 2)
214 (put (kern-mk-obj t_gold_coins 34) 17 5)
215 (put (kern-mk-obj t_bow 1) 15 6)
216 (put (kern-mk-obj t_arrow 34) 13 5)
217 (put (kern-mk-obj t_leather_helm 1) 16 2)
218 (put (kern-mk-obj t_halberd 1) 12 3)
219 (put (kern-mk-obj t_heal_potion 3) 15 1)
220 (put (kern-mk-obj t_mana_potion 5) 16 6)
221 (put (kern-mk-obj t_spell_book_force_magick_battle 1) 17 6)
222)
223
224(mk-place-music p_spider_cave 'ml-dungeon-adventure)
225
226(mk-dungeon-level
227 (list p_angriss_throne_room)
228 (list p_spider_cave)
229 )
230