1(kern-mk-place 2 'p_voidgap_entrance 3 "Passage to Voidgap" 4 s_dungeon ; sprite 5 (kern-mk-map nil 19 19 pal_expanded 6 (list 7 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 8 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 9 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn r8 rn rn rn rn " 10 "rn rn r8 r8 r8 r8 r8 rn r8 rn rn rn rn rc {{ ra r8 r8 rn " 11 "rn rc {4 {{ {{ {{ {2 re bb ra r8 xx rc {{ {{ {2 .. .. ra " 12 "rc .. {4 {{ {{ {3 .. .. .. .. {4 xx {{ {{ {{ {2 .. .. .! " 13 ".. .. .. {1 {1 .. .. .. .. .. .. x! {5 {{ {3 .. .. .! .. " 14 ".. .. .. .. .. .. .. .. .. .. .. w+ .. {1 .. .. .. .. .! " 15 ".. .. .. .. .. bb .. .. .. .. .. .. .. .. bb .. .. .. .. " 16 ".. .. .. .. .. .. .. .. {8 .. .. w+ .. .. .. .. .. .. .! " 17 ".. .. .. .. .. .. {8 {c {{ {2 .. .. .. .. .. .. .. .! .. " 18 ".. .. bb .. .. {c {{ {{ {{ {2 .. w+ .. .. .. .. .. {8 .! " 19 ".. .. .. .. {c {{ {{ rf {{ {2 .. x! .. .. .. .. {4 {{ {a " 20 ".. .. .. {4 {{ {{ {{ {{ {3 .. .. xx .. .. .. .. {4 {{ {{ " 21 ".. r7 .. .. r3 r5 {{ {{ {2 {8 {8 xx .. r3 r5 .. .. {5 {{ " 22 "r1 rn r1 r1 rn rn r1 r5 {4 {{ {{ xx r3 rn rn r1 r1 r1 r1 " 23 "rn rn rn rn rn rn rn rn r5 {{ {{ rn rn rn rn rn rn rn rn " 24 "rn rn rn rn rn rn rn rn rn r1 r1 rn rn rn rn rn rn rn rn " 25 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 26 27 ) 28 ) 29 30 #f ; wraps 31 #t ; underground 32 #f ; large-scale (wilderness) 33 #f ; tmp combat place 34 nil ; subplaces 35 nil ; neighbors 36 37 (list ; objects 38 (put (mk-monman) 0 0) 39 40 (put (mk-windowed-door) 11 8) 41 (put (mk-windowed-door) 11 10) 42 43 (put (guard-pt 'knight) 13 8) 44 (put (guard-pt 'knight) 13 10) 45 (put (guard-pt 'halberdier) 14 9) 46 (put (guard-pt 'crossbowman) 15 10) 47 (put (guard-pt 'crossbowman) 15 8) 48 49 (put (spawn-pt 'cave-goblin-slinger-m) 3 7) 50 (put (spawn-pt 'cave-goblin-berserker-m) 6 12) 51 (put (spawn-pt 'cave-goblin-slinger-m) 4 11) 52 (put (spawn-pt 'cave-goblin-berserker-m) 7 8) 53 (put (spawn-pt 'troll-m) 2 8) 54 ) 55 56 (list 57 'on-entry-to-dungeon-room 58 'voidgap-room-handle-start 59 ) ;; hooks 60 (list ;; edge entrances 61 (list northwest 18 14) 62 (list southwest 18 6) 63 ) 64 ) 65 66(mk-place-music p_voidgap_entrance 'ml-castle) 67 68 69(kern-mk-place 70 'p_voidgap_exit 71 "Tunnels at Voidgap" 72 s_dungeon ; sprite 73 (kern-mk-map nil 19 19 pal_expanded 74 (list 75 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 76 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 77 "rn rn rn r8 r8 rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 78 "rn rn rc .. .. ra r8 r8 rn rn rn r8 r8 r8 r8 r8 r8 r8 rn " 79 "r8 rc .. .. {4 {{ {{ {{ ra r8 rc {{ {{ {{ {2 bb .. .. ra " 80 ".! .. .. .. .. {1 {5 {{ {{ {{ {{ {{ {{ {{ {2 .. .. .. .. " 81 ".! .! .. .. .. .. .. {1 {5 {{ {{ rf {{ {3 .. .. .. .. .. " 82 ".. .. .. .. .. .. .. bb .. {1 {5 {{ {3 .. .. .. .. .. .. " 83 ".! .. .. .. .. .. .. .. .. .. .. {1 .. .. .. .. .. .. .. " 84 ".! .. .. .. .. .. .. .. .. .. .. .. .. .. bb .. .. .. .. " 85 ".. .! .. bb .. .. .. .. .. rf .. .. .. .. .. .. .. .. .. " 86 ".! .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 87 "{8 {8 {8 .. .. .. .. bb .. .. .. .. .. .. .. .. .. .. .. " 88 "{{ {{ {{ {2 .. .. .. .. .. .. .. .. .. .. .. .. bb .. .. " 89 "{{ {3 {1 .. .. r3 r5 .. .. .. r3 r5 .. .. .. r3 r5 .. .. " 90 "r5 .. r3 r1 r1 rn rn r1 r1 r1 rn rn r1 r1 r1 rn rn r1 r1 " 91 "rn r1 rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 92 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 93 "rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn rn " 94 95 ) 96 ) 97 98 #f ; wraps 99 #t ; underground 100 #f ; large-scale (wilderness) 101 #f ; tmp combat place 102 nil ; subplaces 103 nil ; neighbors 104 105 nil ; objects 106 107 (list 108 'voidgap-room-handle-end 109 ) ;; hooks 110 (list ;; edge entrances 111 (list northeast 0 14) 112 (list southeast 0 5) 113 ) 114 ) 115 116(mk-place-music p_voidgap_exit 'ml-dungeon-adventure) 117 118 119(kern-mk-place 120 'p_voidgap_1 121 "Voidgap Tunnels" 122 nil ; sprite 123 (kern-mk-map nil 19 19 pal_expanded 124 (list 125 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 126 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 127 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn " 128 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 129 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 " 130 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. " 131 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 132 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 133 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 134 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 135 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 136 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 137 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 138 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 139 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 " 140 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 141 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn " 142 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 143 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 144 ) 145 ) 146 #f ; wraps 147 #t ; underground 148 #f ; large-scale (wilderness) 149 #f ; tmp combat place 150 nil ; subplaces 151 nil ; neighbors 152 153 nil; objects 154 155 (list 156 ;'on-entry-to-dungeon-room 157 'voidgap-room-handle-deeps 158 ) ;; hooks 159 nil 160) 161 162 163 (kern-mk-place 164 'p_voidgap_2 165 "Voidgap Tunnels" 166 nil ; sprite 167 (kern-mk-map nil 19 19 pal_expanded 168 (list 169 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 170 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 171 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn " 172 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 173 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 " 174 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. " 175 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 176 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 177 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 178 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 179 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 180 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 181 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 182 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 183 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 " 184 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 185 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn " 186 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 187 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 188 ) 189 ) 190 #f ; wraps 191 #t ; underground 192 #f ; large-scale (wilderness) 193 #f ; tmp combat place 194 nil ; subplaces 195 nil ; neighbors 196 197 nil 198 199 (list 200 ;'on-entry-to-dungeon-room 201 'voidgap-room-handle-deeps 202 ) ;; hooks 203 nil 204) 205 206 (kern-mk-place 207 'p_voidgap_3 208 "Voidgap Tunnels" 209 nil ; sprite 210 (kern-mk-map nil 19 19 pal_expanded 211 (list 212 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 213 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 214 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn " 215 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 216 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 " 217 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. " 218 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 219 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 220 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 221 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 222 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 223 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 224 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 225 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 226 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 " 227 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 228 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn " 229 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 230 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 231 ) 232 ) 233 #f ; wraps 234 #t ; underground 235 #f ; large-scale (wilderness) 236 #f ; tmp combat place 237 nil ; subplaces 238 nil ; neighbors 239 240 nil 241 242 (list 243 ;'on-entry-to-dungeon-room 244 'voidgap-room-handle-deeps 245 ) ;; hooks 246 nil 247 ) 248 249 (kern-mk-place 250 'p_voidgap_4 251 "Voidgap Tunnels" 252 nil ; sprite 253 (kern-mk-map nil 19 19 pal_expanded 254 (list 255 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 256 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 257 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn " 258 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 259 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 " 260 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. " 261 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 262 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 263 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 264 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 265 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 266 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 267 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 268 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 269 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 " 270 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 271 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn " 272 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 273 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 274 ) 275 ) 276 #f ; wraps 277 #t ; underground 278 #f ; large-scale (wilderness) 279 #f ; tmp combat place 280 nil ; subplaces 281 nil ; neighbors 282 283 nil 284 285 (list 286 ;'on-entry-to-dungeon-room 287 'voidgap-room-handle-deeps 288 ) ;; hooks 289 nil 290 ) 291 292 (kern-mk-place 293 'p_voidgap_5 294 "Voidgap Tunnels" 295 nil ; sprite 296 (kern-mk-map nil 19 19 pal_expanded 297 (list 298 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 299 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 300 "rn rn rn rn rc .. .. .. .. .. .. .. .. .. ra rn rn rn rn " 301 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 302 "r8 r8 rc .. .. .. .. .. .. .. .. .. .. .. .. .. ra r8 r8 " 303 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. " 304 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 305 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 306 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 307 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 308 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 309 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 310 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 311 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 312 "r1 r1 r5 .. .. .. .. .. .. .. .. .. .. .. .. .. r3 r1 r1 " 313 "rn rn rn .. .. .. .. .. .. .. .. .. .. .. .. .. rn rn rn " 314 "rn rn rn rn r5 .. .. .. .. .. .. .. .. .. r3 rn rn rn rn " 315 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 316 "rn rn rn rn r4 .. .. .. .. .. .. .. .. .. r2 rn rn rn rn " 317 ) 318 ) 319 #f ; wraps 320 #t ; underground 321 #f ; large-scale (wilderness) 322 #f ; tmp combat place 323 nil ; subplaces 324 nil ; neighbors 325 326 nil 327 328 (list 329 ;'on-entry-to-dungeon-room 330 'voidgap-room-handle-deeps 331 ) ;; hooks 332 nil 333 ) 334 335 336(mk-place-music p_voidgap_1 'ml-dungeon-adventure) 337(mk-place-music p_voidgap_2 'ml-dungeon-adventure) 338(mk-place-music p_voidgap_3 'ml-dungeon-adventure) 339(mk-place-music p_voidgap_4 'ml-dungeon-adventure) 340(mk-place-music p_voidgap_5 'ml-dungeon-adventure) 341 342(prmap-linkrooms-2d 'p_voidgap_1 'p_voidgap_2 'p_voidgap_3 'p_voidgap_4 'p_voidgap_5) 343 344(prmap-set-mapdata p_voidgap_1 (prmap-mk-mapdata "voidgap" voidgap-random-type-ns voidgap-random-type-ew voidgap-random-type-area 'deep-terrain-edges 'deep-terrain-area 'deep-room-blitstats 'voidgap-room-custom-hardlinks)) 345 346(let ((voidgap-hardlinks (prmap-params-hardlinks (prmap-get-mapdata p_voidgap_1)))) 347 (define (link-rm xloc yloc zloc dir target maptemplate passable ) 348 (prmap-room-hardlink-set! xloc yloc zloc voidgap-hardlinks dir target maptemplate passable nil) 349 ) 350 351;;--------------------------------------------------------- 352;; hardlink setup 353;; 354;; x y z dir target template passable 355 356(link-rm 1 0 0 west nil 'm_deeptempl_wall #f) 357(link-rm 0 1 0 south nil 'm_deeptempl_wall #f) 358(link-rm -1 0 0 east 'p_voidgap_entrance 'm_deeptempl_passage #f) 359(link-rm 0 -1 0 north nil 'm_deeptempl_wall #f) 360 361(link-rm -7 -5 0 east nil 'm_deeptempl_wall #f) 362(link-rm -6 -4 0 south nil 'm_deeptempl_wall #f) 363(link-rm -5 -5 0 west 'p_voidgap_exit 'm_deeptempl_passage #f) 364(link-rm -6 -6 0 north nil 'm_deeptempl_wall #f) 365) 366 367;;flag for checking if cohesion check still needs to be performed 368(mutable-list-set (prmap-get-mapdata p_voidgap_1) 10 #t)