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