1;; save.scm -- a nazghul session file 2;; Load the standard definitions file 3(load "naz.scm") 4 5(kern-load "game.scm") 6 7(kern-load "camping-map.scm") 8 9(kern-load "zones.scm") 10 11(kern-load "runes.scm") 12 13(kern-load "prices.scm") 14 15(kern-load "special.scm") 16 17(kern-load "town-entry.scm") 18 19(kern-load "endless-deeps-mech.scm") 20 21(kern-load "gregor.scm") 22 23(kern-load "kalcifax.scm") 24 25(kern-load "ilya.scm") 26 27(kern-mk-place 'p_gregors_hut "Gregor's Hut" 28 s_hamlet ;; sprite 29 (kern-mk-map 30 nil 32 32 pal_expanded 31 (list 32 "|| || || || tt tc .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. .. .. .. tC tt tt tt tt " 33 "|| || || || tt tB .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. .. t3 tt tt tt tt tt tt " 34 "|| || tt tt tt t5 .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. tC tt || || || tt tt tt " 35 "|| tt tt tt tt tt .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. tC t3 tt || || || tt tt tt " 36 "tt tt tt tt tt tt .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. tC t3 tt || || tt || || tt t# " 37 "tc t# .. t% tt tt tA .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. tb tt tt || tt tt tt || tt .. " 38 ".. .. .. .. ta tt tt td .. .. .. .. .. .. .. .. /7 .. .. .. .. .. t% ta tt || || tt || || tt .. " 39 ".. .. .. .. /0 /d /d /d /d /d /d /d /d /d /d /d /9 /d /d /d /d /d /d /2 ta tt || || || tt tc .. " 40 ".. .. .. /0 /a t3 tt t5 tA .. .. .. .. .. .. .. .. .. .. .. .. .. .. /8 /d /d /2 ta tt tt t# .. " 41 ".. .. .. /7 t3 tt tt tt t5 rr rr ws rr rr rr ws rr rr rr rr rr bb bb bb bb bb /8 /d /2 te .. .. " 42 ".. .. .. /7 ta tt tt tt tt rr cc cc cc cc cc cc cc rr cc cc rr .. .. .. .. .. bb .. /7 .. .. .. " 43 ".. .. .. /7 t% ta tt tt tt rr cc cc cc cc cc cc cc rr cc cc rr t7 tA .. .. .. bb .. /7 .. .. .. " 44 ".. .. .. /7 .. t% tt || || rr cc cc [[ @@ ]] cc cc rr cc cc rr tt t5 tA .. .. bb .. /7 .. .. .. " 45 ".. .. .. /7 .. .. ta || |C rr cc cc cc cc cc cc cc rr cc cc rr tt tt t5 tA .. bb .. /7 .. .. .. " 46 ".. .. .. /7 .. .. rr rr rr rr cc cc cc cc cc cc cc cc cc cc rr tt tt || td .. bb .. /7 .. .. .. " 47 ".. .. .. /7 .. .. ws cc cc rr rr cc rr && rr rr rr rr rr rr rr ta tt tc t# .. bb .. /7 .. .. .. " 48 "/d /d /d /6 .. .. rr cc cc cc cc cc cc cc cc cc cc rr .. .. rr .. .. .. .. .. bb .. /4 /d /d /d " 49 ".. .. .. /7 .. .. rr rr rr rr cc cc cc cc cc cc cc rr .. .. rr .. .. .. .. .. bb .. /7 t3 tt tt " 50 ".. .. .. /7 .. .. rr cc cc rr cc cc cc cc cc cc cc rr .. .. .. .. .. .. .. .. bb t7 /7 tt tt tt " 51 ".. .. .. /7 .. .. ws cc cc cc cc cc cc cc cc cc cc rr .. .. .. .. .. .. .. .. bb te /7 tt tc %3 " 52 ".. .. .. /7 .. .. rr rr rr rr rr ws rr cc rr ws rr rr .. rr rr bb bb bb bb bb /0 /d /a te %3 %% " 53 ".. .. .. /7 .. .. .. .. .. .. .. tb td /7 .. tb tt td /4 /d /d /d /d /d /d /d /a t3 td %3 %% %% " 54 ".. .. .. /7 .. .. .. .. .. .. .. .. .. /7 .. .. .. .. /7 .. .. .. .. .. tC t3 tt tc %3 %% ~3 ~9 " 55 ".. .. .. /8 /d /d /d /d /d /d /d /d /d /9 /d /1 /d /d /a .. .. .. .. tC t3 tt tt %3 ~3 ~9 ~c %% " 56 ".. .. .. .. .. .. .. t3 tt t5 .. .. .. .. .. /7 .. .. t7 tA .. .. tb tt tt tt tc %% ~6 %% %% %% " 57 "tt t5 tA .. .. .. .. tt tt tt tA .. .. .. .. /7 .. .. tt tt t5 tA .. t% te ~3 ~9 ~9 ~c %% %% %% " 58 "|| tt t5 tA .. .. .. ta tt tt t5 .. .. .. .. /7 .. .. ta tt tt tt t5 .. .. ~6 .. tf %a %c t7 .. " 59 "|| || tt t5 tA .. .. t% ta tt tc .. .. .. .. /7 .. .. t% tt tt tt tc ~3 ~~ -4 .. .. .. t3 tt .. " 60 "|| || tt tt t5 tA .. .. .. .. .. .. .. .. .. /8 /2 .. .. tt tt tt ~3 ~8 ~8 ~c t3 t5 .. ta |C .. " 61 "|| || || tt tt t5 tA .. .. .. .. .. .. .. .. .. /7 .. .. tt tt tc ~6 t3 tt tt tt tt tA .. .. .. " 62 "|| || || || || tt t5 tA .. .. .. .. .. .. .. .. /7 .. .. tt tt ~3 ~c tt t# tD tt tt |% .. .. .. " 63 "|| || || || || || tt t5 .. .. .. .. .. .. .. .. /7 .. .. tt tt ~6 t3 tt .. t3 tt || || .. .. .. " 64 ) 65 ) 66 #f #f #f #f 67 ;; subplaces 68 nil 69 nil ;; neighbors 70 (list ;; objects in p_gregors_hut 71 (list 72 (bind 73 (kern-mk-char 74 'ch_ilya 75 "Ilya" 76 sp_human 77 nil 78 s_child 79 2 80 0 10 5 81 0 0 82 0 0 83 19 0 84 9 9 85 #f ;; dead? 86 'ilya-conv 87 sch_ilya 88 nil 89 nil ;; inventory 90 nil 91 ;; hooks 92 (list 93 ) 94 ) 95 (list 96 #f 97 #f 98 ) 99 ) ;; bind 100 7 18) 101 (list 102 (bind 103 (kern-mk-obj t_door 1 104 ;; hooks 105 (list 106 ) 107 ) 108 (list 109 #f 110 0 111 '() 112 #f 113 #f 114 #f 115 (list 116 (list 117 's_closed_solid_wood_door_in_stone 118 #t 119 5 120 ) 121 (list 122 's_open_door_in_stone 123 #f 124 0 125 ) 126 (list 127 's_locked_solid_wood_door_in_stone 128 #t 129 5 130 ) 131 (list 132 's_magically_locked_solid_wood_door_in_stone 133 #t 134 5 135 ) 136 ) 137 ) 138 ) ;; bind 139 13 20) 140 (list 141 (bind 142 (kern-mk-obj t_door 1 143 ;; hooks 144 (list 145 ) 146 ) 147 (list 148 #f 149 0 150 '() 151 #f 152 #f 153 #f 154 (list 155 (list 156 's_closed_solid_wood_door_in_stone 157 #t 158 5 159 ) 160 (list 161 's_open_door_in_stone 162 #f 163 0 164 ) 165 (list 166 's_locked_solid_wood_door_in_stone 167 #t 168 5 169 ) 170 (list 171 's_magically_locked_solid_wood_door_in_stone 172 #t 173 5 174 ) 175 ) 176 ) 177 ) ;; bind 178 9 19) 179 (list 180 (bind 181 (kern-mk-obj t_door 1 182 ;; hooks 183 (list 184 ) 185 ) 186 (list 187 #f 188 0 189 '() 190 #f 191 #f 192 #f 193 (list 194 (list 195 's_closed_solid_wood_door_in_stone 196 #t 197 5 198 ) 199 (list 200 's_open_door_in_stone 201 #f 202 0 203 ) 204 (list 205 's_locked_solid_wood_door_in_stone 206 #t 207 5 208 ) 209 (list 210 's_magically_locked_solid_wood_door_in_stone 211 #t 212 5 213 ) 214 ) 215 ) 216 ) ;; bind 217 9 16) 218 (list 219 (bind 220 (kern-mk-char 221 'ch_gregor 222 "Gregor" 223 sp_human 224 nil 225 s_townsman 226 2 227 0 10 5 228 0 0 229 0 0 230 19 0 231 9 9 232 #f ;; dead? 233 'gregor-conv 234 sch_gregor 235 nil 236 nil ;; inventory 237 nil 238 ;; hooks 239 (list 240 ) 241 ) 242 '() 243 ) ;; bind 244 7 16) 245 (list 246 (bind 247 (kern-mk-obj t_door 1 248 ;; hooks 249 (list 250 ) 251 ) 252 (list 253 #f 254 0 255 '() 256 #f 257 #f 258 #f 259 (list 260 (list 261 's_closed_solid_wood_door_in_stone 262 #t 263 5 264 ) 265 (list 266 's_open_door_in_stone 267 #f 268 0 269 ) 270 (list 271 's_locked_solid_wood_door_in_stone 272 #t 273 5 274 ) 275 (list 276 's_magically_locked_solid_wood_door_in_stone 277 #t 278 5 279 ) 280 ) 281 ) 282 ) ;; bind 283 11 15) 284 (list 285 (bind 286 (kern-mk-obj t_door 1 287 ;; hooks 288 (list 289 ) 290 ) 291 (list 292 #f 293 0 294 '() 295 #f 296 #f 297 #f 298 (list 299 (list 300 's_closed_solid_wood_door_in_stone 301 #t 302 5 303 ) 304 (list 305 's_open_door_in_stone 306 #f 307 0 308 ) 309 (list 310 's_locked_solid_wood_door_in_stone 311 #t 312 5 313 ) 314 (list 315 's_magically_locked_solid_wood_door_in_stone 316 #t 317 5 318 ) 319 ) 320 ) 321 ) ;; bind 322 17 14) 323 (list 324 (bind 325 (kern-mk-obj t_door 1 326 ;; hooks 327 (list 328 ) 329 ) 330 (list 331 #f 332 0 333 '() 334 #f 335 #f 336 #f 337 (list 338 (list 339 's_closed_solid_wood_door_in_stone 340 #t 341 5 342 ) 343 (list 344 's_open_door_in_stone 345 #f 346 0 347 ) 348 (list 349 's_locked_solid_wood_door_in_stone 350 #t 351 5 352 ) 353 (list 354 's_magically_locked_solid_wood_door_in_stone 355 #t 356 5 357 ) 358 ) 359 ) 360 ) ;; bind 361 18 20) 362 (list 363 (bind 364 (kern-mk-obj tf_ew_bridge 1 365 ;; hooks 366 (list 367 ) 368 ) 369 '() 370 ) ;; bind 371 25 26) 372 (list 373 (kern-mk-obj t_bed 1 374 ;; hooks 375 (list 376 ) 377 ) 378 7 18) 379 (list 380 (kern-mk-obj t_bed 1 381 ;; hooks 382 (list 383 ) 384 ) 385 7 16) 386 ) ;; end of objects in p_gregors_hut 387 nil ;; on-entry-hook 388 (list ;; edge entrances 389 (list 0 31 31) ;; Northwest 390 (list 1 16 31) ;; North 391 (list 2 0 31) ;; Northeast 392 (list 3 31 16) ;; West 393 (list 4 16 16) ;; Here 394 (list 5 0 16) ;; East 395 (list 6 31 0) ;; Southwest 396 (list 7 16 0) ;; South 397 (list 8 0 0) ;; SoutheastUp 398 ) 399) ;; end of place p_gregors_hut 400 401(kern-mk-place 'p_moongate_clearing "Moongate Clearing" 402 s_shrine ;; sprite 403 (kern-mk-map 404 nil 23 28 pal_expanded 405 (list 406 "^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^d t3 tt tt tt td ^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^5 " 407 "^^ {{ {{ {{ ^^ ^^ ^^ ^c t3 tt tt || || ^b ^^ ^^ {{ {{ {{ ^^ {{ {{ ^^ " 408 "^^ {{ {{ {{ {{ ^^ t3 tt tt || tt tt || |% ^a ^^ {C t7 {{ ^^ ^^ {{ ^^ " 409 "^^ {{ {{ {{ {{ {C tt || || || || tt || || |% ^e t3 tt {A {{ ^^ {{ ^^ " 410 "^^ ^^ {{ {{ {C t3 || || || || tt tt tt || || tt tt tt t5 {A {{ {{ ^^ " 411 "^^ ^^ ^^ ^^ t3 tt || || || tt tt tt tt tt tt tt tt tt tt td {{ ^^ ^^ " 412 "^^ ^^ ^^ ^^ || || || || tt tt tc bb ta tt tt tt tt tt || ^b ^^ ^^ ^c " 413 "^^ ^^ ^^ ^^ || || || tt tt bb .. .. .. bb tt tt tt || || |% ^a ^c |& " 414 "^^ ^^ ^^ ^c || || tt tt tt td .. .. .. tb tt tt tt tt || || || || || " 415 "^^ ^c |# || || || tt tt bb .. .. .. .. .. bb tt tt tt tt tt tt tt tt " 416 "^^ |# || || || || tt tc .. .. .. .. .. .. .. ta tt tt tt tt tt tt tc " 417 "{{ |A || || || || tt bb .. .. .. .. .. .. .. bb tt tt tt tt tt tc {& " 418 "{{ {% |A || || tt tt t5 .. .. .. .. .. .. .. t3 tt tc {# {% te {# {{ " 419 "^^ {{ {{ {{ {% ta tt tt bb .. .. .. .. .. bb tt tc {# {{ {{ {{ {{ {{ " 420 "^^ ^^ ^^ {{ {{ {% ta tt tt td .. .. .. tb tt tt {# ^^ ^^ {{ {{ ^^ ^^ " 421 "^^ ^^ ^^ ^^ {{ {{ {% ta tt bb .. .. .. bb tt tt {A ^^ ^^ ^^ {{ {{ ^^ " 422 "^^ ^^ {7 ^^ ^^ ^^ {{ {% tt td .. .. .. tb tt tt td {{ ^^ ^^ {{ {{ ^^ " 423 "^^ {3 .. {1 {5 ^^ {{ {{ tt bb .. .. .. bb tt tt {B {{ {{ {{ {{ ^^ ^^ " 424 "^^ {2 .. .. {4 ^^ {{ {{ tt td .. .. .. tb tt tt tt tt t5 {A ^^ ^^ ^^ " 425 "^^ {a .. {8 {c ^^ {{ {{ tt bb .. .. .. bb te bb te bb tt t5 ^^ ^^ ^^ " 426 "^^ ^^ {e ^^ ^^ ^^ {{ {{ tt td .. .. .. .. .. .. .. .. ta tt ^^ ^^ ^^ " 427 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ tt bb .. .. .. .. .. .. .. .. bb tt ^^ ^^ ^^ " 428 "^^ ^^ ,H ,A ,I ,L ^^ ^^ tt t5 .. .. .. .. .. .. .. .. tb tt ^a ^^ ^^ " 429 "^^ {3 .. .. .. .. {5 ^^ ta tc bb .. bb t7 bb .. .. .. bb tt t5 ^a ^^ " 430 "^^ {2 .. .. .. .. .. {9 .. .. .. tC t3 tt td .. .. .. tb tt tt t5 ^e " 431 "^^ {2 .. .. .. .. {4 ^^ t3 || tt tt tt tt bb .. .. .. bb tt tt tt t5 " 432 "^^ ,S ,E ,E ,K ,E ,R ^^ || || || tt tt tc .. .. .. .. .. ta tt tt tt " 433 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ta || tt tt tc bb .. .. .. .. .. bb ta tt tc " 434 ) 435 ) 436 #f #f #f #f 437 ;; subplaces 438 nil 439 nil ;; neighbors 440 (list ;; objects in p_moongate_clearing 441 (list 442 (kern-tag 'black-gate 443 (bind 444 (kern-mk-obj t_moongate 1 445 ;; hooks 446 (list 447 ) 448 ) 449 (list 450 '() 451 #f 452 '() 453 #f 454 #f 455 10 456 ) 457 ) ;; bind 458 ) ;; kern-tag 459 11 11) 460 ) ;; end of objects in p_moongate_clearing 461 nil ;; on-entry-hook 462 (list ;; edge entrances 463 (list 0 22 27) ;; Northwest 464 (list 1 16 27) ;; North 465 (list 2 0 27) ;; Northeast 466 (list 3 22 10) ;; West 467 (list 4 11 14) ;; Here 468 (list 5 0 11) ;; East 469 (list 6 22 0) ;; Southwest 470 (list 7 11 0) ;; South 471 (list 8 0 0) ;; SoutheastUp 472 ) 473) ;; end of place p_moongate_clearing 474 475(kern-mk-place 'p_abandoned_cellar "Musty Cellar" 476 nil ;; sprite 477 (kern-mk-map 478 nil 32 32 pal_expanded 479 (list 480 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 481 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 482 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 483 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ rr rr {{ {{ {{ rr rr rr rr rr rr rr rr " 484 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ .. {{ {{ {{ {{ .. {{ {{ rr rr rr rr rr rr rr " 485 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ .. .. .. .. .. .. .. .. {{ {{ rr rr rr rr rr rr " 486 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ .. .. .. .. .. .. .. .. .. .. {{ rr rr rr rr rr rr " 487 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ .. {{ {{ {{ .. .. .. .. {{ rr rr rr rr rr rr " 488 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ rr {{ {{ .. .. .. {{ rr rr rr rr rr rr " 489 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ {{ {{ {{ {{ rr rr rr rr " 490 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ .. {{ {{ rr rr rr " 491 "rr rr rr rr rr x! .. x! rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ {{ rr rr rr " 492 "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ rr rr rr rr " 493 "rr rr rr rr rr .. .. .. .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 494 "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 495 "rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 496 "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 497 "rr rr rr rr rr .. .. .. .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 498 "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 499 "rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 500 "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 501 "rr rr rr rr rr .. .. .. .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 502 "rr rr rr rr rr .. .. .. rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 503 "rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 504 "rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ rr rr rr rr rr rr rr rr rr " 505 "rr rr rr rr rr x! .. x! rr rr rr rr rr rr rr rr rr rr {{ {{ {{ .. {{ {{ rr rr rr rr rr rr rr rr " 506 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ .. .. .. .. {{ {{ rr rr rr rr rr rr rr " 507 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ .. .. .. .. .. {{ {{ rr rr rr rr rr rr rr " 508 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ .. {{ {{ {{ rr rr rr rr rr rr rr rr " 509 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr {{ {{ {{ rr rr rr rr rr rr rr rr rr rr " 510 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 511 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 512 ) 513 ) 514 #f #t #f #f 515 ;; subplaces 516 nil 517 (list 518 (list 519 (kern-mk-place 'p_abandoned_farm "Abandoned Farm" 520 s_hamlet ;; sprite 521 (kern-mk-map 522 nil 32 32 pal_expanded 523 (list 524 "tt tt || || || || || || || || || || || tt tt .. .. .. tt || || || || || || || || tt tt tt tt tt " 525 "tt tt || || || || || || || || || || || || tt .. .. .. ta || || || || tt || || || || tt tt bb tt " 526 "|| || || || || || || || || || tt || || || tt tA .. .. t% tt || || tt tt tt || || || || tt tt tt " 527 "|| || || || || || || || || tt tt tt || || tt t5 .. .. .. tt || tt tt tt tt tt || || || tt tt tt " 528 "|| || || || || || || || || || tt || || || tt tc .. .. .. tt || || tt tt tt tt || || || || || tt " 529 "|| || || || || || || || || || || || || || tt t# .. .. tC tt || || || tt || tt tt tt || || || || " 530 "|| || || || || || || || || || || || || tt tt .. .. .. t3 tt tt || || || || tt || tt tt tt tt || " 531 "|| || || tt tt || || || || || tt tt tt tt tc .. .. tC tt tt tt tt tt || tt tt || || || tt tt tt " 532 "|| || || tt tt tt tt tt tt tt tc t# .. .. .. .. .. tb tt tt tt tt tt tt tt || || || tt tt bb tt " 533 "|| || || tt tt tt tt tt tt tc t# .. bb bb bb bb bb bb bb bb tD ta tt tt tt tt tt || || tt tt tt " 534 "|| || tt tt t# .. .. .. .. .. .. bb .. .. .. .. .. .. tb tt td t& te bb ta tt tt tt || || tt || " 535 "|| || tt tt .. bb rr rr ws rr rr rr .. .. .. .. .. .. .. .. .. .. t% tf bb tt tt tt || || || || " 536 "|| || tt tt .. rr .. cc cc cc cc rr .. .. .. .. .. .. .. .. .. && .. .. bb tt tt tt || || || || " 537 "|| tt tt tt .. rr cc cc cc cc cc rr .. .. .. .. .. .. .. .. .. .. .. .. bb tt bb ta || || || || " 538 "tt tt tt tc .. ws cc cc cc cc cc ws .. .. .. .. .. .. .. .. .. bb .. tf bb tt td t# .. t% |A || " 539 "t% ta tc t# .. rr cc cc cc cc cc rr .. .. .. .. .. .. .. .. .. .. .. .. bb te t# .. .. .. t% |A " 540 ".. .. .. .. .. rr cc cc cc cc cc rr .. .. .. .. .. .. .. .. .. .. .. .. bb .. .. tC tf tA .. .. " 541 ".. .. .. .. .. rr rr rr cc rr rr bb rr cc rr .. .. .. .. .. .. .. .. .. bb .. tC t7 bb t7 tA .. " 542 "t5 tA .. .. .. rr cc cc cc cc cc cc .. cc rr .. .. .. .. .. .. .. .. .. bb .. t3 tt tt tt tt tt " 543 "tt t5 tA .. .. ws cc cc cc cc cc cc cc cc rr .. .. .. .. .. .. .. .. .. bb .. tt tt tt tt tt bb " 544 "tt tt t5 .. .. rr cc cc cc cc cc .. cc cc rr rr rr rr ws rr rr bb rr bb .. tC tt tt tt tt tt tt " 545 "tt tt tt tA .. rr cc cc cc [[ @@ ]] cc cc rr cc cc cc cc cc .. .. rr .. tC t3 tt || || || tt tt " 546 "|| || tt t5 .. ws cc cc cc cc cc cc cc cc rr cc cc cc cc cc cc cc rr .. t3 tt || || || || || tt " 547 "|| || tt tt .. rr cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc ws tC tt || || || || || || tt " 548 "|| || || tt .. rr rr rr cc cc cc cc cc cc rr cc cc cc cc cc cc .. rr t3 tt || || || tt || || || " 549 "|| || || tt .. rr cc cc cc cc cc [[ @@ ]] rr cc cc cc cc cc .. .. bb tt tt || || || || || || || " 550 "|| || || tt .. rr rr rr rr ws rr rr rr rr rr rr rr rr ws rr rr rr rr tt tt || || || || || || tt " 551 "|| || || tt tA .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. tC t3 tt tt tt || || || || || tt tt " 552 "|| || tt tt tt tt tt tt tt tt tt tt tt t5 tA .. .. .. tC t3 tt tt tt tt tt tt || || || || tt tt " 553 "|| || tt tt || || || || || || || || tt tt t5 tA .. tC t3 tt tt || || || tt tt || || || || tt tt " 554 "|| || || || || || || || || || || || || tt tt t5 .. t3 tt tt || || || || || || || || || tt tt tt " 555 "|| || || || || || || || || || || || || || tt tt .. tt tt || || || tt || || || || || tt tt tt tt " 556 ) 557 ) 558 #f #f #f #f 559 ;; subplaces 560 nil 561 nil ;; neighbors 562 (list ;; objects in p_abandoned_farm 563 (list 564 (bind 565 (kern-mk-obj t_spawn_pt 1 566 ;; hooks 567 (list 568 ) 569 ) 570 (list 571 'spawn-pt 572 'troll 573 ) 574 ) ;; bind 575 19 14) 576 (list 577 (bind 578 (kern-mk-obj t_door 1 579 ;; hooks 580 (list 581 ) 582 ) 583 (list 584 #f 585 0 586 '() 587 #f 588 #f 589 #f 590 (list 591 (list 592 's_closed_solid_wood_door_in_stone 593 #t 594 5 595 ) 596 (list 597 's_open_door_in_stone 598 #f 599 0 600 ) 601 (list 602 's_locked_solid_wood_door_in_stone 603 #t 604 5 605 ) 606 (list 607 's_magically_locked_solid_wood_door_in_stone 608 #t 609 5 610 ) 611 ) 612 ) 613 ) ;; bind 614 13 17) 615 (list 616 (bind 617 (kern-mk-obj t_door 1 618 ;; hooks 619 (list 620 ) 621 ) 622 (list 623 #f 624 0 625 '() 626 #f 627 #f 628 #f 629 (list 630 (list 631 's_closed_solid_wood_door_in_stone 632 #t 633 5 634 ) 635 (list 636 's_open_door_in_stone 637 #f 638 0 639 ) 640 (list 641 's_locked_solid_wood_door_in_stone 642 #t 643 5 644 ) 645 (list 646 's_magically_locked_solid_wood_door_in_stone 647 #t 648 5 649 ) 650 ) 651 ) 652 ) ;; bind 653 7 25) 654 (list 655 (bind 656 (kern-mk-obj t_ladder_down 1 657 ;; hooks 658 (list 659 ) 660 ) 661 (list 662 'p_abandoned_cellar 663 6 664 25 665 ) 666 ) ;; bind 667 6 25) 668 (list 669 (bind 670 (kern-mk-obj t_monman 1 671 ;; hooks 672 (list 673 ) 674 ) 675 (list 676 'monman 677 (list 678 0 679 0 680 0 681 -1 682 6 683 -1 684 ) 685 ) 686 ) ;; bind 687 0 0) 688 (list 689 (bind 690 (kern-mk-obj t_spawn_pt 1 691 ;; hooks 692 (list 693 ) 694 ) 695 (list 696 'spawn-pt 697 'queen-spider 698 ) 699 ) ;; bind 700 9 23) 701 (list 702 (bind 703 (kern-mk-obj t_spawn_pt 1 704 ;; hooks 705 (list 706 ) 707 ) 708 (list 709 'spawn-pt 710 'troll 711 ) 712 ) ;; bind 713 19 13) 714 ) ;; end of objects in p_abandoned_farm 715 (list ;; on-entry-hooks 716 'on-entry-to-dungeon-room 717 ) 718 (list ;; edge entrances 719 (list 0 31 31) ;; Northwest 720 (list 1 16 31) ;; North 721 (list 2 0 31) ;; Northeast 722 (list 3 31 16) ;; West 723 (list 4 16 16) ;; Here 724 (list 5 0 16) ;; East 725 (list 6 31 0) ;; Southwest 726 (list 7 16 0) ;; South 727 (list 8 0 0) ;; SoutheastUp 728 ) 729 ) ;; end of place p_abandoned_farm 730 731 9) 732 ) ;; end neighbors of p_abandoned_cellar 733 (list ;; objects in p_abandoned_cellar 734 (list 735 (kern-mk-field web-type 20) 7 13) 736 (list 737 (kern-mk-field web-type 20) 7 14) 738 (list 739 (kern-mk-field web-type 20) 7 15) 740 (list 741 (kern-mk-field web-type 20) 7 16) 742 (list 743 (kern-mk-field web-type 20) 8 13) 744 (list 745 (kern-mk-field web-type 20) 9 12) 746 (list 747 (kern-mk-field web-type 20) 9 13) 748 (list 749 (kern-mk-field web-type 20) 9 14) 750 (list 751 (kern-mk-field web-type 20) 10 12) 752 (list 753 (kern-mk-field web-type 20) 10 13) 754 (list 755 (kern-mk-field web-type 20) 10 14) 756 (list 757 (kern-mk-field web-type 20) 11 12) 758 (list 759 (kern-mk-field web-type 20) 11 13) 760 (list 761 (kern-mk-field web-type 20) 11 14) 762 (list 763 (kern-mk-field web-type 20) 9 16) 764 (list 765 (kern-mk-field web-type 20) 10 16) 766 (list 767 (kern-mk-field web-type 20) 10 17) 768 (list 769 (kern-mk-field web-type 20) 10 16) 770 (list 771 (kern-mk-field web-type 20) 11 17) 772 (list 773 (kern-mk-field web-type 20) 11 18) 774 (list 775 (bind 776 (kern-mk-obj spider-egg-type 1 777 ;; hooks 778 (list 779 ) 780 ) 781 (list 782 10 783 ) 784 ) ;; bind 785 5 13) 786 (list 787 (bind 788 (kern-mk-obj spider-egg-type 1 789 ;; hooks 790 (list 791 ) 792 ) 793 (list 794 10 795 ) 796 ) ;; bind 797 6 15) 798 (list 799 (bind 800 (kern-mk-obj spider-egg-type 1 801 ;; hooks 802 (list 803 ) 804 ) 805 (list 806 10 807 ) 808 ) ;; bind 809 7 12) 810 (list 811 (bind 812 (kern-mk-obj spider-egg-type 1 813 ;; hooks 814 (list 815 ) 816 ) 817 (list 818 10 819 ) 820 ) ;; bind 821 9 14) 822 (list 823 (bind 824 (kern-mk-obj spider-egg-type 1 825 ;; hooks 826 (list 827 ) 828 ) 829 (list 830 10 831 ) 832 ) ;; bind 833 11 14) 834 (list 835 (bind 836 (kern-mk-obj spider-egg-type 1 837 ;; hooks 838 (list 839 ) 840 ) 841 (list 842 10 843 ) 844 ) ;; bind 845 10 16) 846 (list 847 (bind 848 (kern-mk-obj spider-egg-type 1 849 ;; hooks 850 (list 851 ) 852 ) 853 (list 854 10 855 ) 856 ) ;; bind 857 11 18) 858 (list 859 (bind 860 (kern-mk-char 861 nil 862 "troll" 863 sp_troll 864 oc_warrior 865 s_troll 866 6 867 0 0 0 868 0 0 869 0 0 870 26 512 871 5 3 872 #f ;; dead? 873 nil 874 nil 875 'std-ai 876 (kern-mk-container 877 t_chest 878 ;; trap 879 nil 880 ;; contents 881 (list 882 (list 1 t_thrown_boulder) 883 ) 884 ;; hooks 885 (list 886 ) 887 ) 888 (list 889 t_thrown_boulder 890 ) 891 ;; hooks 892 (list 893 (list 894 ef_loot_drop 895 (list 896 'loot-drop-gob 897 'drop-generic 898 (list 899 (list 900 (list 901 100 902 "1d3-1" 903 't_thrown_boulder 904 ) 905 (list 906 25 907 "1d3" 908 't_food 909 ) 910 (list 911 100 912 "2d10" 913 't_gold_coins 914 ) 915 ) 916 ) 917 ) 918 2 919 0 920 ) 921 ) 922 ) 923 (list 924 'npcg 925 'troll 926 #f 927 #f 928 '() 929 ) 930 ) ;; bind 931 11 12) 932 (list 933 (kern-mk-obj t_puska 1 934 ;; hooks 935 (list 936 ) 937 ) 938 10 18) 939 (list 940 (bind 941 (kern-mk-obj t_ladder_up 1 942 ;; hooks 943 (list 944 ) 945 ) 946 (list 947 'p_abandoned_farm 948 6 949 25 950 ) 951 ) ;; bind 952 6 25) 953 (list 954 (kern-mk-field web-type 20) 5 12) 955 (list 956 (kern-mk-field web-type 20) 5 13) 957 (list 958 (kern-mk-field web-type 20) 5 14) 959 (list 960 (kern-mk-field web-type 20) 6 11) 961 (list 962 (kern-mk-field web-type 20) 6 12) 963 (list 964 (kern-mk-field web-type 20) 6 13) 965 (list 966 (kern-mk-field web-type 20) 6 14) 967 (list 968 (kern-mk-field web-type 20) 6 15) 969 (list 970 (kern-mk-field web-type 20) 7 12) 971 ) ;; end of objects in p_abandoned_cellar 972 nil ;; on-entry-hook 973 (list ;; edge entrances 974 (list 0 31 31) ;; Northwest 975 (list 1 16 31) ;; North 976 (list 2 0 31) ;; Northeast 977 (list 3 31 16) ;; West 978 (list 4 16 16) ;; Here 979 (list 5 0 16) ;; East 980 (list 6 31 0) ;; Southwest 981 (list 7 16 0) ;; South 982 (list 8 0 0) ;; SoutheastUp 983 ) 984) ;; end of place p_abandoned_cellar 985 986p_abandoned_farm 987(kern-load "slimy-cavern-zones.scm") 988 989(kern-load "roland.scm") 990 991(kern-mk-place 'p_slimy_cavern "Slimy Cavern" 992 nil ;; sprite 993 (kern-mk-map 994 nil 16 32 pal_expanded 995 (list 996 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 997 "rr rr rr rr rr rr rr rr rr rr rr rr .. .. .. rr " 998 "rr rr rr rr rr .. .. && .. .. rr rr .. .. .. rr " 999 "rr rr rr rr bb .. .. .. .. .. bb rr rr .. rr rr " 1000 "rr bb .. .. bb .. .. .. .. .. bb .. .. .. rr rr " 1001 "rr bb .. .. .. bb bb .. bb bb .. .. .. .. .. rr " 1002 "rr .. .. .. .. .. .. .. .. .. .. .. .. .. .. rr " 1003 "rr bb .. .. .. .. .. .. .. .. .. .. .. .. rr rr " 1004 "rr rr bb .. .. .. .. .. .. .. .. .. rr rr rr rr " 1005 "rr rr rr .. .. .. .. .. .. .. .. .. rr .. .. rr " 1006 "rr .. .. .. .. .. .. rr rr .. .. rr rr .. .. rr " 1007 "rr .. rr .. rr bb rr rr rr rr .. rr rr .. rr rr " 1008 "rr %7 rr .. .. .. rr .. .. rr .. rr rr .. rr rr " 1009 "~~ b~ b~ rr .. .. rr .. .. .. .. .. .. .. rr rr " 1010 "rr ~a b~ ~4 .. .. rr rr .. rr rr .. rr rr rr rr " 1011 "rr rr %a ~a ~9 ~1 b~ rr rr rr rr .. rr rr rr rr " 1012 "rr .. .. .. .. ~a b~ b~ rr rr .. .. .. rr rr rr " 1013 "rr .. rr .. %f rr b~ ~~ bb %7 .. .. .. rr rr rr " 1014 "rr .. rr rr rr rr rr b~ ~~ ~5 %5 .. .. %7 rr rr " 1015 "rr .. rr rr rr .. .. rr %% ~a b~ ~9 b~ ~1 ~5 rr " 1016 "rr .. .. .. rr .. %b %% %% %% %c .. %% b~ ~8 ~~ " 1017 "rr rr rr .. rr .. .. rr rr .. .. .. %e rr rr rr " 1018 "rr rr rr .. rr rr rr rr rr .. .. .. .. .. bb rr " 1019 "rr rr .. .. .. rr rr .. .. .. rr .. .. .. .. rr " 1020 "rr .. .. .. .. .. .. .. rr rr rr .. .. .. .. rr " 1021 "rr .. .. .. .. rr rr rr rr rr rr rr .. .. rr rr " 1022 "rr rr .. .. rr rr rr .. .. .. rr rr rr .. rr rr " 1023 "rr rr rr .. rr rr .. .. .. .. .. rr rr .. rr rr " 1024 "rr .. .. .. .. .. .. .. .. .. .. .. .. .. .. rr " 1025 "rr .. rr rr rr rr .. .. .. .. .. rr .. rr .. rr " 1026 "rr .. rr rr rr rr rr .. .. .. rr rr .. .. .. rr " 1027 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 1028 ) 1029 ) 1030 #f #t #f #f 1031 ;; subplaces 1032 nil 1033 nil ;; neighbors 1034 (list ;; objects in p_slimy_cavern 1035 (list 1036 (bind 1037 (kern-mk-obj t_spawn_pt 1 1038 ;; hooks 1039 (list 1040 ) 1041 ) 1042 (list 1043 'spawn-pt 1044 'green-slime 1045 ) 1046 ) ;; bind 1047 10 18) 1048 (list 1049 (bind 1050 (kern-mk-obj t_spawn_pt 1 1051 ;; hooks 1052 (list 1053 ) 1054 ) 1055 (list 1056 'spawn-pt 1057 'green-slime 1058 ) 1059 ) ;; bind 1060 13 18) 1061 (list 1062 (bind 1063 (kern-mk-char 1064 'ch_roland 1065 "Roland" 1066 sp_human 1067 oc_warrior 1068 s_human_knight 1069 2 1070 16 10 16 1071 25 5 1072 0 0 1073 53 512 1074 5 3 1075 #f ;; dead? 1076 'roland-conv 1077 nil 1078 'roland-ai 1079 nil ;; inventory 1080 nil 1081 ;; hooks 1082 (list 1083 ) 1084 ) 1085 (list 1086 #f 1087 #f 1088 #f 1089 ) 1090 ) ;; bind 1091 14 1) 1092 (list 1093 (bind 1094 (kern-mk-obj t_monman 1 1095 ;; hooks 1096 (list 1097 ) 1098 ) 1099 (list 1100 'monman 1101 (list 1102 0 1103 0 1104 0 1105 -1 1106 6 1107 -1 1108 ) 1109 ) 1110 ) ;; bind 1111 0 0) 1112 (list 1113 (kern-mk-container 1114 t_chest 1115 ;; trap 1116 nil 1117 ;; contents 1118 (list 1119 (list 2 t_food) 1120 (list 1 t_2h_sword) 1121 (list 1 t_armor_chain) 1122 (list 1 t_iron_helm) 1123 ) 1124 ;; hooks 1125 (list 1126 ) 1127 ) 1128 9 2) 1129 (list 1130 (bind 1131 (kern-mk-obj t_ladder_up 1 1132 ;; hooks 1133 (list 1134 ) 1135 ) 1136 (list 1137 'p_shard 1138 13 1139 8 1140 ) 1141 ) ;; bind 1142 8 30) 1143 (list 1144 (bind 1145 (kern-mk-obj tf_ns_bridge 1 1146 ;; hooks 1147 (list 1148 ) 1149 ) 1150 '() 1151 ) ;; bind 1152 4 15) 1153 (list 1154 (bind 1155 (kern-mk-obj tf_ns_bridge 1 1156 ;; hooks 1157 (list 1158 ) 1159 ) 1160 '() 1161 ) ;; bind 1162 11 19) 1163 (list 1164 (bind 1165 (kern-mk-obj t_door 1 1166 ;; hooks 1167 (list 1168 ) 1169 ) 1170 (list 1171 #f 1172 0 1173 '() 1174 #f 1175 #t 1176 #f 1177 (list 1178 (list 1179 's_closed_windowed_wood_door_in_rock 1180 #f 1181 5 1182 ) 1183 (list 1184 's_open_door_in_rock 1185 #f 1186 0 1187 ) 1188 (list 1189 's_locked_windowed_wood_door_in_rock 1190 #f 1191 5 1192 ) 1193 (list 1194 's_magically_locked_windowed_wood_door_in_rock 1195 #f 1196 5 1197 ) 1198 ) 1199 ) 1200 ) ;; bind 1201 13 3) 1202 (list 1203 (bind 1204 (kern-mk-char 1205 nil 1206 "blackguard" 1207 sp_human 1208 oc_wrogue 1209 s_brigand 1210 8 1211 0 0 0 1212 0 0 1213 0 0 1214 12 256 1215 4 2 1216 #f ;; dead? 1217 nil 1218 nil 1219 'std-ai 1220 (kern-mk-container 1221 t_chest 1222 ;; trap 1223 'self-destruct-trap 1224 ;; contents 1225 (list 1226 (list 8 t_bolt) 1227 ) 1228 ;; hooks 1229 (list 1230 ) 1231 ) 1232 (list 1233 t_chain_coif 1234 t_sword 1235 t_armor_chain 1236 ) 1237 ;; hooks 1238 (list 1239 (list 1240 ef_loot_drop 1241 (list 1242 'loot-drop-gob 1243 'drop-generic 1244 (list 1245 (list 1246 (list 1247 100 1248 "2d6-2" 1249 't_gold_coins 1250 ) 1251 (list 1252 100 1253 "1d3-1" 1254 't_picklock 1255 ) 1256 (list 1257 50 1258 "1d5" 1259 't_food 1260 ) 1261 (list 1262 50 1263 "1d10" 1264 't_arrow 1265 ) 1266 (list 1267 10 1268 "1" 1269 't_in_ex_por_scroll 1270 ) 1271 (list 1272 10 1273 "1" 1274 't_wis_quas_scroll 1275 ) 1276 (list 1277 5 1278 "1" 1279 't_sanct_lor_scroll 1280 ) 1281 (list 1282 5 1283 "1" 1284 't_an_tym_scroll 1285 ) 1286 (list 1287 5 1288 "1" 1289 't_vas_rel_por_scroll 1290 ) 1291 (list 1292 20 1293 "1" 1294 't_mana_potion 1295 ) 1296 (list 1297 10 1298 "1" 1299 't_cure_potion 1300 ) 1301 (list 1302 10 1303 "1" 1304 't_poison_immunity_potion 1305 ) 1306 (list 1307 10 1308 "1d3" 1309 't_torch 1310 ) 1311 ) 1312 ) 1313 ) 1314 2 1315 0 1316 ) 1317 ) 1318 ) 1319 (list 1320 'npcg 1321 'blackguard 1322 #f 1323 #f 1324 '() 1325 ) 1326 ) ;; bind 1327 5 4) 1328 (list 1329 (bind 1330 (kern-mk-char 1331 nil 1332 "blackguard" 1333 sp_human 1334 oc_wrogue 1335 s_brigand 1336 8 1337 0 0 0 1338 0 0 1339 0 0 1340 12 256 1341 4 2 1342 #f ;; dead? 1343 nil 1344 nil 1345 'std-ai 1346 (kern-mk-container 1347 t_chest 1348 ;; trap 1349 'sleep-trap 1350 ;; contents 1351 (list 1352 (list 1 t_sword) 1353 (list 4 t_bolt) 1354 ) 1355 ;; hooks 1356 (list 1357 ) 1358 ) 1359 (list 1360 t_chain_coif 1361 t_crossbow 1362 t_armor_chain 1363 ) 1364 ;; hooks 1365 (list 1366 (list 1367 ef_loot_drop 1368 (list 1369 'loot-drop-gob 1370 'drop-generic 1371 (list 1372 (list 1373 (list 1374 100 1375 "2d6-2" 1376 't_gold_coins 1377 ) 1378 (list 1379 100 1380 "1d3-1" 1381 't_picklock 1382 ) 1383 (list 1384 50 1385 "1d5" 1386 't_food 1387 ) 1388 (list 1389 50 1390 "1d10" 1391 't_arrow 1392 ) 1393 (list 1394 10 1395 "1" 1396 't_in_ex_por_scroll 1397 ) 1398 (list 1399 10 1400 "1" 1401 't_wis_quas_scroll 1402 ) 1403 (list 1404 5 1405 "1" 1406 't_sanct_lor_scroll 1407 ) 1408 (list 1409 5 1410 "1" 1411 't_an_tym_scroll 1412 ) 1413 (list 1414 5 1415 "1" 1416 't_vas_rel_por_scroll 1417 ) 1418 (list 1419 20 1420 "1" 1421 't_mana_potion 1422 ) 1423 (list 1424 10 1425 "1" 1426 't_cure_potion 1427 ) 1428 (list 1429 10 1430 "1" 1431 't_poison_immunity_potion 1432 ) 1433 (list 1434 10 1435 "1d3" 1436 't_torch 1437 ) 1438 ) 1439 ) 1440 ) 1441 2 1442 0 1443 ) 1444 ) 1445 ) 1446 (list 1447 'npcg 1448 'blackguard 1449 #f 1450 #f 1451 '() 1452 ) 1453 ) ;; bind 1454 9 4) 1455 (list 1456 (bind 1457 (kern-mk-char 1458 nil 1459 "blackguard" 1460 sp_human 1461 oc_wrogue 1462 s_brigand 1463 8 1464 0 0 0 1465 0 0 1466 0 0 1467 12 256 1468 4 2 1469 #f ;; dead? 1470 nil 1471 nil 1472 'std-ai 1473 (kern-mk-container 1474 t_chest 1475 ;; trap 1476 'sleep-trap 1477 ;; contents 1478 (list 1479 (list 1 t_sword) 1480 (list 7 t_bolt) 1481 ) 1482 ;; hooks 1483 (list 1484 ) 1485 ) 1486 (list 1487 t_chain_coif 1488 t_crossbow 1489 t_armor_chain 1490 ) 1491 ;; hooks 1492 (list 1493 (list 1494 ef_loot_drop 1495 (list 1496 'loot-drop-gob 1497 'drop-generic 1498 (list 1499 (list 1500 (list 1501 100 1502 "2d6-2" 1503 't_gold_coins 1504 ) 1505 (list 1506 100 1507 "1d3-1" 1508 't_picklock 1509 ) 1510 (list 1511 50 1512 "1d5" 1513 't_food 1514 ) 1515 (list 1516 50 1517 "1d10" 1518 't_arrow 1519 ) 1520 (list 1521 10 1522 "1" 1523 't_in_ex_por_scroll 1524 ) 1525 (list 1526 10 1527 "1" 1528 't_wis_quas_scroll 1529 ) 1530 (list 1531 5 1532 "1" 1533 't_sanct_lor_scroll 1534 ) 1535 (list 1536 5 1537 "1" 1538 't_an_tym_scroll 1539 ) 1540 (list 1541 5 1542 "1" 1543 't_vas_rel_por_scroll 1544 ) 1545 (list 1546 20 1547 "1" 1548 't_mana_potion 1549 ) 1550 (list 1551 10 1552 "1" 1553 't_cure_potion 1554 ) 1555 (list 1556 10 1557 "1" 1558 't_poison_immunity_potion 1559 ) 1560 (list 1561 10 1562 "1d3" 1563 't_torch 1564 ) 1565 ) 1566 ) 1567 ) 1568 2 1569 0 1570 ) 1571 ) 1572 ) 1573 (list 1574 'npcg 1575 'blackguard 1576 #f 1577 #f 1578 '() 1579 ) 1580 ) ;; bind 1581 9 2) 1582 (list 1583 (bind 1584 (kern-mk-obj t_spawn_pt 1 1585 ;; hooks 1586 (list 1587 ) 1588 ) 1589 (list 1590 'spawn-pt 1591 'green-slime 1592 ) 1593 ) ;; bind 1594 9 17) 1595 ) ;; end of objects in p_slimy_cavern 1596 (list ;; on-entry-hooks 1597 'on-entry-to-dungeon-room 1598 ) 1599 (list ;; edge entrances 1600 (list 0 15 31) ;; Northwest 1601 (list 1 8 31) ;; North 1602 (list 2 0 31) ;; Northeast 1603 (list 3 15 16) ;; West 1604 (list 4 8 16) ;; Here 1605 (list 5 0 16) ;; East 1606 (list 6 15 0) ;; Southwest 1607 (list 7 8 0) ;; South 1608 (list 8 0 0) ;; SoutheastUp 1609 ) 1610) ;; end of place p_slimy_cavern 1611 1612(kern-load "jim.scm") 1613 1614(kern-load "gwen.scm") 1615 1616(kern-load "chanticleer.scm") 1617 1618(kern-load "earl.scm") 1619 1620(kern-load "miggs.scm") 1621 1622(kern-mk-place 'p_trigrave "Trigrave" 1623 s_town ;; sprite 1624 (kern-mk-map 1625 nil 32 32 pal_expanded 1626 (list 1627 "tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt bb .. .. .. bb tt tt tt tt tt tt tt tt tt tt tt " 1628 "tt xx xx xx xx xx xx xx xx xx xx xx xx xx tt tt td .. .. .. tb tt tt tt xx xx xx xx xx xx xx tt " 1629 "tt xx cc cc x! .G .R .A .Y @@ x! cc cc xx tt tt bb .. .. .. bb tt tt tt xx .I .R .O .N @@ xx tt " 1630 "tt xx cc cc x! @@ .D .O .V .E x! cc cc xx tt tt td .. .. .. tb tt tt tt xx .W .O .R .K .S xx tt " 1631 "tt cc cc cc cc cc cc cc cc cc cc cc cc xx tt tt bb .. .. .. bb ta tt tt ws cc cc cc cc cc xx tt " 1632 "tt xx xx xx x! @@ .I .N .N @@ x! xx xx xx tt tt td .. .. .. .. .. bb ta sA cc cc cc cc cc xx tt " 1633 "tt xx cc cc xx cc cc cc cc cc xx cc cc xx tt tt bb .. .. .. .. .. .. tD cc cc cc cc cc __ xx tt " 1634 "tt xx cc cc cc cc cc cc cc cc cc cc cc xx tt tt td .. .. .. .. .. bb t3 xx cc cc cc cc !! xx tt " 1635 "tt xx xx xx x! cc cc cc cc cc x! xx xx xx tt tt bb .. .. .. bb t3 tt tt ws cc cc cc cc cc xx tt " 1636 "tt xx cc cc cc cc cc cc cc cc cc cc cc xx tt tt td .. .. .. tb tt tt tt xx xx cc xx cc xx xx tt " 1637 "tt xx cc cc xx cc cc cc cc cc xx cc cc xx tt tt bb .. .. .. bb tt tt tt xx cc cc x! cc cc xx tt " 1638 "tt xx xx xx xx ws x! cc x! ws xx xx xx xx tt tt td .. .. .. tb tt tt tt xx cc cc xx cc cc xx tt " 1639 "tt tt tt tt tt tc bb .. bb tt tt tt tt tt tt tt bb .. .. .. bb tt tt tt xx xx xx xx xx xx xx tt " 1640 "tt tt tt tt tc sI .. .. .. ta tt tt tt tt tt tc .. .. .. .. .. ta tt tt tt tt tt tt tt tt tt tt " 1641 "bb te bb te bb .. .. .. .. .. bb te bb te bb .. .. .. .. .. .. .. bb te bb te bb te bb te bb ta " 1642 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 1643 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 1644 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 1645 "bb t7 bb t7 bb t7 bb t7 bb .. .. .. .. .. .. .. bb t7 bb t7 bb t7 bb t7 bb t7 bb t7 bb t7 bb t3 " 1646 "tt tt tt tt tt tt tt tt tt t5 .. .. .. .. .. t3 tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt " 1647 "tt tt tt tt tt tt tt tt tt tt bb .. .. .. bb tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt " 1648 "tt xx xx xx xx xx xx xx tt tt td .. .. .. tb tt tt xx xx xx xx xx xx xx xx xx xx xx xx xx xx tt " 1649 "tt xx @@ .D .R .Y @@ xx tt tt bb .. .. .. bb tt tt xx x! @@ .L .U .S .T .Y x! xx cc cc cc xx tt " 1650 "tt xx .G .O .O .D .S xx tt tt td .. .. .. .. ta tt ws cc cc 00 cc cc 00 cc cc xx cc cc cc xx tt " 1651 "tt cc cc cc cc cc cc ws tt tt bb .. .. .. .. .. bb sT cc cc 00 cc cc 00 cc cc x! xx cc xx xx tt " 1652 "tt xx @@ @@ @@ @@ @@ xx tt tt td .. .. .. .. .. .. cc cc cc cc cc cc cc cc cc cc cc cc cc xx tt " 1653 "tt xx cc cc cc cc cc sE bb .. .. .. .. .. .. .. .. cc cc cc cc cc cc cc cc cc cc cc cc && xx tt " 1654 "tt xx cc cc cc cc cc cc .. .. .. .. .. .. .. .. bb xx cc cc 00 cc cc 00 cc cc x! cc cc && xx tt " 1655 "tt xx cc cc cc cc cc xx bb .. .. .. .. .. .. t3 tt ws cc cc 00 cc cc 00 cc cc xx cc cc cc xx tt " 1656 "tt xx cc cc cc cc cc ws tt tt td .. .. .. bb tt tt xx x! @@ .J .U .G .S @@ x! xx cc cc cc xx tt " 1657 "tt xx xx xx xx xx xx xx tt tt bb .. .. .. tb tt tt xx xx xx xx xx xx xx xx xx xx xx ws xx xx tt " 1658 "tt tt tt tt tt tt tt tt tt tt t5 .. .. .. bb tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt " 1659 ) 1660 ) 1661 #f #f #f #f 1662 ;; subplaces 1663 nil 1664 nil ;; neighbors 1665 (list ;; objects in p_trigrave 1666 (list 1667 (bind 1668 (kern-mk-obj t_door 1 1669 ;; hooks 1670 (list 1671 ) 1672 ) 1673 (list 1674 #f 1675 0 1676 '() 1677 #f 1678 #t 1679 #f 1680 (list 1681 (list 1682 's_closed_solid_wood_door_in_stone 1683 #t 1684 5 1685 ) 1686 (list 1687 's_open_door_in_stone 1688 #f 1689 0 1690 ) 1691 (list 1692 's_locked_solid_wood_door_in_stone 1693 #t 1694 5 1695 ) 1696 (list 1697 's_magically_locked_solid_wood_door_in_stone 1698 #t 1699 5 1700 ) 1701 ) 1702 ) 1703 ) ;; bind 1704 1 4) 1705 (list 1706 (bind 1707 (kern-mk-obj t_door 1 1708 ;; hooks 1709 (list 1710 ) 1711 ) 1712 (list 1713 #f 1714 0 1715 '() 1716 #f 1717 #f 1718 #f 1719 (list 1720 (list 1721 's_closed_solid_wood_door_in_stone 1722 #t 1723 5 1724 ) 1725 (list 1726 's_open_door_in_stone 1727 #f 1728 0 1729 ) 1730 (list 1731 's_locked_solid_wood_door_in_stone 1732 #t 1733 5 1734 ) 1735 (list 1736 's_magically_locked_solid_wood_door_in_stone 1737 #t 1738 5 1739 ) 1740 ) 1741 ) 1742 ) ;; bind 1743 4 4) 1744 (list 1745 (bind 1746 (kern-mk-obj t_door 1 1747 ;; hooks 1748 (list 1749 ) 1750 ) 1751 (list 1752 #f 1753 0 1754 '() 1755 #f 1756 #f 1757 #f 1758 (list 1759 (list 1760 's_closed_solid_wood_door_in_stone 1761 #t 1762 5 1763 ) 1764 (list 1765 's_open_door_in_stone 1766 #f 1767 0 1768 ) 1769 (list 1770 's_locked_solid_wood_door_in_stone 1771 #t 1772 5 1773 ) 1774 (list 1775 's_magically_locked_solid_wood_door_in_stone 1776 #t 1777 5 1778 ) 1779 ) 1780 ) 1781 ) ;; bind 1782 10 4) 1783 (list 1784 (bind 1785 (kern-mk-obj t_door 1 1786 ;; hooks 1787 (list 1788 ) 1789 ) 1790 (list 1791 #f 1792 0 1793 '() 1794 #f 1795 #f 1796 #f 1797 (list 1798 (list 1799 's_closed_solid_wood_door_in_stone 1800 #t 1801 5 1802 ) 1803 (list 1804 's_open_door_in_stone 1805 #f 1806 0 1807 ) 1808 (list 1809 's_locked_solid_wood_door_in_stone 1810 #t 1811 5 1812 ) 1813 (list 1814 's_magically_locked_solid_wood_door_in_stone 1815 #t 1816 5 1817 ) 1818 ) 1819 ) 1820 ) ;; bind 1821 7 11) 1822 (list 1823 (kern-mk-obj t_bed 1 1824 ;; hooks 1825 (list 1826 ) 1827 ) 1828 2 6) 1829 (list 1830 (kern-mk-obj t_bed 1 1831 ;; hooks 1832 (list 1833 ) 1834 ) 1835 12 6) 1836 (list 1837 (kern-mk-obj t_bed 1 1838 ;; hooks 1839 (list 1840 ) 1841 ) 1842 12 9) 1843 (list 1844 (kern-mk-obj t_bed 1 1845 ;; hooks 1846 (list 1847 ) 1848 ) 1849 12 2) 1850 (list 1851 (kern-mk-obj t_bed 1 1852 ;; hooks 1853 (list 1854 ) 1855 ) 1856 2 9) 1857 (list 1858 (kern-mk-container 1859 t_chest 1860 ;; trap 1861 nil 1862 ;; contents 1863 (list 1864 (list 1 t_stun_wand) 1865 (list 3 t_xen_corp_scroll) 1866 (list 3 t_in_vas_por_ylem_scroll) 1867 (list 5 t_vas_mani_scroll) 1868 ) 1869 ;; hooks 1870 (list 1871 (list 1872 ef_permanent_invisibility 1873 '() 1874 2 1875 0 1876 ) 1877 ) 1878 ) 1879 2 10) 1880 (list 1881 (bind 1882 (kern-mk-obj t_door 1 1883 ;; hooks 1884 (list 1885 ) 1886 ) 1887 (list 1888 #f 1889 0 1890 '() 1891 #f 1892 #t 1893 #f 1894 (list 1895 (list 1896 's_closed_solid_wood_door_in_stone 1897 #t 1898 5 1899 ) 1900 (list 1901 's_open_door_in_stone 1902 #f 1903 0 1904 ) 1905 (list 1906 's_locked_solid_wood_door_in_stone 1907 #t 1908 5 1909 ) 1910 (list 1911 's_magically_locked_solid_wood_door_in_stone 1912 #t 1913 5 1914 ) 1915 ) 1916 ) 1917 ) ;; bind 1918 1 24) 1919 (list 1920 (bind 1921 (kern-mk-obj t_door 1 1922 ;; hooks 1923 (list 1924 ) 1925 ) 1926 (list 1927 #f 1928 0 1929 '() 1930 #f 1931 #f 1932 #f 1933 (list 1934 (list 1935 's_closed_solid_wood_door_in_stone 1936 #t 1937 5 1938 ) 1939 (list 1940 's_open_door_in_stone 1941 #f 1942 0 1943 ) 1944 (list 1945 's_locked_solid_wood_door_in_stone 1946 #t 1947 5 1948 ) 1949 (list 1950 's_magically_locked_solid_wood_door_in_stone 1951 #t 1952 5 1953 ) 1954 ) 1955 ) 1956 ) ;; bind 1957 7 27) 1958 (list 1959 (bind 1960 (kern-mk-obj t_door 1 1961 ;; hooks 1962 (list 1963 ) 1964 ) 1965 (list 1966 #f 1967 0 1968 '() 1969 #f 1970 #f 1971 #f 1972 (list 1973 (list 1974 's_closed_solid_wood_door_in_stone 1975 #t 1976 5 1977 ) 1978 (list 1979 's_open_door_in_stone 1980 #f 1981 0 1982 ) 1983 (list 1984 's_locked_solid_wood_door_in_stone 1985 #t 1986 5 1987 ) 1988 (list 1989 's_magically_locked_solid_wood_door_in_stone 1990 #t 1991 5 1992 ) 1993 ) 1994 ) 1995 ) ;; bind 1996 24 6) 1997 (list 1998 (bind 1999 (kern-mk-obj t_door 1 2000 ;; hooks 2001 (list 2002 ) 2003 ) 2004 (list 2005 #f 2006 0 2007 '() 2008 #f 2009 #t 2010 #f 2011 (list 2012 (list 2013 's_closed_solid_wood_door_in_stone 2014 #t 2015 5 2016 ) 2017 (list 2018 's_open_door_in_stone 2019 #f 2020 0 2021 ) 2022 (list 2023 's_locked_solid_wood_door_in_stone 2024 #t 2025 5 2026 ) 2027 (list 2028 's_magically_locked_solid_wood_door_in_stone 2029 #t 2030 5 2031 ) 2032 ) 2033 ) 2034 ) ;; bind 2035 26 9) 2036 (list 2037 (kern-tag 'tiw-portcullis 2038 (bind 2039 (kern-mk-obj t_portcullis 1 2040 ;; hooks 2041 (list 2042 ) 2043 ) 2044 (list 2045 #f 2046 '() 2047 #f 2048 '() 2049 ) 2050 ) ;; bind 2051 ) ;; kern-tag 2052 28 9) 2053 (list 2054 (bind 2055 (kern-mk-obj t_lever 1 2056 ;; hooks 2057 (list 2058 ) 2059 ) 2060 (list 2061 #f 2062 'tiw-portcullis 2063 #f 2064 '() 2065 ) 2066 ) ;; bind 2067 25 11) 2068 (list 2069 (kern-mk-obj t_bed 1 2070 ;; hooks 2071 (list 2072 ) 2073 ) 2074 25 10) 2075 (list 2076 (kern-mk-container 2077 t_chest 2078 ;; trap 2079 nil 2080 ;; contents 2081 (list 2082 (list 1 t_scratched_shield) 2083 (list 1 t_armor_plate) 2084 (list 1 t_iron_helm) 2085 ) 2086 ;; hooks 2087 (list 2088 ) 2089 ) 2090 28 11) 2091 (list 2092 (kern-mk-container 2093 t_chest 2094 ;; trap 2095 'bomb-trap 2096 ;; contents 2097 (list 2098 (list 100 t_gold_coins) 2099 (list 3 t_dagger) 2100 (list 3 t_mace) 2101 (list 3 t_sword) 2102 ) 2103 ;; hooks 2104 (list 2105 ) 2106 ) 2107 29 11) 2108 (list 2109 (bind 2110 (kern-mk-obj t_door 1 2111 ;; hooks 2112 (list 2113 ) 2114 ) 2115 (list 2116 #f 2117 0 2118 '() 2119 #f 2120 #t 2121 #f 2122 (list 2123 (list 2124 's_closed_solid_wood_door_in_stone 2125 #t 2126 5 2127 ) 2128 (list 2129 's_open_door_in_stone 2130 #f 2131 0 2132 ) 2133 (list 2134 's_locked_solid_wood_door_in_stone 2135 #t 2136 5 2137 ) 2138 (list 2139 's_magically_locked_solid_wood_door_in_stone 2140 #t 2141 5 2142 ) 2143 ) 2144 ) 2145 ) ;; bind 2146 28 24) 2147 (list 2148 (kern-tag 'tlj-d-1 2149 (bind 2150 (kern-mk-obj t_door 1 2151 ;; hooks 2152 (list 2153 ) 2154 ) 2155 (list 2156 #f 2157 0 2158 'tlj-d-2 2159 #f 2160 #f 2161 #f 2162 (list 2163 (list 2164 's_closed_solid_wood_door_in_stone 2165 #t 2166 5 2167 ) 2168 (list 2169 's_open_door_in_stone 2170 #f 2171 0 2172 ) 2173 (list 2174 's_locked_solid_wood_door_in_stone 2175 #t 2176 5 2177 ) 2178 (list 2179 's_magically_locked_solid_wood_door_in_stone 2180 #t 2181 5 2182 ) 2183 ) 2184 ) 2185 ) ;; bind 2186 ) ;; kern-tag 2187 17 25) 2188 (list 2189 (kern-tag 'tlj-d-2 2190 (bind 2191 (kern-mk-obj t_door 1 2192 ;; hooks 2193 (list 2194 ) 2195 ) 2196 (list 2197 #f 2198 0 2199 'tlj-d-1 2200 #f 2201 #f 2202 #f 2203 (list 2204 (list 2205 's_closed_solid_wood_door_in_stone 2206 #t 2207 5 2208 ) 2209 (list 2210 's_open_door_in_stone 2211 #f 2212 0 2213 ) 2214 (list 2215 's_locked_solid_wood_door_in_stone 2216 #t 2217 5 2218 ) 2219 (list 2220 's_magically_locked_solid_wood_door_in_stone 2221 #t 2222 5 2223 ) 2224 ) 2225 ) 2226 ) ;; bind 2227 ) ;; kern-tag 2228 17 26) 2229 (list 2230 (kern-mk-obj t_bed 1 2231 ;; hooks 2232 (list 2233 ) 2234 ) 2235 27 22) 2236 (list 2237 (bind 2238 (kern-mk-char 2239 'ch_jim 2240 "Jim" 2241 sp_human 2242 nil 2243 s_townsman 2244 2 2245 0 10 5 2246 0 0 2247 0 0 2248 19 0 2249 9 9 2250 #f ;; dead? 2251 'jim-conv 2252 sch_jim 2253 nil 2254 nil ;; inventory 2255 nil 2256 ;; hooks 2257 (list 2258 ) 2259 ) 2260 '() 2261 ) ;; bind 2262 18 23) 2263 (list 2264 (bind 2265 (kern-mk-char 2266 'ch_gwen 2267 "Gwen" 2268 sp_human 2269 nil 2270 s_gwen 2271 2 2272 0 10 5 2273 0 0 2274 0 0 2275 19 0 2276 9 9 2277 #f ;; dead? 2278 'gwen-conv 2279 sch_gwen 2280 nil 2281 nil ;; inventory 2282 nil 2283 ;; hooks 2284 (list 2285 ) 2286 ) 2287 '() 2288 ) ;; bind 2289 5 4) 2290 (list 2291 (bind 2292 (kern-mk-char 2293 'ch_chant 2294 "Chanticleer" 2295 sp_human 2296 nil 2297 s_chanticleer 2298 2 2299 0 10 5 2300 0 0 2301 0 0 2302 19 0 2303 9 9 2304 #f ;; dead? 2305 'chant-conv 2306 sch_chant 2307 nil 2308 nil ;; inventory 2309 nil 2310 ;; hooks 2311 (list 2312 ) 2313 ) 2314 (list 2315 0 2316 ) 2317 ) ;; bind 2318 18 23) 2319 (list 2320 (bind 2321 (kern-mk-char 2322 'ch_earl 2323 "Earl" 2324 sp_human 2325 nil 2326 s_townsman 2327 2 2328 0 10 5 2329 0 0 2330 0 0 2331 19 0 2332 9 9 2333 #f ;; dead? 2334 'earl-conv 2335 sch_earl 2336 nil 2337 nil ;; inventory 2338 nil 2339 ;; hooks 2340 (list 2341 ) 2342 ) 2343 '() 2344 ) ;; bind 2345 2 9) 2346 (list 2347 (bind 2348 (kern-mk-char 2349 'ch_miggs 2350 "Miggs" 2351 sp_human 2352 nil 2353 s_fat_townswoman 2354 2 2355 12 10 8 2356 0 0 2357 0 0 2358 13 0 2359 0 3 2360 #f ;; dead? 2361 'miggs-conv 2362 sch_miggs 2363 nil 2364 nil ;; inventory 2365 nil 2366 ;; hooks 2367 (list 2368 ) 2369 ) 2370 '() 2371 ) ;; bind 2372 27 25) 2373 (list 2374 (kern-tag 'trigrave-inn-room-1-door 2375 (bind 2376 (kern-mk-obj t_door 1 2377 ;; hooks 2378 (list 2379 ) 2380 ) 2381 (list 2382 #f 2383 0 2384 '() 2385 #f 2386 #t 2387 #f 2388 (list 2389 (list 2390 's_closed_solid_wood_door_in_stone 2391 #t 2392 5 2393 ) 2394 (list 2395 's_open_door_in_stone 2396 #f 2397 0 2398 ) 2399 (list 2400 's_locked_solid_wood_door_in_stone 2401 #t 2402 5 2403 ) 2404 (list 2405 's_magically_locked_solid_wood_door_in_stone 2406 #t 2407 5 2408 ) 2409 ) 2410 ) 2411 ) ;; bind 2412 ) ;; kern-tag 2413 4 7) 2414 (list 2415 (kern-tag 'trigrave-inn-room-2-door 2416 (bind 2417 (kern-mk-obj t_door 1 2418 ;; hooks 2419 (list 2420 ) 2421 ) 2422 (list 2423 #f 2424 0 2425 '() 2426 #f 2427 #t 2428 #f 2429 (list 2430 (list 2431 's_closed_solid_wood_door_in_stone 2432 #t 2433 5 2434 ) 2435 (list 2436 's_open_door_in_stone 2437 #f 2438 0 2439 ) 2440 (list 2441 's_locked_solid_wood_door_in_stone 2442 #t 2443 5 2444 ) 2445 (list 2446 's_magically_locked_solid_wood_door_in_stone 2447 #t 2448 5 2449 ) 2450 ) 2451 ) 2452 ) ;; bind 2453 ) ;; kern-tag 2454 4 9) 2455 (list 2456 (kern-tag 'trigrave-inn-room-3-door 2457 (bind 2458 (kern-mk-obj t_door 1 2459 ;; hooks 2460 (list 2461 ) 2462 ) 2463 (list 2464 #f 2465 0 2466 '() 2467 #f 2468 #t 2469 #f 2470 (list 2471 (list 2472 's_closed_solid_wood_door_in_stone 2473 #t 2474 5 2475 ) 2476 (list 2477 's_open_door_in_stone 2478 #f 2479 0 2480 ) 2481 (list 2482 's_locked_solid_wood_door_in_stone 2483 #t 2484 5 2485 ) 2486 (list 2487 's_magically_locked_solid_wood_door_in_stone 2488 #t 2489 5 2490 ) 2491 ) 2492 ) 2493 ) ;; bind 2494 ) ;; kern-tag 2495 10 9) 2496 (list 2497 (kern-tag 'trigrave-inn-room-4-door 2498 (bind 2499 (kern-mk-obj t_door 1 2500 ;; hooks 2501 (list 2502 ) 2503 ) 2504 (list 2505 #f 2506 0 2507 '() 2508 #f 2509 #t 2510 #f 2511 (list 2512 (list 2513 's_closed_solid_wood_door_in_stone 2514 #t 2515 5 2516 ) 2517 (list 2518 's_open_door_in_stone 2519 #f 2520 0 2521 ) 2522 (list 2523 's_locked_solid_wood_door_in_stone 2524 #t 2525 5 2526 ) 2527 (list 2528 's_magically_locked_solid_wood_door_in_stone 2529 #t 2530 5 2531 ) 2532 ) 2533 ) 2534 ) ;; bind 2535 ) ;; kern-tag 2536 10 7) 2537 ) ;; end of objects in p_trigrave 2538 (list ;; on-entry-hooks 2539 'lock-inn-room-doors 2540 ) 2541 (list ;; edge entrances 2542 (list 0 31 31) ;; Northwest 2543 (list 1 12 31) ;; North 2544 (list 2 0 31) ;; Northeast 2545 (list 3 31 16) ;; West 2546 (list 4 16 16) ;; Here 2547 (list 5 0 16) ;; East 2548 (list 6 31 0) ;; Southwest 2549 (list 7 18 0) ;; South 2550 (list 8 0 0) ;; SoutheastUp 2551 ) 2552) ;; end of place p_trigrave 2553 2554(kern-load "warritrix.scm") 2555 2556(kern-mk-place 'p_lost_halls_4 "Lost Halls South" 2557 nil ;; sprite 2558 (kern-mk-map 2559 nil 19 19 pal_expanded 2560 (list 2561 "rr rr rr rr rr rr rr rr .. .. .. ,, .. rr ,, .. ,, rr rr " 2562 "rr rr rr rr .. .. .. rr .. .. .. ,, .. ,, ,, ,, ,, ,, rr " 2563 "rr rr .. .. .. .. .. .. .. .. xx ,, ,, .. ,, ,, ,, ,, rr " 2564 "rr rr .. .. .. .. .. .. .. .. .. xx rr ,, ,, ,, ,, ,, rr " 2565 "rr .. .. .. bb .. .. .. .. .. .. xx rr rr rr ,, ,, ,, rr " 2566 "rr .. .. .. .. .. .. .. bb .. .. rr xx rr rr ,, bb ,, rr " 2567 "rr rr .. .. .. .. .. .. .. .. .. rr xx rr rr ,, ,, ,, rr " 2568 "rr rr .. .. .. .. .. .. .. .. rr rr rr xx rr rr ,, ,, ,, " 2569 "rr rr rr .. .. .. .. .. rr rr rr rr rr rr xx ,, ,, ,, ,, " 2570 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr xx xx ,, ,, " 2571 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr ,, .. " 2572 "rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr rr .. .. .. " 2573 "rr rr rr .. .. .. .. .. .. .. rr rr .. rr .. .. .. .. rr " 2574 "rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr .. rr " 2575 "rr rr .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 2576 "rr rr rr .. .. .. .. .. rr rr rr .. .. rr rr rr rr rr rr " 2577 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 2578 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 2579 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 2580 ) 2581 ) 2582 #f #t #f #f 2583 ;; subplaces 2584 nil 2585 (list 2586 (list 2587 (kern-mk-place 'p_lost_halls_1 "Lost Halls Entrance" 2588 nil ;; sprite 2589 (kern-mk-map 2590 nil 19 19 pal_expanded 2591 (list 2592 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 2593 "rr xx xx rr .. rr rr .. .. rr rr rr rr rr rr rr rr rr rr " 2594 "rr xx cc cc .. .. .. .. .. .. [[ @@ ]] rr rr rr rr rr rr " 2595 "rr rr cc cc .. .. .. .. .. .. .. .. .. .. .. rr rr rr rr " 2596 "rr .. .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr rr " 2597 "rr .. .. .. .. .. .. .. .. .. .. && .. .. .. rr .. .. rr " 2598 "rr .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. rr " 2599 "rr .. .. .. .. .. .. .. .. .. bb .. bb .. .. .. .. .. .. " 2600 "rr rr .. .. .. .. && .. .. .. .. .. .. .. .. .. .. .. ,, " 2601 "rr rr rr .. .. .. .. .. .. .. .. %3 %d rr rr xx .. ,, ,, " 2602 "rr rr rr .. .. .. .. .. .. %b %% %% rr rr xx rr rr ,, ,, " 2603 "rr rr rr .. .. .. .. .. rr rr ~1 ~~ rr xx rr ,, ,, ,, ,, " 2604 "rr rr rr rr .. .. rr rr rr rr -- -- xx rr ,, ,, ,, ,, rr " 2605 "rr rr rr rr .. .. rr rr rr rr rr rr xx ,, ,, ,, ,, rr rr " 2606 "rr rr rr .. .. .. rr rr rr rr rr xx rr ,, ,, ,, ,, rr rr " 2607 "rr rr rr .. .. .. .. .. .. .. rr xx rr ,, ,, ,, ,, rr rr " 2608 "rr rr rr .. .. .. .. .. .. .. rr xx rr rr rr && rr rr rr " 2609 "rr rr rr rr .. .. rr rr .. .. .. rr rr rr rr rr rr rr rr " 2610 "rr rr rr rr rr rr rr rr .. .. .. ,, rr ,, ,, ,, rr rr rr " 2611 ) 2612 ) 2613 #f #t #f #f 2614 ;; subplaces 2615 nil 2616 (list 2617 (list 2618 (kern-mk-place 'p_lost_halls_2 "Lost Halls East" 2619 nil ;; sprite 2620 (kern-mk-map 2621 nil 19 19 pal_expanded 2622 (list 2623 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 2624 "rr rr rr rr rr rr rr rr rr rr rr rr .. .. .. rr rr rr rr " 2625 "rr rr rr rr rr rr rr rr rr rr .. .. .. .. .. rr rr rr rr " 2626 "rr .. rr rr rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr " 2627 "rr .. .. .. rr rr rr .. .. .. .. .. .. rr .. .. .. .. rr " 2628 "rr .. .. .. .. .. .. .. .. .. .. .. .. rr .. .. .. .. rr " 2629 "rr .. .. .. .. .. .. .. .. .. .. .. .. rr .. .. .. .. rr " 2630 ".. .. xx xx .. .. .. .. .. .. .. .. rr rr .. rr rr .. rr " 2631 ".. .. .X .. .O .. xx xx xx .. .. rr rr rr .. rr rr .. rr " 2632 ",, ,, ,, ,, ,, ,, xx ,, ,, xx xx .. rr rr .. rr rr .. .. " 2633 ".. ,, ,, ,, ,, ,, xx ,, ,, ,, ,, xx .. .. .. .. .. ,, rr " 2634 ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, cc ,, ,, ,, ,, ,, ,, rr " 2635 "rr rr ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx .. rr .. rr rr " 2636 "rr rr rr ,, ,, ,, rr rr rr ,, ,, ,, rr xx rr .. .. .. rr " 2637 "rr rr rr rr ,, ,, rr rr rr rr ,, ,, rr rr xx .. .. .. rr " 2638 "rr rr tb td ,, ,, rr rr rr rr ,, ,, rr rr xx rr .. .. rr " 2639 "rr tf t# .. .. ,, rr rr rr rr ,, ,, ,, rr xx rr rr .. rr " 2640 "rr xx xx xx .. .. .. ,, ,, ,, ,, ,, ,, ,, ,, xx rr .. rr " 2641 "rr xx rr rr rr rr bb ,, ,, ,, ,, ,, rr rr rr xx xx rr rr " 2642 ) 2643 ) 2644 #f #t #f #f 2645 ;; subplaces 2646 nil 2647 (list 2648 (list 2649 (kern-mk-place 'p_lost_halls_3 "Lost Halls Keep" 2650 nil ;; sprite 2651 (kern-mk-map 2652 nil 19 19 pal_expanded 2653 (list 2654 "rr rr rr rr rr rr rr rr rr rr xx xx xx xx xx xx xx xx rr " 2655 "rr rr rr rr rr .. .. rr rr rr xx ,L ,A ,R ,D ,E ,R xx rr " 2656 "rr rr rr .. .. .. .. .. rr rr xx ,, ,, ,, ,, ,, ,, xx rr " 2657 "rr rr .. .. .. .. .. .. rr rr xx ,, ,, ,, ,, ,, ,, xx rr " 2658 "rr rr rr .. .. .. .. bb rr rr xx ,, ,, ,, ,, ,, ,, xx rr " 2659 "rr rr rr rr rr .. rr rr rr rr xx xx xx ,, ,, xx xx xx rr " 2660 "rr rr rr ,, ,, ,, ,, ,, rr xx xx xx xx ,, ,, xx xx xx rr " 2661 "rr rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr " 2662 "rr rr ,, ,, pp ,, pp ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr " 2663 ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr " 2664 "rr rr .. ,, pp ,, pp ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr " 2665 "rr rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr " 2666 "rr rr rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr " 2667 "rr rr rr rr rr rr rr rr xx xx xx ,, ,, xx xx xx xx xx rr " 2668 "rr rr rr rr rr rr rr rr xx xx xx ,, ,, xx xx xx xx rr rr " 2669 "rr rr xx xx xx xx rr rr xx ,, ,, ,, ,, ,, ,, xx xx rr rr " 2670 "xx xx xx xx xx xx xx xx xx ,, ,, ,, ,, ,, ,, xx xx rr rr " 2671 "xx xx xx xx xx xx xx xx xx ,, ,, ,, ,, ,, ,, xx xx rr rr " 2672 "xx xx xx xx xx xx xx xx ,, ,, ,, xx xx xx xx xx xx rr rr " 2673 ) 2674 ) 2675 #f #t #f #f 2676 ;; subplaces 2677 nil 2678 (list 2679 (list 2680 (kern-mk-place 'p_lost_halls_6 "Lost Halls End" 2681 nil ;; sprite 2682 (kern-mk-map 2683 nil 19 19 pal_expanded 2684 (list 2685 "rr rr rr rr rr rr rr rr .. .. .. bb bb bb bb bb bb rr rr " 2686 "rr rr rr rr rr rr rr t3 tt t5 .. bb .. .. .. bb t3 t5 rr " 2687 "rr rr rr rr rr rr rr ta tt tc .. .. tf bb .. tC tt tc rr " 2688 "rr rr rr rr rr rr rr rr te tB bb .. .. .. tC t3 tc rr rr " 2689 "rr rr rr rr rr rr rr rr rr tb td tA .. bb tb tc rr rr rr " 2690 "rr rr bb rr rr rr rr rr rr rr rr tf .. .. rr rr rr rr rr " 2691 "rr rr rr rr rr rr rr rr rr rr rr .. bb .. rr rr rr rr rr " 2692 "rr rr rr rr bb rr rr rr rr rr rr .. .. .. rr rr rr rr rr " 2693 "rr rr rr rr rr bb rr rr ,R rr .. .. .. .. rr rr rr rr rr " 2694 "rr rr rr rr rr rr rr rr bb tf .. bb .. .. %7 bb rr rr rr " 2695 "rr rr rr rr rr rr rr rr .. .. .. .. bb .. %% %d bb rr rr " 2696 "rr rr rr rr rr rr rr bb .. .. bb .. .. %3 %% tf %3 ,T rr " 2697 "rr rr ,, xx xx rr rr bb .. bb tb t5 .. _b _1 _1 __ rr rr " 2698 "rr ,, ,, ,, xx rr ,A %d .. .. t% te .. ~% __ __ __ _5 rr " 2699 "rr ,, ,, ,, xx rr rr rr bb .. bb .. .. .. __ ~B ~D _4 rr " 2700 "bb ,, ,, ,, xx rr rr rr rr tf %3 __ _1 bb __ __ __ _c rr " 2701 "xx bb xx xx xx rr rr rr ,Q %% _3 __ __ __ __ __ bb rr rr " 2702 "rr rr rr rr rr rr rr rr rr rr bb _8 _8 _8 _8 bb ,P rr rr " 2703 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 2704 ) 2705 ) 2706 #f #t #f #f 2707 ;; subplaces 2708 nil 2709 (list 2710 (list 2711 (kern-mk-place 'p_lost_halls_5 "Lost Halls Feast Room" 2712 nil ;; sprite 2713 (kern-mk-map 2714 nil 19 19 pal_expanded 2715 (list 2716 "rr rr rr rr rr rr rr .. .. .. .. .. rr rr rr rr rr rr rr " 2717 "rr .. .. .. .. rr rr .. .. .. .. .. rr rr rr rr rr rr rr " 2718 "rr .. rr bb .. .. rr .. .. .. .. rr rr rr rr rr rr rr rr " 2719 "rr .. rr rr .. .. rr .. .. .. .. rr rr rr rr rr rr rr rr " 2720 "rr .. .. .. .. rr rr .. .. .. rr rr rr rr cc cc rr rr rr " 2721 "rr rr .. rr rr rr rr .. .. .. rr ,, cc cc cc cc cc cc rr " 2722 "rr .. .. .. rr rr rr .. .. .. .. ,, cc cc cc cc cc cc rr " 2723 ".. .. bb .. rr rr bb .. .. .. .. pp cc cc 00 00 cc cc rr " 2724 ".. .. .. .. rr bb && .. .. .. .. ,, cc cc 00 00 cc cc rr " 2725 ".. .. .. .. rr bb && .. .. .. .. ,, cc cc 00 00 cc cc rr " 2726 ".. .. bb .. rr bb && .. .. .. .. ,, cc cc 00 00 cc cc rr " 2727 ".. .. .. .. rr rr bb .. .. .. .. ,, cc cc 00 00 cc cc rr " 2728 "rr .. .. rr rr rr rr .. .. .. .. pp cc cc 00 00 cc cc rr " 2729 "rr rr .. .. .. .. rr rr .. .. .. ,, cc cc cc cc cc cc rr " 2730 "rr rr .. rr rr .. rr rr rr .. rr ,, cc cc cc cc cc cc rr " 2731 "rr rr .. rr bb .. rr rr rr rr rr rr rr bb cc cc rr rr rr " 2732 "rr rr .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr " 2733 "rr rr rr .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 2734 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 2735 ) 2736 ) 2737 #f #t #f #f 2738 ;; subplaces 2739 nil 2740 nil ;; neighbors 2741 (list ;; objects in p_lost_halls_5 2742 (list 2743 (bind 2744 (kern-mk-obj t_monman 1 2745 ;; hooks 2746 (list 2747 ) 2748 ) 2749 (list 2750 'monman 2751 (list 2752 0 2753 0 2754 0 2755 -1 2756 6 2757 -1 2758 ) 2759 ) 2760 ) ;; bind 2761 0 0) 2762 (list 2763 (bind 2764 (kern-mk-obj t_spawn_pt 1 2765 ;; hooks 2766 (list 2767 ) 2768 ) 2769 (list 2770 'spawn-pt 2771 'giant-spider 2772 ) 2773 ) ;; bind 2774 0 9) 2775 (list 2776 (bind 2777 (kern-mk-obj t_spawn_pt 1 2778 ;; hooks 2779 (list 2780 ) 2781 ) 2782 (list 2783 'spawn-pt 2784 'gint-warrior 2785 ) 2786 ) ;; bind 2787 13 8) 2788 (list 2789 (bind 2790 (kern-mk-obj t_spawn_pt 1 2791 ;; hooks 2792 (list 2793 ) 2794 ) 2795 (list 2796 'spawn-pt 2797 'gint-warrior 2798 ) 2799 ) ;; bind 2800 16 10) 2801 (list 2802 (bind 2803 (kern-mk-obj t_spawn_pt 1 2804 ;; hooks 2805 (list 2806 ) 2807 ) 2808 (list 2809 'spawn-pt 2810 'gint-mage 2811 ) 2812 ) ;; bind 2813 14 13) 2814 ) ;; end of objects in p_lost_halls_5 2815 (list ;; on-entry-hooks 2816 'on-entry-to-dungeon-room 2817 ) 2818 (list ;; edge entrances 2819 (list 0 18 18) ;; Northwest 2820 (list 1 9 18) ;; North 2821 (list 2 0 18) ;; Northeast 2822 (list 3 18 9) ;; West 2823 (list 4 9 9) ;; Here 2824 (list 5 0 9) ;; East 2825 (list 6 18 0) ;; Southwest 2826 (list 7 9 0) ;; South 2827 (list 8 0 0) ;; SoutheastUp 2828 ) 2829 ) ;; end of place p_lost_halls_5 2830 2831 3) 2832 ) ;; end neighbors of p_lost_halls_6 2833 (list ;; objects in p_lost_halls_6 2834 (list 2835 (bind 2836 (kern-mk-obj t_corpse 1 2837 ;; hooks 2838 (list 2839 ) 2840 ) 2841 (list 2842 (list 2843 (list 2844 1 2845 't_rune_l 2846 ) 2847 (list 2848 1 2849 't_armor_chain_4 2850 ) 2851 (list 2852 1 2853 't_chain_coif_4 2854 ) 2855 (list 2856 1 2857 't_sword_4 2858 ) 2859 (list 2860 1 2861 't_shield_4 2862 ) 2863 (list 2864 1 2865 't_warritrix_orders 2866 ) 2867 ) 2868 ) 2869 ) ;; bind 2870 12 12) 2871 (list 2872 (bind 2873 (kern-mk-obj t_corpse 1 2874 ;; hooks 2875 (list 2876 ) 2877 ) 2878 (list 2879 (list 2880 (list 2881 4 2882 't_bolt 2883 ) 2884 (list 2885 1 2886 't_food 2887 ) 2888 ) 2889 ) 2890 ) ;; bind 2891 14 2) 2892 (list 2893 (bind 2894 (kern-mk-obj t_corpse 1 2895 ;; hooks 2896 (list 2897 ) 2898 ) 2899 (list 2900 (list 2901 (list 2902 5 2903 't_bolt 2904 ) 2905 (list 2906 1 2907 't_torch 2908 ) 2909 ) 2910 ) 2911 ) ;; bind 2912 13 10) 2913 (list 2914 (bind 2915 (kern-mk-obj t_corpse 1 2916 ;; hooks 2917 (list 2918 ) 2919 ) 2920 (list 2921 (list 2922 (list 2923 1 2924 't_food 2925 ) 2926 (list 2927 4 2928 't_arrow 2929 ) 2930 ) 2931 ) 2932 ) ;; bind 2933 11 7) 2934 (list 2935 (bind 2936 (kern-mk-obj t_corpse 1 2937 ;; hooks 2938 (list 2939 ) 2940 ) 2941 (list 2942 (list 2943 (list 2944 1 2945 't_gold_coins 2946 ) 2947 (list 2948 4 2949 't_arrow 2950 ) 2951 (list 2952 2 2953 't_bolt 2954 ) 2955 ) 2956 ) 2957 ) ;; bind 2958 12 8) 2959 (list 2960 (bind 2961 (kern-mk-obj t_corpse 1 2962 ;; hooks 2963 (list 2964 ) 2965 ) 2966 (list 2967 (list 2968 (list 2969 1 2970 't_heal_potion 2971 ) 2972 ) 2973 ) 2974 ) ;; bind 2975 8 10) 2976 (list 2977 (bind 2978 (kern-mk-obj t_monman 1 2979 ;; hooks 2980 (list 2981 ) 2982 ) 2983 (list 2984 'monman 2985 (list 2986 0 2987 0 2988 0 2989 -1 2990 6 2991 -1 2992 ) 2993 ) 2994 ) ;; bind 2995 0 0) 2996 (list 2997 (bind 2998 (kern-mk-obj t_spawn_pt 1 2999 ;; hooks 3000 (list 3001 ) 3002 ) 3003 (list 3004 'spawn-pt 3005 'yellow-slime 3006 ) 3007 ) ;; bind 3008 16 11) 3009 ) ;; end of objects in p_lost_halls_6 3010 (list ;; on-entry-hooks 3011 'on-entry-to-dungeon-room 3012 ) 3013 (list ;; edge entrances 3014 (list 0 18 18) ;; Northwest 3015 (list 1 9 18) ;; North 3016 (list 2 0 18) ;; Northeast 3017 (list 3 18 9) ;; West 3018 (list 4 9 9) ;; Here 3019 (list 5 0 9) ;; East 3020 (list 6 18 0) ;; Southwest 3021 (list 7 9 0) ;; South 3022 (list 8 0 0) ;; SoutheastUp 3023 ) 3024 ) ;; end of place p_lost_halls_6 3025 3026 7) 3027 ) ;; end neighbors of p_lost_halls_3 3028 (list ;; objects in p_lost_halls_3 3029 (list 3030 (bind 3031 (kern-mk-obj t_corpse 1 3032 ;; hooks 3033 (list 3034 ) 3035 ) 3036 (list 3037 (list 3038 (list 3039 1 3040 't_mana_potion 3041 ) 3042 (list 3043 1 3044 't_food 3045 ) 3046 ) 3047 ) 3048 ) ;; bind 3049 5 2) 3050 (list 3051 (bind 3052 (kern-mk-obj t_corpse 1 3053 ;; hooks 3054 (list 3055 ) 3056 ) 3057 (list 3058 (list 3059 (list 3060 1 3061 't_torch 3062 ) 3063 (list 3064 3 3065 't_arrow 3066 ) 3067 ) 3068 ) 3069 ) ;; bind 3070 7 3) 3071 (list 3072 (bind 3073 (kern-mk-obj t_monman 1 3074 ;; hooks 3075 (list 3076 ) 3077 ) 3078 (list 3079 'monman 3080 (list 3081 0 3082 0 3083 0 3084 -1 3085 6 3086 -1 3087 ) 3088 ) 3089 ) ;; bind 3090 0 0) 3091 (list 3092 (bind 3093 (kern-mk-obj t_spawn_pt 1 3094 ;; hooks 3095 (list 3096 ) 3097 ) 3098 (list 3099 'spawn-pt 3100 'green-slime 3101 ) 3102 ) ;; bind 3103 9 18) 3104 (list 3105 (bind 3106 (kern-mk-obj t_spawn_pt 1 3107 ;; hooks 3108 (list 3109 ) 3110 ) 3111 (list 3112 'spawn-pt 3113 'gint-warrior 3114 ) 3115 ) ;; bind 3116 13 9) 3117 (list 3118 (bind 3119 (kern-mk-obj t_spawn_pt 1 3120 ;; hooks 3121 (list 3122 ) 3123 ) 3124 (list 3125 'spawn-pt 3126 'gint-mage 3127 ) 3128 ) ;; bind 3129 14 10) 3130 ) ;; end of objects in p_lost_halls_3 3131 (list ;; on-entry-hooks 3132 'on-entry-to-dungeon-room 3133 ) 3134 (list ;; edge entrances 3135 (list 0 18 18) ;; Northwest 3136 (list 1 9 18) ;; North 3137 (list 2 0 18) ;; Northeast 3138 (list 3 18 9) ;; West 3139 (list 4 9 9) ;; Here 3140 (list 5 0 9) ;; East 3141 (list 6 18 0) ;; Southwest 3142 (list 7 9 0) ;; South 3143 (list 8 0 0) ;; SoutheastUp 3144 ) 3145 ) ;; end of place p_lost_halls_3 3146 3147 5) 3148 (list 3149 p_lost_halls_5 3150 7) 3151 ) ;; end neighbors of p_lost_halls_2 3152 (list ;; objects in p_lost_halls_2 3153 (list 3154 (bind 3155 (kern-mk-obj t_monman 1 3156 ;; hooks 3157 (list 3158 ) 3159 ) 3160 (list 3161 'monman 3162 (list 3163 0 3164 0 3165 0 3166 -1 3167 6 3168 -1 3169 ) 3170 ) 3171 ) ;; bind 3172 0 0) 3173 (list 3174 (bind 3175 (kern-mk-obj t_spawn_pt 1 3176 ;; hooks 3177 (list 3178 ) 3179 ) 3180 (list 3181 'spawn-pt 3182 'cave-goblin-slinger 3183 ) 3184 ) ;; bind 3185 0 9) 3186 (list 3187 (bind 3188 (kern-mk-obj t_spawn_pt 1 3189 ;; hooks 3190 (list 3191 ) 3192 ) 3193 (list 3194 'spawn-pt 3195 'gint-warrior 3196 ) 3197 ) ;; bind 3198 9 9) 3199 (list 3200 (bind 3201 (kern-mk-obj t_corpse 1 3202 ;; hooks 3203 (list 3204 ) 3205 ) 3206 (list 3207 (list 3208 (list 3209 3 3210 't_gold_coins 3211 ) 3212 (list 3213 1 3214 't_torch 3215 ) 3216 ) 3217 ) 3218 ) ;; bind 3219 12 1) 3220 (list 3221 (bind 3222 (kern-mk-obj t_corpse 1 3223 ;; hooks 3224 (list 3225 ) 3226 ) 3227 (list 3228 (list 3229 (list 3230 5 3231 't_arrow 3232 ) 3233 (list 3234 1 3235 't_bolt 3236 ) 3237 (list 3238 2 3239 't_gold_coins 3240 ) 3241 ) 3242 ) 3243 ) ;; bind 3244 14 2) 3245 ) ;; end of objects in p_lost_halls_2 3246 (list ;; on-entry-hooks 3247 'on-entry-to-dungeon-room 3248 ) 3249 (list ;; edge entrances 3250 (list 0 18 18) ;; Northwest 3251 (list 1 9 18) ;; North 3252 (list 2 0 18) ;; Northeast 3253 (list 3 18 9) ;; West 3254 (list 4 9 9) ;; Here 3255 (list 5 0 9) ;; East 3256 (list 6 18 0) ;; Southwest 3257 (list 7 9 0) ;; South 3258 (list 8 0 0) ;; SoutheastUp 3259 ) 3260 ) ;; end of place p_lost_halls_2 3261 3262 5) 3263 ) ;; end neighbors of p_lost_halls_1 3264 (list ;; objects in p_lost_halls_1 3265 (list 3266 (bind 3267 (kern-mk-obj t_spawn_pt 1 3268 ;; hooks 3269 (list 3270 ) 3271 ) 3272 (list 3273 'spawn-pt 3274 'giant-spider 3275 ) 3276 ) ;; bind 3277 9 18) 3278 (list 3279 (bind 3280 (kern-mk-obj t_spawn_pt 1 3281 ;; hooks 3282 (list 3283 ) 3284 ) 3285 (list 3286 'spawn-pt 3287 'troll 3288 ) 3289 ) ;; bind 3290 7 8) 3291 (list 3292 (bind 3293 (kern-mk-obj t_spawn_pt 1 3294 ;; hooks 3295 (list 3296 ) 3297 ) 3298 (list 3299 'spawn-pt 3300 'cave-goblin-slinger 3301 ) 3302 ) ;; bind 3303 18 8) 3304 (list 3305 (bind 3306 (kern-mk-obj t_spawn_pt 1 3307 ;; hooks 3308 (list 3309 ) 3310 ) 3311 (list 3312 'spawn-pt 3313 'green-slime 3314 ) 3315 ) ;; bind 3316 2 2) 3317 (list 3318 (bind 3319 (kern-mk-obj t_ladder_up 1 3320 ;; hooks 3321 (list 3322 ) 3323 ) 3324 (list 3325 'p_shard 3326 39 3327 75 3328 ) 3329 ) ;; bind 3330 2 2) 3331 (list 3332 (bind 3333 (kern-mk-obj t_corpse 1 3334 ;; hooks 3335 (list 3336 ) 3337 ) 3338 (list 3339 (list 3340 (list 3341 4 3342 't_arrow 3343 ) 3344 ) 3345 ) 3346 ) ;; bind 3347 5 17) 3348 (list 3349 (bind 3350 (kern-mk-obj t_monman 1 3351 ;; hooks 3352 (list 3353 ) 3354 ) 3355 (list 3356 'monman 3357 (list 3358 0 3359 0 3360 0 3361 -1 3362 6 3363 -1 3364 ) 3365 ) 3366 ) ;; bind 3367 0 0) 3368 (list 3369 (bind 3370 (kern-mk-obj t_corpse 1 3371 ;; hooks 3372 (list 3373 ) 3374 ) 3375 (list 3376 (list 3377 (list 3378 5 3379 't_gold_coins 3380 ) 3381 ) 3382 ) 3383 ) ;; bind 3384 9 10) 3385 ) ;; end of objects in p_lost_halls_1 3386 (list ;; on-entry-hooks 3387 'on-entry-to-dungeon-room 3388 ) 3389 (list ;; edge entrances 3390 (list 0 18 18) ;; Northwest 3391 (list 1 9 18) ;; North 3392 (list 2 0 18) ;; Northeast 3393 (list 3 18 9) ;; West 3394 (list 4 9 9) ;; Here 3395 (list 5 0 9) ;; East 3396 (list 6 18 0) ;; Southwest 3397 (list 7 9 0) ;; South 3398 (list 8 0 0) ;; SoutheastUp 3399 ) 3400 ) ;; end of place p_lost_halls_1 3401 3402 1) 3403 (list 3404 p_lost_halls_5 3405 5) 3406 ) ;; end neighbors of p_lost_halls_4 3407 (list ;; objects in p_lost_halls_4 3408 (list 3409 (bind 3410 (kern-mk-obj t_spawn_pt 1 3411 ;; hooks 3412 (list 3413 ) 3414 ) 3415 (list 3416 'spawn-pt 3417 'giant-spider 3418 ) 3419 ) ;; bind 3420 5 4) 3421 (list 3422 (bind 3423 (kern-mk-obj t_spawn_pt 1 3424 ;; hooks 3425 (list 3426 ) 3427 ) 3428 (list 3429 'spawn-pt 3430 'giant-spider 3431 ) 3432 ) ;; bind 3433 5 13) 3434 (list 3435 (bind 3436 (kern-mk-obj t_spawn_pt 1 3437 ;; hooks 3438 (list 3439 ) 3440 ) 3441 (list 3442 'spawn-pt 3443 'troll 3444 ) 3445 ) ;; bind 3446 9 0) 3447 (list 3448 (bind 3449 (kern-mk-obj t_corpse 1 3450 ;; hooks 3451 (list 3452 ) 3453 ) 3454 (list 3455 (list 3456 (list 3457 1 3458 't_food 3459 ) 3460 (list 3461 5 3462 't_bolt 3463 ) 3464 ) 3465 ) 3466 ) ;; bind 3467 7 3) 3468 (list 3469 (bind 3470 (kern-mk-obj t_corpse 1 3471 ;; hooks 3472 (list 3473 ) 3474 ) 3475 (list 3476 (list 3477 (list 3478 1 3479 't_food 3480 ) 3481 (list 3482 1 3483 't_arrow 3484 ) 3485 ) 3486 ) 3487 ) ;; bind 3488 7 5) 3489 (list 3490 (bind 3491 (kern-mk-obj t_corpse 1 3492 ;; hooks 3493 (list 3494 ) 3495 ) 3496 (list 3497 (list 3498 (list 3499 3 3500 't_bolt 3501 ) 3502 (list 3503 1 3504 't_gem 3505 ) 3506 ) 3507 ) 3508 ) ;; bind 3509 8 12) 3510 (list 3511 (bind 3512 (kern-mk-obj t_corpse 1 3513 ;; hooks 3514 (list 3515 ) 3516 ) 3517 (list 3518 (list 3519 (list 3520 1 3521 't_torch 3522 ) 3523 (list 3524 1 3525 't_food 3526 ) 3527 ) 3528 ) 3529 ) ;; bind 3530 5 13) 3531 (list 3532 (bind 3533 (kern-mk-obj t_corpse 1 3534 ;; hooks 3535 (list 3536 ) 3537 ) 3538 (list 3539 (list 3540 (list 3541 1 3542 't_bolt 3543 ) 3544 ) 3545 ) 3546 ) ;; bind 3547 4 11) 3548 (list 3549 (bind 3550 (kern-mk-obj t_monman 1 3551 ;; hooks 3552 (list 3553 ) 3554 ) 3555 (list 3556 'monman 3557 (list 3558 0 3559 0 3560 0 3561 -1 3562 6 3563 -1 3564 ) 3565 ) 3566 ) ;; bind 3567 0 0) 3568 ) ;; end of objects in p_lost_halls_4 3569 (list ;; on-entry-hooks 3570 'on-entry-to-dungeon-room 3571 ) 3572 (list ;; edge entrances 3573 (list 0 18 18) ;; Northwest 3574 (list 1 9 18) ;; North 3575 (list 2 0 18) ;; Northeast 3576 (list 3 18 9) ;; West 3577 (list 4 9 9) ;; Here 3578 (list 5 0 9) ;; East 3579 (list 6 18 0) ;; Southwest 3580 (list 7 9 0) ;; South 3581 (list 8 0 0) ;; SoutheastUp 3582 ) 3583) ;; end of place p_lost_halls_4 3584 3585p_lost_halls_1 3586p_lost_halls_6 3587p_lost_halls_3 3588p_lost_halls_2 3589p_lost_halls_5 3590(kern-load "zane.scm") 3591 3592(kern-load "enchanter.scm") 3593 3594(kern-mk-place 'p_enchanters_tower "Enchanters Tower" 3595 s_keep ;; sprite 3596 (kern-mk-map 3597 nil 31 31 pal_expanded 3598 (list 3599 "tt tt bb te bb || || tt %a %% %% %% %% %c .. .. .. %a %% %% %% %% %% %% %% %% %% %% %% %% %% " 3600 "bb te .. t% tb tt || || tt t5 %% %% %% bb .. .. .. bb .. bb .. bb .. bb .. bb .. bb .. %a %% " 3601 "td t# .. .. .. .. bb || || tt %% %% %% .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. %% " 3602 "bb .. .. .. .. .. .. ta || || %a %% %% bb .. .. .. bb .. bb .. bb .. bb .. bb .. .. .. bb %% " 3603 "|| .. .. .. .. .. .. .. bb || t5 %% %% %d .. .. .. %b %% %% %% %% %% %% %% %% %5 .. .. .. %% " 3604 "|| bb .. .. .. .. .. .. .. || || %a %c xx w+ cc w+ xx %e tb tt tt tt tt t5 %a %% bb .. bb %% " 3605 "|| || .. .. .. .. && .. .. ta || xx xx xx ,, cc ,, xx xx xx || || || tt tt t5 %% .. .. .. %% " 3606 "tc bb .. .. bb .. .. .. .. xx w+ xx && xx ,, cc ,, xx && xx xx xx || || || tt %% bb .. bb %% " 3607 "%5 .. .. || || tA .. .. xx xx ,, ,, ,, xx x! cc x! xx ,, ,, xx xx ?? xx || tt %% .. .. .. %% " 3608 "%% bb .. bb || t5 tA xx xx ,, ,, ,, ,, xx ,, cc ,, ,, ,, ,, xx ,, ,, xx || tt %% bb .. bb %% " 3609 "%% .. .. || || tt td xx ,, ,, 00 ,, ,, xx ,, cc ,, xx xx xx xx xx xx xx || tc %% .. .. .. %% " 3610 "%% bb .. bb || || xx xx ,, ,, 00 ,, ,, xx ,, cc ,, xx ,, ,, ,, ,, ,, xx xx %3 %% bb .. bb %% " 3611 "%% .. .. %f ta || xx ,, ,, ,, ,, ,, ,, ,, ,, cc ,, ,, ,, ,, ,, ,, ,, && xx %a %% .. .. .. %% " 3612 "%c bb .. bb %f xx xx xx xx xx xx xx xx xx ,, cc ,, xx xx xx xx xx xx xx xx xx %e bb .. bb %a " 3613 ".. .. .. .. .. w+ ,, ,, ,, ,, xx ,, ,, x! ,, cc ,, x! ,, ,, xx ,, ,, ,, ,, w+ .. .. .. .. .. " 3614 ".. .. .. .. .. cc cc cc cc ,, xx ,, ,, ,, ,, cc ,, xx ,, ,, xx ,, cc cc cc cc .. .. .. .. .. " 3615 ".. .. .. .. .. w+ ,, ,, cc ,, xx ,, ,, xx ,, cc ,, xx ,, ,, xx ,, cc ,, ,, w+ .. .. .. .. .. " 3616 "%5 bb .. bb %7 xx xx x! cc x! xx xx xx xx ,, cc ,, xx xx xx xx x! cc x! xx xx %7 bb .. bb %3 " 3617 "%% %% %% %% %% %5 w+ ,, cc ,, ,, ,, ,, ,, ,, cc ,, ,, ,, ,, ,, ,, cc ,, w+ t7 %a %% %% %% %% " 3618 "%% %c .. %a %% %% xx xx cc ,, pp ,, ,, pp ,, cc ,, pp ,, ,, pp ,, cc xx xx tt tt tt tt tt tt " 3619 "%% .. .. .. %% %% %5 w+ cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx t3 || || || || || tt " 3620 "%% %5 .. %3 %% %% %% xx xx cc cc cc cc cc cc cc cc cc cc cc cc cc xx xx || || bb te bb || || " 3621 "%% %% %% %% %% %% %% %5 xx xx x! ,, ,, pp ,, cc ,, pp ,, ,, x! xx xx || || tt td t& tb tt || " 3622 "%% %c t3 tt tt t5 tA %a %5 xx xx xx ,, ,, ,, cc ,, ,, ,, xx xx xx tb || || bb .. .. .. bb || " 3623 "%c t3 tL ~3 ~5 tJ t5 tA %a %% %5 xx w+ xx xx cc xx xx w+ xx %3 %% ~5 ta || td .. ++ .. tb || " 3624 "tt tL ~3 -- -- ~5 tJ t5 .. %% %% %% %5 xx ,, cc ,, xx %3 %% %% ~b ~~ -d || bb .. .. .. bb || " 3625 "tt ~3 -- __ __ -- ~5 tt .. %% %% %% %% xx ,, cc ,, xx %a %% %% %% ~c %% || || td .. tb || || " 3626 "tt ~a -- __ __ -- ~c tt .. %% %% %% %% xx w+ cc w+ xx .. bb .. bb %% %c || || bb .. bb || || " 3627 "tt tH ~a -- -- ~c tG tc .. %e .. %a %% .. .. .. .. .. .. .. .. .. == .. tt tc tA .. t3 || || " 3628 "%5 ta tH ~a ~c tG tc t# %7 .. .. .. %% bb .. .. .. bb .. bb .. bb %% %5 || bb t7 bb || || || " 3629 "%% %5 tt tt tt tt t# %3 %% %5 .. %3 %% %5 .. .. .. %3 %% %% %% %% %% %% || || || || || || || " 3630 ) 3631 ) 3632 #f #f #f #f 3633 ;; subplaces 3634 nil 3635 nil ;; neighbors 3636 (list ;; objects in p_enchanters_tower 3637 (list 3638 (kern-mk-obj t_doom_staff 1 3639 ;; hooks 3640 (list 3641 ) 3642 ) 3643 19 14) 3644 (list 3645 (kern-mk-obj t_xen_corp_scroll 1 3646 ;; hooks 3647 (list 3648 ) 3649 ) 3650 19 15) 3651 (list 3652 (kern-mk-obj t_an_tym_scroll 1 3653 ;; hooks 3654 (list 3655 ) 3656 ) 3657 19 16) 3658 (list 3659 (kern-mk-obj t_vas_rel_por_scroll 1 3660 ;; hooks 3661 (list 3662 ) 3663 ) 3664 18 14) 3665 (list 3666 (kern-mk-obj t_in_vas_por_ylem_scroll 1 3667 ;; hooks 3668 (list 3669 ) 3670 ) 3671 18 15) 3672 (list 3673 (kern-mk-obj t_gold_coins 500 3674 ;; hooks 3675 (list 3676 ) 3677 ) 3678 18 16) 3679 (list 3680 (kern-mk-obj t_bed 1 3681 ;; hooks 3682 (list 3683 ) 3684 ) 3685 21 11) 3686 (list 3687 (kern-mk-obj t_bed 1 3688 ;; hooks 3689 (list 3690 ) 3691 ) 3692 19 8) 3693 (list 3694 (bind 3695 (kern-mk-obj t_door 1 3696 ;; hooks 3697 (list 3698 ) 3699 ) 3700 (list 3701 #f 3702 0 3703 '() 3704 #f 3705 #f 3706 #f 3707 (list 3708 (list 3709 's_closed_solid_wood_door_in_stone 3710 #t 3711 5 3712 ) 3713 (list 3714 's_open_door_in_stone 3715 #f 3716 0 3717 ) 3718 (list 3719 's_locked_solid_wood_door_in_stone 3720 #t 3721 5 3722 ) 3723 (list 3724 's_magically_locked_solid_wood_door_in_stone 3725 #t 3726 5 3727 ) 3728 ) 3729 ) 3730 ) ;; bind 3731 15 8) 3732 (list 3733 (bind 3734 (kern-mk-obj t_door 1 3735 ;; hooks 3736 (list 3737 ) 3738 ) 3739 (list 3740 #f 3741 0 3742 '() 3743 #f 3744 #f 3745 #f 3746 (list 3747 (list 3748 's_closed_solid_wood_door_in_stone 3749 #t 3750 5 3751 ) 3752 (list 3753 's_open_door_in_stone 3754 #f 3755 0 3756 ) 3757 (list 3758 's_locked_solid_wood_door_in_stone 3759 #t 3760 5 3761 ) 3762 (list 3763 's_magically_locked_solid_wood_door_in_stone 3764 #t 3765 5 3766 ) 3767 ) 3768 ) 3769 ) ;; bind 3770 15 24) 3771 (list 3772 (bind 3773 (kern-mk-obj t_door 1 3774 ;; hooks 3775 (list 3776 ) 3777 ) 3778 (list 3779 #f 3780 0 3781 '() 3782 #f 3783 #f 3784 #f 3785 (list 3786 (list 3787 's_closed_solid_wood_door_in_stone 3788 #t 3789 5 3790 ) 3791 (list 3792 's_open_door_in_stone 3793 #f 3794 0 3795 ) 3796 (list 3797 's_locked_solid_wood_door_in_stone 3798 #t 3799 5 3800 ) 3801 (list 3802 's_magically_locked_solid_wood_door_in_stone 3803 #t 3804 5 3805 ) 3806 ) 3807 ) 3808 ) ;; bind 3809 22 17) 3810 (list 3811 (bind 3812 (kern-mk-obj t_door 1 3813 ;; hooks 3814 (list 3815 ) 3816 ) 3817 (list 3818 #f 3819 0 3820 '() 3821 #f 3822 #f 3823 #f 3824 (list 3825 (list 3826 's_closed_solid_wood_door_in_stone 3827 #t 3828 5 3829 ) 3830 (list 3831 's_open_door_in_stone 3832 #f 3833 0 3834 ) 3835 (list 3836 's_locked_solid_wood_door_in_stone 3837 #t 3838 5 3839 ) 3840 (list 3841 's_magically_locked_solid_wood_door_in_stone 3842 #t 3843 5 3844 ) 3845 ) 3846 ) 3847 ) ;; bind 3848 8 17) 3849 (list 3850 (bind 3851 (kern-mk-obj t_door 1 3852 ;; hooks 3853 (list 3854 ) 3855 ) 3856 (list 3857 #f 3858 0 3859 '() 3860 #f 3861 #f 3862 #f 3863 (list 3864 (list 3865 's_closed_solid_wood_door_in_stone 3866 #t 3867 5 3868 ) 3869 (list 3870 's_open_door_in_stone 3871 #f 3872 0 3873 ) 3874 (list 3875 's_locked_solid_wood_door_in_stone 3876 #t 3877 5 3878 ) 3879 (list 3880 's_magically_locked_solid_wood_door_in_stone 3881 #t 3882 5 3883 ) 3884 ) 3885 ) 3886 ) ;; bind 3887 13 12) 3888 (list 3889 (bind 3890 (kern-mk-obj t_door 1 3891 ;; hooks 3892 (list 3893 ) 3894 ) 3895 (list 3896 #f 3897 0 3898 '() 3899 #f 3900 #f 3901 #f 3902 (list 3903 (list 3904 's_closed_solid_wood_door_in_stone 3905 #t 3906 5 3907 ) 3908 (list 3909 's_open_door_in_stone 3910 #f 3911 0 3912 ) 3913 (list 3914 's_locked_solid_wood_door_in_stone 3915 #t 3916 5 3917 ) 3918 (list 3919 's_magically_locked_solid_wood_door_in_stone 3920 #t 3921 5 3922 ) 3923 ) 3924 ) 3925 ) ;; bind 3926 17 9) 3927 (list 3928 (bind 3929 (kern-mk-obj t_door 1 3930 ;; hooks 3931 (list 3932 ) 3933 ) 3934 (list 3935 #f 3936 0 3937 '() 3938 #f 3939 #f 3940 #f 3941 (list 3942 (list 3943 's_closed_solid_wood_door_in_stone 3944 #t 3945 5 3946 ) 3947 (list 3948 's_open_door_in_stone 3949 #f 3950 0 3951 ) 3952 (list 3953 's_locked_solid_wood_door_in_stone 3954 #t 3955 5 3956 ) 3957 (list 3958 's_magically_locked_solid_wood_door_in_stone 3959 #t 3960 5 3961 ) 3962 ) 3963 ) 3964 ) ;; bind 3965 17 12) 3966 (list 3967 (bind 3968 (kern-mk-char 3969 'ch_enchanter 3970 "Enchanter" 3971 sp_human 3972 oc_wizard 3973 s_companion_wizard 3974 2 3975 0 5 0 3976 10 2 3977 20 5 3978 18 0 3979 10 8 3980 #f ;; dead? 3981 'enchanter-conv 3982 sch_enchanter 3983 nil 3984 (kern-mk-container 3985 t_chest 3986 ;; trap 3987 'burn 3988 ;; contents 3989 (list 3990 (list 10 t_food) 3991 (list 100 t_arrow) 3992 (list 1 t_dagger) 3993 (list 1 t_sword) 3994 (list 5 t_torch) 3995 (list 5 t_cure_potion) 3996 (list 5 t_heal_potion) 3997 ) 3998 ;; hooks 3999 (list 4000 ) 4001 ) 4002 (list 4003 t_leather_helm 4004 t_bow 4005 t_armor_leather 4006 ) 4007 ;; hooks 4008 (list 4009 ) 4010 ) 4011 (list 4012 #f 4013 (list 4014 #f 4015 #f 4016 #f 4017 ) 4018 (list 4019 #f 4020 #f 4021 #f 4022 ) 4023 (list 4024 #f 4025 #f 4026 #f 4027 ) 4028 (list 4029 #f 4030 #f 4031 #f 4032 ) 4033 ) 4034 ) ;; bind 4035 18 11) 4036 (list 4037 (bind 4038 (kern-mk-char 4039 'ch_zane 4040 "Zane" 4041 sp_human 4042 oc_ranger 4043 s_companion_ranger 4044 2 4045 1 0 1 4046 1 1 4047 0 0 4048 18 0 4049 10 8 4050 #f ;; dead? 4051 'zane-conv 4052 sch_zane 4053 nil 4054 (kern-mk-container 4055 t_chest 4056 ;; trap 4057 'burn 4058 ;; contents 4059 (list 4060 (list 10 t_food) 4061 (list 100 t_arrow) 4062 (list 1 t_dagger) 4063 (list 1 t_sword) 4064 (list 5 t_torch) 4065 (list 5 t_cure_potion) 4066 (list 5 t_heal_potion) 4067 ) 4068 ;; hooks 4069 (list 4070 ) 4071 ) 4072 (list 4073 t_leather_helm 4074 t_bow 4075 t_armor_leather 4076 ) 4077 ;; hooks 4078 (list 4079 ) 4080 ) 4081 '() 4082 ) ;; bind 4083 4 4) 4084 (list 4085 (bind 4086 (kern-mk-obj t_door 1 4087 ;; hooks 4088 (list 4089 ) 4090 ) 4091 (list 4092 #f 4093 0 4094 '() 4095 #f 4096 #f 4097 #t 4098 (list 4099 (list 4100 's_closed_solid_wood_door_in_stone 4101 #t 4102 5 4103 ) 4104 (list 4105 's_open_door_in_stone 4106 #f 4107 0 4108 ) 4109 (list 4110 's_locked_solid_wood_door_in_stone 4111 #t 4112 5 4113 ) 4114 (list 4115 's_magically_locked_solid_wood_door_in_stone 4116 #t 4117 5 4118 ) 4119 ) 4120 ) 4121 ) ;; bind 4122 5 15) 4123 (list 4124 (bind 4125 (kern-mk-obj t_door 1 4126 ;; hooks 4127 (list 4128 ) 4129 ) 4130 (list 4131 #f 4132 0 4133 '() 4134 #f 4135 #f 4136 #t 4137 (list 4138 (list 4139 's_closed_solid_wood_door_in_stone 4140 #t 4141 5 4142 ) 4143 (list 4144 's_open_door_in_stone 4145 #f 4146 0 4147 ) 4148 (list 4149 's_locked_solid_wood_door_in_stone 4150 #t 4151 5 4152 ) 4153 (list 4154 's_magically_locked_solid_wood_door_in_stone 4155 #t 4156 5 4157 ) 4158 ) 4159 ) 4160 ) ;; bind 4161 25 15) 4162 (list 4163 (bind 4164 (kern-mk-obj t_door 1 4165 ;; hooks 4166 (list 4167 ) 4168 ) 4169 (list 4170 #f 4171 0 4172 '() 4173 #f 4174 #f 4175 #t 4176 (list 4177 (list 4178 's_closed_solid_wood_door_in_stone 4179 #t 4180 5 4181 ) 4182 (list 4183 's_open_door_in_stone 4184 #f 4185 0 4186 ) 4187 (list 4188 's_locked_solid_wood_door_in_stone 4189 #t 4190 5 4191 ) 4192 (list 4193 's_magically_locked_solid_wood_door_in_stone 4194 #t 4195 5 4196 ) 4197 ) 4198 ) 4199 ) ;; bind 4200 15 5) 4201 (list 4202 (bind 4203 (kern-mk-obj t_door 1 4204 ;; hooks 4205 (list 4206 ) 4207 ) 4208 (list 4209 #f 4210 0 4211 '() 4212 #f 4213 #f 4214 #t 4215 (list 4216 (list 4217 's_closed_solid_wood_door_in_stone 4218 #t 4219 5 4220 ) 4221 (list 4222 's_open_door_in_stone 4223 #f 4224 0 4225 ) 4226 (list 4227 's_locked_solid_wood_door_in_stone 4228 #t 4229 5 4230 ) 4231 (list 4232 's_magically_locked_solid_wood_door_in_stone 4233 #t 4234 5 4235 ) 4236 ) 4237 ) 4238 ) ;; bind 4239 15 27) 4240 (list 4241 (kern-tag 'enchtwr-port-4 4242 (bind 4243 (kern-mk-obj t_portcullis 1 4244 ;; hooks 4245 (list 4246 ) 4247 ) 4248 (list 4249 #f 4250 '() 4251 #f 4252 '() 4253 ) 4254 ) ;; bind 4255 ) ;; kern-tag 4256 13 15) 4257 (list 4258 (bind 4259 (kern-mk-obj t_lever 1 4260 ;; hooks 4261 (list 4262 ) 4263 ) 4264 (list 4265 #f 4266 'enchtwr-port-4 4267 #f 4268 '() 4269 ) 4270 ) ;; bind 4271 21 9) 4272 (list 4273 (kern-mk-container 4274 t_chest 4275 ;; trap 4276 'burn-trap 4277 ;; contents 4278 (list 4279 (list 10 sulphorous_ash) 4280 (list 10 ginseng) 4281 (list 10 garlic) 4282 (list 10 spider_silk) 4283 (list 10 blood_moss) 4284 (list 10 black_pearl) 4285 (list 10 nightshade) 4286 (list 10 mandrake) 4287 ) 4288 ;; hooks 4289 (list 4290 ) 4291 ) 4292 11 14) 4293 (list 4294 (kern-mk-container 4295 t_chest 4296 ;; trap 4297 'spike-trap 4298 ;; contents 4299 (list 4300 (list 10 t_heal_potion) 4301 (list 10 t_mana_potion) 4302 (list 5 t_cure_potion) 4303 (list 5 t_poison_immunity_potion) 4304 (list 1 t_inv_potion) 4305 ) 4306 ;; hooks 4307 (list 4308 ) 4309 ) 4310 11 15) 4311 (list 4312 (kern-mk-container 4313 t_chest 4314 ;; trap 4315 'lightning-trap 4316 ;; contents 4317 (list 4318 (list 100 t_gold_coins) 4319 ) 4320 ;; hooks 4321 (list 4322 ) 4323 ) 4324 11 16) 4325 ) ;; end of objects in p_enchanters_tower 4326 nil ;; on-entry-hook 4327 (list ;; edge entrances 4328 (list 0 30 30) ;; Northwest 4329 (list 1 15 30) ;; North 4330 (list 2 0 30) ;; Northeast 4331 (list 3 30 15) ;; West 4332 (list 4 15 15) ;; Here 4333 (list 5 0 15) ;; East 4334 (list 6 30 0) ;; Southwest 4335 (list 7 15 0) ;; South 4336 (list 8 0 0) ;; SoutheastUp 4337 ) 4338) ;; end of place p_enchanters_tower 4339 4340(kern-load "shroom.scm") 4341 4342(kern-load "gen.scm") 4343 4344(kern-load "doris.scm") 4345 4346(kern-load "deric.scm") 4347 4348(kern-load "jorn.scm") 4349 4350(kern-load "abe.scm") 4351 4352(kern-load "kama.scm") 4353 4354(kern-load "abigail.scm") 4355 4356(kern-mk-place 'p_green_tower_lower "Beneath Green Tower" 4357 nil ;; sprite 4358 (kern-mk-map 4359 nil 22 38 pal_expanded 4360 (list 4361 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 4362 "rr cc cc rr cc cc cc rr cc cc rr rr x! rr rr rr .. .. .. rr rr rr " 4363 "rr cc cc cc cc cc cc cc cc cc rr rr rr rr rr .. .. .. .. .. rr rr " 4364 "rr cc cc rr cc cc cc rr cc cc rr rr rr rr .. .. .. rr .. .. .. rr " 4365 "rr rr rr rr cc cc cc rr rr rr rr rr rr rr rr .. rr rr rr .. rr rr " 4366 "rr cc cc rr cc cc cc rr cc cc rr rr x! rr .. .. .. rr .. .. .. rr " 4367 "rr cc cc cc cc cc cc cc cc cc rr rr rr rr rr .. rr rr rr .. rr rr " 4368 "rr cc cc rr cc cc cc rr cc cc rr rr rr rr .. .. .. rr .. .. .. rr " 4369 "rr rr rr rr cc cc cc rr rr rr rr rr rr rr rr .. rr rr rr .. rr rr " 4370 "rr cc cc rr cc cc cc rr cc cc rr rr x! rr .. .. .. rr .. .. .. rr " 4371 "rr cc cc cc cc cc cc cc cc cc rr rr rr rr rr .. rr rr rr .. rr rr " 4372 "rr cc cc rr cc cc cc rr cc cc rr rr rr rr .. .. .. rr .. .. .. rr " 4373 "rr rr rr rr cc cc cc rr rr rr rr rr rr rr rr .. rr rr rr .. rr rr " 4374 "rr rr rr rr cc cc cc cc cc cc cc rr rr rr .. .. .. rr .. .. .. rr " 4375 "rr rr rr rr cc cc cc cc cc cc cc cc rr rr rr .. .. .. .. .. rr rr " 4376 "rr rr rr rr rr cc cc cc cc cc cc cc rr .. .. .. .. .. .. .. .. rr " 4377 "rr rr rr rr rr rr rr rr xx x! cc x! xx .. rr ,C ,R ,Y ,P ,T rr rr " 4378 "xx xx xx xx xx xx xx xx xx cc cc cc xx ?? xx xx xx xx xx xx xx rr " 4379 "xx xx ,T ,A ,L ,O ,S xx xx cc cc cc xx cc cc _! x! _! cc cc xx rr " 4380 "xx x! cc cc cc cc cc x! xx cc cc cc xx cc cc -- _! -- cc cc xx rr " 4381 "xx cc cc cc cc cc cc cc xx cc cc cc cc cc cc -- -- -- cc cc xx rr " 4382 "xx cc cc cc aa cc cc cc xx cc cc cc xx cc cc cc cc cc cc cc xx rr " 4383 "xx cc cc cc cc cc cc cc xx cc cc cc xx cc cc cc cc cc cc cc xx rr " 4384 "xx x! cc cc cc cc cc x! xx cc cc cc xx ,C ,I ,S ,T ,E ,R ,N xx rr " 4385 "xx xx xx xx cc xx xx xx x! cc cc cc x! xx xx xx xx xx xx xx xx xx " 4386 "xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx " 4387 "xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx " 4388 "xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx " 4389 "xx xx xx xx cc xx xx xx x! cc cc cc x! xx xx xx cc xx xx xx xx xx " 4390 "xx cc cc cc cc cc cc cc xx cc cc cc xx cc cc cc cc cc cc cc xx rr " 4391 "xx cc cc cc cc cc cc cc xx cc cc cc xx cc cc cc cc cc cc cc ?? rr " 4392 "xx xx cc cc cc x! cc cc xx cc cc cc xx cc cc x! cc cc cc xx xx rr " 4393 "rr xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx rr rr " 4394 "rr xx xx xx cc cc cc cc xx cc cc cc xx cc cc cc cc xx xx xx rr rr " 4395 "rr rr rr xx xx xx cc cc xx cc cc cc xx cc cc xx xx xx rr rr rr rr " 4396 "rr rr rr rr rr xx xx xx xx cc cc cc xx xx xx xx rr rr rr rr rr rr " 4397 "rr rr rr rr rr rr rr rr xx xx xx xx xx rr rr rr rr rr rr rr rr rr " 4398 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 4399 ) 4400 ) 4401 #f #t #f #f 4402 ;; subplaces 4403 nil 4404 (list 4405 (list 4406 (kern-mk-place 'p_green_tower "Green Tower" 4407 s_town ;; sprite 4408 (kern-mk-map 4409 nil 64 64 pal_expanded 4410 (list 4411 "|| || || || || || || || || || || || || || || || || || || || || || || || || || || || || tt bb .. /7 .. bb tt || || || || || || || || || || || || || || || || || || || || || || || || || || || || " 4412 "|| || || || || || || || || || || |C rr rr rr rr rr rr rr || || || || || || || || || || tt td .. /7 .. tb tt || || || || || || || || || || || || || || || || || || || || || || || || || || || || " 4413 "|| || rr rr rr rr rr || || || rr rr rr && cc cc cc cc rr || || || || || || || || || || tt bb .. /7 .. bb tt || || || || || || || || || || || || xx xx xx xx xx xx xx xx xx tt tt || || || || || " 4414 "|| || rr cc cc cc rr || || || rr cc rr cc cc cc cc cc rr || || || || || || || || || tt tt td .. /7 .. tb tt || || || || || || || || || || || |C xx .. .. .. .. .. .. .. xx tt tt tt || || || || " 4415 "|| || rr cc cc cc rr || || || rr cc cc cc cc cc cc cc rr || || || || || || || || || tt tt bb .. /4 /d /d /d /d /d /d /d /d /d /d /d /d /d /1 /d .. .. .. .. .. .. .. .. ws tt tt tt || || || || " 4416 "|| || rr cc cc cc rr || || || rr cc rr cc cc cc rr rr rr || || || || || || || || tt tt tt td .. /7 .. bb t3 || || || || || || || || || |% /7 tf sR @@ @@ @@ @@ @@ @@ @@ xx tt tt tt || || || || " 4417 "|| || rr rr cc rr rr || || || rr cc rr cc cc cc cc cc rr || || || || || || || || tt tt tt bb .. /7 .. t3 tt || || || || || || || || || || /7 .. .. .. .. .. .. .. .. .. xx tt tt || || || || || " 4418 "|| || || |% /7 |B || || || || |D /7 rr rr rr rr rr rr rr || || || || || || || tt tt tt tt td .. /7 .. ta tt || || || || || || || || || || /7 t7 xx .S .H .R .O .O .M .S xx || || || || || || || " 4419 "|| || || || /8 /d /d /d /1 /d /d /a |# || || || || || || || || || || || || || tt tt tt tt bb .. /7 .. bb tt || || || || || || || || || tt /7 tt xx xx xx xx xx xx xx xx xx || || || || || || || " 4420 "|| || || || || || || |% /7 |# || || || || || || || || || || || || || || || tt tt tt tt tt td .. /7 .. tb tt || || || || || || || || tt tt /7 te xx .. .. .. xx .. .. .. xx || || || || || || || " 4421 "|| || |C rr rr rr |A || /7 |A || || || || || || || || || || || || || || || tt tt tt tt tt bb .. /7 .. bb tt || || || || || || || || tt tt /8 /d .. .. .. .. ?? .. .. .. ?? tt tt tt tt tt tt tt " 4422 "|| rr rr rr cc rr rr |E /4 /d /d /d /d /d /d /d /d /d /d /2 || || || || tt tt tt tt tt tt td .. /7 .. tb tt || || || || tt tt tt tt tt tt tt t5 xx .. .. tf xx .. .. .. xx || || || || || || || " 4423 "|| rr cc cc cc cc rr rr /7 |# || || || || || || || || |% /7 || || || || tt tt tt tt tt tt bb .. /7 .. bb tt || || || || tt t& ta tt tt || || || xx xx ws xx xx xx .. xx xx || || || || || || || " 4424 "|| rr cc cc cc cc cc cc /a || || || || || || || || tt || /7 || || || tt tt tt tt tt tt tt td .. /7 .. tb tt || tt tt tt tt tA tD tt || || || || || || || || || || || || || || || || || || || || " 4425 "|| rr rr cc cc cc rr rr |# || || || || tt || || tt tt tt /7 || || || tt tt tt tt tt tt tt bb .. /7 .. bb tt || tt || || tt tt tt tt || || || || || || || || || || || || || || || || || || || || " 4426 "|| |% rr rr && rr rr |# tt || || || tt tc bb || || tt || /7 || tt tt tt tt tt tt tt tt tt td .. /7 .. tb tt || tt || || || || || || || || || || || || || || || || || || || || || || || || || || " 4427 "|| || |% rr rr rr |# tt tt tt || tt tc t& tb || || tt bb /7 bb .. bb te bb te bb te bb te t# .. /7 .. t% te bb te bb ta tc bb te bb te bb ta tt || || || || || || || || || || || || || || || || " 4428 "|| || || tt || || || || tt || tt tt tB .. tD tt || tc .. /7 .. .. .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. .. .. .. .. .. .. .. bb tt || || || || || || || || || || || || || || || " 4429 "|| || tt tt tt || || || || || || tt t5 tE t3 || || bb .. /4 /d /d /d /d /d /d /d /d /d /d /d /d /5 /d /d /d /d /d /d /d /d /d /d /d /d /2 .. || tt || || || || || || || || || || || || || || || " 4430 "|| || || tt || || || || || tt tt tt tt tt tt || || td .. /7 .. .. .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. .. .. .. .. .. /7 .. ta tt || || || || || || || || || || || || || || || " 4431 "|| || || || || || || tt tt tt tt tt tt tt || || || bb .. /7 .. .. .. bb t7 bb t7 bb t7 .. .. .. /7 .. .. .. bb t3 t5 bb t7 bb tf tA .. /7 .. bb tt || || || || || || || || || || || || || || || " 4432 "|| || || || || || tt tt tc t& ta tt tt || || || || td .. /7 .. .. t3 tt tt tt tt tt tt bb .. .. /7 .. .. bb t3 tt tt tt tt t5 bb t7 .. /7 .. tb tt || || || || || || || || || || || || || || || " 4433 "|| || || || || bb tt tc t# .. t% ta tt tt || || || bb .. /7 .. bb tt || || || || || tc xx w+ xx cc xx w+ xx ta || || || || || tt tc .. /7 .. bb tt || || || || || || || || || || || || || || || " 4434 "|| || || || || tt tt tB .. .. .. tD tt tt || || || || .. /7 .. tb tt || || || |C xx w+ xx cc cc cc cc cc xx xx xx |A || || || tt bb .. /7 .. tb tt || || || || || || || || || || || || || || || " 4435 "|| || || || || tt tt t5 tA .. tC t3 tt tt || || || bb .. /7 .. bb tt || |C xx xx xx cc cc cc cc cc cc cc cc cc xx xx xx |A || tt td .. /7 .. bb tt || || || || || || || || || || || || || || || " 4436 "|| || || || || tt tt tt t5 tE t3 tt tt || || || || || .. /7 .. tb tt || xx xx cc cc cc cc cc cc cc cc cc cc cc cc cc xx xx || tt bb .. /7 .. t3 tt || || || || || || || || || || || || || || || " 4437 "|| || tt tt tt tt || tt tt tt tt bb || || tt tt || bb .. /7 .. bb tt |C xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx |A tt td .. /7 .. ta tt || || || || || || || || || || || || || || || " 4438 "|| || tt || || || || || tt tt tt || || || || || || td .. /7 .. tb tt xx xx cc cc cc xx x! xx xx cc xx xx x! xx cc cc cc xx xx tt bb .. /7 .. bb tt || || || || || || || || || || || || || || tt " 4439 "tt tt tt || || || || || || || || || || || || || tt bb .. /7 .. bb te xx cc cc cc xx xx xx || .. cc .. tb || xx xx cc cc cc xx ta td .. /7 .. tb tt || || || || || || || || || || || || || || tt " 4440 "bb ta tt tt tt tt tt tt tt tt tt tt tt tt tt tt tc .. .. /7 .. tf bb xx cc cc cc x! || || || .. cc .. t% ta || x! cc cc cc xx bb .. .. /7 .. bb tt || || || || || || || || || || || || || || tt " 4441 ".. .. bb te bb te bb te bb te bb te bb te bb bb .. .. .. /7 .. .. .. w+ cc cc cc xx te t# bb .. cc .. bb t% te xx cc cc cc w+ .. .. .. /7 .. tb tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt " 4442 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. /7 .. .. .. xx cc cc cc xx .. .. .. .. cc .. .. .. .. xx cc cc cc xx .. .. .. /7 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 4443 "/d /d /d /d /d /d /d /d /d /d /d /d /d /d /d /d /d /d /d /5 /d /d /d cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc /d /d /d /5 /d /d /d /d /d /d /d /d /d /d /d /d /d /d /d /d /d /d " 4444 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. /7 .. .. .. xx cc cc cc xx .. .. .. .. cc .. .. .. .. xx cc cc cc xx .. .. .. /7 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 4445 ".. .. bb t7 bb t7 bb t7 bb t7 bb t7 bb t3 tt t5 bb .. .. /7 .. .. .. w+ cc cc cc xx t7 tA bb .. cc .. bb tC t7 xx cc cc cc w+ .. .. .. /7 .. tb tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt " 4446 "bb t3 tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt t5 .. /7 .. .. bb xx cc cc cc x! || t5 tA .. cc .. tC t3 || x! cc cc cc xx bb .. .. /7 .. bb tt || || || || || || || || || || || tt tt tt tt " 4447 "tt tt || || || || tt tt tt tt tt tt tt tt || || tt tc .. /7 .. .. t7 xx cc cc cc xx xx || td .. cc .. tb || xx xx cc cc cc xx t7 .. .. /7 .. tb tt || || || || || || || || || || || || || || tt " 4448 "tt tt || || || || tt tt tt tt tt tt tt tt || || tt bb .. /7 .. bb tt xx xx cc cc cc xx x! xx xx cc xx xx x! xx cc cc cc xx xx tt bb .. /7 .. bb tt || || || || || || || || || || || || || || || " 4449 "|| || || || || || || tt tt tt tt tt tt tt || || tt td .. /7 .. tb tt |% xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx |# tt td .. /7 .. tb tt || || || || || || || || || || || || || || || " 4450 "|| || || || || || || || tt tt tt tt tt tt || || tt bb .. /7 .. bb tt || xx xx cc cc cc cc cc cc cc cc cc cc cc cc cc xx xx || tt bb .. /7 .. bb tt || || || || || || || || || || || || || || || " 4451 "|| || || || || || || || || || || || || || || || tt td .. /7 .. tb tt || |% xx xx xx cc cc cc cc cc cc cc cc cc xx xx xx |# || tt td .. /7 .. tb tt || || || || || || || || || || || || || || || " 4452 "|| || || || || || || || || || || || || || || || tt bb .. /7 .. bb tt || || || |% xx w+ xx cc cc cc cc cc xx xx xx |# || || || tt bb .. /7 .. bb tt || || || || || || || || || || || || || || || " 4453 "|| || || || || || || || || || || || || || rr rr tt td .. /7 .. tb tt || || || || || t5 xx w+ xx cc xx w+ xx t3 || || || || tt tt td .. /7 .. tb tt || || || || || || || || || || || || || || || " 4454 "|| || || || || || || || || || || || || || || || tt bb .. /7 .. bb tt tt tt tt tt tt tc bb .. .. /7 .. .. bb ta tt tt tt tt tt tt bb .. /7 .. bb tt tt tt tt tt tt tt || || || || || || || || || " 4455 "|| || || || || || || tt tt tt tt || || || || || tt td .. /7 .. .. te bb te bb te bb .. .. .. .. /7 .. .. .. .. bb te bb te bb te .. .. /7 .. .. te bb te bb te bb tt || || || || || || || || || " 4456 "|| || || || || tt rr tt rr rr tt rr rr |A || || tt bb .. /7 .. .. .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. t% tb tt || || || || || || || || || " 4457 "|| || || rr rr tt tt tt || || tt t5 rr rr rr || tt td .. /8 /d /d /d /d /d /d /d /d /d /d /d /d /5 /d /d /d /d /d /d /d /d /d /d /d /d /9 /d /d /d /d /d /2 .. bb tt || || || || || || || || || " 4458 "|| || || rr |# || || tt tt tt || tt tt |% rr || || bb .. .. .. .. .. .. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. /7 .. tb tt || || || || || || || || || " 4459 "|| || || || tt tt tt tc t# t% ta || tt tt || rr rr || || t5 bb t7 bb t7 bb t7 bb t7 bb t7 bb .. /7 .. t7 bb t7 bb t7 bb t7 bb t7 bb t7 bb tf bb tb td bb /4 /2 bb ta || || || || || || || || || " 4460 "|| rr rr || tt tt |C t# .. bb t% tt tt tt tt |% rr rr || tt tt tt tt tt tt tt tt tt tt tt t5 .. /7 .. tt tt tt tt tt tt tt tt tt tt tt xx xx xx xx ws sT cc cc sI ws xx xx xx xx || || || || || " 4461 "|| || || || tt tc t# .. .. .. .. te t& ta tt || |% rr || || || || || || || || || || || || tt .. /7 .. tt || || || || || || || || || || xx cc cc cc cc cc cc cc cc cc cc cc cc xx || || || || || " 4462 "|| tt tt tt tc t# .. .. .. .. .. .. .. t% ta tt || tt tt || || || || || || || || || || || tt .. /7 .. tt || || || || || || || || || || xx cc cc cc cc cc cc cc cc cc cc cc cc xx || || || || || " 4463 "|| tt tt tt t# bb .. .. .. .. .. .. .. bb t% tt tF ta tt tt tt tt tt || || || || || || || tt .. /7 .. tt || || || || || || || || || || xx cc cc 00 cc cc cc cc cc cc 00 cc cc xx || || || || || " 4464 "|| || || tt tA .. .. .. .. aa .. .. .. .. tC tt || rr || || || || tt || || || || || || || tt .. /7 .. tt || || || || || || || || || |C xx cc cc 00 cc cc && && cc cc 00 cc cc xx |A || || || || " 4465 "|| rr || tt tt tt t5 .. .. .. .. .. .. t3 tt || || rr || || || || tt || || || || || || || tt .. /7 .. tt || || || || || || || || xx xx xx cc cc 00 cc cc cc cc cc cc 00 cc cc xx xx xx || || || " 4466 "|| rr |A || || tF tt .. .. .. .. .. .. tt tt || rr || || |C rr rr tt rr rr |A || || || tt tt .. /7 .. tt || || || || || || || || xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx || || || " 4467 "|| rr rr || tt tt tt bb .. .. .. bb .. tt tt |C rr || || rr rr tb tt td rr rr || || || tt tt .. /7 .. tt || || || || || || || || xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx || || || " 4468 "|| |% rr || tt tt tt tt t5 tA .. .. tC tt || rr rr || || rr tf .! .! .! tf rr || || || tt tt .. /7 .. tt || || || || || || || |C xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx |A || || " 4469 "|| || || || || || || || tt tt tt tt tt || tt rr |# || || rr .! .! && .! .! rr || || || tt tt .. /7 .. || || || || || || || || xx xx cc xx xx @@ @@ @@ @@ @@ @@ @@ @@ @@ @@ xx xx cc xx xx || || " 4470 "|| || || rr rr |A || || tt tt tt || tt tt || rr || || || rr tf .! .! .! .! rr || || || tt tt .. /7 .. tt || || || || || || || xx cc cc cc xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc xx || || " 4471 "|| || || |% rr rr || rr rr rr || rr rr rr rr || || || || rr rr .! .! tb t5 rr || || || tt tt .. /7 .. tt || || || || || || || xx cc cc cc xx .W .H .I .T .E @@ .S .T .A .G xx cc cc cc xx || || " 4472 "|| || || || || || || || || || || || || || || || || || || |% rr rr rr rr tt || || || tt tt tt .. /7 .. tt || || || || || || || xx cc cc cc xx xx xx xx xx xx xx xx xx xx xx xx cc cc cc xx || || " 4473 "|| || || || || || || || || || || || || || || || || || || || || || || || || || || || tt tt tc .. /7 .. ta tt || || || || || || xx xx xx xx xx |# || || || || || || || || |% xx xx xx xx xx || || " 4474 "|| || || || || || || || || || || || || || || || || || || || || || || || || || || || tt tt t# .. /7 .. t% tt tt || || || || || || || || || || || || || || || || || || || || || || || || || || || " 4475 ) 4476 ) 4477 #f #f #f #f 4478 ;; subplaces 4479 nil 4480 nil ;; neighbors 4481 (list ;; objects in p_green_tower 4482 (list 4483 (bind 4484 (kern-char-force-drop (kern-mk-char 4485 'ch_jorn 4486 "Jorn" 4487 sp_human 4488 oc_wrogue 4489 s_brigand 4490 2 4491 0 0 0 4492 0 0 4493 0 0 4494 15 0 4495 7 5 4496 #f ;; dead? 4497 'jorn-conv 4498 sch_jorn 4499 'spell-sword-ai 4500 (kern-mk-container 4501 t_chest 4502 ;; trap 4503 nil 4504 ;; contents 4505 (list 4506 (list 1 t_skull_ring) 4507 (list 67 t_gold_coins) 4508 (list 3 t_picklock) 4509 (list 3 t_heal_potion) 4510 ) 4511 ;; hooks 4512 (list 4513 ) 4514 ) 4515 (list 4516 t_leather_helm_2 4517 t_dagger_4 4518 t_sword_2 4519 t_armor_leather_2 4520 ) 4521 ;; hooks 4522 (list 4523 ) 4524 ) 4525 #t) ;; kern-char-force-drop 4526 '() 4527 ) ;; bind 4528 46 50) 4529 (list 4530 (bind 4531 (kern-mk-char 4532 'ch_abe 4533 "Abe" 4534 sp_human 4535 nil 4536 s_companion_wizard 4537 2 4538 0 0 0 4539 0 0 4540 0 0 4541 13 0 4542 5 3 4543 #f ;; dead? 4544 'abe-conv 4545 sch_abe 4546 nil 4547 nil ;; inventory 4548 nil 4549 ;; hooks 4550 (list 4551 ) 4552 ) 4553 (list 4554 #f 4555 ) 4556 ) ;; bind 4557 46 50) 4558 (list 4559 (bind 4560 (kern-mk-obj t_door 1 4561 ;; hooks 4562 (list 4563 ) 4564 ) 4565 (list 4566 #f 4567 0 4568 '() 4569 #f 4570 #t 4571 #f 4572 (list 4573 (list 4574 's_closed_solid_wood_door_in_stone 4575 #t 4576 5 4577 ) 4578 (list 4579 's_open_door_in_stone 4580 #f 4581 0 4582 ) 4583 (list 4584 's_locked_solid_wood_door_in_stone 4585 #t 4586 5 4587 ) 4588 (list 4589 's_magically_locked_solid_wood_door_in_stone 4590 #t 4591 5 4592 ) 4593 ) 4594 ) 4595 ) ;; bind 4596 48 10) 4597 (list 4598 (bind 4599 (kern-mk-obj t_door 1 4600 ;; hooks 4601 (list 4602 ) 4603 ) 4604 (list 4605 #f 4606 0 4607 '() 4608 #f 4609 #f 4610 #f 4611 (list 4612 (list 4613 's_closed_solid_wood_door_in_stone 4614 #t 4615 5 4616 ) 4617 (list 4618 's_open_door_in_stone 4619 #f 4620 0 4621 ) 4622 (list 4623 's_locked_solid_wood_door_in_stone 4624 #t 4625 5 4626 ) 4627 (list 4628 's_magically_locked_solid_wood_door_in_stone 4629 #t 4630 5 4631 ) 4632 ) 4633 ) 4634 ) ;; bind 4635 48 6) 4636 (list 4637 (bind 4638 (kern-mk-obj t_door 1 4639 ;; hooks 4640 (list 4641 ) 4642 ) 4643 (list 4644 #f 4645 0 4646 '() 4647 #f 4648 #f 4649 #f 4650 (list 4651 (list 4652 's_closed_solid_wood_door_in_stone 4653 #t 4654 5 4655 ) 4656 (list 4657 's_open_door_in_stone 4658 #f 4659 0 4660 ) 4661 (list 4662 's_locked_solid_wood_door_in_stone 4663 #t 4664 5 4665 ) 4666 (list 4667 's_magically_locked_solid_wood_door_in_stone 4668 #t 4669 5 4670 ) 4671 ) 4672 ) 4673 ) ;; bind 4674 48 4) 4675 (list 4676 (bind 4677 (kern-mk-obj t_door 1 4678 ;; hooks 4679 (list 4680 ) 4681 ) 4682 (list 4683 #f 4684 0 4685 '() 4686 #f 4687 #f 4688 #t 4689 (list 4690 (list 4691 's_closed_solid_wood_door_in_stone 4692 #t 4693 5 4694 ) 4695 (list 4696 's_open_door_in_stone 4697 #f 4698 0 4699 ) 4700 (list 4701 's_locked_solid_wood_door_in_stone 4702 #t 4703 5 4704 ) 4705 (list 4706 's_magically_locked_solid_wood_door_in_stone 4707 #t 4708 5 4709 ) 4710 ) 4711 ) 4712 ) ;; bind 4713 54 12) 4714 (list 4715 (kern-mk-obj t_bed 1 4716 ;; hooks 4717 (list 4718 ) 4719 ) 4720 51 9) 4721 (list 4722 (kern-mk-container 4723 t_chest 4724 ;; trap 4725 'burn-trap 4726 ;; contents 4727 (list 4728 (list 50 sulphorous_ash) 4729 (list 50 garlic) 4730 (list 50 ginseng) 4731 (list 50 blood_moss) 4732 (list 50 black_pearl) 4733 (list 50 spider_silk) 4734 (list 50 mandrake) 4735 (list 50 nightshade) 4736 ) 4737 ;; hooks 4738 (list 4739 ) 4740 ) 4741 53 9) 4742 (list 4743 (kern-mk-container 4744 t_chest 4745 ;; trap 4746 'poison-trap 4747 ;; contents 4748 (list 4749 (list 10 t_cure_potion) 4750 (list 10 t_heal_potion) 4751 (list 10 t_mana_potion) 4752 (list 10 t_poison_immunity_potion) 4753 (list 1 t_inv_potion) 4754 ) 4755 ;; hooks 4756 (list 4757 ) 4758 ) 4759 54 9) 4760 (list 4761 (kern-mk-container 4762 t_chest 4763 ;; trap 4764 'sleep-trap 4765 ;; contents 4766 (list 4767 (list 1 t_armor_leather) 4768 (list 1 t_sword) 4769 (list 1 t_shield) 4770 (list 1 t_leather_helm) 4771 ) 4772 ;; hooks 4773 (list 4774 ) 4775 ) 4776 55 9) 4777 (list 4778 (bind 4779 (kern-mk-obj t_door 1 4780 ;; hooks 4781 (list 4782 ) 4783 ) 4784 (list 4785 #f 4786 0 4787 '() 4788 #f 4789 #f 4790 #f 4791 (list 4792 (list 4793 's_closed_solid_wood_door_in_stone 4794 #t 4795 5 4796 ) 4797 (list 4798 's_open_door_in_stone 4799 #f 4800 0 4801 ) 4802 (list 4803 's_locked_solid_wood_door_in_stone 4804 #t 4805 5 4806 ) 4807 (list 4808 's_magically_locked_solid_wood_door_in_stone 4809 #t 4810 5 4811 ) 4812 ) 4813 ) 4814 ) ;; bind 4815 7 13) 4816 (list 4817 (kern-mk-obj t_bed 1 4818 ;; hooks 4819 (list 4820 ) 4821 ) 4822 2 13) 4823 (list 4824 (kern-mk-container 4825 t_chest 4826 ;; trap 4827 nil 4828 ;; contents 4829 (list 4830 (list 100 t_arrow) 4831 (list 1 t_bow) 4832 ) 4833 ;; hooks 4834 (list 4835 ) 4836 ) 4837 4 11) 4838 (list 4839 (bind 4840 (kern-mk-obj t_door 1 4841 ;; hooks 4842 (list 4843 ) 4844 ) 4845 (list 4846 #f 4847 0 4848 '() 4849 #f 4850 #f 4851 #f 4852 (list 4853 (list 4854 's_closed_solid_wood_door_in_stone 4855 #t 4856 5 4857 ) 4858 (list 4859 's_open_door_in_stone 4860 #f 4861 0 4862 ) 4863 (list 4864 's_locked_solid_wood_door_in_stone 4865 #t 4866 5 4867 ) 4868 (list 4869 's_magically_locked_solid_wood_door_in_stone 4870 #t 4871 5 4872 ) 4873 ) 4874 ) 4875 ) ;; bind 4876 11 6) 4877 (list 4878 (bind 4879 (kern-mk-obj t_door 1 4880 ;; hooks 4881 (list 4882 ) 4883 ) 4884 (list 4885 #f 4886 0 4887 '() 4888 #f 4889 #f 4890 #f 4891 (list 4892 (list 4893 's_closed_solid_wood_door_in_stone 4894 #t 4895 5 4896 ) 4897 (list 4898 's_open_door_in_stone 4899 #f 4900 0 4901 ) 4902 (list 4903 's_locked_solid_wood_door_in_stone 4904 #t 4905 5 4906 ) 4907 (list 4908 's_magically_locked_solid_wood_door_in_stone 4909 #t 4910 5 4911 ) 4912 ) 4913 ) 4914 ) ;; bind 4915 16 6) 4916 (list 4917 (kern-mk-obj t_bed 1 4918 ;; hooks 4919 (list 4920 ) 4921 ) 4922 17 4) 4923 (list 4924 (kern-mk-container 4925 t_chest 4926 ;; trap 4927 'burn-trap 4928 ;; contents 4929 (list 4930 (list 100 t_bolt) 4931 (list 1 t_crossbow) 4932 (list 1 t_shield) 4933 (list 2 t_cure_potion) 4934 (list 5 t_heal_potion) 4935 ) 4936 ;; hooks 4937 (list 4938 ) 4939 ) 4940 17 6) 4941 (list 4942 (bind 4943 (kern-mk-obj t_door 1 4944 ;; hooks 4945 (list 4946 ) 4947 ) 4948 (list 4949 #f 4950 0 4951 '() 4952 #f 4953 #f 4954 #f 4955 (list 4956 (list 4957 's_closed_solid_wood_door_in_stone 4958 #t 4959 5 4960 ) 4961 (list 4962 's_open_door_in_stone 4963 #f 4964 0 4965 ) 4966 (list 4967 's_locked_solid_wood_door_in_stone 4968 #t 4969 5 4970 ) 4971 (list 4972 's_magically_locked_solid_wood_door_in_stone 4973 #t 4974 5 4975 ) 4976 ) 4977 ) 4978 ) ;; bind 4979 51 49) 4980 (list 4981 (bind 4982 (kern-mk-obj t_door 1 4983 ;; hooks 4984 (list 4985 ) 4986 ) 4987 (list 4988 #f 4989 0 4990 '() 4991 #f 4992 #f 4993 #f 4994 (list 4995 (list 4996 's_closed_solid_wood_door_in_stone 4997 #t 4998 5 4999 ) 5000 (list 5001 's_open_door_in_stone 5002 #f 5003 0 5004 ) 5005 (list 5006 's_locked_solid_wood_door_in_stone 5007 #t 5008 5 5009 ) 5010 (list 5011 's_magically_locked_solid_wood_door_in_stone 5012 #t 5013 5 5014 ) 5015 ) 5016 ) 5017 ) ;; bind 5018 52 49) 5019 (list 5020 (bind 5021 (kern-mk-obj t_door 1 5022 ;; hooks 5023 (list 5024 ) 5025 ) 5026 (list 5027 #f 5028 0 5029 '() 5030 #f 5031 #f 5032 #f 5033 (list 5034 (list 5035 's_closed_solid_wood_door_in_stone 5036 #t 5037 5 5038 ) 5039 (list 5040 's_open_door_in_stone 5041 #f 5042 0 5043 ) 5044 (list 5045 's_locked_solid_wood_door_in_stone 5046 #t 5047 5 5048 ) 5049 (list 5050 's_magically_locked_solid_wood_door_in_stone 5051 #t 5052 5 5053 ) 5054 ) 5055 ) 5056 ) ;; bind 5057 57 59) 5058 (list 5059 (kern-tag 'white-stag-door 5060 (bind 5061 (kern-mk-obj t_door 1 5062 ;; hooks 5063 (list 5064 ) 5065 ) 5066 (list 5067 #f 5068 0 5069 '() 5070 #f 5071 #t 5072 #f 5073 (list 5074 (list 5075 's_closed_solid_wood_door_in_stone 5076 #t 5077 5 5078 ) 5079 (list 5080 's_open_door_in_stone 5081 #f 5082 0 5083 ) 5084 (list 5085 's_locked_solid_wood_door_in_stone 5086 #t 5087 5 5088 ) 5089 (list 5090 's_magically_locked_solid_wood_door_in_stone 5091 #t 5092 5 5093 ) 5094 ) 5095 ) 5096 ) ;; bind 5097 ) ;; kern-tag 5098 44 58) 5099 (list 5100 (kern-mk-obj t_bed 1 5101 ;; hooks 5102 (list 5103 ) 5104 ) 5105 43 61) 5106 (list 5107 (kern-mk-obj t_bed 1 5108 ;; hooks 5109 (list 5110 ) 5111 ) 5112 58 61) 5113 (list 5114 (bind 5115 (kern-mk-obj t_door 1 5116 ;; hooks 5117 (list 5118 ) 5119 ) 5120 (list 5121 #f 5122 0 5123 '() 5124 #f 5125 #t 5126 #f 5127 (list 5128 (list 5129 's_closed_solid_wood_door_in_stone 5130 #t 5131 5 5132 ) 5133 (list 5134 's_open_door_in_stone 5135 #f 5136 0 5137 ) 5138 (list 5139 's_locked_solid_wood_door_in_stone 5140 #t 5141 5 5142 ) 5143 (list 5144 's_magically_locked_solid_wood_door_in_stone 5145 #t 5146 5 5147 ) 5148 ) 5149 ) 5150 ) ;; bind 5151 59 58) 5152 (list 5153 (bind 5154 (kern-mk-obj t_lever 1 5155 ;; hooks 5156 (list 5157 ) 5158 ) 5159 (list 5160 #f 5161 'gtl-portcullis-1 5162 #f 5163 '() 5164 ) 5165 ) ;; bind 5166 29 28) 5167 (list 5168 (bind 5169 (kern-mk-obj t_ladder_down 1 5170 ;; hooks 5171 (list 5172 ) 5173 ) 5174 (list 5175 'p_green_tower_lower 5176 10 5177 26 5178 ) 5179 ) ;; bind 5180 32 32) 5181 (list 5182 (bind 5183 (kern-mk-obj t_door 1 5184 ;; hooks 5185 (list 5186 ) 5187 ) 5188 (list 5189 #f 5190 0 5191 '() 5192 #f 5193 #f 5194 #f 5195 (list 5196 (list 5197 's_closed_solid_wood_door_in_stone 5198 #t 5199 5 5200 ) 5201 (list 5202 's_open_door_in_stone 5203 #f 5204 0 5205 ) 5206 (list 5207 's_locked_solid_wood_door_in_stone 5208 #t 5209 5 5210 ) 5211 (list 5212 's_magically_locked_solid_wood_door_in_stone 5213 #t 5214 5 5215 ) 5216 ) 5217 ) 5218 ) ;; bind 5219 32 22) 5220 (list 5221 (bind 5222 (kern-mk-obj t_door 1 5223 ;; hooks 5224 (list 5225 ) 5226 ) 5227 (list 5228 #f 5229 0 5230 '() 5231 #f 5232 #f 5233 #f 5234 (list 5235 (list 5236 's_closed_solid_wood_door_in_stone 5237 #t 5238 5 5239 ) 5240 (list 5241 's_open_door_in_stone 5242 #f 5243 0 5244 ) 5245 (list 5246 's_locked_solid_wood_door_in_stone 5247 #t 5248 5 5249 ) 5250 (list 5251 's_magically_locked_solid_wood_door_in_stone 5252 #t 5253 5 5254 ) 5255 ) 5256 ) 5257 ) ;; bind 5258 41 32) 5259 (list 5260 (bind 5261 (kern-mk-obj t_door 1 5262 ;; hooks 5263 (list 5264 ) 5265 ) 5266 (list 5267 #f 5268 0 5269 '() 5270 #f 5271 #f 5272 #f 5273 (list 5274 (list 5275 's_closed_solid_wood_door_in_stone 5276 #t 5277 5 5278 ) 5279 (list 5280 's_open_door_in_stone 5281 #f 5282 0 5283 ) 5284 (list 5285 's_locked_solid_wood_door_in_stone 5286 #t 5287 5 5288 ) 5289 (list 5290 's_magically_locked_solid_wood_door_in_stone 5291 #t 5292 5 5293 ) 5294 ) 5295 ) 5296 ) ;; bind 5297 32 42) 5298 (list 5299 (bind 5300 (kern-mk-obj t_door 1 5301 ;; hooks 5302 (list 5303 ) 5304 ) 5305 (list 5306 #f 5307 0 5308 '() 5309 #f 5310 #f 5311 #f 5312 (list 5313 (list 5314 's_closed_solid_wood_door_in_stone 5315 #t 5316 5 5317 ) 5318 (list 5319 's_open_door_in_stone 5320 #f 5321 0 5322 ) 5323 (list 5324 's_locked_solid_wood_door_in_stone 5325 #t 5326 5 5327 ) 5328 (list 5329 's_magically_locked_solid_wood_door_in_stone 5330 #t 5331 5 5332 ) 5333 ) 5334 ) 5335 ) ;; bind 5336 23 32) 5337 (list 5338 (bind 5339 (kern-mk-char 5340 'ch_shroom 5341 "Shroom" 5342 sp_human 5343 nil 5344 s_companion_druid 5345 2 5346 8 14 8 5347 0 0 5348 0 0 5349 13 0 5350 5 3 5351 #f ;; dead? 5352 'shroom-conv 5353 sch_shroom 5354 nil 5355 nil ;; inventory 5356 nil 5357 ;; hooks 5358 (list 5359 ) 5360 ) 5361 (list 5362 #f 5363 #f 5364 ) 5365 ) ;; bind 5366 51 9) 5367 (list 5368 (bind 5369 (kern-mk-char 5370 'ch_gen 5371 "Gen" 5372 sp_human 5373 oc_ranger 5374 s_companion_ranger 5375 2 5376 12 10 12 5377 25 5 5378 0 0 5379 53 812 5380 5 3 5381 #f ;; dead? 5382 'gen-conv 5383 sch_gen 5384 nil 5385 nil ;; inventory 5386 nil 5387 ;; hooks 5388 (list 5389 ) 5390 ) 5391 (list 5392 #f 5393 #f 5394 ) 5395 ) ;; bind 5396 2 13) 5397 (list 5398 (bind 5399 (kern-mk-char 5400 'ch_doris 5401 "Doris" 5402 sp_human 5403 nil 5404 s_townswoman 5405 2 5406 0 0 0 5407 0 0 5408 0 0 5409 11 0 5410 0 1 5411 #f ;; dead? 5412 'doris-conv 5413 sch_doris 5414 nil 5415 nil ;; inventory 5416 nil 5417 ;; hooks 5418 (list 5419 ) 5420 ) 5421 '() 5422 ) ;; bind 5423 47 59) 5424 (list 5425 (bind 5426 (kern-mk-char 5427 'ch_abigail 5428 "Abigail" 5429 sp_forest_goblin 5430 oc_wrogue 5431 s_goblin_child 5432 2 5433 0 0 0 5434 0 0 5435 0 1 5436 9 128 5437 7 1 5438 #f ;; dead? 5439 'abigail-conv 5440 sch_abigail 5441 nil 5442 nil ;; inventory 5443 nil 5444 ;; hooks 5445 (list 5446 ) 5447 ) 5448 '() 5449 ) ;; bind 5450 60 61) 5451 (list 5452 (bind 5453 (kern-mk-char 5454 'ch_kalc 5455 "Kalcifax" 5456 sp_human 5457 oc_wizard 5458 s_companion_wizard 5459 2 5460 0 5 0 5461 12 2 5462 1 1 5463 40 4096 5464 15 6 5465 #f ;; dead? 5466 'kalc-conv 5467 sch_kalc 5468 nil 5469 nil ;; inventory 5470 (list 5471 t_staff 5472 ) 5473 ;; hooks 5474 (list 5475 ) 5476 ) 5477 '() 5478 ) ;; bind 5479 46 50) 5480 (list 5481 (bind 5482 (kern-mk-char 5483 'ch_deric 5484 "Deric" 5485 sp_human 5486 nil 5487 s_companion_ranger 5488 2 5489 0 0 0 5490 0 0 5491 0 0 5492 3 0 5493 6 4 5494 #f ;; dead? 5495 'deric-conv 5496 sch_deric 5497 nil 5498 nil ;; inventory 5499 nil 5500 ;; hooks 5501 (list 5502 ) 5503 ) 5504 (list 5505 #f 5506 ) 5507 ) ;; bind 5508 13 2) 5509 ) ;; end of objects in p_green_tower 5510 (list ;; on-entry-hooks 5511 'lock-inn-room-doors 5512 ) 5513 (list ;; edge entrances 5514 (list 0 63 63) ;; Northwest 5515 (list 1 32 63) ;; North 5516 (list 2 0 63) ;; Northeast 5517 (list 3 63 32) ;; West 5518 (list 4 32 32) ;; Here 5519 (list 5 0 32) ;; East 5520 (list 6 63 0) ;; Southwest 5521 (list 7 32 0) ;; South 5522 (list 8 0 0) ;; SoutheastUp 5523 ) 5524 ) ;; end of place p_green_tower 5525 5526 9) 5527 ) ;; end neighbors of p_green_tower_lower 5528 (list ;; objects in p_green_tower_lower 5529 (list 5530 (bind 5531 (kern-mk-char 5532 'ch_amy 5533 "Amy" 5534 sp_human 5535 oc_wright 5536 s_companion_tinker 5537 1 5538 2 4 4 5539 25 5 5540 1 1 5541 17 55 5542 5 1 5543 #f ;; dead? 5544 'amy-conv 5545 nil 5546 nil 5547 nil ;; inventory 5548 (list 5549 t_leather_helm 5550 t_sling 5551 t_sword 5552 t_armor_leather 5553 ) 5554 ;; hooks 5555 (list 5556 ) 5557 ) 5558 '() 5559 ) ;; bind 5560 11 25) 5561 (list 5562 (bind 5563 (kern-mk-char 5564 'ch_kama 5565 "Kama" 5566 sp_forest_goblin 5567 oc_wrogue 5568 s_fgob_civilian 5569 2 5570 2 0 10 5571 25 5 5572 0 0 5573 57 1024 5574 12 4 5575 #f ;; dead? 5576 'kama-conv 5577 sch_kama 5578 nil 5579 nil ;; inventory 5580 nil 5581 ;; hooks 5582 (list 5583 ) 5584 ) 5585 (list 5586 #f 5587 #f 5588 ) 5589 ) ;; bind 5590 8 1) 5591 (list 5592 (bind 5593 (kern-mk-obj t_ladder_down 1 5594 ;; hooks 5595 (list 5596 ) 5597 ) 5598 (list 5599 'p_crypt 5600 9 5601 3 5602 ) 5603 ) ;; bind 5604 17 1) 5605 (list 5606 (bind 5607 (kern-mk-obj t_corpse 1 5608 ;; hooks 5609 (list 5610 ) 5611 ) 5612 (list 5613 (list 5614 (list 5615 3 5616 't_arrow 5617 ) 5618 (list 5619 1 5620 't_food 5621 ) 5622 ) 5623 ) 5624 ) ;; bind 5625 14 3) 5626 (list 5627 (bind 5628 (kern-mk-obj t_corpse 1 5629 ;; hooks 5630 (list 5631 ) 5632 ) 5633 (list 5634 (list 5635 (list 5636 1 5637 't_food 5638 ) 5639 ) 5640 ) 5641 ) ;; bind 5642 14 5) 5643 (list 5644 (bind 5645 (kern-mk-obj t_corpse 1 5646 ;; hooks 5647 (list 5648 ) 5649 ) 5650 (list 5651 (list 5652 (list 5653 4 5654 't_gold_coins 5655 ) 5656 (list 5657 1 5658 't_gold_coins 5659 ) 5660 (list 5661 2 5662 't_arrow 5663 ) 5664 ) 5665 ) 5666 ) ;; bind 5667 14 11) 5668 (list 5669 (bind 5670 (kern-mk-obj t_corpse 1 5671 ;; hooks 5672 (list 5673 ) 5674 ) 5675 (list 5676 (list 5677 (list 5678 3 5679 't_gold_coins 5680 ) 5681 (list 5682 2 5683 't_bolt 5684 ) 5685 (list 5686 1 5687 't_arrow 5688 ) 5689 ) 5690 ) 5691 ) ;; bind 5692 14 13) 5693 (list 5694 (bind 5695 (kern-mk-obj t_corpse 1 5696 ;; hooks 5697 (list 5698 ) 5699 ) 5700 (list 5701 (list 5702 (list 5703 5 5704 't_arrow 5705 ) 5706 (list 5707 1 5708 't_cure_potion 5709 ) 5710 (list 5711 3 5712 't_gold_coins 5713 ) 5714 ) 5715 ) 5716 ) ;; bind 5717 16 5) 5718 (list 5719 (bind 5720 (kern-mk-obj t_corpse 1 5721 ;; hooks 5722 (list 5723 ) 5724 ) 5725 (list 5726 (list 5727 (list 5728 1 5729 't_food 5730 ) 5731 ) 5732 ) 5733 ) ;; bind 5734 16 9) 5735 (list 5736 (bind 5737 (kern-mk-obj t_corpse 1 5738 ;; hooks 5739 (list 5740 ) 5741 ) 5742 (list 5743 (list 5744 (list 5745 1 5746 't_torch 5747 ) 5748 ) 5749 ) 5750 ) ;; bind 5751 16 11) 5752 (list 5753 (bind 5754 (kern-mk-obj t_corpse 1 5755 ;; hooks 5756 (list 5757 ) 5758 ) 5759 (list 5760 (list 5761 (list 5762 1 5763 't_food 5764 ) 5765 (list 5766 1 5767 't_food 5768 ) 5769 ) 5770 ) 5771 ) ;; bind 5772 16 13) 5773 (list 5774 (bind 5775 (kern-mk-obj t_corpse 1 5776 ;; hooks 5777 (list 5778 ) 5779 ) 5780 (list 5781 (list 5782 (list 5783 2 5784 't_arrow 5785 ) 5786 (list 5787 1 5788 't_mana_potion 5789 ) 5790 (list 5791 3 5792 't_arrow 5793 ) 5794 ) 5795 ) 5796 ) ;; bind 5797 18 5) 5798 (list 5799 (bind 5800 (kern-mk-obj t_corpse 1 5801 ;; hooks 5802 (list 5803 ) 5804 ) 5805 (list 5806 (list 5807 (list 5808 2 5809 't_arrow 5810 ) 5811 (list 5812 1 5813 't_food 5814 ) 5815 (list 5816 1 5817 't_gem 5818 ) 5819 ) 5820 ) 5821 ) ;; bind 5822 18 7) 5823 (list 5824 (bind 5825 (kern-mk-obj t_corpse 1 5826 ;; hooks 5827 (list 5828 ) 5829 ) 5830 (list 5831 (list 5832 (list 5833 4 5834 't_bolt 5835 ) 5836 ) 5837 ) 5838 ) ;; bind 5839 18 9) 5840 (list 5841 (bind 5842 (kern-mk-obj t_corpse 1 5843 ;; hooks 5844 (list 5845 ) 5846 ) 5847 (list 5848 (list 5849 (list 5850 1 5851 't_food 5852 ) 5853 (list 5854 1 5855 't_food 5856 ) 5857 (list 5858 4 5859 't_bolt 5860 ) 5861 ) 5862 ) 5863 ) ;; bind 5864 18 13) 5865 (list 5866 (bind 5867 (kern-mk-obj t_corpse 1 5868 ;; hooks 5869 (list 5870 ) 5871 ) 5872 (list 5873 (list 5874 (list 5875 1 5876 't_mana_potion 5877 ) 5878 ) 5879 ) 5880 ) ;; bind 5881 20 3) 5882 (list 5883 (bind 5884 (kern-mk-obj t_corpse 1 5885 ;; hooks 5886 (list 5887 ) 5888 ) 5889 (list 5890 (list 5891 (list 5892 1 5893 't_food 5894 ) 5895 (list 5896 1 5897 't_bolt 5898 ) 5899 ) 5900 ) 5901 ) ;; bind 5902 20 5) 5903 (list 5904 (bind 5905 (kern-mk-obj t_corpse 1 5906 ;; hooks 5907 (list 5908 ) 5909 ) 5910 (list 5911 (list 5912 (list 5913 1 5914 't_bolt 5915 ) 5916 (list 5917 1 5918 't_gold_coins 5919 ) 5920 ) 5921 ) 5922 ) ;; bind 5923 20 9) 5924 (list 5925 (bind 5926 (kern-mk-obj t_corpse 1 5927 ;; hooks 5928 (list 5929 ) 5930 ) 5931 (list 5932 (list 5933 (list 5934 4 5935 't_arrow 5936 ) 5937 ) 5938 ) 5939 ) ;; bind 5940 20 11) 5941 (list 5942 (kern-tag 'gtl-portcullis-1 5943 (bind 5944 (kern-mk-obj t_portcullis 1 5945 ;; hooks 5946 (list 5947 ) 5948 ) 5949 (list 5950 #f 5951 '() 5952 #f 5953 '() 5954 ) 5955 ) ;; bind 5956 ) ;; kern-tag 5957 10 16) 5958 (list 5959 (bind 5960 (kern-mk-obj t_door 1 5961 ;; hooks 5962 (list 5963 ) 5964 ) 5965 (list 5966 #f 5967 0 5968 '() 5969 #f 5970 #f 5971 #f 5972 (list 5973 (list 5974 's_closed_windowed_wood_door_in_rock 5975 #f 5976 5 5977 ) 5978 (list 5979 's_open_door_in_rock 5980 #f 5981 0 5982 ) 5983 (list 5984 's_locked_windowed_wood_door_in_rock 5985 #f 5986 5 5987 ) 5988 (list 5989 's_magically_locked_windowed_wood_door_in_rock 5990 #f 5991 5 5992 ) 5993 ) 5994 ) 5995 ) ;; bind 5996 12 20) 5997 (list 5998 (bind 5999 (kern-mk-obj t_door 1 6000 ;; hooks 6001 (list 6002 ) 6003 ) 6004 (list 6005 #f 6006 0 6007 '() 6008 #f 6009 #f 6010 #f 6011 (list 6012 (list 6013 's_closed_windowed_wood_door_in_rock 6014 #f 6015 5 6016 ) 6017 (list 6018 's_open_door_in_rock 6019 #f 6020 0 6021 ) 6022 (list 6023 's_locked_windowed_wood_door_in_rock 6024 #f 6025 5 6026 ) 6027 (list 6028 's_magically_locked_windowed_wood_door_in_rock 6029 #f 6030 5 6031 ) 6032 ) 6033 ) 6034 ) ;; bind 6035 4 24) 6036 (list 6037 (bind 6038 (kern-mk-obj t_door 1 6039 ;; hooks 6040 (list 6041 ) 6042 ) 6043 (list 6044 #f 6045 0 6046 '() 6047 #f 6048 #f 6049 #f 6050 (list 6051 (list 6052 's_closed_windowed_wood_door_in_rock 6053 #f 6054 5 6055 ) 6056 (list 6057 's_open_door_in_rock 6058 #f 6059 0 6060 ) 6061 (list 6062 's_locked_windowed_wood_door_in_rock 6063 #f 6064 5 6065 ) 6066 (list 6067 's_magically_locked_windowed_wood_door_in_rock 6068 #f 6069 5 6070 ) 6071 ) 6072 ) 6073 ) ;; bind 6074 4 28) 6075 (list 6076 (bind 6077 (kern-mk-obj t_door 1 6078 ;; hooks 6079 (list 6080 ) 6081 ) 6082 (list 6083 #f 6084 0 6085 '() 6086 #f 6087 #f 6088 #f 6089 (list 6090 (list 6091 's_closed_windowed_wood_door_in_rock 6092 #f 6093 5 6094 ) 6095 (list 6096 's_open_door_in_rock 6097 #f 6098 0 6099 ) 6100 (list 6101 's_locked_windowed_wood_door_in_rock 6102 #f 6103 5 6104 ) 6105 (list 6106 's_magically_locked_windowed_wood_door_in_rock 6107 #f 6108 5 6109 ) 6110 ) 6111 ) 6112 ) ;; bind 6113 8 32) 6114 (list 6115 (bind 6116 (kern-mk-obj t_door 1 6117 ;; hooks 6118 (list 6119 ) 6120 ) 6121 (list 6122 #f 6123 0 6124 '() 6125 #f 6126 #f 6127 #f 6128 (list 6129 (list 6130 's_closed_windowed_wood_door_in_rock 6131 #f 6132 5 6133 ) 6134 (list 6135 's_open_door_in_rock 6136 #f 6137 0 6138 ) 6139 (list 6140 's_locked_windowed_wood_door_in_rock 6141 #f 6142 5 6143 ) 6144 (list 6145 's_magically_locked_windowed_wood_door_in_rock 6146 #f 6147 5 6148 ) 6149 ) 6150 ) 6151 ) ;; bind 6152 12 32) 6153 (list 6154 (bind 6155 (kern-mk-obj t_door 1 6156 ;; hooks 6157 (list 6158 ) 6159 ) 6160 (list 6161 #f 6162 0 6163 '() 6164 #f 6165 #f 6166 #f 6167 (list 6168 (list 6169 's_closed_windowed_wood_door_in_rock 6170 #f 6171 5 6172 ) 6173 (list 6174 's_open_door_in_rock 6175 #f 6176 0 6177 ) 6178 (list 6179 's_locked_windowed_wood_door_in_rock 6180 #f 6181 5 6182 ) 6183 (list 6184 's_magically_locked_windowed_wood_door_in_rock 6185 #f 6186 5 6187 ) 6188 ) 6189 ) 6190 ) ;; bind 6191 16 28) 6192 (list 6193 (bind 6194 (kern-mk-obj t_spawn_pt 1 6195 ;; hooks 6196 (list 6197 ) 6198 ) 6199 (list 6200 'spawn-pt 6201 'rat 6202 ) 6203 ) ;; bind 6204 15 2) 6205 (list 6206 (bind 6207 (kern-mk-obj t_spawn_pt 1 6208 ;; hooks 6209 (list 6210 ) 6211 ) 6212 (list 6213 'spawn-pt 6214 'rat 6215 ) 6216 ) ;; bind 6217 7 29) 6218 (list 6219 (bind 6220 (kern-mk-obj t_spawn_pt 1 6221 ;; hooks 6222 (list 6223 ) 6224 ) 6225 (list 6226 'spawn-pt 6227 'rat 6228 ) 6229 ) ;; bind 6230 2 32) 6231 (list 6232 (bind 6233 (kern-mk-obj t_spawn_pt 1 6234 ;; hooks 6235 (list 6236 ) 6237 ) 6238 (list 6239 'spawn-pt 6240 'giant-spider 6241 ) 6242 ) ;; bind 6243 13 29) 6244 (list 6245 (bind 6246 (kern-mk-obj t_spawn_pt 1 6247 ;; hooks 6248 (list 6249 ) 6250 ) 6251 (list 6252 'spawn-pt 6253 'giant-spider 6254 ) 6255 ) ;; bind 6256 19 29) 6257 (list 6258 (bind 6259 (kern-mk-obj t_monman 1 6260 ;; hooks 6261 (list 6262 ) 6263 ) 6264 (list 6265 'monman 6266 (list 6267 0 6268 0 6269 0 6270 0 6271 21 6272 21 6273 ) 6274 ) 6275 ) ;; bind 6276 0 0) 6277 (list 6278 (bind 6279 (kern-mk-obj t_ladder_up 1 6280 ;; hooks 6281 (list 6282 ) 6283 ) 6284 (list 6285 'p_green_tower 6286 32 6287 32 6288 ) 6289 ) ;; bind 6290 10 26) 6291 (list 6292 (bind 6293 (kern-mk-obj t_door 1 6294 ;; hooks 6295 (list 6296 ) 6297 ) 6298 (list 6299 #f 6300 0 6301 '() 6302 #f 6303 #t 6304 #f 6305 (list 6306 (list 6307 's_closed_windowed_wood_door_in_rock 6308 #f 6309 5 6310 ) 6311 (list 6312 's_open_door_in_rock 6313 #f 6314 0 6315 ) 6316 (list 6317 's_locked_windowed_wood_door_in_rock 6318 #f 6319 5 6320 ) 6321 (list 6322 's_magically_locked_windowed_wood_door_in_rock 6323 #f 6324 5 6325 ) 6326 ) 6327 ) 6328 ) ;; bind 6329 3 2) 6330 (list 6331 (bind 6332 (kern-mk-obj t_door 1 6333 ;; hooks 6334 (list 6335 ) 6336 ) 6337 (list 6338 #f 6339 0 6340 '() 6341 #f 6342 #t 6343 #f 6344 (list 6345 (list 6346 's_closed_windowed_wood_door_in_rock 6347 #f 6348 5 6349 ) 6350 (list 6351 's_open_door_in_rock 6352 #f 6353 0 6354 ) 6355 (list 6356 's_locked_windowed_wood_door_in_rock 6357 #f 6358 5 6359 ) 6360 (list 6361 's_magically_locked_windowed_wood_door_in_rock 6362 #f 6363 5 6364 ) 6365 ) 6366 ) 6367 ) ;; bind 6368 3 6) 6369 (list 6370 (bind 6371 (kern-mk-obj t_door 1 6372 ;; hooks 6373 (list 6374 ) 6375 ) 6376 (list 6377 #f 6378 0 6379 '() 6380 #f 6381 #t 6382 #f 6383 (list 6384 (list 6385 's_closed_windowed_wood_door_in_rock 6386 #f 6387 5 6388 ) 6389 (list 6390 's_open_door_in_rock 6391 #f 6392 0 6393 ) 6394 (list 6395 's_locked_windowed_wood_door_in_rock 6396 #f 6397 5 6398 ) 6399 (list 6400 's_magically_locked_windowed_wood_door_in_rock 6401 #f 6402 5 6403 ) 6404 ) 6405 ) 6406 ) ;; bind 6407 3 10) 6408 (list 6409 (bind 6410 (kern-mk-obj t_door 1 6411 ;; hooks 6412 (list 6413 ) 6414 ) 6415 (list 6416 #f 6417 0 6418 '() 6419 #f 6420 #t 6421 #f 6422 (list 6423 (list 6424 's_closed_windowed_wood_door_in_rock 6425 #f 6426 5 6427 ) 6428 (list 6429 's_open_door_in_rock 6430 #f 6431 0 6432 ) 6433 (list 6434 's_locked_windowed_wood_door_in_rock 6435 #f 6436 5 6437 ) 6438 (list 6439 's_magically_locked_windowed_wood_door_in_rock 6440 #f 6441 5 6442 ) 6443 ) 6444 ) 6445 ) ;; bind 6446 7 2) 6447 (list 6448 (bind 6449 (kern-mk-obj t_door 1 6450 ;; hooks 6451 (list 6452 ) 6453 ) 6454 (list 6455 #f 6456 0 6457 '() 6458 #f 6459 #t 6460 #f 6461 (list 6462 (list 6463 's_closed_windowed_wood_door_in_rock 6464 #f 6465 5 6466 ) 6467 (list 6468 's_open_door_in_rock 6469 #f 6470 0 6471 ) 6472 (list 6473 's_locked_windowed_wood_door_in_rock 6474 #f 6475 5 6476 ) 6477 (list 6478 's_magically_locked_windowed_wood_door_in_rock 6479 #f 6480 5 6481 ) 6482 ) 6483 ) 6484 ) ;; bind 6485 7 6) 6486 (list 6487 (bind 6488 (kern-mk-obj t_door 1 6489 ;; hooks 6490 (list 6491 ) 6492 ) 6493 (list 6494 #f 6495 0 6496 '() 6497 #f 6498 #t 6499 #f 6500 (list 6501 (list 6502 's_closed_windowed_wood_door_in_rock 6503 #f 6504 5 6505 ) 6506 (list 6507 's_open_door_in_rock 6508 #f 6509 0 6510 ) 6511 (list 6512 's_locked_windowed_wood_door_in_rock 6513 #f 6514 5 6515 ) 6516 (list 6517 's_magically_locked_windowed_wood_door_in_rock 6518 #f 6519 5 6520 ) 6521 ) 6522 ) 6523 ) ;; bind 6524 7 10) 6525 (list 6526 (bind 6527 (kern-mk-char 6528 nil 6529 "rat" 6530 sp_rat 6531 nil 6532 s_rat 6533 5 6534 0 0 0 6535 0 0 6536 0 0 6537 7 128 6538 1 1 6539 #f ;; dead? 6540 nil 6541 nil 6542 'rat-ai 6543 (kern-mk-container 6544 t_chest 6545 ;; trap 6546 nil 6547 ;; contents 6548 nil 6549 ;; hooks 6550 (list 6551 ) 6552 ) 6553 nil 6554 ;; hooks 6555 (list 6556 (list 6557 ef_loot_drop 6558 (list 6559 'loot-drop-gob 6560 'drop-generic 6561 (list 6562 (list 6563 (list 6564 25 6565 "1" 6566 't_food 6567 ) 6568 ) 6569 ) 6570 ) 6571 2 6572 0 6573 ) 6574 ) 6575 ) 6576 (list 6577 'npcg 6578 'rat 6579 #f 6580 #t 6581 '() 6582 ) 6583 ) ;; bind 6584 16 3) 6585 (list 6586 (kern-mk-char 6587 'ch_wanderer 6588 "The Wanderer" 6589 sp_human 6590 oc_wanderer 6591 s_wanderer 6592 1 6593 5 5 5 6594 25 5 6595 1 1 6596 25 217 6597 5 1 6598 #f ;; dead? 6599 nil 6600 nil 6601 nil 6602 nil ;; inventory 6603 (list 6604 t_shield 6605 t_sword 6606 ) 6607 ;; hooks 6608 (list 6609 ) 6610 ) 6611 10 26) 6612 ) ;; end of objects in p_green_tower_lower 6613 (list ;; on-entry-hooks 6614 'on-entry-to-dungeon-room 6615 ) 6616 (list ;; edge entrances 6617 (list 0 21 37) ;; Northwest 6618 (list 1 11 37) ;; North 6619 (list 2 0 37) ;; Northeast 6620 (list 3 21 19) ;; West 6621 (list 4 11 19) ;; Here 6622 (list 5 0 19) ;; East 6623 (list 6 21 0) ;; Southwest 6624 (list 7 11 0) ;; South 6625 (list 8 0 0) ;; SoutheastUp 6626 ) 6627) ;; end of place p_green_tower_lower 6628 6629p_green_tower 6630(kern-mk-place 'p_mushroom_cave "Mushroom Cave" 6631 nil ;; sprite 6632 (kern-mk-map 6633 nil 19 19 pal_expanded 6634 (list 6635 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 6636 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 6637 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 6638 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 6639 "rr %3 %d rr rr tf .. .. .. tf rr rr rr {{ rr rr rr rr rr " 6640 "rr %% rr rr || t# .. .. .. t% || rr rr tf {A rr rr rr rr " 6641 "rr %% rr tf %7 bb .. .. .. bb %7 |% rr t% t7 rr rr rr rr " 6642 "rr %e rr %b %% %% %5 .. .. %b %% te rr .. te rr rr rr rr " 6643 "rr rr rr t7 %% bb %e .. .. bb %% %5 rr {c {{ rr rr rr rr " 6644 "rr .. |B || %% %d .. .. .. %b %% %% rr {{ {{ rr rr rr rr " 6645 "rr .. rr || %% bb .. %b %5 bb %a %c rr {{ {{ rr rr rr rr " 6646 "rr t7 rr te %% .. .. .. %a %d t3 t5 rr {5 {{ rr rr rr rr " 6647 "rr tt rr %b %c bb .. .. .. bb || |C rr {4 {{ rr rr rr rr " 6648 "rr te rr rr tf %f .. .. .. tb || rr rr .. t7 rr rr rr rr " 6649 "rr t% tf rr rr rr .. .. .. rr rr rr .. tC tt rr rr rr rr " 6650 "rr .. .. .. && rr rr .. rr rr .. .. tC t3 |C rr rr rr rr " 6651 "rr .. .. .. .. .. rr rr rr {{ {2 tC t3 |C rr rr rr rr rr " 6652 "rr rr tf .. .. rr rr rr rr rr tb tt |C rr rr rr rr rr rr " 6653 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 6654 ) 6655 ) 6656 #f #t #f #f 6657 ;; subplaces 6658 nil 6659 nil ;; neighbors 6660 (list ;; objects in p_mushroom_cave 6661 (list 6662 (bind 6663 (kern-mk-obj t_ladder_up 1 6664 ;; hooks 6665 (list 6666 ) 6667 ) 6668 (list 6669 'p_shard 6670 78 6671 74 6672 ) 6673 ) ;; bind 6674 7 12) 6675 (list 6676 (kern-mk-obj t_royal_cape 1 6677 ;; hooks 6678 (list 6679 ) 6680 ) 6681 4 14) 6682 (list 6683 (bind 6684 (kern-mk-obj t_monman 1 6685 ;; hooks 6686 (list 6687 ) 6688 ) 6689 (list 6690 'monman 6691 (list 6692 0 6693 0 6694 0 6695 -1 6696 6 6697 -1 6698 ) 6699 ) 6700 ) ;; bind 6701 0 0) 6702 (list 6703 (bind 6704 (kern-mk-obj t_spawn_pt 1 6705 ;; hooks 6706 (list 6707 ) 6708 ) 6709 (list 6710 'spawn-pt 6711 'yellow-slime 6712 ) 6713 ) ;; bind 6714 7 7) 6715 ) ;; end of objects in p_mushroom_cave 6716 (list ;; on-entry-hooks 6717 'on-entry-to-dungeon-room 6718 ) 6719 (list ;; edge entrances 6720 (list 0 18 18) ;; Northwest 6721 (list 1 9 18) ;; North 6722 (list 2 0 18) ;; Northeast 6723 (list 3 18 9) ;; West 6724 (list 4 9 9) ;; Here 6725 (list 5 0 9) ;; East 6726 (list 6 18 0) ;; Southwest 6727 (list 7 9 0) ;; South 6728 (list 8 0 0) ;; SoutheastUp 6729 ) 6730) ;; end of place p_mushroom_cave 6731 6732(kern-load "douglas.scm") 6733 6734(kern-mk-place 'p_shamans_grove "Shaman's Grove" 6735 nil ;; sprite 6736 (kern-mk-map 6737 nil 19 19 pal_expanded 6738 (list 6739 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 6740 "rr rr rr rr rr rr rr rr t7 bb t7 rr rr rr rr rr rr rr rr " 6741 "rr rr rr rr rr rr rr tb tt tt tt td rr rr rr rr rr rr rr " 6742 "rr rr rr rr rr rr t7 bb te t& te bb t7 rr rr rr rr rr rr " 6743 "rr rr rr rr rr rr tt t5 tB aa tD t3 tt rr rr rr rr rr rr " 6744 "rr rr rr rr rr rr ta tt td tE tb tt tc rr rr rr rr rr rr " 6745 "rr rr rr rr rr rr rr te bb t7 bb te rr rr rr rr rr rr rr " 6746 "rr rr rr rr rr rr rr rr t3 tt t5 rr rr rr rr rr rr rr rr " 6747 "rr rr rr t3 tt t5 rr rr || || || rr rr |# || |% rr rr rr " 6748 "rr rr t3 tc t& ta t5 rr || || || rr |# || || || |% rr rr " 6749 "rr t3 tc t# .. t% te bb || || || || || || || || || |% rr " 6750 "rr tt tB .. && .. tD tb || || || || || || tt || || || rr " 6751 "rr ta t5 tA .. tC t7 bb || || || || || || || || || |C rr " 6752 "rr rr ta t5 tE t3 tc rr || || || rr |A || || || |C rr rr " 6753 "rr rr rr ta tt tc rr rr || || || rr rr |A || |C rr rr rr " 6754 "rr rr rr rr rr rr rr rr || tt || rr rr rr rr rr rr rr rr " 6755 "rr rr rr rr rr rr rr rr tt tt tt rr rr rr rr rr rr rr rr " 6756 "rr rr rr rr rr rr rr rr ta tt tc rr rr rr rr rr rr rr rr " 6757 "rr rr rr rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr " 6758 ) 6759 ) 6760 #f #t #f #f 6761 ;; subplaces 6762 nil 6763 (list 6764 (list 6765 (kern-mk-place 'p_goblin_crossroads "Goblin Crossroads" 6766 nil ;; sprite 6767 (kern-mk-map 6768 nil 19 19 pal_expanded 6769 (list 6770 "rr rr rr rr rr rr rr {{ {{ ,, ,, {{ rr rr rr rr rr rr rr " 6771 "rr rr rr rr rr rr rr rr {{ ,, {# {{ {{ {{ {{ rr rr rr rr " 6772 "rr rr rr rr rr rr rr rr {{ {{ ,, {5 {{ rr {{ {{ {{ rr rr " 6773 "rr rr rr rr rr rr rr rr rr {{ ,, bb {5 {{ {{ {{ {{ rr rr " 6774 "rr rr rr rr rr rr rr rr rr ,, {{ {a {8 {1 {5 {{ {{ rr rr " 6775 "rr rr rr rr rr rr rr rr rr rr {{ {{ {{ {a bb {d {{ {{ rr " 6776 "rr rr rr rr rr rr rr rr rr rr bb {{ {{ {{ {e {{ {{ {{ rr " 6777 "{{ {{ {{ rr rr rr rr rr rr rr rr {{ {{ {{ {{ {{ {{ {{ {{ " 6778 ",, {{ {{ {a bb rr rr rr rr rr rr {{ {{ {{ {{ {{ ,, {C ,, " 6779 ",, {E ,, {{ {6 {{ rr rr rr rr rr {{ {{ ,, ,, ,, {A ,, ,, " 6780 ",, ,, ,, {1 ,, ,, {{ rr rr rr {{ {{ {{ {% ,, ,, ,, {% ,, " 6781 "{{ {{ {{ {a bb .. {5 {{ {{ {{ {{ {{ {7 {{ {{ {{ {{ {{ {{ " 6782 "rr {{ {{ {{ {2 {8 bb {5 {{ {{ {{ {3 bb {d {{ {{ {{ rr rr " 6783 "rr rr {{ rr rr {{ {a .. {5 {{ {{ {2 {c {{ {{ {{ rr rr rr " 6784 "rr rr rr rr {{ {{ {{ {a {8 {1 {1 {4 {{ {{ {{ {{ rr rr rr " 6785 "rr rr rr rr {{ {{ {{ {{ {{ {2 bb {4 {{ {{ rr rr rr rr rr " 6786 "rr rr rr rr rr {{ {{ {{ {{ ,, .. {c {{ {{ {{ rr rr rr rr " 6787 "rr rr rr rr rr rr rr {{ {{ {2 {4 {{ rr rr rr rr rr rr rr " 6788 "rr rr rr rr rr rr rr {{ ,, .. .. rr rr rr rr rr rr rr rr " 6789 ) 6790 ) 6791 #f #t #f #f 6792 ;; subplaces 6793 nil 6794 (list 6795 (list 6796 (kern-mk-place 'p_kurpolis_entrance "Entrance to Kurpolis" 6797 nil ;; sprite 6798 (kern-mk-map 6799 nil 19 19 pal_expanded 6800 (list 6801 "rr rr rr rr xx xx x! xx xx && xx xx x! xx xx rr rr rr rr " 6802 "rr .. .. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr " 6803 "xx xx x! xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr " 6804 "xx xx ,, ,, ,, ,, ,, [[ @@ @@ @@ ]] ,, ,, x! rr rr rr rr " 6805 "xx xx ,, xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr " 6806 "xx xx ,, xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr " 6807 "xx xx ,, xx xx xx xx xx xx x! xx xx xx xx xx rr bb ,, rr " 6808 "xx xx ,, xx xx .K .U .R .P .O .L .I .S xx ,, bb bb bb ,, " 6809 "xx xx ,, xx x! ,, ,, ,, ,, ,, ,, ,, ,, x! bb bb ,, bb ,, " 6810 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ ,, bb ,, ,, ,, " 6811 "x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, bb ,, " 6812 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ bb bb bb bb ,, " 6813 "xx xx ,, xx x! ,, ,, ,, ,, ,, ,, ,, ,, x! bb bb ,, bb rr " 6814 "xx xx ,, xx xx xx xx xx xx xx xx xx xx xx xx ,, bb rr rr " 6815 "xx xx ,, xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr " 6816 "xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr " 6817 "xx xx x! xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr " 6818 "rr rr rr rr xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr " 6819 "rr rr rr rr xx xx xx xx xx xx xx xx xx xx xx rr rr rr rr " 6820 ) 6821 ) 6822 #f #t #f #f 6823 ;; subplaces 6824 nil 6825 nil ;; neighbors 6826 (list ;; objects in p_kurpolis_entrance 6827 (list 6828 (kern-mk-obj t_bed 1 6829 ;; hooks 6830 (list 6831 ) 6832 ) 6833 7 17) 6834 (list 6835 (kern-mk-obj t_bed 1 6836 ;; hooks 6837 (list 6838 ) 6839 ) 6840 9 17) 6841 (list 6842 (kern-mk-obj t_bed 1 6843 ;; hooks 6844 (list 6845 ) 6846 ) 6847 11 17) 6848 (list 6849 (kern-mk-obj t_bed 1 6850 ;; hooks 6851 (list 6852 ) 6853 ) 6854 13 17) 6855 (list 6856 (bind 6857 (kern-mk-obj t_spawn_pt 1 6858 ;; hooks 6859 (list 6860 ) 6861 ) 6862 (list 6863 'spawn-pt 6864 'cave-goblin-slinger 6865 ) 6866 ) ;; bind 6867 18 7) 6868 (list 6869 (bind 6870 (kern-mk-obj t_spawn_pt 1 6871 ;; hooks 6872 (list 6873 ) 6874 ) 6875 (list 6876 'spawn-pt 6877 'cave-goblin-slinger 6878 ) 6879 ) ;; bind 6880 18 11) 6881 (list 6882 (bind 6883 (kern-mk-obj t_spawn_pt 1 6884 ;; hooks 6885 (list 6886 ) 6887 ) 6888 (list 6889 'spawn-pt 6890 'cave-goblin-berserker 6891 ) 6892 ) ;; bind 6893 15 9) 6894 (list 6895 (bind 6896 (kern-mk-obj t_guard_pt 1 6897 ;; hooks 6898 (list 6899 ) 6900 ) 6901 (list 6902 'spawn-pt 6903 'crossbowman 6904 ) 6905 ) ;; bind 6906 12 9) 6907 (list 6908 (bind 6909 (kern-mk-obj t_guard_pt 1 6910 ;; hooks 6911 (list 6912 ) 6913 ) 6914 (list 6915 'spawn-pt 6916 'crossbowman 6917 ) 6918 ) ;; bind 6919 12 11) 6920 (list 6921 (bind 6922 (kern-mk-obj t_guard_pt 1 6923 ;; hooks 6924 (list 6925 ) 6926 ) 6927 (list 6928 'spawn-pt 6929 'halberdier 6930 ) 6931 ) ;; bind 6932 10 10) 6933 (list 6934 (bind 6935 (kern-mk-char 6936 'ch_douglas 6937 "Douglas" 6938 sp_human 6939 oc_warrior 6940 s_companion_paladin 6941 2 6942 0 0 0 6943 0 0 6944 0 0 6945 14 0 6946 0 4 6947 #f ;; dead? 6948 'doug-conv 6949 sch_doug 6950 nil 6951 nil ;; inventory 6952 (list 6953 t_chain_coif 6954 t_sword 6955 t_armor_chain 6956 ) 6957 ;; hooks 6958 (list 6959 ) 6960 ) 6961 '() 6962 ) ;; bind 6963 5 1) 6964 (list 6965 (bind 6966 (kern-mk-obj t_monman 1 6967 ;; hooks 6968 (list 6969 ) 6970 ) 6971 (list 6972 'monman 6973 (list 6974 0 6975 0 6976 0 6977 -1 6978 6 6979 -1 6980 ) 6981 ) 6982 ) ;; bind 6983 0 0) 6984 (list 6985 (bind 6986 (kern-mk-obj t_ladder_up 1 6987 ;; hooks 6988 (list 6989 ) 6990 ) 6991 (list 6992 'p_shard 6993 53 6994 18 6995 ) 6996 ) ;; bind 6997 9 10) 6998 (list 6999 (bind 7000 (kern-mk-obj t_door 1 7001 ;; hooks 7002 (list 7003 ) 7004 ) 7005 (list 7006 #f 7007 0 7008 '() 7009 #f 7010 #f 7011 #f 7012 (list 7013 (list 7014 's_closed_solid_wood_door_in_stone 7015 #t 7016 5 7017 ) 7018 (list 7019 's_open_door_in_stone 7020 #f 7021 0 7022 ) 7023 (list 7024 's_locked_solid_wood_door_in_stone 7025 #t 7026 5 7027 ) 7028 (list 7029 's_magically_locked_solid_wood_door_in_stone 7030 #t 7031 5 7032 ) 7033 ) 7034 ) 7035 ) ;; bind 7036 2 8) 7037 (list 7038 (bind 7039 (kern-mk-obj t_door 1 7040 ;; hooks 7041 (list 7042 ) 7043 ) 7044 (list 7045 #f 7046 0 7047 '() 7048 #f 7049 #f 7050 #f 7051 (list 7052 (list 7053 's_closed_solid_wood_door_in_stone 7054 #t 7055 5 7056 ) 7057 (list 7058 's_open_door_in_stone 7059 #f 7060 0 7061 ) 7062 (list 7063 's_locked_solid_wood_door_in_stone 7064 #t 7065 5 7066 ) 7067 (list 7068 's_magically_locked_solid_wood_door_in_stone 7069 #t 7070 5 7071 ) 7072 ) 7073 ) 7074 ) ;; bind 7075 2 12) 7076 (list 7077 (bind 7078 (kern-mk-obj t_door 1 7079 ;; hooks 7080 (list 7081 ) 7082 ) 7083 (list 7084 #f 7085 0 7086 '() 7087 #f 7088 #f 7089 #f 7090 (list 7091 (list 7092 's_closed_solid_wood_door_in_stone 7093 #t 7094 5 7095 ) 7096 (list 7097 's_open_door_in_stone 7098 #f 7099 0 7100 ) 7101 (list 7102 's_locked_solid_wood_door_in_stone 7103 #t 7104 5 7105 ) 7106 (list 7107 's_magically_locked_solid_wood_door_in_stone 7108 #t 7109 5 7110 ) 7111 ) 7112 ) 7113 ) ;; bind 7114 4 15) 7115 (list 7116 (bind 7117 (kern-mk-obj t_door 1 7118 ;; hooks 7119 (list 7120 ) 7121 ) 7122 (list 7123 #f 7124 0 7125 '() 7126 #f 7127 #f 7128 #f 7129 (list 7130 (list 7131 's_closed_solid_wood_door_in_stone 7132 #t 7133 5 7134 ) 7135 (list 7136 's_open_door_in_stone 7137 #f 7138 0 7139 ) 7140 (list 7141 's_locked_solid_wood_door_in_stone 7142 #t 7143 5 7144 ) 7145 (list 7146 's_magically_locked_solid_wood_door_in_stone 7147 #t 7148 5 7149 ) 7150 ) 7151 ) 7152 ) ;; bind 7153 4 3) 7154 (list 7155 (bind 7156 (kern-mk-obj t_door 1 7157 ;; hooks 7158 (list 7159 ) 7160 ) 7161 (list 7162 #f 7163 0 7164 '() 7165 #f 7166 #t 7167 #f 7168 (list 7169 (list 7170 's_closed_solid_wood_door_in_stone 7171 #t 7172 5 7173 ) 7174 (list 7175 's_open_door_in_stone 7176 #f 7177 0 7178 ) 7179 (list 7180 's_locked_solid_wood_door_in_stone 7181 #t 7182 5 7183 ) 7184 (list 7185 's_magically_locked_solid_wood_door_in_stone 7186 #t 7187 5 7188 ) 7189 ) 7190 ) 7191 ) ;; bind 7192 4 1) 7193 (list 7194 (bind 7195 (kern-mk-obj t_door 1 7196 ;; hooks 7197 (list 7198 ) 7199 ) 7200 (list 7201 #f 7202 0 7203 '() 7204 #f 7205 #f 7206 #f 7207 (list 7208 (list 7209 's_closed_windowed_wood_door_in_rock 7210 #f 7211 5 7212 ) 7213 (list 7214 's_open_door_in_rock 7215 #f 7216 0 7217 ) 7218 (list 7219 's_locked_windowed_wood_door_in_rock 7220 #f 7221 5 7222 ) 7223 (list 7224 's_magically_locked_windowed_wood_door_in_rock 7225 #f 7226 5 7227 ) 7228 ) 7229 ) 7230 ) ;; bind 7231 13 10) 7232 (list 7233 (kern-mk-container 7234 t_chest 7235 ;; trap 7236 nil 7237 ;; contents 7238 (list 7239 (list 10 t_food) 7240 ) 7241 ;; hooks 7242 (list 7243 ) 7244 ) 7245 1 1) 7246 (list 7247 (kern-mk-obj t_bed 1 7248 ;; hooks 7249 (list 7250 ) 7251 ) 7252 5 17) 7253 ) ;; end of objects in p_kurpolis_entrance 7254 (list ;; on-entry-hooks 7255 'on-entry-to-dungeon-room 7256 ) 7257 (list ;; edge entrances 7258 (list 0 18 18) ;; Northwest 7259 (list 1 9 18) ;; North 7260 (list 2 0 18) ;; Northeast 7261 (list 3 18 9) ;; West 7262 (list 4 9 9) ;; Here 7263 (list 5 0 9) ;; East 7264 (list 6 18 0) ;; Southwest 7265 (list 7 9 0) ;; South 7266 (list 8 0 0) ;; SoutheastUp 7267 ) 7268 ) ;; end of place p_kurpolis_entrance 7269 7270 3) 7271 (list 7272 (kern-mk-place 'p_cave_goblin_village "Cave Goblin Village" 7273 nil ;; sprite 7274 (kern-mk-map 7275 nil 19 19 pal_expanded 7276 (list 7277 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 7278 "rr rr rr rr rr rr {{ {{ {{ {{ {{ {{ rr rr rr rr rr rr rr " 7279 "rr rr rr rr rr {{ ,, ,, ,, ,, {A {{ {{ rr {{ {{ {{ rr rr " 7280 "rr rr rr rr rr {{ ,, ,, && ,, ,, bb {{ rr {{ ,, {A {{ rr " 7281 "rr rr rr rr rr {{ ,, ,, ,, ,, ,, ,, {1 .. {9 ,, ,, {{ rr " 7282 "rr rr rr rr rr {{ {a {8 ,, ,, {# {{ ,, rr {{ ,, ,, {{ rr " 7283 "rr rr rr rr rr {{ {{ {{ {6 {{ bb {C ,, rr {{ {{ {{ {{ rr " 7284 "{{ {{ {{ {{ bb {{ bb {{ {2 {5 {C ,, ,, rr rr {{ {{ rr rr " 7285 "{{ {{ {{ {{ bb {{ {{ {3 ,, ,, ,, ,, {# rr rr rr rr rr rr " 7286 ",, {A ,, {9 .. {9 {1 ,, .. ,, ,, ,, {{ {{ rr rr rr rr rr " 7287 ",, ,, {c {{ bb {{ {a ,, ,, ,, ,, {4 {{ {{ {{ rr rr rr rr " 7288 "{{ {{ {{ {{ bb {{ {{ ,, ,, ,, ,, ,, {1 {5 {{ rr rr rr rr " 7289 "rr rr rr rr rr {{ bb {% ,, ,, ,, {# ,, .. ~C ~~ ~~ rr rr " 7290 "rr rr rr rr rr {{ {{ {{ {D ,, {B {{ {{ {a ~3 -- -- ~~ rr " 7291 "rr rr rr rr rr rr rr bb bb .. bb bb rr {{ ~a -- -- ~~ rr " 7292 "rr rr rr rr rr rr rr {{ {{ {6 {{ {{ rr {{ {H ~a ~c {G rr " 7293 "rr rr rr rr rr rr rr {{ {{ {a {5 {{ rr rr {{ {{ {{ {{ rr " 7294 "rr rr rr rr rr rr rr {{ {{ {{ {6 {{ rr rr {{ {{ {{ rr rr " 7295 "rr rr rr rr rr rr rr {{ {{ {3 {4 {{ rr rr rr rr rr rr rr " 7296 ) 7297 ) 7298 #f #t #f #f 7299 ;; subplaces 7300 nil 7301 (list 7302 (list 7303 (kern-mk-place 'p_trolls_den "Troll's Den" 7304 nil ;; sprite 7305 (kern-mk-map 7306 nil 19 19 pal_expanded 7307 (list 7308 "rr rr rr rr rr rr rr {{ {2 ,, ,, {{ rr rr rr rr rr rr rr " 7309 "rr {{ {{ {{ rr rr rr {{ {2 ,, {B {{ rr rr rr rr rr rr rr " 7310 "rr {{ {{ {{ {{ rr rr {{ {a .. ,, {A rr rr rr rr rr rr rr " 7311 "rr {{ {{ {{ {{ {{ rr rr {{ {2 ,, bb rr rr rr rr rr rr rr " 7312 "rr rr {{ {{ rr {{ {{ rr {{ ,, {c {{ rr rr rr rr rr rr rr " 7313 "rr rr {{ rr rr rr {{ {{ {{ {6 {{ {{ rr rr rr rr rr rr rr " 7314 "rr rr {{ {{ rr {{ {{ rr {{ {a {5 {{ rr {{ {{ rr rr rr rr " 7315 "rr {{ {{ {{ {6 {{ rr rr rr {{ {2 {1 {8 {5 {{ {{ {{ rr rr " 7316 "rr {{ {{ {b bb {d {{ rr {{ {3 .. rr {{ {a {5 {{ {3 .. rr " 7317 "rr {{ {{ {{ {e {{ {{ {{ {{ {2 rr rr rr {{ {2 {1 .. .. rr " 7318 "rr rr {{ {{ {{ {{ rr {{ {3 {c {{ rr {{ {{ {2 .. .. && rr " 7319 "rr rr rr {{ {{ rr rr rr {4 {{ {{ {{ {3 {1 .. {8 .. .. rr " 7320 "rr rr rr {{ {7 {{ rr {{ {2 rr rr {1 bb {8 {c {{ {a .. rr " 7321 "rr rr {{ bb .. {5 {{ {3 {8 rr rr rr {4 {{ {{ {{ {{ rr rr " 7322 "rr {{ {3 .. .. .. {9 {c {{ {{ rr rr rr rr {{ {{ {{ rr rr " 7323 "rr {{ {a .. .. bb {{ {{ {{ {{ rr rr rr rr rr rr rr rr rr " 7324 "rr {{ {{ {a {8 bb {{ {{ rr rr rr rr rr rr rr rr rr rr rr " 7325 "rr rr {{ {{ {{ rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 7326 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 7327 ) 7328 ) 7329 #f #t #f #f 7330 ;; subplaces 7331 nil 7332 (list 7333 (list 7334 (kern-mk-place 'p_watchpoint "Watchpoint" 7335 nil ;; sprite 7336 (kern-mk-map 7337 nil 19 19 pal_expanded 7338 (list 7339 "rr rr rr rr rr rr rr {{ {C ,, ,, {{ rr rr rr rr rr rr rr " 7340 "rr rr rr rr rr rr rr {{ ,, ,, {4 {{ rr rr rr rr rr rr rr " 7341 "rr rr rr rr rr rr bb {{ ,, .. ,, {5 {{ rr rr rr rr rr rr " 7342 "rr rr rr rr rr rr {{ {{ ,, .. ,, bb {{ rr rr rr rr rr rr " 7343 "rr rr rr rr rr bb {{ {{ {2 ,, ,, {c {{ rr rr rr rr rr rr " 7344 "rr rr rr rr rr {{ {{ {{ ,, .. ,, {{ {{ {{ rr rr rr rr rr " 7345 "rr rr rr rr bb {A {{ {C oo ee oo {{ ~~ -- rr rr rr rr rr " 7346 "rr rr rr rr bb bb ~1 ~9 ~~ ee ee ~9 ~~ _! rr rr rr rr rr " 7347 "rr rr rr -- -- ~~ ~c {& oo ee ~c {{ ~~ -- rr rr rr rr rr " 7348 "rr rr rr _! -- -c {G {{ {{ ,, {{ {{ {{ {{ {{ rr rr rr rr " 7349 "rr rr rr -- -- {G {{ bb ,, ,, ,, bb {{ {{ {{ rr rr rr rr " 7350 "rr rr rr rr {{ {{ x. x. w+ d, w+ x. x. {{ {{ rr rr rr rr " 7351 "rr rr rr rr {{ {{ x. .. ,, ,, ,, ,, rr {d {{ rr rr rr rr " 7352 "rr rr rr rr rr {{ x. ,, ,, ,, ,, ,, x. {{ {{ rr rr rr rr " 7353 "rr rr rr rr {{ {{ x. ,, ,, ,, ,, ,, x. {{ {{ rr rr rr rr " 7354 "rr rr rr rr {{ {{ bb ,, ,, ,, ,, .. x. {{ rr rr rr rr rr " 7355 "rr rr rr rr rr {{ x. ,, ,, ,, .. bb x. rr rr rr rr rr rr " 7356 "rr rr rr rr rr rr rr x. x. && x. x. x. rr rr rr rr rr rr " 7357 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 7358 ) 7359 ) 7360 #f #t #f #f 7361 ;; subplaces 7362 nil 7363 nil ;; neighbors 7364 (list ;; objects in p_watchpoint 7365 (list 7366 (bind 7367 (kern-mk-obj t_guard_pt 1 7368 ;; hooks 7369 (list 7370 ) 7371 ) 7372 (list 7373 'spawn-pt 7374 'halberdier 7375 ) 7376 ) ;; bind 7377 8 12) 7378 (list 7379 (bind 7380 (kern-mk-obj t_guard_pt 1 7381 ;; hooks 7382 (list 7383 ) 7384 ) 7385 (list 7386 'spawn-pt 7387 'crossbowman 7388 ) 7389 ) ;; bind 7390 10 12) 7391 (list 7392 (bind 7393 (kern-mk-obj t_monman 1 7394 ;; hooks 7395 (list 7396 ) 7397 ) 7398 (list 7399 'monman 7400 (list 7401 0 7402 0 7403 0 7404 -1 7405 6 7406 -1 7407 ) 7408 ) 7409 ) ;; bind 7410 0 0) 7411 (list 7412 (bind 7413 (kern-mk-obj t_ladder_down 1 7414 ;; hooks 7415 (list 7416 ) 7417 ) 7418 (list 7419 'p_paladins_hold 7420 3 7421 9 7422 ) 7423 ) ;; bind 7424 9 14) 7425 ) ;; end of objects in p_watchpoint 7426 (list ;; on-entry-hooks 7427 'on-entry-to-dungeon-room 7428 ) 7429 (list ;; edge entrances 7430 (list 0 18 18) ;; Northwest 7431 (list 1 9 18) ;; North 7432 (list 2 0 18) ;; Northeast 7433 (list 3 18 9) ;; West 7434 (list 4 9 9) ;; Here 7435 (list 5 0 9) ;; East 7436 (list 6 18 0) ;; Southwest 7437 (list 7 9 0) ;; South 7438 (list 8 0 0) ;; SoutheastUp 7439 ) 7440 ) ;; end of place p_watchpoint 7441 7442 3) 7443 ) ;; end neighbors of p_trolls_den 7444 (list ;; objects in p_trolls_den 7445 (list 7446 (bind 7447 (kern-mk-obj t_ladder_up 1 7448 ;; hooks 7449 (list 7450 ) 7451 ) 7452 (list 7453 'p_old_mine 7454 17 7455 17 7456 ) 7457 ) ;; bind 7458 3 15) 7459 (list 7460 (bind 7461 (kern-mk-obj t_spawn_pt 1 7462 ;; hooks 7463 (list 7464 ) 7465 ) 7466 (list 7467 'spawn-pt 7468 'troll 7469 ) 7470 ) ;; bind 7471 16 10) 7472 (list 7473 (bind 7474 (kern-mk-obj t_spawn_pt 1 7475 ;; hooks 7476 (list 7477 ) 7478 ) 7479 (list 7480 'spawn-pt 7481 'troll-geomancer 7482 ) 7483 ) ;; bind 7484 17 9) 7485 (list 7486 (bind 7487 (kern-mk-obj t_spawn_pt 1 7488 ;; hooks 7489 (list 7490 ) 7491 ) 7492 (list 7493 'spawn-pt 7494 'troll 7495 ) 7496 ) ;; bind 7497 17 11) 7498 (list 7499 (kern-mk-obj t_food 1 7500 ;; hooks 7501 (list 7502 ) 7503 ) 7504 17 8) 7505 (list 7506 (kern-mk-obj t_beer 1 7507 ;; hooks 7508 (list 7509 ) 7510 ) 7511 16 8) 7512 (list 7513 (kern-mk-obj t_food 1 7514 ;; hooks 7515 (list 7516 ) 7517 ) 7518 16 12) 7519 (list 7520 (kern-mk-obj t_beer 1 7521 ;; hooks 7522 (list 7523 ) 7524 ) 7525 15 11) 7526 (list 7527 (bind 7528 (kern-mk-obj t_monman 1 7529 ;; hooks 7530 (list 7531 ) 7532 ) 7533 (list 7534 'monman 7535 (list 7536 0 7537 0 7538 0 7539 -1 7540 6 7541 -1 7542 ) 7543 ) 7544 ) ;; bind 7545 0 0) 7546 ) ;; end of objects in p_trolls_den 7547 (list ;; on-entry-hooks 7548 'on-entry-to-dungeon-room 7549 ) 7550 (list ;; edge entrances 7551 (list 0 18 18) ;; Northwest 7552 (list 1 9 18) ;; North 7553 (list 2 0 18) ;; Northeast 7554 (list 3 18 9) ;; West 7555 (list 4 9 9) ;; Here 7556 (list 5 0 9) ;; East 7557 (list 6 18 0) ;; Southwest 7558 (list 7 9 0) ;; South 7559 (list 8 0 0) ;; SoutheastUp 7560 ) 7561 ) ;; end of place p_trolls_den 7562 7563 7) 7564 ) ;; end neighbors of p_cave_goblin_village 7565 (list ;; objects in p_cave_goblin_village 7566 (list 7567 (bind 7568 (kern-mk-obj t_spawn_pt 1 7569 ;; hooks 7570 (list 7571 ) 7572 ) 7573 (list 7574 'spawn-pt 7575 'cave-goblin-priest 7576 ) 7577 ) ;; bind 7578 9 9) 7579 (list 7580 (bind 7581 (kern-mk-obj t_guard_pt 1 7582 ;; hooks 7583 (list 7584 ) 7585 ) 7586 (list 7587 'spawn-pt 7588 'cave-goblin-berserker 7589 ) 7590 ) ;; bind 7591 14 4) 7592 (list 7593 (bind 7594 (kern-mk-obj t_guard_pt 1 7595 ;; hooks 7596 (list 7597 ) 7598 ) 7599 (list 7600 'spawn-pt 7601 'cave-goblin-priest 7602 ) 7603 ) ;; bind 7604 16 4) 7605 (list 7606 (bind 7607 (kern-mk-obj t_door 1 7608 ;; hooks 7609 (list 7610 ) 7611 ) 7612 (list 7613 #f 7614 0 7615 '() 7616 #f 7617 #t 7618 #f 7619 (list 7620 (list 7621 's_closed_solid_wood_door_in_stone 7622 #t 7623 5 7624 ) 7625 (list 7626 's_open_door_in_stone 7627 #f 7628 0 7629 ) 7630 (list 7631 's_locked_solid_wood_door_in_stone 7632 #t 7633 5 7634 ) 7635 (list 7636 's_magically_locked_solid_wood_door_in_stone 7637 #t 7638 5 7639 ) 7640 ) 7641 ) 7642 ) ;; bind 7643 13 4) 7644 (list 7645 (kern-mk-container 7646 t_chest 7647 ;; trap 7648 nil 7649 ;; contents 7650 (list 7651 (list 1 t_bolt) 7652 (list 2 t_food) 7653 (list 5 t_gold_coins) 7654 (list 1 t_mana_potion) 7655 (list 9 t_arrow) 7656 ) 7657 ;; hooks 7658 (list 7659 ) 7660 ) 7661 16 4) 7662 (list 7663 (kern-mk-container 7664 t_chest 7665 ;; trap 7666 nil 7667 ;; contents 7668 (list 7669 (list 1 t_heal_potion) 7670 (list 2 t_food) 7671 (list 2 t_cure_potion) 7672 (list 4 t_gold_coins) 7673 (list 1 t_bolt) 7674 ) 7675 ;; hooks 7676 (list 7677 ) 7678 ) 7679 16 5) 7680 (list 7681 (kern-mk-container 7682 t_chest 7683 ;; trap 7684 nil 7685 ;; contents 7686 (list 7687 (list 5 t_gold_coins) 7688 ) 7689 ;; hooks 7690 (list 7691 ) 7692 ) 7693 15 3) 7694 (list 7695 (bind 7696 (kern-mk-obj t_monman 1 7697 ;; hooks 7698 (list 7699 ) 7700 ) 7701 (list 7702 'monman 7703 (list 7704 0 7705 0 7706 0 7707 -1 7708 6 7709 -1 7710 ) 7711 ) 7712 ) ;; bind 7713 0 0) 7714 (list 7715 (bind 7716 (kern-mk-obj t_spawn_pt 1 7717 ;; hooks 7718 (list 7719 ) 7720 ) 7721 (list 7722 'spawn-pt 7723 'cave-goblin-slinger 7724 ) 7725 ) ;; bind 7726 5 8) 7727 (list 7728 (bind 7729 (kern-mk-obj t_spawn_pt 1 7730 ;; hooks 7731 (list 7732 ) 7733 ) 7734 (list 7735 'spawn-pt 7736 'cave-goblin-slinger 7737 ) 7738 ) ;; bind 7739 8 2) 7740 (list 7741 (bind 7742 (kern-mk-obj t_spawn_pt 1 7743 ;; hooks 7744 (list 7745 ) 7746 ) 7747 (list 7748 'spawn-pt 7749 'cave-goblin-slinger 7750 ) 7751 ) ;; bind 7752 9 3) 7753 (list 7754 (bind 7755 (kern-mk-obj t_spawn_pt 1 7756 ;; hooks 7757 (list 7758 ) 7759 ) 7760 (list 7761 'spawn-pt 7762 'cave-goblin-slinger 7763 ) 7764 ) ;; bind 7765 10 13) 7766 (list 7767 (bind 7768 (kern-mk-obj t_spawn_pt 1 7769 ;; hooks 7770 (list 7771 ) 7772 ) 7773 (list 7774 'spawn-pt 7775 'cave-goblin-berserker 7776 ) 7777 ) ;; bind 7778 6 10) 7779 (list 7780 (bind 7781 (kern-mk-obj t_spawn_pt 1 7782 ;; hooks 7783 (list 7784 ) 7785 ) 7786 (list 7787 'spawn-pt 7788 'cave-goblin-berserker 7789 ) 7790 ) ;; bind 7791 8 4) 7792 (list 7793 (bind 7794 (kern-mk-obj t_spawn_pt 1 7795 ;; hooks 7796 (list 7797 ) 7798 ) 7799 (list 7800 'spawn-pt 7801 'cave-goblin-berserker 7802 ) 7803 ) ;; bind 7804 7 3) 7805 (list 7806 (bind 7807 (kern-mk-obj t_spawn_pt 1 7808 ;; hooks 7809 (list 7810 ) 7811 ) 7812 (list 7813 'spawn-pt 7814 'cave-goblin-berserker 7815 ) 7816 ) ;; bind 7817 8 13) 7818 (list 7819 (bind 7820 (kern-mk-obj t_spawn_pt 1 7821 ;; hooks 7822 (list 7823 ) 7824 ) 7825 (list 7826 'spawn-pt 7827 'cave-goblin-priest 7828 ) 7829 ) ;; bind 7830 15 4) 7831 ) ;; end of objects in p_cave_goblin_village 7832 (list ;; on-entry-hooks 7833 'on-entry-to-dungeon-room 7834 ) 7835 (list ;; edge entrances 7836 (list 0 18 18) ;; Northwest 7837 (list 1 9 18) ;; North 7838 (list 2 0 18) ;; Northeast 7839 (list 3 18 9) ;; West 7840 (list 4 9 9) ;; Here 7841 (list 5 0 9) ;; East 7842 (list 6 18 0) ;; Southwest 7843 (list 7 9 0) ;; South 7844 (list 8 0 0) ;; SoutheastUp 7845 ) 7846 ) ;; end of place p_cave_goblin_village 7847 7848 5) 7849 (list 7850 p_watchpoint 7851 7) 7852 ) ;; end neighbors of p_goblin_crossroads 7853 (list ;; objects in p_goblin_crossroads 7854 (list 7855 (bind 7856 (kern-mk-obj t_monman 1 7857 ;; hooks 7858 (list 7859 ) 7860 ) 7861 (list 7862 'monman 7863 (list 7864 0 7865 0 7866 0 7867 -1 7868 6 7869 -1 7870 ) 7871 ) 7872 ) ;; bind 7873 0 0) 7874 (list 7875 (bind 7876 (kern-mk-obj t_spawn_pt 1 7877 ;; hooks 7878 (list 7879 ) 7880 ) 7881 (list 7882 'spawn-pt 7883 'cave-goblin-slinger 7884 ) 7885 ) ;; bind 7886 14 11) 7887 (list 7888 (bind 7889 (kern-mk-obj t_spawn_pt 1 7890 ;; hooks 7891 (list 7892 ) 7893 ) 7894 (list 7895 'spawn-pt 7896 'cave-goblin-berserker 7897 ) 7898 ) ;; bind 7899 15 9) 7900 (list 7901 (bind 7902 (kern-mk-obj t_spawn_pt 1 7903 ;; hooks 7904 (list 7905 ) 7906 ) 7907 (list 7908 'spawn-pt 7909 'forest-goblin-hunter 7910 ) 7911 ) ;; bind 7912 15 5) 7913 (list 7914 (bind 7915 (kern-mk-obj t_spawn_pt 1 7916 ;; hooks 7917 (list 7918 ) 7919 ) 7920 (list 7921 'spawn-pt 7922 'forest-goblin-hunter 7923 ) 7924 ) ;; bind 7925 12 7) 7926 ) ;; end of objects in p_goblin_crossroads 7927 (list ;; on-entry-hooks 7928 'on-entry-to-dungeon-room 7929 ) 7930 (list ;; edge entrances 7931 (list 0 18 18) ;; Northwest 7932 (list 1 9 18) ;; North 7933 (list 2 0 18) ;; Northeast 7934 (list 3 18 9) ;; West 7935 (list 4 9 9) ;; Here 7936 (list 5 0 9) ;; East 7937 (list 6 18 0) ;; Southwest 7938 (list 7 9 0) ;; South 7939 (list 8 0 0) ;; SoutheastUp 7940 ) 7941 ) ;; end of place p_goblin_crossroads 7942 7943 7) 7944 ) ;; end neighbors of p_shamans_grove 7945 (list ;; objects in p_shamans_grove 7946 (list 7947 (bind 7948 (kern-mk-obj t_spawn_pt 1 7949 ;; hooks 7950 (list 7951 ) 7952 ) 7953 (list 7954 'spawn-pt 7955 'forest-goblin-hunter 7956 ) 7957 ) ;; bind 7958 4 10) 7959 (list 7960 (bind 7961 (kern-mk-obj t_spawn_pt 1 7962 ;; hooks 7963 (list 7964 ) 7965 ) 7966 (list 7967 'spawn-pt 7968 'forest-goblin-stalker 7969 ) 7970 ) ;; bind 7971 5 11) 7972 (list 7973 (bind 7974 (kern-mk-obj t_monman 1 7975 ;; hooks 7976 (list 7977 ) 7978 ) 7979 (list 7980 'monman 7981 (list 7982 0 7983 0 7984 0 7985 -1 7986 6 7987 -1 7988 ) 7989 ) 7990 ) ;; bind 7991 0 0) 7992 (list 7993 (bind 7994 (kern-mk-obj t_ladder_down 1 7995 ;; hooks 7996 (list 7997 ) 7998 ) 7999 (list 8000 'p_dank_cave 8001 9 8002 1 8003 ) 8004 ) ;; bind 8005 14 11) 8006 (list 8007 (bind 8008 (kern-mk-obj t_spawn_pt 1 8009 ;; hooks 8010 (list 8011 ) 8012 ) 8013 (list 8014 'spawn-pt 8015 'forest-goblin-shaman 8016 ) 8017 ) ;; bind 8018 9 3) 8019 (list 8020 (bind 8021 (kern-mk-obj t_spawn_pt 1 8022 ;; hooks 8023 (list 8024 ) 8025 ) 8026 (list 8027 'spawn-pt 8028 'forest-goblin-hunter 8029 ) 8030 ) ;; bind 8031 3 11) 8032 ) ;; end of objects in p_shamans_grove 8033 (list ;; on-entry-hooks 8034 'on-entry-to-dungeon-room 8035 ) 8036 (list ;; edge entrances 8037 (list 0 18 18) ;; Northwest 8038 (list 1 9 18) ;; North 8039 (list 2 0 18) ;; Northeast 8040 (list 3 18 9) ;; West 8041 (list 4 9 9) ;; Here 8042 (list 5 0 9) ;; East 8043 (list 6 18 0) ;; Southwest 8044 (list 7 9 0) ;; South 8045 (list 8 0 0) ;; SoutheastUp 8046 ) 8047) ;; end of place p_shamans_grove 8048 8049p_watchpoint 8050p_trolls_den 8051p_cave_goblin_village 8052p_goblin_crossroads 8053p_kurpolis_entrance 8054(kern-mk-place 'p_treasury2 "Lost Treasury of Luximene" 8055 nil ;; sprite 8056 (kern-mk-map 8057 nil 19 19 pal_expanded 8058 (list 8059 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 8060 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 8061 "xx xx xx xx xx ,T ,R ,E ,A ,S ,U ,R ,Y @@ xx xx xx xx xx " 8062 "xx xx xx xx xx @@ @@ @@ ,O @@ ,F @@ @@ @@ xx xx xx xx xx " 8063 "xx xx xx xx xx @@ ,L ,U ,X ,I ,M ,E ,N ,E xx xx xx xx xx " 8064 "xx xx xx xx xx cc cc cc ,, cc ,, cc cc cc xx xx xx xx xx " 8065 "xx xx xx xx xx cc pp ,, ,, ,, ,, ,, pp cc xx xx xx xx xx " 8066 "xx xx xx xx xx cc ,, ,, ,, cc ,, ,, ,, cc xx xx xx xx xx " 8067 "xx xx xx xx xx ,, ,, ,, cc cc cc ,, ,, ,, xx xx xx xx xx " 8068 "xx xx xx xx xx ,, ,, cc cc ,, cc cc ,, ,, xx xx xx xx xx " 8069 "xx xx xx xx xx ,, ,, ,, cc cc cc ,, ,, ,, xx xx xx xx xx " 8070 "xx xx xx xx xx xx ,, ,, ,, cc ,, ,, ,, xx xx xx xx xx xx " 8071 "xx xx xx xx xx xx xx ,, ,, ,, ,, ,, xx xx xx xx xx xx xx " 8072 "xx xx xx xx xx xx xx xx ,, ,, ,, xx xx xx xx xx xx xx xx " 8073 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 8074 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 8075 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 8076 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 8077 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 8078 ) 8079 ) 8080 #f #t #f #f 8081 ;; subplaces 8082 nil 8083 nil ;; neighbors 8084 (list ;; objects in p_treasury2 8085 (list 8086 (kern-mk-obj t_gold_coins 63 8087 ;; hooks 8088 (list 8089 ) 8090 ) 8091 9 13) 8092 (list 8093 (kern-mk-obj t_gold_coins 45 8094 ;; hooks 8095 (list 8096 ) 8097 ) 8098 13 5) 8099 (list 8100 (kern-mk-obj t_gold_coins 62 8101 ;; hooks 8102 (list 8103 ) 8104 ) 8105 12 11) 8106 (list 8107 (kern-mk-obj t_gold_coins 27 8108 ;; hooks 8109 (list 8110 ) 8111 ) 8112 10 8) 8113 (list 8114 (kern-mk-obj t_gold_coins 54 8115 ;; hooks 8116 (list 8117 ) 8118 ) 8119 7 11) 8120 (list 8121 (kern-mk-obj t_gold_coins 48 8122 ;; hooks 8123 (list 8124 ) 8125 ) 8126 5 8) 8127 (list 8128 (kern-mk-obj t_gold_coins 47 8129 ;; hooks 8130 (list 8131 ) 8132 ) 8133 13 8) 8134 (list 8135 (kern-mk-obj t_gold_coins 64 8136 ;; hooks 8137 (list 8138 ) 8139 ) 8140 11 11) 8141 (list 8142 (kern-mk-obj t_gold_coins 45 8143 ;; hooks 8144 (list 8145 ) 8146 ) 8147 8 13) 8148 (list 8149 (kern-mk-obj t_gold_coins 60 8150 ;; hooks 8151 (list 8152 ) 8153 ) 8154 8 9) 8155 (list 8156 (kern-mk-obj t_gold_coins 62 8157 ;; hooks 8158 (list 8159 ) 8160 ) 8161 13 10) 8162 (list 8163 (kern-mk-obj t_gold_coins 81 8164 ;; hooks 8165 (list 8166 ) 8167 ) 8168 8 10) 8169 (list 8170 (kern-mk-obj t_gold_coins 49 8171 ;; hooks 8172 (list 8173 ) 8174 ) 8175 7 9) 8176 (list 8177 (kern-mk-container 8178 t_chest 8179 ;; trap 8180 nil 8181 ;; contents 8182 (list 8183 (list 1 t_torch) 8184 ) 8185 ;; hooks 8186 (list 8187 ) 8188 ) 8189 8 11) 8190 (list 8191 (kern-mk-container 8192 t_chest 8193 ;; trap 8194 nil 8195 ;; contents 8196 (list 8197 (list 1 t_food) 8198 ) 8199 ;; hooks 8200 (list 8201 ) 8202 ) 8203 10 13) 8204 (list 8205 (kern-mk-container 8206 t_chest 8207 ;; trap 8208 nil 8209 ;; contents 8210 (list 8211 (list 9 t_gold_coins) 8212 (list 1 t_mana_potion) 8213 (list 3 t_arrow) 8214 ) 8215 ;; hooks 8216 (list 8217 ) 8218 ) 8219 10 10) 8220 (list 8221 (kern-mk-container 8222 t_chest 8223 ;; trap 8224 nil 8225 ;; contents 8226 (list 8227 (list 1 t_torch) 8228 (list 5 t_bolt) 8229 (list 1 t_gold_coins) 8230 ) 8231 ;; hooks 8232 (list 8233 ) 8234 ) 8235 11 9) 8236 (list 8237 (kern-mk-container 8238 t_chest 8239 ;; trap 8240 nil 8241 ;; contents 8242 (list 8243 (list 4 t_food) 8244 (list 4 t_gold_coins) 8245 (list 4 t_arrow) 8246 (list 3 t_bolt) 8247 ) 8248 ;; hooks 8249 (list 8250 ) 8251 ) 8252 6 9) 8253 (list 8254 (kern-mk-obj t_gem 1 8255 ;; hooks 8256 (list 8257 ) 8258 ) 8259 9 8) 8260 (list 8261 (kern-mk-obj t_gem 1 8262 ;; hooks 8263 (list 8264 ) 8265 ) 8266 10 11) 8267 (list 8268 (kern-mk-obj t_gem 1 8269 ;; hooks 8270 (list 8271 ) 8272 ) 8273 10 5) 8274 (list 8275 (kern-mk-obj t_gem 1 8276 ;; hooks 8277 (list 8278 ) 8279 ) 8280 10 6) 8281 (list 8282 (kern-mk-obj t_gem 1 8283 ;; hooks 8284 (list 8285 ) 8286 ) 8287 12 7) 8288 (list 8289 (kern-mk-obj t_gem 1 8290 ;; hooks 8291 (list 8292 ) 8293 ) 8294 10 9) 8295 (list 8296 (kern-mk-obj t_gem 1 8297 ;; hooks 8298 (list 8299 ) 8300 ) 8301 5 10) 8302 (list 8303 (kern-mk-obj t_gem 1 8304 ;; hooks 8305 (list 8306 ) 8307 ) 8308 12 9) 8309 (list 8310 (kern-mk-obj t_gem 1 8311 ;; hooks 8312 (list 8313 ) 8314 ) 8315 11 6) 8316 (list 8317 (kern-mk-obj t_gem 1 8318 ;; hooks 8319 (list 8320 ) 8321 ) 8322 7 8) 8323 (list 8324 (bind 8325 (kern-mk-obj t_corpse 1 8326 ;; hooks 8327 (list 8328 ) 8329 ) 8330 (list 8331 (list 8332 (list 8333 1 8334 't_arrow 8335 ) 8336 (list 8337 2 8338 't_arrow 8339 ) 8340 ) 8341 ) 8342 ) ;; bind 8343 11 7) 8344 (list 8345 (bind 8346 (kern-mk-obj t_corpse 1 8347 ;; hooks 8348 (list 8349 ) 8350 ) 8351 (list 8352 (list 8353 (list 8354 5 8355 't_bolt 8356 ) 8357 (list 8358 5 8359 't_bolt 8360 ) 8361 ) 8362 ) 8363 ) ;; bind 8364 9 12) 8365 (list 8366 (bind 8367 (kern-mk-obj t_corpse 1 8368 ;; hooks 8369 (list 8370 ) 8371 ) 8372 (list 8373 (list 8374 (list 8375 1 8376 't_bolt 8377 ) 8378 ) 8379 ) 8380 ) ;; bind 8381 5 7) 8382 (list 8383 (bind 8384 (kern-mk-obj t_monman 1 8385 ;; hooks 8386 (list 8387 ) 8388 ) 8389 (list 8390 'monman 8391 (list 8392 0 8393 0 8394 0 8395 -1 8396 6 8397 -1 8398 ) 8399 ) 8400 ) ;; bind 8401 0 0) 8402 (list 8403 (bind 8404 (kern-mk-obj t_ladder_down 1 8405 ;; hooks 8406 (list 8407 ) 8408 ) 8409 (list 8410 'p_treasury 8411 9 8412 9 8413 ) 8414 ) ;; bind 8415 9 9) 8416 (list 8417 (kern-mk-container 8418 t_chest 8419 ;; trap 8420 'bomb-trap 8421 ;; contents 8422 (list 8423 (list 1 t_eldritch_blade) 8424 (list 1 t_armor_plate_4) 8425 (list 1 t_iron_helm_4) 8426 (list 1 t_doom_staff) 8427 ) 8428 ;; hooks 8429 (list 8430 ) 8431 ) 8432 9 5) 8433 (list 8434 (kern-mk-obj t_gold_coins 44 8435 ;; hooks 8436 (list 8437 ) 8438 ) 8439 11 5) 8440 (list 8441 (kern-mk-obj t_gold_coins 32 8442 ;; hooks 8443 (list 8444 ) 8445 ) 8446 9 11) 8447 (list 8448 (kern-mk-obj t_gold_coins 56 8449 ;; hooks 8450 (list 8451 ) 8452 ) 8453 12 8) 8454 (list 8455 (kern-mk-obj t_gold_coins 29 8456 ;; hooks 8457 (list 8458 ) 8459 ) 8460 11 12) 8461 (list 8462 (kern-mk-obj t_gold_coins 51 8463 ;; hooks 8464 (list 8465 ) 8466 ) 8467 9 10) 8468 (list 8469 (kern-mk-obj t_gold_coins 61 8470 ;; hooks 8471 (list 8472 ) 8473 ) 8474 7 10) 8475 (list 8476 (kern-mk-obj t_gold_coins 49 8477 ;; hooks 8478 (list 8479 ) 8480 ) 8481 7 6) 8482 ) ;; end of objects in p_treasury2 8483 (list ;; on-entry-hooks 8484 'on-entry-to-dungeon-room 8485 ) 8486 (list ;; edge entrances 8487 (list 0 18 18) ;; Northwest 8488 (list 1 9 18) ;; North 8489 (list 2 0 18) ;; Northeast 8490 (list 3 18 9) ;; West 8491 (list 4 9 9) ;; Here 8492 (list 5 0 9) ;; East 8493 (list 6 18 0) ;; Southwest 8494 (list 7 9 0) ;; South 8495 (list 8 0 0) ;; SoutheastUp 8496 ) 8497) ;; end of place p_treasury2 8498 8499(kern-load "may.scm") 8500 8501(kern-load "kathryn.scm") 8502 8503(kern-load "thud.scm") 8504 8505(kern-load "bill.scm") 8506 8507(kern-load "melvin.scm") 8508 8509(kern-load "hackle.scm") 8510 8511(kern-mk-place 'p_bole "Bole" 8512 s_hamlet ;; sprite 8513 (kern-mk-map 8514 nil 48 39 pal_expanded 8515 (list 8516 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ~6 ^a ^^ ^c ~6 ^a ^^ ^^ ~6 || || || || || || || || || ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8517 "^^ ^^ ^^ ^^ ^c t7 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ~6 |B || |% ~6 |# |% ^e ~6 || || || || || || || || || ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8518 "^^ ^^ ^c t3 tt tc {5 ^^ ^^ ^^ ^^ ^^ ^^ ~a ~5 |A |C ~6 |A |C ~3 ~c || || || || || || || || || |% ^a ^^ ^^ ^^ ^^ ^c |& ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8519 "^^ ^^ t3 tt tc t# .. {1 {5 ^^ ^^ ^^ ^c |& ~a ~1 ~~ ~~ ~~ ~1 ~c |# || || || || || || || || || || |% ^^ ^^ ^c |# || || |% ^e t3 tt tt tt t5 ^^ ^^ " 8520 "^^ ^c tt t# .. .. .. .. .. {5 ^c tb tt || |% ~a ~~ bb ~~ ~c |# || || || tt tt tt tt tt tt tt tt || ^a ^c |# || || || || tt tc bb .. bb te ^a ^^ " 8521 "^^ t3 tc .. .. .. .. .. .. .. bb .. t% tt || tH ~a ~~ ~c tG || || || tc t# .. .. .. t% ta tt tt || || || || || || |C ^7 tt bb .. .. .. bb t7 ^^ " 8522 "^^ tt t# .. .. .. .. .. .. bb .. .. .. ta tt tt td ~6 tb tt || || tt t# tC t3 tt t5 tA .. t% ta tt tt tt || || || ^3 ^^ tt .. .. .. .. tb tt ^^ " 8523 "^^ tt .. .. rr rr rr rr rr rr rr .. .. .. .. .. .. == .. t% ta tt tc .. t3 || || || || t5 .. .. .. t% tt || || |C ^^ ^^ tt bb .. .. .. bb tt ^^ " 8524 "^^ tt .. .. rr .. .. .. .. .. rr .. .. tC t3 tt td ~6 t7 tA .. .. .. tC tt || || || || tt tA .. .. tC tt || |C ^3 ^^ ^^ ta t5 bb .. bb t3 tc ^^ " 8525 "^^ tt .. .. rr .. .. .. .. .. rr .. .. t3 || || ~3 ~c || tt tt tt tt tt || || || || || tt t5 .. .. t3 tt || ^3 ^^ ^^ ^^ ^5 ta tt tt tt tc ^3 ^^ " 8526 "^^ tt .. .. rr .. .. && .. .. .. .. .. tt || || ~6 |# || || || || || || || || || || || || tt .. tC tt || |C ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8527 "^^ tt .. .. rr .. .. .. .. .. rr .. .. tt || |C ~6 || || || || || || || || || || tt tt tt tc .. t3 || |C ^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8528 "^^ tt .. .. rr .. .. .. .. .. rr .. .. tt || ~3 ~c tt tt tt tt tt tt tt tt || || tt t# .. .. tC tt || ^b ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8529 "^^ tt .. .. rr rr rr .. rr rr rr .. .. || |C ~6 t3 tt tt tt tt tt tt tt tt tt || tt .. t3 tt tt || || |% ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8530 "^^ tt tA .. .. .. .. .. .. bb .. .. tC || ~3 ~c tt xx xx xx xx xx xx xx xx tt tt tc .. tt tt tt tt tt tt t5 ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8531 "^^ tt t5 tA .. .. .. .. bb {8 tC t3 tt || ~6 t3 tt xx cc cc cc cc cc cc xx te bb .. tC tt tt tt tt tt tt tt tt td ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 8532 "^^ ta tt t5 .. .. .. {c ^^ ^c t3 tt || || ~6 tt tt xx cc xx cc cc cc cc xx .. .. .. t3 tt xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx ^^ ^^ " 8533 "^^ ^5 tt tt tA .. {c ^^ ^^ t3 tt || tt tc ~6 tt tt xx xx xx cc cc cc cc cc .. .. bb tt tt xx cc cc cc cc cc cc cc cc xx cc cc cc cc cc xx ^^ ^^ " 8534 "^^ ^^ ta tt tt td ^^ ^^ ^c tt tt || tt ~3 ~c tt tt tt t5 xx cc cc cc cc xx .. .. tb tt tt xx cc cc x! cc cc x! cc cc xx cc cc cc cc cc xx ^^ ^^ " 8535 "^^ ^^ ^5 ta tc ^3 ^^ ^^ t3 tt tt || tt ~6 t3 tt tt tt tt xx cc cc cc cc xx .. .. bb tt tt xx xx xx xx cc cc xx xx xx xx cc cc cc cc cc xx ^^ ^^ " 8536 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^c tt || || tt tc ~6 tt || || tt tt xx xx xx && xx xx .. .. .. ta tt xx cc cc cc cc cc cc cc cc xx cc cc cc cc cc xx ^^ ^^ " 8537 "^^ ^^ ^^ ^^ ^^ ^^ ^c t3 tt || tt tc ~3 ~c tt || || tt tt tt t5 xx xx xx t7 bb .. .. bb tt xx cc cc x! cc cc x! cc cc xx cc cc cc cc cc xx ^^ ^^ " 8538 "^^ ^^ ^^ ^^ ^^ t3 tt tt tt tt tc ~3 ~c t3 tt || || || tt tt tt tt tt tt tt td .. .. tb tt xx xx xx xx cc cc xx xx xx xx xx xx xx cc cc xx ^^ ^^ " 8539 "^^ ^^ ^^ ^^ ^^ tt || || || tt ~3 ~c t3 tt || || || || || || tt tt tt tt tt bb .. .. bb tt xx cc cc cc cc cc cc cc cc cc cc 00 xx cc cc xx ^^ ^^ " 8540 "^^ ^^ ^^ ^^ ^^ tt || || tt tc ~6 t3 tt || || || || || || || || || tt tt tt td .. .. tb tt xx cc cc cc cc cc cc cc cc cc cc 00 xx cc cc xx ^^ ^^ " 8541 "^^ |& ^a ^^ ^^ ta tt tt tc ~3 ~c tt || || || || || || || || || || || tt bb .. .. .. bb te xx cc cc 00 cc cc xx xx xx cc cc cc cc cc cc xx ^^ ^^ " 8542 "^^ || |% ^a ^^ ^5 ta tL ~3 ~4 t3 tt || || || || || || || || || || || tc .. .. .. .. .. .. sI cc cc 00 cc cc && xx && cc cc cc xx cc cc xx ^^ ^^ " 8543 "^^ || tt td ^a ^L ~3 ~~ ~~ ~4 tt || || || || || || || || || || || || bb .. .. .. .. .. .. cc cc cc 00 cc cc && xx && cc cc cc xx xx xx xx ^^ ^^ " 8544 "^^ tt tL ~3 ~1 ~~ ~~ ~~ ~~ ~4 tt || || || || || || tt tt tt || || || t5 .. .. .. .. .. .. xx cc cc 00 cc cc xx xx xx cc cc cc cc cc cc xx ^^ ^^ " 8545 "^c tL ~3 ~~ ~~ bb ~~ ~~ ~~ ~c tt || || || || || tt tc ^7 ta tt || || tt bb .. .. .. bb t7 xx cc cc cc cc cc cc cc cc cc cc 00 xx cc cc xx ^^ ^^ " 8546 "~~ ~~ ~~ ~~ ~~ ~~ ~~ bb ~~ tG tt || || || || tt tc ^3 ^^ ^5 ta tt || || tt td .. .. tb tt xx cc cc cc cc cc cc cc cc cc cc 00 xx cc cc xx ^^ ^^ " 8547 "bb ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~c tt || || || || || tt ^b ^^ ^^ ^^ ^d tt || || || bb .. .. bb tt xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx ^^ ^^ " 8548 "~~ ~~ ~~ bb ~~ ~~ ~8 ~c tG tt || || || || || tt t5 ^a ^^ ^c t3 tt || || || td .. .. tb tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt t5 ^^ ^^ ^^ " 8549 "~~ ~~ ~~ ~~ ~c tG tt tt tt || || || || || || || tt tt tt tt tt || || || tt bb .. .. bb tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt tt t5 ^a ^^ " 8550 "~~ bb ~c tG tt tt tt tt || || || || || || || || || || || || || || || || tc .. .. .. tb tt tt || || || || || || || || || || || tt tt tt tt td ^^ " 8551 "~~ ~~ || tt tt tt tt tt tt || || || || || || || || || || || || || || || bb .. .. .. bb || || || || || || || || || || || || || || || tt tc ^3 ^^ " 8552 "~~ ~c || || tt tt tt tt tt || || || || || || || || || || || || || || || td .. .. tb tt || || || || || || || || || || || || || || || tt ^b ^^ ^^ " 8553 "~c tG || || tt tt || || || || || || || || || || || || || || || || || || bb .. .. bb || || || || || || || || || || || || || || || || tt t5 ^a ^^ " 8554 "|| || || || || || || || || || || || || || || || || || || || || || || || t5 .. .. t3 || || || || || || || || || || || || || || || || || tt t5 ^^ " 8555 ) 8556 ) 8557 #f #f #f #f 8558 ;; subplaces 8559 nil 8560 nil ;; neighbors 8561 (list ;; objects in p_bole 8562 (list 8563 (kern-mk-obj t_bed 1 8564 ;; hooks 8565 (list 8566 ) 8567 ) 8568 38 21) 8569 (list 8570 (kern-mk-obj t_bed 1 8571 ;; hooks 8572 (list 8573 ) 8574 ) 8575 40 17) 8576 (list 8577 (kern-mk-obj t_bed 1 8578 ;; hooks 8579 (list 8580 ) 8581 ) 8582 44 17) 8583 (list 8584 (bind 8585 (kern-mk-obj t_door 1 8586 ;; hooks 8587 (list 8588 ) 8589 ) 8590 (list 8591 #f 8592 0 8593 '() 8594 #f 8595 #t 8596 #f 8597 (list 8598 (list 8599 's_closed_solid_wood_door_in_stone 8600 #t 8601 5 8602 ) 8603 (list 8604 's_open_door_in_stone 8605 #f 8606 0 8607 ) 8608 (list 8609 's_locked_solid_wood_door_in_stone 8610 #t 8611 5 8612 ) 8613 (list 8614 's_magically_locked_solid_wood_door_in_stone 8615 #t 8616 5 8617 ) 8618 ) 8619 ) 8620 ) ;; bind 8621 24 17) 8622 (list 8623 (bind 8624 (kern-mk-obj t_door 1 8625 ;; hooks 8626 (list 8627 ) 8628 ) 8629 (list 8630 #f 8631 0 8632 '() 8633 #f 8634 #t 8635 #f 8636 (list 8637 (list 8638 's_closed_solid_wood_door_in_stone 8639 #t 8640 5 8641 ) 8642 (list 8643 's_open_door_in_stone 8644 #f 8645 0 8646 ) 8647 (list 8648 's_locked_solid_wood_door_in_stone 8649 #t 8650 5 8651 ) 8652 (list 8653 's_magically_locked_solid_wood_door_in_stone 8654 #t 8655 5 8656 ) 8657 ) 8658 ) 8659 ) ;; bind 8660 19 15) 8661 (list 8662 (kern-mk-obj t_bed 1 8663 ;; hooks 8664 (list 8665 ) 8666 ) 8667 23 19) 8668 (list 8669 (kern-mk-obj t_bed 1 8670 ;; hooks 8671 (list 8672 ) 8673 ) 8674 5 8) 8675 (list 8676 (bind 8677 (kern-mk-obj t_door 1 8678 ;; hooks 8679 (list 8680 ) 8681 ) 8682 (list 8683 #f 8684 0 8685 '() 8686 #f 8687 #f 8688 #f 8689 (list 8690 (list 8691 's_closed_windowed_wood_door_in_rock 8692 #f 8693 5 8694 ) 8695 (list 8696 's_open_door_in_rock 8697 #f 8698 0 8699 ) 8700 (list 8701 's_locked_windowed_wood_door_in_rock 8702 #f 8703 5 8704 ) 8705 (list 8706 's_magically_locked_windowed_wood_door_in_rock 8707 #f 8708 5 8709 ) 8710 ) 8711 ) 8712 ) ;; bind 8713 7 13) 8714 (list 8715 (bind 8716 (kern-mk-obj t_door 1 8717 ;; hooks 8718 (list 8719 ) 8720 ) 8721 (list 8722 #f 8723 0 8724 '() 8725 #f 8726 #f 8727 #f 8728 (list 8729 (list 8730 's_closed_windowed_wood_door_in_rock 8731 #f 8732 5 8733 ) 8734 (list 8735 's_open_door_in_rock 8736 #f 8737 0 8738 ) 8739 (list 8740 's_locked_windowed_wood_door_in_rock 8741 #f 8742 5 8743 ) 8744 (list 8745 's_magically_locked_windowed_wood_door_in_rock 8746 #f 8747 5 8748 ) 8749 ) 8750 ) 8751 ) ;; bind 8752 10 10) 8753 (list 8754 (bind 8755 (kern-mk-obj t_thief_door 1 8756 ;; hooks 8757 (list 8758 (list 8759 ef_permanent_invisibility 8760 '() 8761 2 8762 0 8763 ) 8764 ) 8765 ) 8766 (list 8767 'p_traps_1 8768 4 8769 16 8770 ) 8771 ) ;; bind 8772 43 6) 8773 (list 8774 (bind 8775 (kern-mk-char 8776 'ch_may 8777 "May" 8778 sp_human 8779 nil 8780 s_townswoman 8781 2 8782 0 0 0 8783 0 0 8784 0 0 8785 16 0 8786 8 6 8787 #f ;; dead? 8788 'may-conv 8789 sch_may 8790 nil 8791 nil ;; inventory 8792 nil 8793 ;; hooks 8794 (list 8795 ) 8796 ) 8797 '() 8798 ) ;; bind 8799 31 23) 8800 (list 8801 (bind 8802 (kern-char-force-drop (kern-mk-char 8803 'ch_kathryn 8804 "Kathryn" 8805 sp_human 8806 oc_wizard 8807 s_wizard 8808 2 8809 0 4 0 8810 2 1 8811 4 2 8812 16 0 8813 8 6 8814 #f ;; dead? 8815 'kathryn-conv 8816 sch_kathryn 8817 'spell-sword-ai 8818 (kern-mk-container 8819 t_chest 8820 ;; trap 8821 nil 8822 ;; contents 8823 (list 8824 (list 1 t_kathryns_letter) 8825 (list 100 t_gold_coins) 8826 (list 5 sulphorous_ash) 8827 (list 5 ginseng) 8828 (list 5 garlic) 8829 (list 3 spider_silk) 8830 (list 3 blood_moss) 8831 (list 2 black_pearl) 8832 (list 1 nightshade) 8833 (list 1 mandrake) 8834 (list 1 t_wis_quas_scroll) 8835 ) 8836 ;; hooks 8837 (list 8838 ) 8839 ) 8840 (list 8841 t_staff 8842 ) 8843 ;; hooks 8844 (list 8845 ) 8846 ) 8847 #t) ;; kern-char-force-drop 8848 '() 8849 ) ;; bind 8850 31 23) 8851 (list 8852 (bind 8853 (kern-mk-char 8854 'ch_thud 8855 "Thud" 8856 sp_troll 8857 oc_warrior 8858 s_troll 8859 2 8860 4 0 2 8861 2 1 8862 0 0 8863 40 4096 8864 8 6 8865 #f ;; dead? 8866 'thud-conv 8867 sch_thud 8868 nil 8869 nil ;; inventory 8870 (list 8871 t_iron_helm 8872 t_2h_axe 8873 t_armor_plate 8874 ) 8875 ;; hooks 8876 (list 8877 ) 8878 ) 8879 '() 8880 ) ;; bind 8881 31 23) 8882 (list 8883 (bind 8884 (kern-mk-char 8885 'ch_bill 8886 "Bill" 8887 sp_human 8888 nil 8889 s_townsman 8890 2 8891 0 0 0 8892 0 0 8893 0 0 8894 13 0 8895 5 3 8896 #f ;; dead? 8897 'bill-conv 8898 sch_bill 8899 nil 8900 (kern-mk-container 8901 t_chest 8902 ;; trap 8903 nil 8904 ;; contents 8905 (list 8906 (list 10 t_torch) 8907 (list 100 t_arrow) 8908 ) 8909 ;; hooks 8910 (list 8911 ) 8912 ) 8913 (list 8914 t_2h_axe 8915 ) 8916 ;; hooks 8917 (list 8918 ) 8919 ) 8920 '() 8921 ) ;; bind 8922 20 15) 8923 (list 8924 (bind 8925 (kern-mk-char 8926 'ch_melvin 8927 "Melvin" 8928 sp_human 8929 nil 8930 s_townsman 8931 2 8932 10 10 10 8933 0 0 8934 0 0 8935 13 0 8936 0 3 8937 #f ;; dead? 8938 'melvin-conv 8939 sch_melvin 8940 nil 8941 nil ;; inventory 8942 nil 8943 ;; hooks 8944 (list 8945 ) 8946 ) 8947 '() 8948 ) ;; bind 8949 40 18) 8950 (list 8951 (bind 8952 (kern-mk-char 8953 'ch_hackle 8954 "Hackle" 8955 sp_human 8956 nil 8957 s_beggar 8958 2 8959 10 10 10 8960 0 0 8961 0 0 8962 16 0 8963 0 6 8964 #f ;; dead? 8965 'hackle-conv 8966 sch_hackle 8967 nil 8968 nil ;; inventory 8969 nil 8970 ;; hooks 8971 (list 8972 ) 8973 ) 8974 '() 8975 ) ;; bind 8976 2 3) 8977 (list 8978 (bind 8979 (kern-mk-char 8980 nil 8981 "bull" 8982 sp_bull 8983 nil 8984 s_bull 8985 0 8986 0 0 0 8987 0 0 8988 0 0 8989 22 128 8990 1 1 8991 #f ;; dead? 8992 nil 8993 nil 8994 'animal-ai 8995 (kern-mk-container 8996 t_chest 8997 ;; trap 8998 nil 8999 ;; contents 9000 nil 9001 ;; hooks 9002 (list 9003 ) 9004 ) 9005 nil 9006 ;; hooks 9007 (list 9008 ) 9009 ) 9010 (list 9011 'npcg 9012 'bull 9013 #f 9014 #f 9015 '() 9016 ) 9017 ) ;; bind 9018 6 4) 9019 (list 9020 (bind 9021 (kern-mk-char 9022 nil 9023 "dryad" 9024 sp_dryad 9025 nil 9026 s_reaper 9027 5 9028 0 0 0 9029 0 0 9030 0 0 9031 20 16384 9032 30 8 9033 #f ;; dead? 9034 nil 9035 nil 9036 'dryad-ai 9037 (kern-mk-container 9038 t_chest 9039 ;; trap 9040 nil 9041 ;; contents 9042 nil 9043 ;; hooks 9044 (list 9045 ) 9046 ) 9047 nil 9048 ;; hooks 9049 (list 9050 (list 9051 ef_loot_drop 9052 (list 9053 'loot-drop-gob 9054 'drop-generic 9055 (list 9056 (list 9057 (list 9058 100 9059 "1d5" 9060 't_torch 9061 ) 9062 ) 9063 ) 9064 ) 9065 2 9066 0 9067 ) 9068 ) 9069 ) 9070 (list 9071 'npcg 9072 'dryad 9073 #f 9074 #f 9075 '() 9076 ) 9077 ) ;; bind 9078 6 35) 9079 (list 9080 (kern-tag 'bole-inn-room-door 9081 (bind 9082 (kern-mk-obj t_door 1 9083 ;; hooks 9084 (list 9085 ) 9086 ) 9087 (list 9088 #f 9089 0 9090 '() 9091 #f 9092 #t 9093 #f 9094 (list 9095 (list 9096 's_closed_solid_wood_door_in_stone 9097 #t 9098 5 9099 ) 9100 (list 9101 's_open_door_in_stone 9102 #f 9103 0 9104 ) 9105 (list 9106 's_locked_solid_wood_door_in_stone 9107 #t 9108 5 9109 ) 9110 (list 9111 's_magically_locked_solid_wood_door_in_stone 9112 #t 9113 5 9114 ) 9115 ) 9116 ) 9117 ) ;; bind 9118 ) ;; kern-tag 9119 33 17) 9120 (list 9121 (bind 9122 (kern-mk-obj t_door 1 9123 ;; hooks 9124 (list 9125 ) 9126 ) 9127 (list 9128 #f 9129 0 9130 '() 9131 #f 9132 #t 9133 #f 9134 (list 9135 (list 9136 's_closed_solid_wood_door_in_stone 9137 #t 9138 5 9139 ) 9140 (list 9141 's_open_door_in_stone 9142 #f 9143 0 9144 ) 9145 (list 9146 's_locked_solid_wood_door_in_stone 9147 #t 9148 5 9149 ) 9150 (list 9151 's_magically_locked_solid_wood_door_in_stone 9152 #t 9153 5 9154 ) 9155 ) 9156 ) 9157 ) ;; bind 9158 36 17) 9159 (list 9160 (bind 9161 (kern-mk-obj t_door 1 9162 ;; hooks 9163 (list 9164 ) 9165 ) 9166 (list 9167 #f 9168 0 9169 '() 9170 #f 9171 #t 9172 #f 9173 (list 9174 (list 9175 's_closed_solid_wood_door_in_stone 9176 #t 9177 5 9178 ) 9179 (list 9180 's_open_door_in_stone 9181 #f 9182 0 9183 ) 9184 (list 9185 's_locked_solid_wood_door_in_stone 9186 #t 9187 5 9188 ) 9189 (list 9190 's_magically_locked_solid_wood_door_in_stone 9191 #t 9192 5 9193 ) 9194 ) 9195 ) 9196 ) ;; bind 9197 33 20) 9198 (list 9199 (bind 9200 (kern-mk-obj t_door 1 9201 ;; hooks 9202 (list 9203 ) 9204 ) 9205 (list 9206 #f 9207 0 9208 '() 9209 #f 9210 #t 9211 #f 9212 (list 9213 (list 9214 's_closed_solid_wood_door_in_stone 9215 #t 9216 5 9217 ) 9218 (list 9219 's_open_door_in_stone 9220 #f 9221 0 9222 ) 9223 (list 9224 's_locked_solid_wood_door_in_stone 9225 #t 9226 5 9227 ) 9228 (list 9229 's_magically_locked_solid_wood_door_in_stone 9230 #t 9231 5 9232 ) 9233 ) 9234 ) 9235 ) ;; bind 9236 36 20) 9237 (list 9238 (bind 9239 (kern-mk-obj t_door 1 9240 ;; hooks 9241 (list 9242 ) 9243 ) 9244 (list 9245 #f 9246 0 9247 '() 9248 #f 9249 #t 9250 #f 9251 (list 9252 (list 9253 's_closed_solid_wood_door_in_stone 9254 #t 9255 5 9256 ) 9257 (list 9258 's_open_door_in_stone 9259 #f 9260 0 9261 ) 9262 (list 9263 's_locked_solid_wood_door_in_stone 9264 #t 9265 5 9266 ) 9267 (list 9268 's_magically_locked_solid_wood_door_in_stone 9269 #t 9270 5 9271 ) 9272 ) 9273 ) 9274 ) ;; bind 9275 42 25) 9276 (list 9277 (bind 9278 (kern-mk-obj t_door 1 9279 ;; hooks 9280 (list 9281 ) 9282 ) 9283 (list 9284 #f 9285 0 9286 '() 9287 #f 9288 #f 9289 #f 9290 (list 9291 (list 9292 's_closed_solid_wood_door_in_stone 9293 #t 9294 5 9295 ) 9296 (list 9297 's_open_door_in_stone 9298 #f 9299 0 9300 ) 9301 (list 9302 's_locked_solid_wood_door_in_stone 9303 #t 9304 5 9305 ) 9306 (list 9307 's_magically_locked_solid_wood_door_in_stone 9308 #t 9309 5 9310 ) 9311 ) 9312 ) 9313 ) ;; bind 9314 42 28) 9315 (list 9316 (bind 9317 (kern-mk-obj t_door 1 9318 ;; hooks 9319 (list 9320 ) 9321 ) 9322 (list 9323 #f 9324 0 9325 '() 9326 #f 9327 #f 9328 #f 9329 (list 9330 (list 9331 's_closed_windowed_wood_door_in_rock 9332 #f 9333 5 9334 ) 9335 (list 9336 's_open_door_in_rock 9337 #f 9338 0 9339 ) 9340 (list 9341 's_locked_windowed_wood_door_in_rock 9342 #f 9343 5 9344 ) 9345 (list 9346 's_magically_locked_windowed_wood_door_in_rock 9347 #f 9348 5 9349 ) 9350 ) 9351 ) 9352 ) ;; bind 9353 30 27) 9354 (list 9355 (kern-mk-obj t_bed 1 9356 ;; hooks 9357 (list 9358 ) 9359 ) 9360 31 18) 9361 (list 9362 (kern-mk-obj t_bed 1 9363 ;; hooks 9364 (list 9365 ) 9366 ) 9367 38 18) 9368 (list 9369 (kern-mk-obj t_bed 1 9370 ;; hooks 9371 (list 9372 ) 9373 ) 9374 31 21) 9375 ) ;; end of objects in p_bole 9376 (list ;; on-entry-hooks 9377 'lock-inn-room-doors 9378 ) 9379 (list ;; edge entrances 9380 (list 0 47 38) ;; Northwest 9381 (list 1 26 38) ;; North 9382 (list 2 0 38) ;; Northeast 9383 (list 3 47 19) ;; West 9384 (list 4 24 19) ;; Here 9385 (list 5 0 19) ;; East 9386 (list 6 47 0) ;; Southwest 9387 (list 7 24 0) ;; South 9388 (list 8 0 0) ;; SoutheastUp 9389 ) 9390) ;; end of place p_bole 9391 9392(kern-load "patch.scm") 9393 9394(kern-load "angela.scm") 9395 9396(kern-load "jess.scm") 9397 9398(kern-load "chester.scm") 9399 9400(kern-load "steward.scm") 9401 9402(kern-load "ini.scm") 9403 9404(kern-load "jeffreys.scm") 9405 9406(kern-mk-place 'p_glasdrin "Glasdrin" 9407 s_keep ;; sprite 9408 (kern-mk-map 9409 nil 31 31 pal_expanded 9410 (list 9411 "xx xx xx xx xx .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. xx xx xx xx xx " 9412 "xx ,, ,, ,, xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx cc ++ cc xx " 9413 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, cc cc cc xx " 9414 "xx ,, ,, ,, xx xx xx xx xx xx xx xx xx xx xx x! xx xx xx xx xx xx xx xx xx xx xx cc cc cc xx " 9415 "xx xx ,, xx xx xx .A .R .M .S ]] xx ,, ,, ,, ,, ,, ,, ,, xx .M .E .D .I .C .K xx xx ,, xx xx " 9416 ".. xx ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, pp ,, ,, ,, pp ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. " 9417 ".. xx ,, xx ,, xx @@ @@ @@ @@ @@ xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. " 9418 ".. xx ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, pp ,, ,, ,, pp ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. " 9419 ".. xx ,, xx xx xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx xx ,, xx .. " 9420 ".. xx ,, xx xx xx xx xx ,, sA xx xx ,, pp ,, ,, ,, pp ,, xx xx xx ,, sH xx xx xx xx ,, xx .. " 9421 ".. xx ,, xx ,, ,, xx .. cc .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx cc .. xx ,, ,, xx ,, xx .. " 9422 ".. xx ,, xx ,, ,, ,, cc cc xx xx ,, xx xx ,, ,, ,, xx xx ,, xx xx cc cc ,, ,, ,, xx ,, xx .. " 9423 ".. xx ,, xx xx xx xx .. cc xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx cc .. xx xx xx xx ,, xx .. " 9424 ".. xx ,, xx ,, ,, xx .. cc xx ,, ,, ,, xx w+ ,, w+ xx ,, ,, ,, xx cc .. xx ,, ,, xx ,, xx .. " 9425 ".. xx ,, xx ,, ,, ,, cc cc xx ,, ,, ,, xx cc cc cc xx ,, ,, ,, xx cc cc ,, ,, ,, xx ,, xx .. " 9426 ".. xx ,, xx xx xx xx .. cc xx xx xx xx x! cc cc cc x! xx xx xx xx cc .. xx xx xx xx ,, xx .. " 9427 ".. xx ,, ,, cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc ,, ,, xx .. " 9428 ".. xx ,, xx xx xx xx xx xx xx .. .. .. .. cc cc cc t3 tt tt t5 xx xx xx xx xx xx xx ,, xx .. " 9429 ".. xx ,, xx .H .O .T .E .L xx .. .. .. .. cc cc cc tt ~3 ~5 tt xx .H .O .L .Y ]] xx ,, xx .. " 9430 ".. xx ,, xx ,, ,, ,, ,, ,, ,, .. .. .. .. cc cc cc tt ~a ~c tt xx .G .R .A .I .L xx ,, xx .. " 9431 ".. xx ,, xx @@ @@ @@ @@ @@ sI .. .. .. .. cc cc cc ta tt tt tc ws ,, ,, ,, ,, ,, xx ,, xx .. " 9432 ".. xx ,, xx ,, ,, ,, ,, ,, ,, cc cc cc cc cc cc cc cc cc cc cc ,, ,, ,, ,, ,, ,, xx ,, xx .. " 9433 ".. xx ,, xx x! ,, ,, ,, ,, ws bb .. .. bb cc cc cc bb bb bb bb ws ,, ,, 00 ,, && xx ,, xx .. " 9434 ".. xx ,, xx xx ,, xx ,, xx xx .. .. .. .. cc cc cc bb .. .. .. sT ,, ,, 00 ,, ,, xx ,, xx .. " 9435 ".. xx ,, xx ,, ,, xx ,, ,, xx .. .. .. .. cc cc cc bb .. tC t7 xx ,, ,, ,, ,, ,, xx ,, xx .. " 9436 ".. xx ,, xx ,, ,, xx ,, ,, xx .. .. .. bb cc cc cc bb .. tb tc xx xx [[ @@ ]] xx xx ,, xx .. " 9437 "xx xx ,, xx xx xx xx xx xx xx xx xx xx x! cc w+ cc x! xx xx xx xx xx ,, ,, ,, xx xx ,, xx xx " 9438 "xx ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, xx xx xx ,, xx xx ,, ,, ,, xx " 9439 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 9440 "xx ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, w+ cc cc cc w+ ,, ,, ,, xx xx xx xx xx xx ,, ,, ,, xx " 9441 "xx xx xx xx xx .. .. .. .. xx xx xx xx xx cc cc cc xx xx xx xx xx .. .. .. .. xx xx xx xx xx " 9442 ) 9443 ) 9444 #f #f #f #f 9445 ;; subplaces 9446 nil 9447 nil ;; neighbors 9448 (list ;; objects in p_glasdrin 9449 (list 9450 (bind 9451 (kern-mk-obj t_guard_pt 1 9452 ;; hooks 9453 (list 9454 ) 9455 ) 9456 (list 9457 'spawn-pt 9458 'halberdier 9459 ) 9460 ) ;; bind 9461 14 12) 9462 (list 9463 (bind 9464 (kern-mk-obj t_guard_pt 1 9465 ;; hooks 9466 (list 9467 ) 9468 ) 9469 (list 9470 'spawn-pt 9471 'halberdier 9472 ) 9473 ) ;; bind 9474 16 12) 9475 (list 9476 (bind 9477 (kern-mk-obj t_guard_pt 1 9478 ;; hooks 9479 (list 9480 ) 9481 ) 9482 (list 9483 'spawn-pt 9484 'crossbowman 9485 ) 9486 ) ;; bind 9487 12 28) 9488 (list 9489 (bind 9490 (kern-mk-obj t_guard_pt 1 9491 ;; hooks 9492 (list 9493 ) 9494 ) 9495 (list 9496 'spawn-pt 9497 'crossbowman 9498 ) 9499 ) ;; bind 9500 18 28) 9501 (list 9502 (bind 9503 (kern-mk-obj t_door 1 9504 ;; hooks 9505 (list 9506 ) 9507 ) 9508 (list 9509 #f 9510 0 9511 '() 9512 #f 9513 #f 9514 #f 9515 (list 9516 (list 9517 's_closed_windowed_wood_door_in_rock 9518 #f 9519 5 9520 ) 9521 (list 9522 's_open_door_in_rock 9523 #f 9524 0 9525 ) 9526 (list 9527 's_locked_windowed_wood_door_in_rock 9528 #f 9529 5 9530 ) 9531 (list 9532 's_magically_locked_windowed_wood_door_in_rock 9533 #f 9534 5 9535 ) 9536 ) 9537 ) 9538 ) ;; bind 9539 21 21) 9540 (list 9541 (bind 9542 (kern-mk-obj t_door 1 9543 ;; hooks 9544 (list 9545 ) 9546 ) 9547 (list 9548 #f 9549 0 9550 '() 9551 #f 9552 #t 9553 #f 9554 (list 9555 (list 9556 's_closed_solid_wood_door_in_stone 9557 #t 9558 5 9559 ) 9560 (list 9561 's_open_door_in_stone 9562 #f 9563 0 9564 ) 9565 (list 9566 's_locked_solid_wood_door_in_stone 9567 #t 9568 5 9569 ) 9570 (list 9571 's_magically_locked_solid_wood_door_in_stone 9572 #t 9573 5 9574 ) 9575 ) 9576 ) 9577 ) ;; bind 9578 24 11) 9579 (list 9580 (bind 9581 (kern-mk-obj t_door 1 9582 ;; hooks 9583 (list 9584 ) 9585 ) 9586 (list 9587 #f 9588 0 9589 '() 9590 #f 9591 #t 9592 #f 9593 (list 9594 (list 9595 's_closed_solid_wood_door_in_stone 9596 #t 9597 5 9598 ) 9599 (list 9600 's_open_door_in_stone 9601 #f 9602 0 9603 ) 9604 (list 9605 's_locked_solid_wood_door_in_stone 9606 #t 9607 5 9608 ) 9609 (list 9610 's_magically_locked_solid_wood_door_in_stone 9611 #t 9612 5 9613 ) 9614 ) 9615 ) 9616 ) ;; bind 9617 24 14) 9618 (list 9619 (bind 9620 (kern-mk-obj t_door 1 9621 ;; hooks 9622 (list 9623 ) 9624 ) 9625 (list 9626 #f 9627 0 9628 '() 9629 #f 9630 #t 9631 #f 9632 (list 9633 (list 9634 's_closed_solid_wood_door_in_stone 9635 #t 9636 5 9637 ) 9638 (list 9639 's_open_door_in_stone 9640 #f 9641 0 9642 ) 9643 (list 9644 's_locked_solid_wood_door_in_stone 9645 #t 9646 5 9647 ) 9648 (list 9649 's_magically_locked_solid_wood_door_in_stone 9650 #t 9651 5 9652 ) 9653 ) 9654 ) 9655 ) ;; bind 9656 6 11) 9657 (list 9658 (bind 9659 (kern-mk-obj t_door 1 9660 ;; hooks 9661 (list 9662 ) 9663 ) 9664 (list 9665 #f 9666 0 9667 '() 9668 #f 9669 #t 9670 #f 9671 (list 9672 (list 9673 's_closed_solid_wood_door_in_stone 9674 #t 9675 5 9676 ) 9677 (list 9678 's_open_door_in_stone 9679 #f 9680 0 9681 ) 9682 (list 9683 's_locked_solid_wood_door_in_stone 9684 #t 9685 5 9686 ) 9687 (list 9688 's_magically_locked_solid_wood_door_in_stone 9689 #t 9690 5 9691 ) 9692 ) 9693 ) 9694 ) ;; bind 9695 6 14) 9696 (list 9697 (bind 9698 (kern-mk-obj t_door 1 9699 ;; hooks 9700 (list 9701 ) 9702 ) 9703 (list 9704 #f 9705 0 9706 '() 9707 #f 9708 #t 9709 #f 9710 (list 9711 (list 9712 's_closed_solid_wood_door_in_stone 9713 #t 9714 5 9715 ) 9716 (list 9717 's_open_door_in_stone 9718 #f 9719 0 9720 ) 9721 (list 9722 's_locked_solid_wood_door_in_stone 9723 #t 9724 5 9725 ) 9726 (list 9727 's_magically_locked_solid_wood_door_in_stone 9728 #t 9729 5 9730 ) 9731 ) 9732 ) 9733 ) ;; bind 9734 11 11) 9735 (list 9736 (bind 9737 (kern-mk-obj t_door 1 9738 ;; hooks 9739 (list 9740 ) 9741 ) 9742 (list 9743 #f 9744 0 9745 '() 9746 #f 9747 #t 9748 #f 9749 (list 9750 (list 9751 's_closed_solid_wood_door_in_stone 9752 #t 9753 5 9754 ) 9755 (list 9756 's_open_door_in_stone 9757 #f 9758 0 9759 ) 9760 (list 9761 's_locked_solid_wood_door_in_stone 9762 #t 9763 5 9764 ) 9765 (list 9766 's_magically_locked_solid_wood_door_in_stone 9767 #t 9768 5 9769 ) 9770 ) 9771 ) 9772 ) ;; bind 9773 19 11) 9774 (list 9775 (bind 9776 (kern-mk-obj t_door 1 9777 ;; hooks 9778 (list 9779 ) 9780 ) 9781 (list 9782 #f 9783 0 9784 '() 9785 #f 9786 #f 9787 #f 9788 (list 9789 (list 9790 's_closed_windowed_wood_door_in_rock 9791 #f 9792 5 9793 ) 9794 (list 9795 's_open_door_in_rock 9796 #f 9797 0 9798 ) 9799 (list 9800 's_locked_windowed_wood_door_in_rock 9801 #f 9802 5 9803 ) 9804 (list 9805 's_magically_locked_windowed_wood_door_in_rock 9806 #f 9807 5 9808 ) 9809 ) 9810 ) 9811 ) ;; bind 9812 8 9) 9813 (list 9814 (bind 9815 (kern-mk-obj t_door 1 9816 ;; hooks 9817 (list 9818 ) 9819 ) 9820 (list 9821 #f 9822 0 9823 '() 9824 #f 9825 #t 9826 #f 9827 (list 9828 (list 9829 's_closed_solid_wood_door_in_stone 9830 #t 9831 5 9832 ) 9833 (list 9834 's_open_door_in_stone 9835 #f 9836 0 9837 ) 9838 (list 9839 's_locked_solid_wood_door_in_stone 9840 #t 9841 5 9842 ) 9843 (list 9844 's_magically_locked_solid_wood_door_in_stone 9845 #t 9846 5 9847 ) 9848 ) 9849 ) 9850 ) ;; bind 9851 5 5) 9852 (list 9853 (bind 9854 (kern-mk-obj t_door 1 9855 ;; hooks 9856 (list 9857 ) 9858 ) 9859 (list 9860 #f 9861 0 9862 '() 9863 #f 9864 #t 9865 #f 9866 (list 9867 (list 9868 's_closed_solid_wood_door_in_stone 9869 #t 9870 5 9871 ) 9872 (list 9873 's_open_door_in_stone 9874 #f 9875 0 9876 ) 9877 (list 9878 's_locked_solid_wood_door_in_stone 9879 #t 9880 5 9881 ) 9882 (list 9883 's_magically_locked_solid_wood_door_in_stone 9884 #t 9885 5 9886 ) 9887 ) 9888 ) 9889 ) ;; bind 9890 5 7) 9891 (list 9892 (bind 9893 (kern-mk-obj t_door 1 9894 ;; hooks 9895 (list 9896 ) 9897 ) 9898 (list 9899 #f 9900 0 9901 '() 9902 #f 9903 #f 9904 #f 9905 (list 9906 (list 9907 's_closed_windowed_wood_door_in_rock 9908 #f 9909 5 9910 ) 9911 (list 9912 's_open_door_in_rock 9913 #f 9914 0 9915 ) 9916 (list 9917 's_locked_windowed_wood_door_in_rock 9918 #f 9919 5 9920 ) 9921 (list 9922 's_magically_locked_windowed_wood_door_in_rock 9923 #f 9924 5 9925 ) 9926 ) 9927 ) 9928 ) ;; bind 9929 15 13) 9930 (list 9931 (bind 9932 (kern-mk-obj t_door 1 9933 ;; hooks 9934 (list 9935 ) 9936 ) 9937 (list 9938 #f 9939 0 9940 '() 9941 #f 9942 #t 9943 #f 9944 (list 9945 (list 9946 's_closed_solid_wood_door_in_stone 9947 #t 9948 5 9949 ) 9950 (list 9951 's_open_door_in_stone 9952 #f 9953 0 9954 ) 9955 (list 9956 's_locked_solid_wood_door_in_stone 9957 #t 9958 5 9959 ) 9960 (list 9961 's_magically_locked_solid_wood_door_in_stone 9962 #t 9963 5 9964 ) 9965 ) 9966 ) 9967 ) ;; bind 9968 24 27) 9969 (list 9970 (bind 9971 (kern-mk-obj t_door 1 9972 ;; hooks 9973 (list 9974 ) 9975 ) 9976 (list 9977 #f 9978 0 9979 '() 9980 #f 9981 #f 9982 #f 9983 (list 9984 (list 9985 's_closed_windowed_wood_door_in_rock 9986 #f 9987 5 9988 ) 9989 (list 9990 's_open_door_in_rock 9991 #f 9992 0 9993 ) 9994 (list 9995 's_locked_windowed_wood_door_in_rock 9996 #f 9997 5 9998 ) 9999 (list 10000 's_magically_locked_windowed_wood_door_in_rock 10001 #f 10002 5 10003 ) 10004 ) 10005 ) 10006 ) ;; bind 10007 22 9) 10008 (list 10009 (bind 10010 (kern-mk-obj t_door 1 10011 ;; hooks 10012 (list 10013 ) 10014 ) 10015 (list 10016 #f 10017 0 10018 '() 10019 #f 10020 #t 10021 #f 10022 (list 10023 (list 10024 's_closed_solid_wood_door_in_stone 10025 #t 10026 5 10027 ) 10028 (list 10029 's_open_door_in_stone 10030 #f 10031 0 10032 ) 10033 (list 10034 's_locked_solid_wood_door_in_stone 10035 #t 10036 5 10037 ) 10038 (list 10039 's_magically_locked_solid_wood_door_in_stone 10040 #t 10041 5 10042 ) 10043 ) 10044 ) 10045 ) ;; bind 10046 3 16) 10047 (list 10048 (bind 10049 (kern-mk-obj t_door 1 10050 ;; hooks 10051 (list 10052 ) 10053 ) 10054 (list 10055 #f 10056 0 10057 '() 10058 #f 10059 #t 10060 #f 10061 (list 10062 (list 10063 's_closed_solid_wood_door_in_stone 10064 #t 10065 5 10066 ) 10067 (list 10068 's_open_door_in_stone 10069 #f 10070 0 10071 ) 10072 (list 10073 's_locked_solid_wood_door_in_stone 10074 #t 10075 5 10076 ) 10077 (list 10078 's_magically_locked_solid_wood_door_in_stone 10079 #t 10080 5 10081 ) 10082 ) 10083 ) 10084 ) ;; bind 10085 27 16) 10086 (list 10087 (bind 10088 (kern-mk-obj t_door 1 10089 ;; hooks 10090 (list 10091 ) 10092 ) 10093 (list 10094 #f 10095 0 10096 '() 10097 #f 10098 #t 10099 #f 10100 (list 10101 (list 10102 's_closed_solid_wood_door_in_stone 10103 #t 10104 5 10105 ) 10106 (list 10107 's_open_door_in_stone 10108 #f 10109 0 10110 ) 10111 (list 10112 's_locked_solid_wood_door_in_stone 10113 #t 10114 5 10115 ) 10116 (list 10117 's_magically_locked_solid_wood_door_in_stone 10118 #t 10119 5 10120 ) 10121 ) 10122 ) 10123 ) ;; bind 10124 2 4) 10125 (list 10126 (bind 10127 (kern-mk-obj t_door 1 10128 ;; hooks 10129 (list 10130 ) 10131 ) 10132 (list 10133 #f 10134 0 10135 '() 10136 #f 10137 #t 10138 #f 10139 (list 10140 (list 10141 's_closed_solid_wood_door_in_stone 10142 #t 10143 5 10144 ) 10145 (list 10146 's_open_door_in_stone 10147 #f 10148 0 10149 ) 10150 (list 10151 's_locked_solid_wood_door_in_stone 10152 #t 10153 5 10154 ) 10155 (list 10156 's_magically_locked_solid_wood_door_in_stone 10157 #t 10158 5 10159 ) 10160 ) 10161 ) 10162 ) ;; bind 10163 4 2) 10164 (list 10165 (bind 10166 (kern-mk-obj t_door 1 10167 ;; hooks 10168 (list 10169 ) 10170 ) 10171 (list 10172 #f 10173 0 10174 '() 10175 #f 10176 #f 10177 #f 10178 (list 10179 (list 10180 's_closed_solid_wood_door_in_stone 10181 #t 10182 5 10183 ) 10184 (list 10185 's_open_door_in_stone 10186 #f 10187 0 10188 ) 10189 (list 10190 's_locked_solid_wood_door_in_stone 10191 #t 10192 5 10193 ) 10194 (list 10195 's_magically_locked_solid_wood_door_in_stone 10196 #t 10197 5 10198 ) 10199 ) 10200 ) 10201 ) ;; bind 10202 26 28) 10203 (list 10204 (bind 10205 (kern-mk-obj t_door 1 10206 ;; hooks 10207 (list 10208 ) 10209 ) 10210 (list 10211 #f 10212 0 10213 '() 10214 #f 10215 #f 10216 #f 10217 (list 10218 (list 10219 's_closed_solid_wood_door_in_stone 10220 #t 10221 5 10222 ) 10223 (list 10224 's_open_door_in_stone 10225 #f 10226 0 10227 ) 10228 (list 10229 's_locked_solid_wood_door_in_stone 10230 #t 10231 5 10232 ) 10233 (list 10234 's_magically_locked_solid_wood_door_in_stone 10235 #t 10236 5 10237 ) 10238 ) 10239 ) 10240 ) ;; bind 10241 28 26) 10242 (list 10243 (bind 10244 (kern-mk-obj t_door 1 10245 ;; hooks 10246 (list 10247 ) 10248 ) 10249 (list 10250 #f 10251 0 10252 '() 10253 #f 10254 #f 10255 #f 10256 (list 10257 (list 10258 's_closed_windowed_wood_door_in_rock 10259 #f 10260 5 10261 ) 10262 (list 10263 's_open_door_in_rock 10264 #f 10265 0 10266 ) 10267 (list 10268 's_locked_windowed_wood_door_in_rock 10269 #f 10270 5 10271 ) 10272 (list 10273 's_magically_locked_windowed_wood_door_in_rock 10274 #f 10275 5 10276 ) 10277 ) 10278 ) 10279 ) ;; bind 10280 9 21) 10281 (list 10282 (bind 10283 (kern-mk-obj t_door 1 10284 ;; hooks 10285 (list 10286 ) 10287 ) 10288 (list 10289 #f 10290 0 10291 '() 10292 #f 10293 #t 10294 #f 10295 (list 10296 (list 10297 's_closed_solid_wood_door_in_stone 10298 #t 10299 5 10300 ) 10301 (list 10302 's_open_door_in_stone 10303 #f 10304 0 10305 ) 10306 (list 10307 's_locked_solid_wood_door_in_stone 10308 #t 10309 5 10310 ) 10311 (list 10312 's_magically_locked_solid_wood_door_in_stone 10313 #t 10314 5 10315 ) 10316 ) 10317 ) 10318 ) ;; bind 10319 9 19) 10320 (list 10321 (kern-tag 'glasdrin-inn-room-1-door 10322 (bind 10323 (kern-mk-obj t_door 1 10324 ;; hooks 10325 (list 10326 ) 10327 ) 10328 (list 10329 #f 10330 0 10331 '() 10332 #f 10333 #t 10334 #f 10335 (list 10336 (list 10337 's_closed_solid_wood_door_in_stone 10338 #t 10339 5 10340 ) 10341 (list 10342 's_open_door_in_stone 10343 #f 10344 0 10345 ) 10346 (list 10347 's_locked_solid_wood_door_in_stone 10348 #t 10349 5 10350 ) 10351 (list 10352 's_magically_locked_solid_wood_door_in_stone 10353 #t 10354 5 10355 ) 10356 ) 10357 ) 10358 ) ;; bind 10359 ) ;; kern-tag 10360 5 23) 10361 (list 10362 (kern-tag 'glasdrin-inn-room-2-door 10363 (bind 10364 (kern-mk-obj t_door 1 10365 ;; hooks 10366 (list 10367 ) 10368 ) 10369 (list 10370 #f 10371 0 10372 '() 10373 #f 10374 #t 10375 #f 10376 (list 10377 (list 10378 's_closed_solid_wood_door_in_stone 10379 #t 10380 5 10381 ) 10382 (list 10383 's_open_door_in_stone 10384 #f 10385 0 10386 ) 10387 (list 10388 's_locked_solid_wood_door_in_stone 10389 #t 10390 5 10391 ) 10392 (list 10393 's_magically_locked_solid_wood_door_in_stone 10394 #t 10395 5 10396 ) 10397 ) 10398 ) 10399 ) ;; bind 10400 ) ;; kern-tag 10401 7 23) 10402 (list 10403 (kern-mk-obj t_bed 1 10404 ;; hooks 10405 (list 10406 ) 10407 ) 10408 4 25) 10409 (list 10410 (kern-mk-obj t_bed 1 10411 ;; hooks 10412 (list 10413 ) 10414 ) 10415 8 25) 10416 (list 10417 (kern-mk-obj t_bed 1 10418 ;; hooks 10419 (list 10420 ) 10421 ) 10422 26 10) 10423 (list 10424 (kern-mk-obj t_bed 1 10425 ;; hooks 10426 (list 10427 ) 10428 ) 10429 4 13) 10430 (list 10431 (kern-mk-obj t_bed 1 10432 ;; hooks 10433 (list 10434 ) 10435 ) 10436 26 13) 10437 (list 10438 (kern-mk-obj t_bed 1 10439 ;; hooks 10440 (list 10441 ) 10442 ) 10443 4 10) 10444 (list 10445 (kern-mk-obj t_bed 1 10446 ;; hooks 10447 (list 10448 ) 10449 ) 10450 11 14) 10451 (list 10452 (kern-mk-obj t_bed 1 10453 ;; hooks 10454 (list 10455 ) 10456 ) 10457 29 28) 10458 (list 10459 (kern-mk-obj t_bed 1 10460 ;; hooks 10461 (list 10462 ) 10463 ) 10464 19 14) 10465 (list 10466 (bind 10467 (kern-mk-obj t_ladder_down 1 10468 ;; hooks 10469 (list 10470 ) 10471 ) 10472 (list 10473 'p_prison 10474 6 10475 4 10476 ) 10477 ) ;; bind 10478 2 2) 10479 (list 10480 (bind 10481 (kern-mk-obj t_monman 1 10482 ;; hooks 10483 (list 10484 ) 10485 ) 10486 (list 10487 'monman 10488 (list 10489 0 10490 0 10491 0 10492 -1 10493 6 10494 -1 10495 ) 10496 ) 10497 ) ;; bind 10498 0 0) 10499 (list 10500 (bind 10501 (kern-mk-char 10502 'ch_patch 10503 "Patch" 10504 sp_human 10505 oc_wizard 10506 s_companion_wizard 10507 2 10508 0 0 0 10509 0 0 10510 0 0 10511 16 0 10512 0 6 10513 #f ;; dead? 10514 'patch-conv 10515 sch_patch 10516 nil 10517 nil ;; inventory 10518 nil 10519 ;; hooks 10520 (list 10521 ) 10522 ) 10523 '() 10524 ) ;; bind 10525 25 10) 10526 (list 10527 (bind 10528 (kern-mk-char 10529 'ch_angela 10530 "Angela" 10531 sp_human 10532 nil 10533 s_townswoman 10534 2 10535 0 0 0 10536 0 0 10537 0 0 10538 13 0 10539 0 3 10540 #f ;; dead? 10541 'ange-conv 10542 sch_ange 10543 nil 10544 nil ;; inventory 10545 nil 10546 ;; hooks 10547 (list 10548 ) 10549 ) 10550 '() 10551 ) ;; bind 10552 4 19) 10553 (list 10554 (bind 10555 (kern-mk-char 10556 'ch_jess 10557 "Jess" 10558 sp_human 10559 nil 10560 s_townswoman 10561 2 10562 0 0 0 10563 0 0 10564 0 0 10565 13 0 10566 0 3 10567 #f ;; dead? 10568 'jess-conv 10569 sch_jess 10570 nil 10571 nil ;; inventory 10572 nil 10573 ;; hooks 10574 (list 10575 ) 10576 ) 10577 '() 10578 ) ;; bind 10579 23 26) 10580 (list 10581 (bind 10582 (kern-mk-char 10583 'ch_chester 10584 "Chester" 10585 sp_human 10586 oc_warrior 10587 s_townsman 10588 2 10589 0 0 0 10590 0 0 10591 0 0 10592 13 0 10593 0 3 10594 #f ;; dead? 10595 'ches-conv 10596 sch_ches 10597 nil 10598 nil ;; inventory 10599 nil 10600 ;; hooks 10601 (list 10602 ) 10603 ) 10604 '() 10605 ) ;; bind 10606 4 10) 10607 (list 10608 (bind 10609 (kern-mk-char 10610 'ch_steward 10611 "Victoria" 10612 sp_human 10613 nil 10614 s_lady 10615 2 10616 0 0 0 10617 0 0 10618 0 0 10619 16 0 10620 0 6 10621 #f ;; dead? 10622 'stew-conv 10623 sch_stew 10624 nil 10625 nil ;; inventory 10626 nil 10627 ;; hooks 10628 (list 10629 ) 10630 ) 10631 (list 10632 #f 10633 ) 10634 ) ;; bind 10635 11 14) 10636 (list 10637 (bind 10638 (kern-mk-char 10639 'ch_ini 10640 "Ini" 10641 sp_human 10642 oc_warrior 10643 s_companion_paladin 10644 2 10645 5 0 5 10646 25 5 10647 0 0 10648 30 612 10649 0 3 10650 #f ;; dead? 10651 'ini-conv 10652 sch_ini 10653 nil 10654 nil ;; inventory 10655 (list 10656 t_chain_coif 10657 t_halberd 10658 t_armor_chain 10659 ) 10660 ;; hooks 10661 (list 10662 ) 10663 ) 10664 (list 10665 #f 10666 ) 10667 ) ;; bind 10668 29 28) 10669 (list 10670 (bind 10671 (kern-mk-char 10672 'ch_jeffreys 10673 "Jeff" 10674 sp_human 10675 oc_warrior 10676 s_companion_paladin 10677 2 10678 0 0 0 10679 0 0 10680 0 0 10681 15 0 10682 0 5 10683 #f ;; dead? 10684 'jeff-conv 10685 sch_jeff 10686 nil 10687 nil ;; inventory 10688 (list 10689 t_chain_coif 10690 t_sword 10691 t_armor_chain 10692 ) 10693 ;; hooks 10694 (list 10695 ) 10696 ) 10697 '() 10698 ) ;; bind 10699 19 14) 10700 (list 10701 (bind 10702 (kern-mk-char 10703 nil 10704 "bull" 10705 sp_bull 10706 nil 10707 s_bull 10708 0 10709 0 0 0 10710 0 0 10711 0 0 10712 36 16384 10713 8 8 10714 #f ;; dead? 10715 nil 10716 nil 10717 'animal-ai 10718 (kern-mk-container 10719 t_chest 10720 ;; trap 10721 nil 10722 ;; contents 10723 nil 10724 ;; hooks 10725 (list 10726 ) 10727 ) 10728 nil 10729 ;; hooks 10730 (list 10731 ) 10732 ) 10733 (list 10734 'npcg 10735 'bull 10736 #f 10737 #f 10738 '() 10739 ) 10740 ) ;; bind 10741 19 24) 10742 (list 10743 (bind 10744 (kern-mk-obj t_guard_pt 1 10745 ;; hooks 10746 (list 10747 ) 10748 ) 10749 (list 10750 'spawn-pt 10751 'halberdier 10752 ) 10753 ) ;; bind 10754 15 25) 10755 ) ;; end of objects in p_glasdrin 10756 (list ;; on-entry-hooks 10757 'on-entry-to-dungeon-room 10758 'lock-inn-room-doors 10759 ) 10760 (list ;; edge entrances 10761 (list 0 30 30) ;; Northwest 10762 (list 1 15 30) ;; North 10763 (list 2 0 30) ;; Northeast 10764 (list 3 30 15) ;; West 10765 (list 4 15 15) ;; Here 10766 (list 5 0 15) ;; East 10767 (list 6 30 0) ;; Southwest 10768 (list 7 15 0) ;; South 10769 (list 8 0 0) ;; SoutheastUp 10770 ) 10771) ;; end of place p_glasdrin 10772 10773(kern-load "alchemist.scm") 10774 10775(kern-load "oscar.scm") 10776 10777(kern-load "henry.scm") 10778 10779(kern-load "bart.scm") 10780 10781(kern-load "lia.scm") 10782 10783(kern-load "fing.scm") 10784 10785(kern-load "ghertie.scm") 10786 10787(kern-mk-place 'p_oparine "Oparine" 10788 s_town ;; sprite 10789 (kern-mk-map 10790 nil 31 55 pal_expanded 10791 (list 10792 ".. .. .. .. .. .. .. .. .. .. .. .. cc cc cc cc cc cc .. .. .. .. .. .. .. .. .. .. .. .. .. " 10793 ".. .. xx xx xx xx xx xx xx xx xx xx cc cc cc cc cc cc xx xx xx xx xx xx xx xx xx xx xx xx .. " 10794 ".. .. xx .C .H .E .E .R .F .U .L xx cc cc cc cc cc cc xx ,, xx .B .I .L .G .E xx ,, ,, xx .. " 10795 ".. .. xx .B .U .N .K .M .A .T .E xx cc cc cc cc cc cc xx ,, xx .W .A .T .E .R xx ,, ,, xx .. " 10796 ".. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, xx cc cc cc cc cc cc xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. " 10797 ".. .. xx [[ @@ @@ @@ @@ @@ @@ ]] xx cc cc cc cc cc cc xx ,, xx [[ @@ @@ @@ ]] xx xx xx xx .. " 10798 ".. .. xx ,, ,, ,, ,, ,, ,, ,, ,, ws cc cc cc cc cc cc xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. " 10799 ".. .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, cc cc cc cc cc cc ws ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. " 10800 ".. .. xx xx xx xx ,, ,, xx xx xx sI cc cc cc cc cc xx xx [[ @@ ]] ,, ,, ,, [[ @@ ]] xx xx .. " 10801 ".. .. xx ,, ,, xx ,, ,, ,, ,, ,, xx cc cc cc cc cc xx && ,, ,, ,, ,, ,, ,, ,, ,, ,, && xx .. " 10802 ".. .. xx ,, ,, ,, ,, ,, xx ,, ,, ws cc cc cc cc cc xx && ,, ,, ,, ,, ,, ,, ,, ,, ,, && xx .. " 10803 ".. .. xx xx xx xx ,, ,, xx xx xx xx cc cc cc cc cc xx xx [[ @@ ]] ,, ,, ,, [[ @@ ]] xx xx .. " 10804 ".. .. xx ,, ,, xx ,, ,, ,, ,, ,, xx cc cc cc cc cc cc ws ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. " 10805 ".. .. xx ,, ,, ,, ,, ,, xx ,, ,, ws cc cc cc cc cc cc xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. " 10806 ".. .. xx xx xx xx xx ,, xx xx xx xx cc cc cc cc cc cc xx xx xx xx sT ,, xx xx xx xx xx .. .. " 10807 ".. .. xx ,, ,, xx ,, ,, xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc .. .. " 10808 ".. .. xx ,, ,, xx ,, ,, xx cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc .. .. " 10809 ".. .. xx ,, ws xx xx xx xx cc cc cc cc cc cc ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## " 10810 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc ## _3 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 _1 __ " 10811 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc oo __ __ __ __ __ oo __ __ __ __ __ oo __ __ " 10812 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee " 10813 ".. .. .. .. xx xx xx xx xx cc cc cc cc cc cc cc ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee " 10814 ".. .. .. .. xx ,, ,, ,, xx cc cc cc cc cc cc cc ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee " 10815 ".. .. .. .. xx ,, ,, ,, ,, cc cc cc cc cc cc cc oo __ __ ee ee ee oo __ __ __ __ __ oo __ __ " 10816 ".. .. .. .. xx ,, ,, ,, xx cc cc cc ## ## ## ## __ __ __ ee ee ee __ __ __ __ _8 __ __ __ __ " 10817 ".. xx xx xx xx xx xx xx xx cc cc cc ## _3 _1 __ __ __ __ ee ee ee __ __ _c ## ## ## _a __ __ " 10818 ".. xx ,A ,L ,K ,E ,M ,Y xx cc cc cc ## _2 __ __ __ __ __ ee ee ee __ __ ## ## ee ## ## __ __ " 10819 ".. xx ,, ,, ,, ,, ,, ,, ws cc cc cc ## _2 xx xx xx xx oo ee ee ee oo _c ## ee ee ee ## _a __ " 10820 ".. xx ,, ,, ,, ,, ,, ,, sP cc cc cc ## _2 xx ee ee xx ~~ ee ee ee __ ## ## ee ee ee ## ## __ " 10821 ".. xx ,, ,, aa && ,, ,, ,, cc cc cc ## _2 xx ee ee ee ee ee ee ee __ ## ee ee ee ee ee ## _2 " 10822 ".. xx ,, ,, ,, ,, ,, ,, xx cc cc cc ## _2 xx ee ee xx __ ee ee ee ee ee ee ee ee ee ee ## _2 " 10823 ".. xx ,, ,, ,, ,, ,, ,, ws cc cc cc ## _2 xx xx xx xx __ ee ee ee __ ## vv vv ee ee vv ## _2 " 10824 ".. xx [[ @@ @@ @@ @@ ]] xx cc cc cc ## _2 __ __ __ __ __ ee ee ee _c ## ee ee ee ee ee ## _2 " 10825 ".. xx xx xx xx xx xx xx xx cc cc cc ## ~a ~~ ~~ __ __ oo ee ee ee oo ## vv vv vv vv vv ## _2 " 10826 ".. .. .. .. .. .. .. .. bb .. .. .. bb .. ~% ~~ -- __ __ ee ee ee _5 ## ee ee ee ee ee ## _2 " 10827 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ~a ~~ -- __ __ __ __ __ ## ## vv vv vv ## ## __ " 10828 ".. .. .. .. .. .. .. .. bb .. .. .. bb .. .. ~% ~~ ~~ -- __ __ __ __ _5 ## ee ee ee ## _3 __ " 10829 ".. xx xx xx xx xx xx xx .. .. .. .. .. .. .. .. ~a ~~ -- -- __ __ __ __ ## ## vv ## ## __ __ " 10830 ".. xx [[ .S .E .A ]] xx bb .. .. .. bb .. .. .. ~% ~~ ~~ -- __ __ __ __ _5 ## ## ## _3 __ __ " 10831 ".. xx .W .I .T .C .H sR .. .. .. .. .. .. .. .. ~C ~~ ~~ -- -- __ __ __ __ __ _1 __ __ __ __ " 10832 ".. xx ,, ,, ,, ,, ,, ws bb .. .. .. bb .. .. .. ~3 ~~ ~~ -- -- __ __ __ __ __ __ __ __ __ __ " 10833 ".. xx ,, ,, ,, ,, ,, ,, .. .. .. .. .. .. .. ~C ~~ ~~ ~~ -- -- __ __ __ __ __ __ __ __ __ __ " 10834 ".. xx ,, [[ @@ ]] ,, ws bb .. .. .. bb .. .. ~3 ~~ ~~ -- -- -- -- __ __ __ __ __ __ __ __ __ " 10835 ".. xx xx ,, ,, ,, xx xx .. .. .. .. .. .. .. ~2 ~~ ~~ ~~ ~~ -- -- -- __ __ __ __ __ __ __ __ " 10836 ".. .. xx xx ,, xx xx .. bb .. .. .. oo .. oo ~8 ~8 ~~ ~~ ~~ -- -- -- __ __ __ __ __ __ __ __ " 10837 ".. .. xx ,, ,, ,, xx .. .. .. .. .. ee ee ee .. .. bb ~~ ~~ ~~ -- -- __ __ __ __ __ __ __ __ " 10838 ".. .. xx ,, ,, ,, ws .. bb .. .. .. ee ee ee .. .. .. ~a ~~ ~~ -- -- __ __ __ __ __ __ __ __ " 10839 ".. .. xx xx ,, xx xx .. .. .. .. .. ee ee ee .. .. .. bb ~~ ~~ -- -- __ __ __ __ __ __ __ __ " 10840 ".. .. .. bb .. bb .. .. .. .. bb .. oo ~~ oo .. .. .. ~3 ~~ ~~ -- -- __ __ __ __ __ __ __ __ " 10841 ".. .. .. .. .. .. .. .. .. .. .. .. .. ~6 .. .. .. .. ~~ ~~ ~~ -- -- __ __ __ __ __ __ __ __ " 10842 ".. .. bb ~3 ~1 ~5 bb .. .. .. .. ~C ~3 ~~ oo ee ee ee oo ~~ ~~ -- -- -- __ __ __ __ __ __ __ " 10843 "~C ~3 ~~ ~~ ~~ ~~ ~~ ~5 ~A .. ~C ~3 ~~ ~~ ~~ ee ee ee ~~ ~~ ~~ -- -- -- -- __ __ __ __ __ __ " 10844 "~~ ~~ -- -- -- -- -- ~~ ~~ ~1 ~~ ~~ ~~ ~c oo ee ee ee oo ~a ~~ ~~ -- -- -- __ __ __ __ __ __ " 10845 "-- -- -- __ __ __ -- -- -- -- -- ~~ ~c ~# .. .. .. .. .. ~% ~a ~~ ~~ -- -- __ __ __ __ __ __ " 10846 "-- -- -- __ __ __ -- -- -- -- -- ~~ ~# .. .. .. .. .. .. .. ~% ~~ ~~ -- -- -- __ __ __ __ __ " 10847 ) 10848 ) 10849 #f #f #f #f 10850 ;; subplaces 10851 nil 10852 nil ;; neighbors 10853 (list ;; objects in p_oparine 10854 (list 10855 (kern-mk-obj t_bed 1 10856 ;; hooks 10857 (list 10858 ) 10859 ) 10860 3 9) 10861 (list 10862 (kern-mk-obj t_bed 1 10863 ;; hooks 10864 (list 10865 ) 10866 ) 10867 3 12) 10868 (list 10869 (kern-mk-obj t_bed 1 10870 ;; hooks 10871 (list 10872 ) 10873 ) 10874 6 15) 10875 (list 10876 (kern-mk-obj t_bed 1 10877 ;; hooks 10878 (list 10879 ) 10880 ) 10881 10 12) 10882 (list 10883 (kern-mk-obj t_bed 1 10884 ;; hooks 10885 (list 10886 ) 10887 ) 10888 10 9) 10889 (list 10890 (kern-tag 'oparine-inn-room-1-door 10891 (bind 10892 (kern-mk-obj t_door 1 10893 ;; hooks 10894 (list 10895 ) 10896 ) 10897 (list 10898 #f 10899 0 10900 '() 10901 #f 10902 #t 10903 #f 10904 (list 10905 (list 10906 's_closed_solid_wood_door_in_stone 10907 #t 10908 5 10909 ) 10910 (list 10911 's_open_door_in_stone 10912 #f 10913 0 10914 ) 10915 (list 10916 's_locked_solid_wood_door_in_stone 10917 #t 10918 5 10919 ) 10920 (list 10921 's_magically_locked_solid_wood_door_in_stone 10922 #t 10923 5 10924 ) 10925 ) 10926 ) 10927 ) ;; bind 10928 ) ;; kern-tag 10929 5 10) 10930 (list 10931 (kern-tag 'oparine-inn-room-2-door 10932 (bind 10933 (kern-mk-obj t_door 1 10934 ;; hooks 10935 (list 10936 ) 10937 ) 10938 (list 10939 #f 10940 0 10941 '() 10942 #f 10943 #t 10944 #f 10945 (list 10946 (list 10947 's_closed_solid_wood_door_in_stone 10948 #t 10949 5 10950 ) 10951 (list 10952 's_open_door_in_stone 10953 #f 10954 0 10955 ) 10956 (list 10957 's_locked_solid_wood_door_in_stone 10958 #t 10959 5 10960 ) 10961 (list 10962 's_magically_locked_solid_wood_door_in_stone 10963 #t 10964 5 10965 ) 10966 ) 10967 ) 10968 ) ;; bind 10969 ) ;; kern-tag 10970 5 13) 10971 (list 10972 (kern-tag 'oparine-inn-room-3-door 10973 (bind 10974 (kern-mk-obj t_door 1 10975 ;; hooks 10976 (list 10977 ) 10978 ) 10979 (list 10980 #f 10981 0 10982 '() 10983 #f 10984 #t 10985 #t 10986 (list 10987 (list 10988 's_closed_solid_wood_door_in_stone 10989 #t 10990 5 10991 ) 10992 (list 10993 's_open_door_in_stone 10994 #f 10995 0 10996 ) 10997 (list 10998 's_locked_solid_wood_door_in_stone 10999 #t 11000 5 11001 ) 11002 (list 11003 's_magically_locked_solid_wood_door_in_stone 11004 #t 11005 5 11006 ) 11007 ) 11008 ) 11009 ) ;; bind 11010 ) ;; kern-tag 11011 7 14) 11012 (list 11013 (kern-tag 'oparine-inn-room-4-door 11014 (bind 11015 (kern-mk-obj t_door 1 11016 ;; hooks 11017 (list 11018 ) 11019 ) 11020 (list 11021 #f 11022 0 11023 '() 11024 #f 11025 #t 11026 #f 11027 (list 11028 (list 11029 's_closed_solid_wood_door_in_stone 11030 #t 11031 5 11032 ) 11033 (list 11034 's_open_door_in_stone 11035 #f 11036 0 11037 ) 11038 (list 11039 's_locked_solid_wood_door_in_stone 11040 #t 11041 5 11042 ) 11043 (list 11044 's_magically_locked_solid_wood_door_in_stone 11045 #t 11046 5 11047 ) 11048 ) 11049 ) 11050 ) ;; bind 11051 ) ;; kern-tag 11052 8 12) 11053 (list 11054 (kern-tag 'oparine-inn-room-5-door 11055 (bind 11056 (kern-mk-obj t_door 1 11057 ;; hooks 11058 (list 11059 ) 11060 ) 11061 (list 11062 #f 11063 0 11064 '() 11065 #f 11066 #t 11067 #f 11068 (list 11069 (list 11070 's_closed_solid_wood_door_in_stone 11071 #t 11072 5 11073 ) 11074 (list 11075 's_open_door_in_stone 11076 #f 11077 0 11078 ) 11079 (list 11080 's_locked_solid_wood_door_in_stone 11081 #t 11082 5 11083 ) 11084 (list 11085 's_magically_locked_solid_wood_door_in_stone 11086 #t 11087 5 11088 ) 11089 ) 11090 ) 11091 ) ;; bind 11092 ) ;; kern-tag 11093 8 9) 11094 (list 11095 (bind 11096 (kern-mk-obj t_door 1 11097 ;; hooks 11098 (list 11099 ) 11100 ) 11101 (list 11102 #f 11103 0 11104 '() 11105 #f 11106 #f 11107 #f 11108 (list 11109 (list 11110 's_closed_solid_wood_door_in_stone 11111 #t 11112 5 11113 ) 11114 (list 11115 's_open_door_in_stone 11116 #f 11117 0 11118 ) 11119 (list 11120 's_locked_solid_wood_door_in_stone 11121 #t 11122 5 11123 ) 11124 (list 11125 's_magically_locked_solid_wood_door_in_stone 11126 #t 11127 5 11128 ) 11129 ) 11130 ) 11131 ) ;; bind 11132 3 17) 11133 (list 11134 (kern-mk-obj t_bed 1 11135 ;; hooks 11136 (list 11137 ) 11138 ) 11139 4 15) 11140 (list 11141 (bind 11142 (kern-mk-obj t_door 1 11143 ;; hooks 11144 (list 11145 ) 11146 ) 11147 (list 11148 #f 11149 0 11150 '() 11151 #f 11152 #f 11153 #f 11154 (list 11155 (list 11156 's_closed_solid_wood_door_in_stone 11157 #t 11158 5 11159 ) 11160 (list 11161 's_open_door_in_stone 11162 #f 11163 0 11164 ) 11165 (list 11166 's_locked_solid_wood_door_in_stone 11167 #t 11168 5 11169 ) 11170 (list 11171 's_magically_locked_solid_wood_door_in_stone 11172 #t 11173 5 11174 ) 11175 ) 11176 ) 11177 ) ;; bind 11178 17 29) 11179 (list 11180 (bind 11181 (kern-mk-obj t_door 1 11182 ;; hooks 11183 (list 11184 ) 11185 ) 11186 (list 11187 #f 11188 0 11189 '() 11190 #f 11191 #f 11192 #f 11193 (list 11194 (list 11195 's_closed_windowed_wood_door_in_rock 11196 #f 11197 5 11198 ) 11199 (list 11200 's_open_door_in_rock 11201 #f 11202 0 11203 ) 11204 (list 11205 's_locked_windowed_wood_door_in_rock 11206 #f 11207 5 11208 ) 11209 (list 11210 's_magically_locked_windowed_wood_door_in_rock 11211 #f 11212 5 11213 ) 11214 ) 11215 ) 11216 ) ;; bind 11217 7 41) 11218 (list 11219 (bind 11220 (kern-mk-obj t_door 1 11221 ;; hooks 11222 (list 11223 ) 11224 ) 11225 (list 11226 #f 11227 0 11228 '() 11229 #f 11230 #t 11231 #f 11232 (list 11233 (list 11234 's_closed_solid_wood_door_in_stone 11235 #t 11236 5 11237 ) 11238 (list 11239 's_open_door_in_stone 11240 #f 11241 0 11242 ) 11243 (list 11244 's_locked_solid_wood_door_in_stone 11245 #t 11246 5 11247 ) 11248 (list 11249 's_magically_locked_solid_wood_door_in_stone 11250 #t 11251 5 11252 ) 11253 ) 11254 ) 11255 ) ;; bind 11256 4 47) 11257 (list 11258 (bind 11259 (kern-mk-obj t_door 1 11260 ;; hooks 11261 (list 11262 ) 11263 ) 11264 (list 11265 #f 11266 0 11267 '() 11268 #f 11269 #f 11270 #f 11271 (list 11272 (list 11273 's_closed_solid_wood_door_in_stone 11274 #t 11275 5 11276 ) 11277 (list 11278 's_open_door_in_stone 11279 #f 11280 0 11281 ) 11282 (list 11283 's_locked_solid_wood_door_in_stone 11284 #t 11285 5 11286 ) 11287 (list 11288 's_magically_locked_solid_wood_door_in_stone 11289 #t 11290 5 11291 ) 11292 ) 11293 ) 11294 ) ;; bind 11295 4 44) 11296 (list 11297 (kern-mk-obj t_bed 1 11298 ;; hooks 11299 (list 11300 ) 11301 ) 11302 3 45) 11303 (list 11304 (bind 11305 (kern-mk-obj t_door 1 11306 ;; hooks 11307 (list 11308 ) 11309 ) 11310 (list 11311 #f 11312 0 11313 '() 11314 #f 11315 #f 11316 #f 11317 (list 11318 (list 11319 's_closed_solid_wood_door_in_stone 11320 #t 11321 5 11322 ) 11323 (list 11324 's_open_door_in_stone 11325 #f 11326 0 11327 ) 11328 (list 11329 's_locked_solid_wood_door_in_stone 11330 #t 11331 5 11332 ) 11333 (list 11334 's_magically_locked_solid_wood_door_in_stone 11335 #t 11336 5 11337 ) 11338 ) 11339 ) 11340 ) ;; bind 11341 8 29) 11342 (list 11343 (bind 11344 (kern-mk-obj t_door 1 11345 ;; hooks 11346 (list 11347 ) 11348 ) 11349 (list 11350 #f 11351 0 11352 '() 11353 #f 11354 #f 11355 #t 11356 (list 11357 (list 11358 's_closed_solid_wood_door_in_stone 11359 #t 11360 5 11361 ) 11362 (list 11363 's_open_door_in_stone 11364 #f 11365 0 11366 ) 11367 (list 11368 's_locked_solid_wood_door_in_stone 11369 #t 11370 5 11371 ) 11372 (list 11373 's_magically_locked_solid_wood_door_in_stone 11374 #t 11375 5 11376 ) 11377 ) 11378 ) 11379 ) ;; bind 11380 8 23) 11381 (list 11382 (kern-mk-obj t_bed 1 11383 ;; hooks 11384 (list 11385 ) 11386 ) 11387 5 22) 11388 (list 11389 (bind 11390 (kern-mk-obj t_door 1 11391 ;; hooks 11392 (list 11393 ) 11394 ) 11395 (list 11396 #f 11397 0 11398 '() 11399 #f 11400 #t 11401 #f 11402 (list 11403 (list 11404 's_closed_solid_wood_door_in_stone 11405 #t 11406 5 11407 ) 11408 (list 11409 's_open_door_in_stone 11410 #f 11411 0 11412 ) 11413 (list 11414 's_locked_solid_wood_door_in_stone 11415 #t 11416 5 11417 ) 11418 (list 11419 's_magically_locked_solid_wood_door_in_stone 11420 #t 11421 5 11422 ) 11423 ) 11424 ) 11425 ) ;; bind 11426 19 5) 11427 (list 11428 (bind 11429 (kern-mk-obj t_door 1 11430 ;; hooks 11431 (list 11432 ) 11433 ) 11434 (list 11435 #f 11436 0 11437 '() 11438 #f 11439 #f 11440 #f 11441 (list 11442 (list 11443 's_closed_windowed_wood_door_in_rock 11444 #f 11445 5 11446 ) 11447 (list 11448 's_open_door_in_rock 11449 #f 11450 0 11451 ) 11452 (list 11453 's_locked_windowed_wood_door_in_rock 11454 #f 11455 5 11456 ) 11457 (list 11458 's_magically_locked_windowed_wood_door_in_rock 11459 #f 11460 5 11461 ) 11462 ) 11463 ) 11464 ) ;; bind 11465 23 14) 11466 (list 11467 (bind 11468 (kern-mk-obj t_door 1 11469 ;; hooks 11470 (list 11471 ) 11472 ) 11473 (list 11474 #f 11475 0 11476 '() 11477 #f 11478 #f 11479 #f 11480 (list 11481 (list 11482 's_closed_solid_wood_door_in_stone 11483 #t 11484 5 11485 ) 11486 (list 11487 's_open_door_in_stone 11488 #f 11489 0 11490 ) 11491 (list 11492 's_locked_solid_wood_door_in_stone 11493 #t 11494 5 11495 ) 11496 (list 11497 's_magically_locked_solid_wood_door_in_stone 11498 #t 11499 5 11500 ) 11501 ) 11502 ) 11503 ) ;; bind 11504 20 4) 11505 (list 11506 (bind 11507 (kern-mk-obj t_door 1 11508 ;; hooks 11509 (list 11510 ) 11511 ) 11512 (list 11513 #f 11514 0 11515 '() 11516 #f 11517 #f 11518 #f 11519 (list 11520 (list 11521 's_closed_solid_wood_door_in_stone 11522 #t 11523 5 11524 ) 11525 (list 11526 's_open_door_in_stone 11527 #f 11528 0 11529 ) 11530 (list 11531 's_locked_solid_wood_door_in_stone 11532 #t 11533 5 11534 ) 11535 (list 11536 's_magically_locked_solid_wood_door_in_stone 11537 #t 11538 5 11539 ) 11540 ) 11541 ) 11542 ) ;; bind 11543 26 4) 11544 (list 11545 (kern-mk-obj t_bed 1 11546 ;; hooks 11547 (list 11548 ) 11549 ) 11550 27 2) 11551 (list 11552 (bind 11553 (kern-mk-char 11554 'ch_alchemist 11555 "Alchemist" 11556 sp_human 11557 oc_wright 11558 s_companion_tinker 11559 2 11560 0 0 0 11561 0 0 11562 0 0 11563 18 0 11564 10 8 11565 #f ;; dead? 11566 'alch-conv 11567 sch_alch 11568 nil 11569 nil ;; inventory 11570 nil 11571 ;; hooks 11572 (list 11573 ) 11574 ) 11575 (list 11576 (list 11577 #f 11578 #f 11579 #f 11580 ) 11581 #f 11582 #f 11583 ) 11584 ) ;; bind 11585 3 28) 11586 (list 11587 (bind 11588 (kern-mk-char 11589 'ch_oscar 11590 "Oscar" 11591 sp_human 11592 nil 11593 s_townsman 11594 2 11595 0 0 0 11596 0 0 11597 0 0 11598 11 0 11599 0 1 11600 #f ;; dead? 11601 'oscar-conv 11602 sch_oscar 11603 nil 11604 nil ;; inventory 11605 nil 11606 ;; hooks 11607 (list 11608 ) 11609 ) 11610 '() 11611 ) ;; bind 11612 21 7) 11613 (list 11614 (bind 11615 (kern-mk-char 11616 'ch_henry 11617 "Henry" 11618 sp_human 11619 nil 11620 s_townsman 11621 2 11622 0 0 0 11623 0 0 11624 0 0 11625 16 0 11626 0 6 11627 #f ;; dead? 11628 'henry-conv 11629 sch_henry 11630 nil 11631 nil ;; inventory 11632 nil 11633 ;; hooks 11634 (list 11635 ) 11636 ) 11637 '() 11638 ) ;; bind 11639 21 4) 11640 (list 11641 (bind 11642 (kern-mk-char 11643 'ch_bart 11644 "Bart" 11645 sp_forest_goblin 11646 nil 11647 s_orc 11648 2 11649 0 0 0 11650 0 0 11651 0 0 11652 9 0 11653 0 1 11654 #f ;; dead? 11655 'bart-conv 11656 sch_bart 11657 nil 11658 nil ;; inventory 11659 nil 11660 ;; hooks 11661 (list 11662 ) 11663 ) 11664 '() 11665 ) ;; bind 11666 22 6) 11667 (list 11668 (bind 11669 (kern-mk-char 11670 'ch_lia 11671 "Lia" 11672 sp_human 11673 oc_wizard 11674 s_townswoman 11675 2 11676 0 0 0 11677 0 0 11678 0 0 11679 13 0 11680 0 3 11681 #f ;; dead? 11682 'lia-conv 11683 sch_lia 11684 nil 11685 nil ;; inventory 11686 nil 11687 ;; hooks 11688 (list 11689 ) 11690 ) 11691 '() 11692 ) ;; bind 11693 3 49) 11694 (list 11695 (bind 11696 (kern-mk-char 11697 'ch_fing 11698 "Fing" 11699 sp_nixie 11700 oc_warrior 11701 s_nixie 11702 2 11703 0 0 0 11704 0 0 11705 0 0 11706 13 0 11707 0 3 11708 #f ;; dead? 11709 'fing-conv 11710 sch_fing 11711 nil 11712 nil ;; inventory 11713 nil 11714 ;; hooks 11715 (list 11716 ) 11717 ) 11718 '() 11719 ) ;; bind 11720 3 50) 11721 (list 11722 (bind 11723 (kern-mk-char 11724 'ch_ghertie 11725 "Ghertie" 11726 sp_ghast 11727 oc_warrior 11728 s_ghost 11729 2 11730 0 0 0 11731 0 0 11732 0 0 11733 16 0 11734 0 6 11735 #f ;; dead? 11736 'ghertie-conv 11737 sch_ghertie 11738 nil 11739 nil ;; inventory 11740 nil 11741 ;; hooks 11742 (list 11743 ) 11744 ) 11745 (list 11746 (list 11747 #f 11748 #f 11749 #f 11750 ) 11751 ) 11752 ) ;; bind 11753 6 15) 11754 (list 11755 (bind 11756 (kern-mk-obj t_door 1 11757 ;; hooks 11758 (list 11759 ) 11760 ) 11761 (list 11762 #f 11763 0 11764 '() 11765 #f 11766 #t 11767 #f 11768 (list 11769 (list 11770 's_closed_solid_wood_door_in_stone 11771 #t 11772 5 11773 ) 11774 (list 11775 's_open_door_in_stone 11776 #f 11777 0 11778 ) 11779 (list 11780 's_locked_solid_wood_door_in_stone 11781 #t 11782 5 11783 ) 11784 (list 11785 's_magically_locked_solid_wood_door_in_stone 11786 #t 11787 5 11788 ) 11789 ) 11790 ) 11791 ) ;; bind 11792 2 4) 11793 (list 11794 (bind 11795 (kern-mk-obj t_door 1 11796 ;; hooks 11797 (list 11798 ) 11799 ) 11800 (list 11801 #f 11802 0 11803 '() 11804 #f 11805 #f 11806 #f 11807 (list 11808 (list 11809 's_closed_windowed_wood_door_in_rock 11810 #f 11811 5 11812 ) 11813 (list 11814 's_open_door_in_rock 11815 #f 11816 0 11817 ) 11818 (list 11819 's_locked_windowed_wood_door_in_rock 11820 #f 11821 5 11822 ) 11823 (list 11824 's_magically_locked_windowed_wood_door_in_rock 11825 #f 11826 5 11827 ) 11828 ) 11829 ) 11830 ) ;; bind 11831 11 7) 11832 ) ;; end of objects in p_oparine 11833 (list ;; on-entry-hooks 11834 'lock-inn-room-doors 11835 ) 11836 (list ;; edge entrances 11837 (list 0 30 54) ;; Northwest 11838 (list 1 16 54) ;; North 11839 (list 2 0 54) ;; Northeast 11840 (list 3 30 21) ;; West 11841 (list 4 15 27) ;; Here 11842 (list 5 0 19) ;; East 11843 (list 6 30 0) ;; Southwest 11844 (list 7 15 0) ;; South 11845 (list 8 0 0) ;; SoutheastUp 11846 ) 11847) ;; end of place p_oparine 11848 11849(kern-mk-place 'p_traps_1 "Riddles" 11850 nil ;; sprite 11851 (kern-mk-map 11852 nil 19 19 pal_expanded 11853 (list 11854 "rr rr rr rr rr rr rr xx xx xx xx xx xx xx xx xx xx rr rr " 11855 "rr rr rr xx xx xx xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11856 "rr rr rr xx ,, ,, ,, ,, ,, ,, ,, ,, x! ,, ,, ,, x! rr rr " 11857 "rr rr rr xx ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx rr rr " 11858 "rr rr xx xx ,, xx xx xx xx ,, xx xx xx xx ,, xx xx rr rr " 11859 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11860 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11861 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11862 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11863 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11864 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11865 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11866 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11867 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx rr rr " 11868 "rr rr xx xx ,, xx xx xx xx ,, xx xx xx xx ,, xx xx rr rr " 11869 "rr rr xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 11870 "rr rr x! ,, ,, ,, x! ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 11871 "rr rr xx ,, ,, ,, xx xx ,, ,, ,, xx xx xx xx xx rr rr rr " 11872 "rr rr xx xx xx xx xx xx xx xx xx xx rr rr rr rr rr rr rr " 11873 ) 11874 ) 11875 #f #t #f #f 11876 ;; subplaces 11877 nil 11878 nil ;; neighbors 11879 (list ;; objects in p_traps_1 11880 (list 11881 (bind 11882 (kern-mk-obj t_step_riddle 1 11883 ;; hooks 11884 (list 11885 ) 11886 ) 11887 (list 11888 'egg 11889 't_lava 11890 3 11891 5 11892 3 11893 9 11894 (list 11895 "All who would pass must answer the riddle: 11896 11897" 11898 " In a marble hall white as milk 11899" 11900 " Lined with skin soft as silk 11901" 11902 " Within a fountain crystal clear 11903" 11904 " A golden apple doth appear 11905" 11906 " No doors there are to this stronghold 11907" 11908 " Yet thieves break in to steal its gold. 11909" 11910 ) 11911 ) 11912 ) ;; bind 11913 4 14) 11914 (list 11915 (bind 11916 (kern-mk-obj t_step_riddle 1 11917 ;; hooks 11918 (list 11919 ) 11920 ) 11921 (list 11922 'few 11923 't_lava 11924 8 11925 5 11926 3 11927 9 11928 (list 11929 "All who would pass must answer the riddle: 11930 11931" 11932 " I know a word of letters three. 11933" 11934 " Add two, and fewer there will be." 11935 ) 11936 ) 11937 ) ;; bind 11938 9 4) 11939 (list 11940 (bind 11941 (kern-mk-obj t_step_riddle 1 11942 ;; hooks 11943 (list 11944 ) 11945 ) 11946 (list 11947 'eye 11948 't_lava 11949 13 11950 5 11951 3 11952 9 11953 (list 11954 "All who would pass must answer the riddle: 11955 11956" 11957 " Pronounced as one letter, 11958" 11959 " but written with three. 11960" 11961 " Two letters there are 11962" 11963 " and two only in me. 11964" 11965 " I'm double, and single, 11966" 11967 " and black, blue and gray. 11968" 11969 " When read from both ends 11970" 11971 " I'm the same either way." 11972 ) 11973 ) 11974 ) ;; bind 11975 14 14) 11976 (list 11977 (bind 11978 (kern-mk-obj t_ladder_down 1 11979 ;; hooks 11980 (list 11981 ) 11982 ) 11983 (list 11984 'p_traps_2 11985 9 11986 15 11987 ) 11988 ) ;; bind 11989 14 2) 11990 (list 11991 (bind 11992 (kern-mk-obj t_ladder_up 1 11993 ;; hooks 11994 (list 11995 ) 11996 ) 11997 (list 11998 'p_bole 11999 43 12000 6 12001 ) 12002 ) ;; bind 12003 4 16) 12004 ) ;; end of objects in p_traps_1 12005 nil ;; on-entry-hook 12006 (list ;; edge entrances 12007 (list 0 18 18) ;; Northwest 12008 (list 1 9 18) ;; North 12009 (list 2 0 18) ;; Northeast 12010 (list 3 18 9) ;; West 12011 (list 4 9 9) ;; Here 12012 (list 5 0 9) ;; East 12013 (list 6 18 0) ;; Southwest 12014 (list 7 9 0) ;; South 12015 (list 8 0 0) ;; SoutheastUp 12016 ) 12017) ;; end of place p_traps_1 12018 12019(kern-mk-place 'p_traps_2 "The Choice" 12020 nil ;; sprite 12021 (kern-mk-map 12022 nil 19 19 pal_expanded 12023 (list 12024 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 12025 "xx ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, ,, ,, xx " 12026 "xx ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, ,, ,, xx " 12027 "xx ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, ,, ,, xx " 12028 "xx ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, ,, ,, xx " 12029 "xx ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, ,, ,, xx " 12030 "xx xx ,, ,, ,, ,, ,, xx xx xx xx xx ,, ,, ,, ,, ,, xx xx " 12031 "xx xx xx ,, ,, ,, xx xx ,, ,, ,, xx xx ,, ,, ,, xx xx xx " 12032 "xx xx xx xx ,, xx xx ,, ,, ,, ,, ,, xx xx ,, xx xx xx xx " 12033 "xx xx xx ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, xx xx xx " 12034 "xx xx xx ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, xx xx xx " 12035 "xx xx xx xx ,, xx xx xx xx ~x xx xx xx xx ,, xx xx xx xx " 12036 "xx xx xx xx ,, xx xx .C .H ~O .O .S .E xx ,, xx xx xx xx " 12037 "xx xx xx xx ,, xx xx !! !! ~! !! !! !! xx ,, xx xx xx xx " 12038 "xx xx xx xx ,, xx xx ,, ,, ,, ,, ,, ,, xx ,, xx xx xx xx " 12039 "xx xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx xx xx " 12040 "xx xx xx xx xx xx xx ,, ,, ,, ,, ,, ,, xx xx xx xx xx xx " 12041 "xx xx xx xx xx xx xx !! !! !! !! !! !! xx xx xx xx xx xx " 12042 "xx xx xx xx xx xx xx .W .I .S .E .L .Y xx xx xx xx xx xx " 12043 ) 12044 ) 12045 #f #t #f #f 12046 ;; subplaces 12047 nil 12048 nil ;; neighbors 12049 (list ;; objects in p_traps_2 12050 (list 12051 (bind 12052 (kern-mk-obj t_spawn_pt 1 12053 ;; hooks 12054 (list 12055 ) 12056 ) 12057 (list 12058 'spawn-pt 12059 'mk-bandit 12060 ) 12061 ) ;; bind 12062 4 3) 12063 (list 12064 (bind 12065 (kern-mk-obj t_spawn_pt 1 12066 ;; hooks 12067 (list 12068 ) 12069 ) 12070 (list 12071 'spawn-pt 12072 'skeletal-warrior 12073 ) 12074 ) ;; bind 12075 14 3) 12076 (list 12077 (bind 12078 (kern-mk-obj t_door 1 12079 ;; hooks 12080 (list 12081 ) 12082 ) 12083 (list 12084 #f 12085 0 12086 '() 12087 #f 12088 #f 12089 #f 12090 (list 12091 (list 12092 's_closed_solid_wood_door_in_stone 12093 #t 12094 5 12095 ) 12096 (list 12097 's_open_door_in_stone 12098 #f 12099 0 12100 ) 12101 (list 12102 's_locked_solid_wood_door_in_stone 12103 #t 12104 5 12105 ) 12106 (list 12107 's_magically_locked_solid_wood_door_in_stone 12108 #t 12109 5 12110 ) 12111 ) 12112 ) 12113 ) ;; bind 12114 14 8) 12115 (list 12116 (bind 12117 (kern-mk-obj t_door 1 12118 ;; hooks 12119 (list 12120 ) 12121 ) 12122 (list 12123 #f 12124 0 12125 '() 12126 #f 12127 #f 12128 #f 12129 (list 12130 (list 12131 's_closed_solid_wood_door_in_stone 12132 #t 12133 5 12134 ) 12135 (list 12136 's_open_door_in_stone 12137 #f 12138 0 12139 ) 12140 (list 12141 's_locked_solid_wood_door_in_stone 12142 #t 12143 5 12144 ) 12145 (list 12146 's_magically_locked_solid_wood_door_in_stone 12147 #t 12148 5 12149 ) 12150 ) 12151 ) 12152 ) ;; bind 12153 4 8) 12154 (list 12155 (bind 12156 (kern-mk-obj t_ladder_down 1 12157 ;; hooks 12158 (list 12159 ) 12160 ) 12161 (list 12162 'p_traps_3 12163 9 12164 9 12165 ) 12166 ) ;; bind 12167 9 9) 12168 (list 12169 (bind 12170 (kern-mk-obj t_ladder_up 1 12171 ;; hooks 12172 (list 12173 ) 12174 ) 12175 (list 12176 'p_traps_1 12177 14 12178 2 12179 ) 12180 ) ;; bind 12181 9 15) 12182 (list 12183 (bind 12184 (kern-mk-obj t_step_clue 1 12185 ;; hooks 12186 (list 12187 ) 12188 ) 12189 (list 12190 "Doesn't the other way look better?" 12191 ) 12192 ) ;; bind 12193 13 15) 12194 (list 12195 (bind 12196 (kern-mk-obj t_step_clue 1 12197 ;; hooks 12198 (list 12199 ) 12200 ) 12201 (list 12202 "Doesn't the other way look better?" 12203 ) 12204 ) ;; bind 12205 6 15) 12206 (list 12207 (kern-mk-obj t_secret_path 1 12208 ;; hooks 12209 (list 12210 (list 12211 ef_permanent_invisibility 12212 '() 12213 2 12214 0 12215 ) 12216 ) 12217 ) 12218 9 14) 12219 (list 12220 (kern-mk-obj t_secret_path 1 12221 ;; hooks 12222 (list 12223 (list 12224 ef_permanent_invisibility 12225 '() 12226 2 12227 0 12228 ) 12229 ) 12230 ) 12231 9 13) 12232 (list 12233 (kern-mk-obj t_secret_path 1 12234 ;; hooks 12235 (list 12236 (list 12237 ef_permanent_invisibility 12238 '() 12239 2 12240 0 12241 ) 12242 ) 12243 ) 12244 9 12) 12245 (list 12246 (kern-mk-obj t_secret_path 1 12247 ;; hooks 12248 (list 12249 (list 12250 ef_permanent_invisibility 12251 '() 12252 2 12253 0 12254 ) 12255 ) 12256 ) 12257 9 11) 12258 (list 12259 (kern-mk-obj t_secret_path 1 12260 ;; hooks 12261 (list 12262 (list 12263 ef_permanent_invisibility 12264 '() 12265 2 12266 0 12267 ) 12268 ) 12269 ) 12270 9 10) 12271 (list 12272 (kern-mk-obj t_secret_path 1 12273 ;; hooks 12274 (list 12275 (list 12276 ef_permanent_invisibility 12277 '() 12278 2 12279 0 12280 ) 12281 ) 12282 ) 12283 9 9) 12284 (list 12285 (bind 12286 (kern-mk-obj t_ladder_down 1 12287 ;; hooks 12288 (list 12289 ) 12290 ) 12291 (list 12292 'p_traps_2 12293 14 12294 3 12295 ) 12296 ) ;; bind 12297 4 3) 12298 (list 12299 (bind 12300 (kern-mk-obj t_ladder_down 1 12301 ;; hooks 12302 (list 12303 ) 12304 ) 12305 (list 12306 'p_traps_2 12307 4 12308 3 12309 ) 12310 ) ;; bind 12311 14 3) 12312 ) ;; end of objects in p_traps_2 12313 nil ;; on-entry-hook 12314 (list ;; edge entrances 12315 (list 0 18 18) ;; Northwest 12316 (list 1 9 18) ;; North 12317 (list 2 0 18) ;; Northeast 12318 (list 3 18 9) ;; West 12319 (list 4 9 9) ;; Here 12320 (list 5 0 9) ;; East 12321 (list 6 18 0) ;; Southwest 12322 (list 7 9 0) ;; South 12323 (list 8 0 0) ;; SoutheastUp 12324 ) 12325) ;; end of place p_traps_2 12326 12327(kern-load "traps_3_mechs.scm") 12328 12329(kern-mk-place 'p_traps_3 "Fun with Levers" 12330 nil ;; sprite 12331 (kern-mk-map 12332 nil 19 19 pal_expanded 12333 (list 12334 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 12335 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12336 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12337 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12338 "xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 12339 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12340 "xx xx xx ,, x! xx xx xx x! ,, x! xx xx xx x! ,, xx xx xx " 12341 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12342 "xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 12343 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12344 "xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 12345 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12346 "xx xx xx ,, x! xx xx xx x! ,, x! xx xx xx x! ,, xx xx xx " 12347 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12348 "xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 12349 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12350 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12351 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12352 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 12353 ) 12354 ) 12355 #f #t #f #f 12356 ;; subplaces 12357 nil 12358 nil ;; neighbors 12359 (list ;; objects in p_traps_3 12360 (list 12361 (kern-tag 't3_pc6 12362 (bind 12363 (kern-mk-obj t_portcullis 1 12364 ;; hooks 12365 (list 12366 ) 12367 ) 12368 (list 12369 #t 12370 '() 12371 #f 12372 '() 12373 ) 12374 ) ;; bind 12375 ) ;; kern-tag 12376 12 15) 12377 (list 12378 (kern-tag 't3_pc7 12379 (bind 12380 (kern-mk-obj t_portcullis 1 12381 ;; hooks 12382 (list 12383 ) 12384 ) 12385 (list 12386 #f 12387 '() 12388 #f 12389 '() 12390 ) 12391 ) ;; bind 12392 ) ;; kern-tag 12393 3 6) 12394 (list 12395 (kern-tag 't3_pc8 12396 (bind 12397 (kern-mk-obj t_portcullis 1 12398 ;; hooks 12399 (list 12400 ) 12401 ) 12402 (list 12403 #f 12404 '() 12405 #f 12406 '() 12407 ) 12408 ) ;; bind 12409 ) ;; kern-tag 12410 9 6) 12411 (list 12412 (kern-tag 't3_pc9 12413 (bind 12414 (kern-mk-obj t_portcullis 1 12415 ;; hooks 12416 (list 12417 ) 12418 ) 12419 (list 12420 #f 12421 '() 12422 #f 12423 '() 12424 ) 12425 ) ;; bind 12426 ) ;; kern-tag 12427 15 6) 12428 (list 12429 (kern-tag 't3_pc10 12430 (bind 12431 (kern-mk-obj t_portcullis 1 12432 ;; hooks 12433 (list 12434 ) 12435 ) 12436 (list 12437 #f 12438 '() 12439 #f 12440 '() 12441 ) 12442 ) ;; bind 12443 ) ;; kern-tag 12444 3 12) 12445 (list 12446 (kern-tag 't3_pc11 12447 (bind 12448 (kern-mk-obj t_portcullis 1 12449 ;; hooks 12450 (list 12451 ) 12452 ) 12453 (list 12454 #f 12455 '() 12456 #f 12457 '() 12458 ) 12459 ) ;; bind 12460 ) ;; kern-tag 12461 9 12) 12462 (list 12463 (kern-tag 't3_pc12 12464 (bind 12465 (kern-mk-obj t_portcullis 1 12466 ;; hooks 12467 (list 12468 ) 12469 ) 12470 (list 12471 #f 12472 '() 12473 #f 12474 '() 12475 ) 12476 ) ;; bind 12477 ) ;; kern-tag 12478 15 12) 12479 (list 12480 (bind 12481 (kern-mk-obj t_lever 1 12482 ;; hooks 12483 (list 12484 ) 12485 ) 12486 (list 12487 #f 12488 't3_ctrl 12489 #f 12490 0 12491 ) 12492 ) ;; bind 12493 3 3) 12494 (list 12495 (bind 12496 (kern-mk-obj t_lever 1 12497 ;; hooks 12498 (list 12499 ) 12500 ) 12501 (list 12502 #f 12503 't3_ctrl 12504 #f 12505 1 12506 ) 12507 ) ;; bind 12508 15 3) 12509 (list 12510 (bind 12511 (kern-mk-obj t_lever 1 12512 ;; hooks 12513 (list 12514 ) 12515 ) 12516 (list 12517 #f 12518 't3_ctrl 12519 #f 12520 2 12521 ) 12522 ) ;; bind 12523 3 9) 12524 (list 12525 (bind 12526 (kern-mk-obj t_lever 1 12527 ;; hooks 12528 (list 12529 ) 12530 ) 12531 (list 12532 #f 12533 't3_ctrl 12534 #f 12535 3 12536 ) 12537 ) ;; bind 12538 15 9) 12539 (list 12540 (bind 12541 (kern-mk-obj t_lever 1 12542 ;; hooks 12543 (list 12544 ) 12545 ) 12546 (list 12547 #f 12548 't3_ctrl 12549 #f 12550 4 12551 ) 12552 ) ;; bind 12553 3 15) 12554 (list 12555 (bind 12556 (kern-mk-obj t_lever 1 12557 ;; hooks 12558 (list 12559 ) 12560 ) 12561 (list 12562 #f 12563 't3_ctrl 12564 #f 12565 5 12566 ) 12567 ) ;; bind 12568 9 15) 12569 (list 12570 (bind 12571 (kern-mk-obj t_lever 1 12572 ;; hooks 12573 (list 12574 ) 12575 ) 12576 (list 12577 #f 12578 't3_ctrl 12579 #f 12580 6 12581 ) 12582 ) ;; bind 12583 15 15) 12584 (list 12585 (kern-tag 't3_ctrl 12586 (bind 12587 (kern-mk-obj t_t3_ctrl 1 12588 ;; hooks 12589 (list 12590 ) 12591 ) 12592 (list 12593 (list 12594 't3_pc1 12595 't3_pc2 12596 't3_pc3 12597 't3_pc4 12598 't3_pc5 12599 't3_pc6 12600 't3_pc7 12601 't3_pc8 12602 't3_pc9 12603 't3_pc10 12604 't3_pc11 12605 't3_pc12 12606 ) 12607 (list 12608 #f 12609 #t 12610 #f 12611 #t 12612 #f 12613 #t 12614 #t 12615 #f 12616 #t 12617 #f 12618 #t 12619 #f 12620 ) 12621 (list 12622 #t 12623 #t 12624 #t 12625 #t 12626 #t 12627 #t 12628 #f 12629 #f 12630 #f 12631 #f 12632 #f 12633 #f 12634 ) 12635 (list 12636 #t 12637 #f 12638 #t 12639 #f 12640 #t 12641 #f 12642 #f 12643 #t 12644 #f 12645 #t 12646 #f 12647 #t 12648 ) 12649 (list 12650 #f 12651 #t 12652 #f 12653 #t 12654 #f 12655 #t 12656 #f 12657 #t 12658 #f 12659 #t 12660 #f 12661 #t 12662 ) 12663 (list 12664 #f 12665 #f 12666 #f 12667 #f 12668 #f 12669 #f 12670 #t 12671 #t 12672 #t 12673 #t 12674 #t 12675 #t 12676 ) 12677 (list 12678 #t 12679 #f 12680 #t 12681 #f 12682 #t 12683 #f 12684 #t 12685 #f 12686 #t 12687 #f 12688 #t 12689 #f 12690 ) 12691 (list 12692 #f 12693 #f 12694 #t 12695 #t 12696 #t 12697 #t 12698 #t 12699 #t 12700 #t 12701 #t 12702 #f 12703 #f 12704 ) 12705 ) 12706 ) ;; bind 12707 ) ;; kern-tag 12708 0 0) 12709 (list 12710 (bind 12711 (kern-mk-obj t_ladder_up 1 12712 ;; hooks 12713 (list 12714 ) 12715 ) 12716 (list 12717 'p_traps_2 12718 9 12719 9 12720 ) 12721 ) ;; bind 12722 9 9) 12723 (list 12724 (bind 12725 (kern-mk-obj t_ladder_down 1 12726 ;; hooks 12727 (list 12728 ) 12729 ) 12730 (list 12731 'p_traps_4 12732 9 12733 9 12734 ) 12735 ) ;; bind 12736 9 3) 12737 (list 12738 (bind 12739 (kern-mk-obj t_monman 1 12740 ;; hooks 12741 (list 12742 ) 12743 ) 12744 (list 12745 'monman 12746 (list 12747 0 12748 0 12749 0 12750 -1 12751 6 12752 -1 12753 ) 12754 ) 12755 ) ;; bind 12756 0 0) 12757 (list 12758 (bind 12759 (kern-mk-obj t_spawn_pt 1 12760 ;; hooks 12761 (list 12762 ) 12763 ) 12764 (list 12765 'spawn-pt 12766 'queen-spider 12767 ) 12768 ) ;; bind 12769 6 3) 12770 (list 12771 (bind 12772 (kern-mk-obj t_spawn_pt 1 12773 ;; hooks 12774 (list 12775 ) 12776 ) 12777 (list 12778 'spawn-pt 12779 'skeletal-warrior 12780 ) 12781 ) ;; bind 12782 6 15) 12783 (list 12784 (bind 12785 (kern-mk-obj t_spawn_pt 1 12786 ;; hooks 12787 (list 12788 ) 12789 ) 12790 (list 12791 'spawn-pt 12792 'yellow-slime 12793 ) 12794 ) ;; bind 12795 15 15) 12796 (list 12797 (bind 12798 (kern-mk-obj t_spawn_pt 1 12799 ;; hooks 12800 (list 12801 ) 12802 ) 12803 (list 12804 'spawn-pt 12805 'bandit 12806 ) 12807 ) ;; bind 12808 15 3) 12809 (list 12810 (kern-tag 't3_pc1 12811 (bind 12812 (kern-mk-obj t_portcullis 1 12813 ;; hooks 12814 (list 12815 ) 12816 ) 12817 (list 12818 #t 12819 '() 12820 #f 12821 '() 12822 ) 12823 ) ;; bind 12824 ) ;; kern-tag 12825 6 3) 12826 (list 12827 (kern-tag 't3_pc2 12828 (bind 12829 (kern-mk-obj t_portcullis 1 12830 ;; hooks 12831 (list 12832 ) 12833 ) 12834 (list 12835 #t 12836 '() 12837 #f 12838 '() 12839 ) 12840 ) ;; bind 12841 ) ;; kern-tag 12842 6 9) 12843 (list 12844 (kern-tag 't3_pc3 12845 (bind 12846 (kern-mk-obj t_portcullis 1 12847 ;; hooks 12848 (list 12849 ) 12850 ) 12851 (list 12852 #t 12853 '() 12854 #f 12855 '() 12856 ) 12857 ) ;; bind 12858 ) ;; kern-tag 12859 6 15) 12860 (list 12861 (kern-tag 't3_pc4 12862 (bind 12863 (kern-mk-obj t_portcullis 1 12864 ;; hooks 12865 (list 12866 ) 12867 ) 12868 (list 12869 #t 12870 '() 12871 #f 12872 '() 12873 ) 12874 ) ;; bind 12875 ) ;; kern-tag 12876 12 3) 12877 (list 12878 (kern-tag 't3_pc5 12879 (bind 12880 (kern-mk-obj t_portcullis 1 12881 ;; hooks 12882 (list 12883 ) 12884 ) 12885 (list 12886 #t 12887 '() 12888 #f 12889 '() 12890 ) 12891 ) ;; bind 12892 ) ;; kern-tag 12893 12 9) 12894 ) ;; end of objects in p_traps_3 12895 (list ;; on-entry-hooks 12896 'on-entry-to-dungeon-room 12897 ) 12898 (list ;; edge entrances 12899 (list 0 18 18) ;; Northwest 12900 (list 1 9 18) ;; North 12901 (list 2 0 18) ;; Northeast 12902 (list 3 18 9) ;; West 12903 (list 4 9 9) ;; Here 12904 (list 5 0 9) ;; East 12905 (list 6 18 0) ;; Southwest 12906 (list 7 9 0) ;; South 12907 (list 8 0 0) ;; SoutheastUp 12908 ) 12909) ;; end of place p_traps_3 12910 12911(kern-mk-place 'p_traps_4 "Labyrinth of Burning Glass" 12912 nil ;; sprite 12913 (kern-mk-map 12914 nil 19 19 pal_expanded 12915 (list 12916 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 12917 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ~, ,, ,, ,, ,, ,, xx " 12918 "xx ,, pp ~, pp ~, pp ~, pp ~, pp ~, pp ,, pp ~, pp ,, xx " 12919 "xx ,, ~, ,, ,, ,, ,, ,, ,, ,, ,, ,, ~, ,, ,, ,, ~, ,, xx " 12920 "xx ,, pp ,, pp ~, pp ~, pp ~, pp ,, pp ~, pp ,, pp ,, xx " 12921 "xx ,, ~, ,, ~, ,, ,, ,, ~, ,, ,, ,, ~, ,, ,, ,, ~, ,, xx " 12922 "xx ,, pp ,, pp ~, pp ,, pp ~, ~p ~, pp ,, pp ~, pp ,, xx " 12923 "xx ,, ~, ,, ,, ,, ~, ,, ~, ,, ,, ,, ~, ,, ~, ,, ~, ,, xx " 12924 "xx ,, pp ~, pp ,, pp ,, pp ~, pp ~, pp ~, pp ,, pp ,, xx " 12925 "xx ,, ~, ,, ,, ,, ~, ,, ,, ,, ,, ,, ,, ,, ~, ,, ~, ,, xx " 12926 "xx ,, pp ,, pp ~, pp ~, pp ~, pp ~, pp ,, pp ,, pp ,, xx " 12927 "xx ,, ~, ,, ~, ,, ~, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12928 "xx ,, pp ,, pp ,, pp ,, pp ~, pp ~, pp ,, pp ~, pp ,, xx " 12929 "xx ,, ~, ,, ~, ,, ~, ,, ~, ,, ,, ,, ~, ,, ,, ,, ~, ,, xx " 12930 "xx ,, pp ,, pp ,, pp ,, pp ,, pp ,, pp ~, pp ~, pp ,, xx " 12931 "xx ,, ~, ,, ~, ,, ,, ,, ~, ,, ~, ,, ,, ,, ,, ,, ,, ,, xx " 12932 "xx ,, pp ,, pp ~, pp ~, pp ~, pp ~, pp ~, pp ~, pp ,, xx " 12933 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12934 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 12935 ) 12936 ) 12937 #f #t #f #f 12938 ;; subplaces 12939 nil 12940 nil ;; neighbors 12941 (list ;; objects in p_traps_4 12942 (list 12943 (bind 12944 (kern-mk-obj t_ladder_up 1 12945 ;; hooks 12946 (list 12947 ) 12948 ) 12949 (list 12950 'p_traps_3 12951 9 12952 3 12953 ) 12954 ) ;; bind 12955 9 9) 12956 (list 12957 (bind 12958 (kern-mk-obj t_ladder_down 1 12959 ;; hooks 12960 (list 12961 ) 12962 ) 12963 (list 12964 'p_thiefs_den 12965 9 12966 9 12967 ) 12968 ) ;; bind 12969 9 7) 12970 ) ;; end of objects in p_traps_4 12971 nil ;; on-entry-hook 12972 (list ;; edge entrances 12973 (list 0 18 18) ;; Northwest 12974 (list 1 9 18) ;; North 12975 (list 2 0 18) ;; Northeast 12976 (list 3 18 9) ;; West 12977 (list 4 9 9) ;; Here 12978 (list 5 0 9) ;; East 12979 (list 6 18 0) ;; Southwest 12980 (list 7 9 0) ;; South 12981 (list 8 0 0) ;; SoutheastUp 12982 ) 12983) ;; end of place p_traps_4 12984 12985(kern-load "mouse.scm") 12986 12987(kern-mk-place 'p_thiefs_den "Thief's Den" 12988 nil ;; sprite 12989 (kern-mk-map 12990 nil 19 19 pal_expanded 12991 (list 12992 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 12993 "xx && ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12994 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12995 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12996 "xx ,, ,, ,, pp ,, ,, ,, ,, pp ,, ,, ,, ,, pp ,, ,, ,, xx " 12997 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12998 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 12999 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13000 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13001 "xx ,, ,, ,, pp ,, ,, ,, ,, ,, ,, ,, ,, ,, pp ,, ,, ,, xx " 13002 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13003 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13004 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13005 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13006 "xx ,, ,, ,, pp ,, ,, ,, ,, pp ,, ,, ,, ,, pp ,, ,, ,, xx " 13007 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13008 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13009 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13010 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 13011 ) 13012 ) 13013 #f #t #f #f 13014 ;; subplaces 13015 nil 13016 nil ;; neighbors 13017 (list ;; objects in p_thiefs_den 13018 (list 13019 (kern-mk-obj t_picklock 1 13020 ;; hooks 13021 (list 13022 ) 13023 ) 13024 8 6) 13025 (list 13026 (kern-mk-obj t_gem 1 13027 ;; hooks 13028 (list 13029 ) 13030 ) 13031 8 7) 13032 (list 13033 (kern-mk-obj t_an_tym_scroll 1 13034 ;; hooks 13035 (list 13036 ) 13037 ) 13038 9 7) 13039 (list 13040 (kern-mk-obj t_in_mani_corp_scroll 1 13041 ;; hooks 13042 (list 13043 ) 13044 ) 13045 10 7) 13046 (list 13047 (kern-mk-obj t_vas_rel_por_scroll 1 13048 ;; hooks 13049 (list 13050 ) 13051 ) 13052 10 8) 13053 (list 13054 (kern-mk-obj t_sanct_lor_scroll 1 13055 ;; hooks 13056 (list 13057 ) 13058 ) 13059 10 10) 13060 (list 13061 (kern-mk-obj t_in_quas_xen_scroll 1 13062 ;; hooks 13063 (list 13064 ) 13065 ) 13066 9 10) 13067 (list 13068 (kern-mk-obj t_an_xen_exe_scroll 1 13069 ;; hooks 13070 (list 13071 ) 13072 ) 13073 8 9) 13074 (list 13075 (kern-mk-obj t_in_an_scroll 1 13076 ;; hooks 13077 (list 13078 ) 13079 ) 13080 7 9) 13081 (list 13082 (kern-mk-obj t_in_ex_por_scroll 1 13083 ;; hooks 13084 (list 13085 ) 13086 ) 13087 6 9) 13088 (list 13089 (kern-mk-obj t_vas_mani_scroll 1 13090 ;; hooks 13091 (list 13092 ) 13093 ) 13094 6 8) 13095 (list 13096 (kern-mk-obj t_wis_quas_scroll 1 13097 ;; hooks 13098 (list 13099 ) 13100 ) 13101 6 7) 13102 (list 13103 (kern-mk-obj t_gold_coins 74 13104 ;; hooks 13105 (list 13106 ) 13107 ) 13108 6 2) 13109 (list 13110 (kern-mk-obj t_gold_coins 112 13111 ;; hooks 13112 (list 13113 ) 13114 ) 13115 2 9) 13116 (list 13117 (kern-mk-obj t_gold_coins 243 13118 ;; hooks 13119 (list 13120 ) 13121 ) 13122 1 17) 13123 (list 13124 (kern-mk-obj t_gold_coins 30 13125 ;; hooks 13126 (list 13127 ) 13128 ) 13129 7 3) 13130 (list 13131 (kern-mk-obj t_bed 1 13132 ;; hooks 13133 (list 13134 ) 13135 ) 13136 3 1) 13137 (list 13138 (bind 13139 (kern-char-force-drop (kern-mk-char 13140 'ch_mouse 13141 "Mouse" 13142 sp_human 13143 nil 13144 s_brigand 13145 2 13146 0 0 10 13147 2 2 13148 1 1 13149 18 0 13150 10 8 13151 #f ;; dead? 13152 'mouse-conv 13153 nil 13154 nil 13155 (kern-mk-container 13156 t_chest 13157 ;; trap 13158 nil 13159 ;; contents 13160 (list 13161 (list 1 t_rune_k) 13162 (list 1 t_sword) 13163 (list 50 t_arrow) 13164 ) 13165 ;; hooks 13166 (list 13167 ) 13168 ) 13169 (list 13170 t_leather_helm 13171 t_bow 13172 t_armor_leather 13173 ) 13174 ;; hooks 13175 (list 13176 ) 13177 ) 13178 #t) ;; kern-char-force-drop 13179 (list 13180 #t 13181 ) 13182 ) ;; bind 13183 3 3) 13184 (list 13185 (bind 13186 (kern-mk-obj t_ladder_up 1 13187 ;; hooks 13188 (list 13189 ) 13190 ) 13191 (list 13192 'p_traps_4 13193 9 13194 7 13195 ) 13196 ) ;; bind 13197 9 9) 13198 (list 13199 (kern-mk-obj t_food 10 13200 ;; hooks 13201 (list 13202 ) 13203 ) 13204 4 1) 13205 (list 13206 (kern-mk-obj t_wine 1 13207 ;; hooks 13208 (list 13209 ) 13210 ) 13211 4 2) 13212 (list 13213 (kern-mk-obj t_cure_potion 1 13214 ;; hooks 13215 (list 13216 ) 13217 ) 13218 3 4) 13219 (list 13220 (kern-mk-obj t_mana_potion 1 13221 ;; hooks 13222 (list 13223 ) 13224 ) 13225 4 5) 13226 (list 13227 (kern-mk-obj t_heal_potion 1 13228 ;; hooks 13229 (list 13230 ) 13231 ) 13232 5 5) 13233 (list 13234 (kern-mk-obj t_poison_immunity_potion 1 13235 ;; hooks 13236 (list 13237 ) 13238 ) 13239 6 5) 13240 (list 13241 (kern-mk-obj t_inv_potion 1 13242 ;; hooks 13243 (list 13244 ) 13245 ) 13246 7 5) 13247 (list 13248 (kern-mk-obj t_torch 1 13249 ;; hooks 13250 (list 13251 ) 13252 ) 13253 8 5) 13254 ) ;; end of objects in p_thiefs_den 13255 nil ;; on-entry-hook 13256 (list ;; edge entrances 13257 (list 0 18 18) ;; Northwest 13258 (list 1 9 18) ;; North 13259 (list 2 0 18) ;; Northeast 13260 (list 3 18 9) ;; West 13261 (list 4 9 9) ;; Here 13262 (list 5 0 9) ;; East 13263 (list 6 18 0) ;; Southwest 13264 (list 7 9 0) ;; South 13265 (list 8 0 0) ;; SoutheastUp 13266 ) 13267) ;; end of place p_thiefs_den 13268 13269(kern-load "anne.scm") 13270 13271(kern-load "jones.scm") 13272 13273(kern-load "alex.scm") 13274 13275(kern-mk-place 'p_treasury "Treasury" 13276 nil ;; sprite 13277 (kern-mk-map 13278 nil 19 19 pal_expanded 13279 (list 13280 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 13281 "xx ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, xx " 13282 "xx ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, xx " 13283 "xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx " 13284 "xx xx xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx xx xx xx " 13285 "xx xx xx ,, ,, ,, ,, ,, w+ xx w+ ,, ,, ,, ,, ,, xx xx xx " 13286 "xx xx xx ,, ,, ,, ,, ,, w+ xx w+ ,, ,, ,, ,, ,, xx xx xx " 13287 "xx ,, ,, ,, ,, ,, ,, ,, w+ xx w+ ,, ,, ,, ,, ,, ,, ,, xx " 13288 "xx ,, ,, ,, ,, xx xx xx x! xx x! xx xx xx ,, ,, ,, ,, xx " 13289 "xx ,, ,, ,, ,, xx xx xx xx ,, xx xx xx xx ,, ,, ,, ,, xx " 13290 "xx ,, ,, ,, ,, xx xx xx x! xx x! xx xx xx ,, ,, ,, ,, xx " 13291 "xx ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, ,, ,, xx " 13292 "xx xx xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx xx " 13293 "xx xx xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx xx " 13294 "xx xx xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx xx xx xx " 13295 "xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx " 13296 "xx ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, xx " 13297 "xx ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, xx " 13298 "xx xx xx xx xx xx xx ,, ,, ,, ,, ,, xx xx xx xx xx xx xx " 13299 ) 13300 ) 13301 #f #t #f #f 13302 ;; subplaces 13303 nil 13304 (list 13305 (list 13306 (kern-mk-place 'p_great_hall "Great Hall" 13307 nil ;; sprite 13308 (kern-mk-map 13309 nil 19 19 pal_expanded 13310 (list 13311 "xx xx xx xx xx xx xx xx xx xx xx xx xx x! xx xx xx xx xx " 13312 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13313 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13314 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13315 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13316 "xx ,, ,, ,, ,, xx xx ,, cc cc cc ,, xx xx ,, ,, ,, ,, xx " 13317 "x! ,, ,, ,, ,, xx x! ,, cc cc cc ,, x! xx ,, ,, ,, ,, x! " 13318 ",, ,, ,, ,, ,, ,, ,, ,, cc cc cc ,, ,, ,, ,, ,, ,, ,, ,, " 13319 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc " 13320 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc " 13321 "cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc cc " 13322 ",, ,, ,, ,, ,, ,, ,, ,, cc cc cc ,, ,, ,, ,, ,, ,, ,, ,, " 13323 "x! ,, ,, ,, ,, xx x! ,, cc cc cc ,, x! xx ,, ,, ,, ,, x! " 13324 "xx ,, ,, ,, ,, xx xx ,, cc cc cc ,, xx xx ,, ,, ,, ,, xx " 13325 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13326 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13327 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13328 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13329 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 13330 ) 13331 ) 13332 #f #t #f #f 13333 ;; subplaces 13334 nil 13335 (list 13336 (list 13337 (kern-mk-place 'p_paladins_hold "Paladin's Hold" 13338 nil ;; sprite 13339 (kern-mk-map 13340 nil 19 19 pal_expanded 13341 (list 13342 "xx xx xx xx xx xx xx xx xx xx xx xx xx && xx xx xx xx xx " 13343 "xx xx xx xx xx xx xx xx xx x! ,, ,, ,, ,, ,, ,, ,, x! xx " 13344 "xx xx ,, ,, ,, xx x! xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13345 "xx && ,, ,, ,, ,, ,, ,, ,, ,, ,, [[ @@ @@ @@ ]] ,, ,, xx " 13346 "xx xx ,, ,, ,, xx ,, xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 13347 "xx xx xx xx xx xx ,, xx xx x! ,, ,, ,, ,, ,, ,, ,, x! xx " 13348 "xx xx xx xx xx xx ,, xx xx xx xx xx xx xx xx xx xx xx xx " 13349 "xx xx xx x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! ,, ,, ,, ,, " 13350 "xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, " 13351 "xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, " 13352 "xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, " 13353 "xx xx xx x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! .. ,, ,, ,, " 13354 "xx xx xx xx xx xx xx xx ,, xx xx xx xx xx xx xx xx xx xx " 13355 "xx .A .R .M .S xx xx xx ,, xx xx xx xx .M .E .D .I .K xx " 13356 "xx ,, ,, ,, ,, x! ,, ,, ,, ,, ,, ,, sH ,, ,, ,, ,, ,, xx " 13357 "x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! " 13358 "xx ,, ,, ,, ,, sA ,, ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 13359 "xx ,, ,, ,, ,, xx xx xx ,, xx xx xx xx ,, ,, ,, ,, ,, xx " 13360 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 13361 ) 13362 ) 13363 #f #t #f #f 13364 ;; subplaces 13365 nil 13366 nil ;; neighbors 13367 (list ;; objects in p_paladins_hold 13368 (list 13369 (bind 13370 (kern-mk-char 13371 'ch_anne 13372 "Anne" 13373 sp_human 13374 oc_wizard 13375 s_companion_wizard 13376 2 13377 0 0 0 13378 0 0 13379 0 0 13380 14 0 13381 6 4 13382 #f ;; dead? 13383 'anne-conv 13384 sch_anne 13385 nil 13386 nil ;; inventory 13387 nil 13388 ;; hooks 13389 (list 13390 ) 13391 ) 13392 '() 13393 ) ;; bind 13394 10 1) 13395 (list 13396 (bind 13397 (kern-mk-char 13398 'ch_jones 13399 "Jones" 13400 sp_human 13401 nil 13402 s_townsman 13403 2 13404 0 0 0 13405 0 0 13406 0 0 13407 16 0 13408 8 6 13409 #f ;; dead? 13410 'jones-conv 13411 sch_jones 13412 nil 13413 nil ;; inventory 13414 nil 13415 ;; hooks 13416 (list 13417 ) 13418 ) 13419 '() 13420 ) ;; bind 13421 4 7) 13422 (list 13423 (bind 13424 (kern-mk-char 13425 'ch_alex 13426 "Alex" 13427 sp_human 13428 oc_wizard 13429 s_companion_wizard 13430 2 13431 0 0 0 13432 0 0 13433 0 0 13434 18 0 13435 10 8 13436 #f ;; dead? 13437 'alex-conv 13438 sch_alex 13439 nil 13440 nil ;; inventory 13441 nil 13442 ;; hooks 13443 (list 13444 ) 13445 ) 13446 '() 13447 ) ;; bind 13448 10 1) 13449 (list 13450 (bind 13451 (kern-mk-obj t_custom_pt 1 13452 ;; hooks 13453 (list 13454 ) 13455 ) 13456 (list 13457 'put-gate-guard 13458 'php1 13459 'deep 13460 ) 13461 ) ;; bind 13462 11 9) 13463 (list 13464 (bind 13465 (kern-mk-obj t_guard_pt 1 13466 ;; hooks 13467 (list 13468 ) 13469 ) 13470 (list 13471 'spawn-pt 13472 'crossbowman 13473 ) 13474 ) ;; bind 13475 13 8) 13476 (list 13477 (bind 13478 (kern-mk-obj t_guard_pt 1 13479 ;; hooks 13480 (list 13481 ) 13482 ) 13483 (list 13484 'spawn-pt 13485 'crossbowman 13486 ) 13487 ) ;; bind 13488 13 10) 13489 (list 13490 (bind 13491 (kern-mk-obj t_guard_pt 1 13492 ;; hooks 13493 (list 13494 ) 13495 ) 13496 (list 13497 'spawn-pt 13498 'halberdier 13499 ) 13500 ) ;; bind 13501 15 10) 13502 (list 13503 (bind 13504 (kern-mk-obj t_guard_pt 1 13505 ;; hooks 13506 (list 13507 ) 13508 ) 13509 (list 13510 'spawn-pt 13511 'halberdier 13512 ) 13513 ) ;; bind 13514 15 8) 13515 (list 13516 (bind 13517 (kern-mk-obj t_spawn_pt 1 13518 ;; hooks 13519 (list 13520 ) 13521 ) 13522 (list 13523 'spawn-pt 13524 'death-knight 13525 ) 13526 ) ;; bind 13527 17 9) 13528 (list 13529 (bind 13530 (kern-mk-obj t_spawn_pt 1 13531 ;; hooks 13532 (list 13533 ) 13534 ) 13535 (list 13536 'spawn-pt 13537 'skeletal-spear-thrower 13538 ) 13539 ) ;; bind 13540 18 7) 13541 (list 13542 (bind 13543 (kern-mk-obj t_spawn_pt 1 13544 ;; hooks 13545 (list 13546 ) 13547 ) 13548 (list 13549 'spawn-pt 13550 'skeletal-spear-thrower 13551 ) 13552 ) ;; bind 13553 18 11) 13554 (list 13555 (bind 13556 (kern-mk-obj t_monman 1 13557 ;; hooks 13558 (list 13559 ) 13560 ) 13561 (list 13562 'monman 13563 (list 13564 0 13565 0 13566 0 13567 -1 13568 6 13569 -1 13570 ) 13571 ) 13572 ) ;; bind 13573 0 0) 13574 (list 13575 (kern-tag 'php1 13576 (bind 13577 (kern-mk-obj t_portcullis 1 13578 ;; hooks 13579 (list 13580 ) 13581 ) 13582 (list 13583 #f 13584 '() 13585 #f 13586 '() 13587 ) 13588 ) ;; bind 13589 ) ;; kern-tag 13590 14 9) 13591 (list 13592 (bind 13593 (kern-mk-obj t_door 1 13594 ;; hooks 13595 (list 13596 ) 13597 ) 13598 (list 13599 #f 13600 0 13601 '() 13602 #f 13603 #f 13604 #f 13605 (list 13606 (list 13607 's_closed_solid_wood_door_in_stone 13608 #t 13609 5 13610 ) 13611 (list 13612 's_open_door_in_stone 13613 #f 13614 0 13615 ) 13616 (list 13617 's_locked_solid_wood_door_in_stone 13618 #t 13619 5 13620 ) 13621 (list 13622 's_magically_locked_solid_wood_door_in_stone 13623 #t 13624 5 13625 ) 13626 ) 13627 ) 13628 ) ;; bind 13629 5 15) 13630 (list 13631 (bind 13632 (kern-mk-obj t_door 1 13633 ;; hooks 13634 (list 13635 ) 13636 ) 13637 (list 13638 #f 13639 0 13640 '() 13641 #f 13642 #f 13643 #f 13644 (list 13645 (list 13646 's_closed_solid_wood_door_in_stone 13647 #t 13648 5 13649 ) 13650 (list 13651 's_open_door_in_stone 13652 #f 13653 0 13654 ) 13655 (list 13656 's_locked_solid_wood_door_in_stone 13657 #t 13658 5 13659 ) 13660 (list 13661 's_magically_locked_solid_wood_door_in_stone 13662 #t 13663 5 13664 ) 13665 ) 13666 ) 13667 ) ;; bind 13668 12 15) 13669 (list 13670 (kern-mk-obj t_bed 1 13671 ;; hooks 13672 (list 13673 ) 13674 ) 13675 13 17) 13676 (list 13677 (kern-mk-obj t_bed 1 13678 ;; hooks 13679 (list 13680 ) 13681 ) 13682 15 17) 13683 (list 13684 (kern-mk-obj t_bed 1 13685 ;; hooks 13686 (list 13687 ) 13688 ) 13689 17 17) 13690 (list 13691 (kern-mk-obj t_bed 1 13692 ;; hooks 13693 (list 13694 ) 13695 ) 13696 17 15) 13697 (list 13698 (bind 13699 (kern-mk-obj t_ladder_down 1 13700 ;; hooks 13701 (list 13702 ) 13703 ) 13704 (list 13705 'p_forsaken_prison 13706 9 13707 9 13708 ) 13709 ) ;; bind 13710 8 17) 13711 (list 13712 (bind 13713 (kern-mk-obj t_ladder_up 1 13714 ;; hooks 13715 (list 13716 ) 13717 ) 13718 (list 13719 'p_watchpoint 13720 9 13721 14 13722 ) 13723 ) ;; bind 13724 3 9) 13725 ) ;; end of objects in p_paladins_hold 13726 (list ;; on-entry-hooks 13727 'on-entry-to-dungeon-room 13728 ) 13729 (list ;; edge entrances 13730 (list 0 18 18) ;; Northwest 13731 (list 1 9 18) ;; North 13732 (list 2 0 18) ;; Northeast 13733 (list 3 18 9) ;; West 13734 (list 4 9 9) ;; Here 13735 (list 5 0 9) ;; East 13736 (list 6 18 0) ;; Southwest 13737 (list 7 9 0) ;; South 13738 (list 8 0 0) ;; SoutheastUp 13739 ) 13740 ) ;; end of place p_paladins_hold 13741 13742 3) 13743 (list 13744 (kern-mk-place 'p_death_knights_hold "Death Knight's Hold" 13745 nil ;; sprite 13746 (kern-mk-map 13747 nil 19 19 pal_expanded 13748 (list 13749 "xx xx xx xx xx xx xx xx xx xx xx rr rr rr rr rr rr rr rr " 13750 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. .. bb bb rr rr rr " 13751 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, .. .. .. .. bb rr rr " 13752 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, .. .. .. .. .. bb rr " 13753 "xx xx xx xx ,, ,, ,, xx xx xx xx ,, ,, ,, ,, .. .. .. rr " 13754 ",, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, xx xx ,, xx xx xx xx " 13755 ",, ,, ,, xx w+ w+ w+ xx ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 13756 ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx " 13757 ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, ,, ,, ,, xx " 13758 ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, ,, ,, ,, xx " 13759 ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, ,, ,, ,, xx " 13760 ",, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx " 13761 ",, ,, ,, xx w+ w+ w+ xx ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 13762 ",, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, xx xx ,, xx xx xx xx " 13763 "xx xx xx xx ,, ,, ,, xx xx xx xx ,, ,, ,, ,, .. .. .. rr " 13764 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, .. .. .. .. .. bb rr " 13765 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, .. .. .. .. bb rr rr " 13766 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. .. .. bb bb .. bb rr " 13767 "xx xx xx xx xx xx xx xx xx xx xx rr rr rr rr rr rr rr rr " 13768 ) 13769 ) 13770 #f #t #f #f 13771 ;; subplaces 13772 nil 13773 nil ;; neighbors 13774 (list ;; objects in p_death_knights_hold 13775 (list 13776 (bind 13777 (kern-mk-obj t_spawn_pt 1 13778 ;; hooks 13779 (list 13780 ) 13781 ) 13782 (list 13783 'spawn-pt 13784 'death-knight 13785 ) 13786 ) ;; bind 13787 14 16) 13788 (list 13789 (bind 13790 (kern-mk-obj t_spawn_pt 1 13791 ;; hooks 13792 (list 13793 ) 13794 ) 13795 (list 13796 'spawn-pt 13797 'death-knight 13798 ) 13799 ) ;; bind 13800 7 9) 13801 (list 13802 (bind 13803 (kern-mk-obj t_guard_pt 1 13804 ;; hooks 13805 (list 13806 ) 13807 ) 13808 (list 13809 'spawn-pt 13810 'death-knight 13811 ) 13812 ) ;; bind 13813 9 2) 13814 (list 13815 (bind 13816 (kern-mk-obj t_guard_pt 1 13817 ;; hooks 13818 (list 13819 ) 13820 ) 13821 (list 13822 'spawn-pt 13823 'death-knight 13824 ) 13825 ) ;; bind 13826 9 16) 13827 (list 13828 (bind 13829 (kern-mk-obj t_guard_pt 1 13830 ;; hooks 13831 (list 13832 ) 13833 ) 13834 (list 13835 'spawn-pt 13836 'death-knight 13837 ) 13838 ) ;; bind 13839 14 6) 13840 (list 13841 (bind 13842 (kern-mk-obj t_guard_pt 1 13843 ;; hooks 13844 (list 13845 ) 13846 ) 13847 (list 13848 'spawn-pt 13849 'death-knight 13850 ) 13851 ) ;; bind 13852 14 12) 13853 (list 13854 (bind 13855 (kern-mk-obj t_guard_pt 1 13856 ;; hooks 13857 (list 13858 ) 13859 ) 13860 (list 13861 'spawn-pt 13862 'warlock 13863 ) 13864 ) ;; bind 13865 14 9) 13866 (list 13867 (bind 13868 (kern-mk-obj t_monman 1 13869 ;; hooks 13870 (list 13871 ) 13872 ) 13873 (list 13874 'monman 13875 (list 13876 0 13877 0 13878 0 13879 -1 13880 6 13881 -1 13882 ) 13883 ) 13884 ) ;; bind 13885 0 0) 13886 (list 13887 (bind 13888 (kern-mk-obj t_door 1 13889 ;; hooks 13890 (list 13891 ) 13892 ) 13893 (list 13894 #f 13895 0 13896 '() 13897 #f 13898 #t 13899 #f 13900 (list 13901 (list 13902 's_closed_solid_wood_door_in_stone 13903 #t 13904 5 13905 ) 13906 (list 13907 's_open_door_in_stone 13908 #f 13909 0 13910 ) 13911 (list 13912 's_locked_solid_wood_door_in_stone 13913 #t 13914 5 13915 ) 13916 (list 13917 's_magically_locked_solid_wood_door_in_stone 13918 #t 13919 5 13920 ) 13921 ) 13922 ) 13923 ) ;; bind 13924 10 2) 13925 (list 13926 (bind 13927 (kern-mk-obj t_door 1 13928 ;; hooks 13929 (list 13930 ) 13931 ) 13932 (list 13933 #f 13934 0 13935 '() 13936 #f 13937 #f 13938 #t 13939 (list 13940 (list 13941 's_closed_solid_wood_door_in_stone 13942 #t 13943 5 13944 ) 13945 (list 13946 's_open_door_in_stone 13947 #f 13948 0 13949 ) 13950 (list 13951 's_locked_solid_wood_door_in_stone 13952 #t 13953 5 13954 ) 13955 (list 13956 's_magically_locked_solid_wood_door_in_stone 13957 #t 13958 5 13959 ) 13960 ) 13961 ) 13962 ) ;; bind 13963 14 5) 13964 (list 13965 (bind 13966 (kern-mk-obj t_door 1 13967 ;; hooks 13968 (list 13969 ) 13970 ) 13971 (list 13972 #f 13973 0 13974 '() 13975 #f 13976 #f 13977 #t 13978 (list 13979 (list 13980 's_closed_solid_wood_door_in_stone 13981 #t 13982 5 13983 ) 13984 (list 13985 's_open_door_in_stone 13986 #f 13987 0 13988 ) 13989 (list 13990 's_locked_solid_wood_door_in_stone 13991 #t 13992 5 13993 ) 13994 (list 13995 's_magically_locked_solid_wood_door_in_stone 13996 #t 13997 5 13998 ) 13999 ) 14000 ) 14001 ) ;; bind 14002 14 13) 14003 (list 14004 (bind 14005 (kern-mk-obj t_door 1 14006 ;; hooks 14007 (list 14008 ) 14009 ) 14010 (list 14011 #f 14012 0 14013 '() 14014 #f 14015 #t 14016 #f 14017 (list 14018 (list 14019 's_closed_solid_wood_door_in_stone 14020 #t 14021 5 14022 ) 14023 (list 14024 's_open_door_in_stone 14025 #f 14026 0 14027 ) 14028 (list 14029 's_locked_solid_wood_door_in_stone 14030 #t 14031 5 14032 ) 14033 (list 14034 's_magically_locked_solid_wood_door_in_stone 14035 #t 14036 5 14037 ) 14038 ) 14039 ) 14040 ) ;; bind 14041 10 16) 14042 (list 14043 (bind 14044 (kern-mk-obj t_ladder_down 1 14045 ;; hooks 14046 (list 14047 ) 14048 ) 14049 (list 14050 'p_altar_room 14051 17 14052 17 14053 ) 14054 ) ;; bind 14055 17 9) 14056 (list 14057 (bind 14058 (kern-mk-obj t_guard_pt 1 14059 ;; hooks 14060 (list 14061 ) 14062 ) 14063 (list 14064 'spawn-pt 14065 'craven-archer 14066 ) 14067 ) ;; bind 14068 5 5) 14069 (list 14070 (bind 14071 (kern-mk-obj t_guard_pt 1 14072 ;; hooks 14073 (list 14074 ) 14075 ) 14076 (list 14077 'spawn-pt 14078 'craven-archer 14079 ) 14080 ) ;; bind 14081 5 13) 14082 (list 14083 (bind 14084 (kern-mk-obj t_guard_pt 1 14085 ;; hooks 14086 (list 14087 ) 14088 ) 14089 (list 14090 'spawn-pt 14091 'craven-archer 14092 ) 14093 ) ;; bind 14094 11 9) 14095 (list 14096 (bind 14097 (kern-mk-obj t_spawn_pt 1 14098 ;; hooks 14099 (list 14100 ) 14101 ) 14102 (list 14103 'spawn-pt 14104 'death-knight 14105 ) 14106 ) ;; bind 14107 14 2) 14108 ) ;; end of objects in p_death_knights_hold 14109 (list ;; on-entry-hooks 14110 'on-entry-to-dungeon-room 14111 ) 14112 (list ;; edge entrances 14113 (list 0 18 18) ;; Northwest 14114 (list 1 9 18) ;; North 14115 (list 2 0 18) ;; Northeast 14116 (list 3 18 9) ;; West 14117 (list 4 9 9) ;; Here 14118 (list 5 0 9) ;; East 14119 (list 6 18 0) ;; Southwest 14120 (list 7 9 0) ;; South 14121 (list 8 0 0) ;; SoutheastUp 14122 ) 14123 ) ;; end of place p_death_knights_hold 14124 14125 5) 14126 ) ;; end neighbors of p_great_hall 14127 (list ;; objects in p_great_hall 14128 (list 14129 (bind 14130 (kern-mk-obj t_spawn_pt 1 14131 ;; hooks 14132 (list 14133 ) 14134 ) 14135 (list 14136 'spawn-pt 14137 'death-knight 14138 ) 14139 ) ;; bind 14140 10 8) 14141 (list 14142 (bind 14143 (kern-mk-obj t_spawn_pt 1 14144 ;; hooks 14145 (list 14146 ) 14147 ) 14148 (list 14149 'spawn-pt 14150 'death-knight 14151 ) 14152 ) ;; bind 14153 10 9) 14154 (list 14155 (bind 14156 (kern-mk-obj t_spawn_pt 1 14157 ;; hooks 14158 (list 14159 ) 14160 ) 14161 (list 14162 'spawn-pt 14163 'death-knight 14164 ) 14165 ) ;; bind 14166 10 10) 14167 (list 14168 (bind 14169 (kern-mk-obj t_spawn_pt 1 14170 ;; hooks 14171 (list 14172 ) 14173 ) 14174 (list 14175 'spawn-pt 14176 'warlock 14177 ) 14178 ) ;; bind 14179 12 9) 14180 (list 14181 (bind 14182 (kern-mk-obj t_spawn_pt 1 14183 ;; hooks 14184 (list 14185 ) 14186 ) 14187 (list 14188 'spawn-pt 14189 'skeletal-warrior 14190 ) 14191 ) ;; bind 14192 9 13) 14193 (list 14194 (bind 14195 (kern-mk-obj t_spawn_pt 1 14196 ;; hooks 14197 (list 14198 ) 14199 ) 14200 (list 14201 'spawn-pt 14202 'skeletal-spear-thrower 14203 ) 14204 ) ;; bind 14205 10 14) 14206 (list 14207 (bind 14208 (kern-mk-obj t_monman 1 14209 ;; hooks 14210 (list 14211 ) 14212 ) 14213 (list 14214 'monman 14215 (list 14216 0 14217 0 14218 0 14219 -1 14220 6 14221 -1 14222 ) 14223 ) 14224 ) ;; bind 14225 0 0) 14226 (list 14227 (bind 14228 (kern-mk-obj t_ladder_down 1 14229 ;; hooks 14230 (list 14231 ) 14232 ) 14233 (list 14234 'p_pools 14235 9 14236 9 14237 ) 14238 ) ;; bind 14239 9 6) 14240 (list 14241 (bind 14242 (kern-mk-obj t_hidden 1 14243 ;; hooks 14244 (list 14245 ) 14246 ) 14247 (list 14248 't_hidden_mech 14249 1 14250 ) 14251 ) ;; bind 14252 13 0) 14253 (list 14254 (bind 14255 (kern-mk-obj t_disg_lvr 1 14256 ;; hooks 14257 (list 14258 ) 14259 ) 14260 (list 14261 #f 14262 'gh_wall 14263 #f 14264 's_wall_torch 14265 ) 14266 ) ;; bind 14267 13 0) 14268 (list 14269 (kern-tag 'gh_wall 14270 (bind 14271 (kern-mk-obj t_terrain_blitter 1 14272 ;; hooks 14273 (list 14274 ) 14275 ) 14276 (list 14277 'p_great_hall 14278 8 14279 0 14280 3 14281 1 14282 'm_hall_section 14283 ) 14284 ) ;; bind 14285 ) ;; kern-tag 14286 0 0) 14287 (list 14288 (bind 14289 (kern-mk-obj t_spawn_pt 1 14290 ;; hooks 14291 (list 14292 ) 14293 ) 14294 (list 14295 'spawn-pt 14296 'halberdier 14297 ) 14298 ) ;; bind 14299 8 8) 14300 (list 14301 (bind 14302 (kern-mk-obj t_spawn_pt 1 14303 ;; hooks 14304 (list 14305 ) 14306 ) 14307 (list 14308 'spawn-pt 14309 'halberdier 14310 ) 14311 ) ;; bind 14312 8 10) 14313 (list 14314 (bind 14315 (kern-mk-obj t_spawn_pt 1 14316 ;; hooks 14317 (list 14318 ) 14319 ) 14320 (list 14321 'spawn-pt 14322 'crossbowman 14323 ) 14324 ) ;; bind 14325 6 8) 14326 (list 14327 (bind 14328 (kern-mk-obj t_spawn_pt 1 14329 ;; hooks 14330 (list 14331 ) 14332 ) 14333 (list 14334 'spawn-pt 14335 'medik 14336 ) 14337 ) ;; bind 14338 7 9) 14339 (list 14340 (bind 14341 (kern-mk-obj t_spawn_pt 1 14342 ;; hooks 14343 (list 14344 ) 14345 ) 14346 (list 14347 'spawn-pt 14348 'crossbowman 14349 ) 14350 ) ;; bind 14351 6 10) 14352 ) ;; end of objects in p_great_hall 14353 (list ;; on-entry-hooks 14354 'on-entry-to-dungeon-room 14355 ) 14356 (list ;; edge entrances 14357 (list 0 18 18) ;; Northwest 14358 (list 1 9 18) ;; North 14359 (list 2 0 18) ;; Northeast 14360 (list 3 18 9) ;; West 14361 (list 4 9 9) ;; Here 14362 (list 5 0 9) ;; East 14363 (list 6 18 0) ;; Southwest 14364 (list 7 9 0) ;; South 14365 (list 8 0 0) ;; SoutheastUp 14366 ) 14367 ) ;; end of place p_great_hall 14368 14369 7) 14370 ) ;; end neighbors of p_treasury 14371 (list ;; objects in p_treasury 14372 (list 14373 (kern-tag 'tr-be2 14374 (bind 14375 (kern-mk-obj t_terrain_blitter 1 14376 ;; hooks 14377 (list 14378 ) 14379 ) 14380 (list 14381 'p_treasury 14382 9 14383 6 14384 1 14385 1 14386 'm_hall_section 14387 ) 14388 ) ;; bind 14389 ) ;; kern-tag 14390 9 6) 14391 (list 14392 (kern-tag 'tr-be3 14393 (bind 14394 (kern-mk-obj t_terrain_blitter 1 14395 ;; hooks 14396 (list 14397 ) 14398 ) 14399 (list 14400 'p_treasury 14401 9 14402 7 14403 1 14404 1 14405 'm_hall_section 14406 ) 14407 ) ;; bind 14408 ) ;; kern-tag 14409 9 7) 14410 (list 14411 (kern-tag 'tr-be4 14412 (bind 14413 (kern-mk-obj t_terrain_blitter 1 14414 ;; hooks 14415 (list 14416 ) 14417 ) 14418 (list 14419 'p_treasury 14420 9 14421 8 14422 1 14423 1 14424 'm_hall_section 14425 ) 14426 ) ;; bind 14427 ) ;; kern-tag 14428 9 8) 14429 (list 14430 (bind 14431 (kern-mk-obj t_lever 1 14432 ;; hooks 14433 (list 14434 ) 14435 ) 14436 (list 14437 #f 14438 'tr-be1 14439 #f 14440 '() 14441 ) 14442 ) ;; bind 14443 1 1) 14444 (list 14445 (bind 14446 (kern-mk-obj t_lever 1 14447 ;; hooks 14448 (list 14449 ) 14450 ) 14451 (list 14452 #f 14453 'tr-be2 14454 #f 14455 '() 14456 ) 14457 ) ;; bind 14458 17 1) 14459 (list 14460 (bind 14461 (kern-mk-obj t_lever 1 14462 ;; hooks 14463 (list 14464 ) 14465 ) 14466 (list 14467 #f 14468 'tr-be3 14469 #f 14470 '() 14471 ) 14472 ) ;; bind 14473 17 17) 14474 (list 14475 (bind 14476 (kern-mk-obj t_lever 1 14477 ;; hooks 14478 (list 14479 ) 14480 ) 14481 (list 14482 #f 14483 'tr-be4 14484 #f 14485 '() 14486 ) 14487 ) ;; bind 14488 1 17) 14489 (list 14490 (bind 14491 (kern-mk-obj t_ladder_up 1 14492 ;; hooks 14493 (list 14494 ) 14495 ) 14496 (list 14497 'p_treasury2 14498 9 14499 9 14500 ) 14501 ) ;; bind 14502 9 9) 14503 (list 14504 (bind 14505 (kern-mk-obj t_spawn_pt 1 14506 ;; hooks 14507 (list 14508 ) 14509 ) 14510 (list 14511 'spawn-pt 14512 'green-slime 14513 ) 14514 ) ;; bind 14515 15 1) 14516 (list 14517 (bind 14518 (kern-mk-obj t_spawn_pt 1 14519 ;; hooks 14520 (list 14521 ) 14522 ) 14523 (list 14524 'spawn-pt 14525 'green-slime 14526 ) 14527 ) ;; bind 14528 16 1) 14529 (list 14530 (bind 14531 (kern-mk-obj t_spawn_pt 1 14532 ;; hooks 14533 (list 14534 ) 14535 ) 14536 (list 14537 'spawn-pt 14538 'green-slime 14539 ) 14540 ) ;; bind 14541 17 1) 14542 (list 14543 (bind 14544 (kern-mk-obj t_spawn_pt 1 14545 ;; hooks 14546 (list 14547 ) 14548 ) 14549 (list 14550 'spawn-pt 14551 'green-slime 14552 ) 14553 ) ;; bind 14554 15 2) 14555 (list 14556 (bind 14557 (kern-mk-obj t_spawn_pt 1 14558 ;; hooks 14559 (list 14560 ) 14561 ) 14562 (list 14563 'spawn-pt 14564 'green-slime 14565 ) 14566 ) ;; bind 14567 16 2) 14568 (list 14569 (bind 14570 (kern-mk-obj t_spawn_pt 1 14571 ;; hooks 14572 (list 14573 ) 14574 ) 14575 (list 14576 'spawn-pt 14577 'green-slime 14578 ) 14579 ) ;; bind 14580 17 2) 14581 (list 14582 (bind 14583 (kern-mk-obj t_spawn_pt 1 14584 ;; hooks 14585 (list 14586 ) 14587 ) 14588 (list 14589 'spawn-pt 14590 'green-slime 14591 ) 14592 ) ;; bind 14593 15 3) 14594 (list 14595 (bind 14596 (kern-mk-obj t_spawn_pt 1 14597 ;; hooks 14598 (list 14599 ) 14600 ) 14601 (list 14602 'spawn-pt 14603 'green-slime 14604 ) 14605 ) ;; bind 14606 16 3) 14607 (list 14608 (bind 14609 (kern-mk-obj t_spawn_pt 1 14610 ;; hooks 14611 (list 14612 ) 14613 ) 14614 (list 14615 'spawn-pt 14616 'green-slime 14617 ) 14618 ) ;; bind 14619 17 3) 14620 (list 14621 (bind 14622 (kern-mk-obj t_spawn_pt 1 14623 ;; hooks 14624 (list 14625 ) 14626 ) 14627 (list 14628 'spawn-pt 14629 'skeletal-warrior 14630 ) 14631 ) ;; bind 14632 15 15) 14633 (list 14634 (bind 14635 (kern-mk-obj t_spawn_pt 1 14636 ;; hooks 14637 (list 14638 ) 14639 ) 14640 (list 14641 'spawn-pt 14642 'skeletal-warrior 14643 ) 14644 ) ;; bind 14645 16 15) 14646 (list 14647 (bind 14648 (kern-mk-obj t_spawn_pt 1 14649 ;; hooks 14650 (list 14651 ) 14652 ) 14653 (list 14654 'spawn-pt 14655 'skeletal-warrior 14656 ) 14657 ) ;; bind 14658 17 15) 14659 (list 14660 (bind 14661 (kern-mk-obj t_spawn_pt 1 14662 ;; hooks 14663 (list 14664 ) 14665 ) 14666 (list 14667 'spawn-pt 14668 'skeletal-warrior 14669 ) 14670 ) ;; bind 14671 15 16) 14672 (list 14673 (bind 14674 (kern-mk-obj t_spawn_pt 1 14675 ;; hooks 14676 (list 14677 ) 14678 ) 14679 (list 14680 'spawn-pt 14681 'skeletal-warrior 14682 ) 14683 ) ;; bind 14684 16 16) 14685 (list 14686 (bind 14687 (kern-mk-obj t_spawn_pt 1 14688 ;; hooks 14689 (list 14690 ) 14691 ) 14692 (list 14693 'spawn-pt 14694 'skeletal-warrior 14695 ) 14696 ) ;; bind 14697 17 16) 14698 (list 14699 (bind 14700 (kern-mk-obj t_spawn_pt 1 14701 ;; hooks 14702 (list 14703 ) 14704 ) 14705 (list 14706 'spawn-pt 14707 'skeletal-warrior 14708 ) 14709 ) ;; bind 14710 15 17) 14711 (list 14712 (bind 14713 (kern-mk-obj t_spawn_pt 1 14714 ;; hooks 14715 (list 14716 ) 14717 ) 14718 (list 14719 'spawn-pt 14720 'skeletal-warrior 14721 ) 14722 ) ;; bind 14723 16 17) 14724 (list 14725 (bind 14726 (kern-mk-obj t_spawn_pt 1 14727 ;; hooks 14728 (list 14729 ) 14730 ) 14731 (list 14732 'spawn-pt 14733 'skeletal-warrior 14734 ) 14735 ) ;; bind 14736 17 17) 14737 (list 14738 (bind 14739 (kern-mk-obj t_spawn_pt 1 14740 ;; hooks 14741 (list 14742 ) 14743 ) 14744 (list 14745 'spawn-pt 14746 'headless 14747 ) 14748 ) ;; bind 14749 1 1) 14750 (list 14751 (bind 14752 (kern-mk-obj t_spawn_pt 1 14753 ;; hooks 14754 (list 14755 ) 14756 ) 14757 (list 14758 'spawn-pt 14759 'headless 14760 ) 14761 ) ;; bind 14762 2 1) 14763 (list 14764 (bind 14765 (kern-mk-obj t_spawn_pt 1 14766 ;; hooks 14767 (list 14768 ) 14769 ) 14770 (list 14771 'spawn-pt 14772 'headless 14773 ) 14774 ) ;; bind 14775 3 1) 14776 (list 14777 (bind 14778 (kern-mk-obj t_spawn_pt 1 14779 ;; hooks 14780 (list 14781 ) 14782 ) 14783 (list 14784 'spawn-pt 14785 'headless 14786 ) 14787 ) ;; bind 14788 1 2) 14789 (list 14790 (bind 14791 (kern-mk-obj t_spawn_pt 1 14792 ;; hooks 14793 (list 14794 ) 14795 ) 14796 (list 14797 'spawn-pt 14798 'headless 14799 ) 14800 ) ;; bind 14801 2 2) 14802 (list 14803 (bind 14804 (kern-mk-obj t_spawn_pt 1 14805 ;; hooks 14806 (list 14807 ) 14808 ) 14809 (list 14810 'spawn-pt 14811 'headless 14812 ) 14813 ) ;; bind 14814 3 2) 14815 (list 14816 (bind 14817 (kern-mk-obj t_spawn_pt 1 14818 ;; hooks 14819 (list 14820 ) 14821 ) 14822 (list 14823 'spawn-pt 14824 'headless 14825 ) 14826 ) ;; bind 14827 1 3) 14828 (list 14829 (bind 14830 (kern-mk-obj t_spawn_pt 1 14831 ;; hooks 14832 (list 14833 ) 14834 ) 14835 (list 14836 'spawn-pt 14837 'headless 14838 ) 14839 ) ;; bind 14840 2 3) 14841 (list 14842 (bind 14843 (kern-mk-obj t_spawn_pt 1 14844 ;; hooks 14845 (list 14846 ) 14847 ) 14848 (list 14849 'spawn-pt 14850 'headless 14851 ) 14852 ) ;; bind 14853 3 3) 14854 (list 14855 (bind 14856 (kern-mk-obj t_spawn_pt 1 14857 ;; hooks 14858 (list 14859 ) 14860 ) 14861 (list 14862 'spawn-pt 14863 'giant-spider 14864 ) 14865 ) ;; bind 14866 1 15) 14867 (list 14868 (bind 14869 (kern-mk-obj t_spawn_pt 1 14870 ;; hooks 14871 (list 14872 ) 14873 ) 14874 (list 14875 'spawn-pt 14876 'giant-spider 14877 ) 14878 ) ;; bind 14879 2 15) 14880 (list 14881 (bind 14882 (kern-mk-obj t_spawn_pt 1 14883 ;; hooks 14884 (list 14885 ) 14886 ) 14887 (list 14888 'spawn-pt 14889 'giant-spider 14890 ) 14891 ) ;; bind 14892 3 15) 14893 (list 14894 (bind 14895 (kern-mk-obj t_spawn_pt 1 14896 ;; hooks 14897 (list 14898 ) 14899 ) 14900 (list 14901 'spawn-pt 14902 'giant-spider 14903 ) 14904 ) ;; bind 14905 1 16) 14906 (list 14907 (bind 14908 (kern-mk-obj t_spawn_pt 1 14909 ;; hooks 14910 (list 14911 ) 14912 ) 14913 (list 14914 'spawn-pt 14915 'giant-spider 14916 ) 14917 ) ;; bind 14918 2 16) 14919 (list 14920 (bind 14921 (kern-mk-obj t_spawn_pt 1 14922 ;; hooks 14923 (list 14924 ) 14925 ) 14926 (list 14927 'spawn-pt 14928 'giant-spider 14929 ) 14930 ) ;; bind 14931 3 16) 14932 (list 14933 (bind 14934 (kern-mk-obj t_spawn_pt 1 14935 ;; hooks 14936 (list 14937 ) 14938 ) 14939 (list 14940 'spawn-pt 14941 'giant-spider 14942 ) 14943 ) ;; bind 14944 1 17) 14945 (list 14946 (bind 14947 (kern-mk-obj t_spawn_pt 1 14948 ;; hooks 14949 (list 14950 ) 14951 ) 14952 (list 14953 'spawn-pt 14954 'giant-spider 14955 ) 14956 ) ;; bind 14957 2 17) 14958 (list 14959 (bind 14960 (kern-mk-obj t_spawn_pt 1 14961 ;; hooks 14962 (list 14963 ) 14964 ) 14965 (list 14966 'spawn-pt 14967 'giant-spider 14968 ) 14969 ) ;; bind 14970 3 17) 14971 (list 14972 (bind 14973 (kern-mk-obj t_monman 1 14974 ;; hooks 14975 (list 14976 ) 14977 ) 14978 (list 14979 'monman 14980 (list 14981 0 14982 0 14983 0 14984 -1 14985 6 14986 -1 14987 ) 14988 ) 14989 ) ;; bind 14990 0 0) 14991 (list 14992 (kern-tag 'tr-ba 14993 (bind 14994 (kern-mk-obj t_terrain_blitter 1 14995 ;; hooks 14996 (list 14997 ) 14998 ) 14999 (list 15000 'p_treasury 15001 2 15002 2 15003 3 15004 3 15005 'm_hall_section 15006 ) 15007 ) ;; bind 15008 ) ;; kern-tag 15009 2 2) 15010 (list 15011 (kern-tag 'tr-bb 15012 (bind 15013 (kern-mk-obj t_terrain_blitter 1 15014 ;; hooks 15015 (list 15016 ) 15017 ) 15018 (list 15019 'p_treasury 15020 14 15021 2 15022 3 15023 3 15024 'm_hall_section 15025 ) 15026 ) ;; bind 15027 ) ;; kern-tag 15028 14 2) 15029 (list 15030 (kern-tag 'tr-bc 15031 (bind 15032 (kern-mk-obj t_terrain_blitter 1 15033 ;; hooks 15034 (list 15035 ) 15036 ) 15037 (list 15038 'p_treasury 15039 14 15040 14 15041 3 15042 3 15043 'm_hall_section 15044 ) 15045 ) ;; bind 15046 ) ;; kern-tag 15047 14 14) 15048 (list 15049 (kern-tag 'tr-bd 15050 (bind 15051 (kern-mk-obj t_terrain_blitter 1 15052 ;; hooks 15053 (list 15054 ) 15055 ) 15056 (list 15057 'p_treasury 15058 2 15059 14 15060 3 15061 3 15062 'm_hall_section 15063 ) 15064 ) ;; bind 15065 ) ;; kern-tag 15066 2 14) 15067 (list 15068 (bind 15069 (kern-mk-obj t_lever 1 15070 ;; hooks 15071 (list 15072 ) 15073 ) 15074 (list 15075 #f 15076 'tr-ba 15077 #f 15078 '() 15079 ) 15080 ) ;; bind 15081 11 11) 15082 (list 15083 (bind 15084 (kern-mk-obj t_lever 1 15085 ;; hooks 15086 (list 15087 ) 15088 ) 15089 (list 15090 #f 15091 'tr-bb 15092 #f 15093 '() 15094 ) 15095 ) ;; bind 15096 7 11) 15097 (list 15098 (bind 15099 (kern-mk-obj t_lever 1 15100 ;; hooks 15101 (list 15102 ) 15103 ) 15104 (list 15105 #f 15106 'tr-bc 15107 #f 15108 '() 15109 ) 15110 ) ;; bind 15111 7 7) 15112 (list 15113 (bind 15114 (kern-mk-obj t_lever 1 15115 ;; hooks 15116 (list 15117 ) 15118 ) 15119 (list 15120 #f 15121 'tr-bd 15122 #f 15123 '() 15124 ) 15125 ) ;; bind 15126 11 7) 15127 (list 15128 (kern-tag 'tr-be1 15129 (bind 15130 (kern-mk-obj t_terrain_blitter 1 15131 ;; hooks 15132 (list 15133 ) 15134 ) 15135 (list 15136 'p_treasury 15137 9 15138 5 15139 1 15140 1 15141 'm_hall_section 15142 ) 15143 ) ;; bind 15144 ) ;; kern-tag 15145 9 5) 15146 ) ;; end of objects in p_treasury 15147 (list ;; on-entry-hooks 15148 'on-entry-to-dungeon-room 15149 ) 15150 (list ;; edge entrances 15151 (list 0 18 18) ;; Northwest 15152 (list 1 9 18) ;; North 15153 (list 2 0 18) ;; Northeast 15154 (list 3 18 9) ;; West 15155 (list 4 9 9) ;; Here 15156 (list 5 0 9) ;; East 15157 (list 6 18 0) ;; Southwest 15158 (list 7 9 0) ;; South 15159 (list 8 0 0) ;; SoutheastUp 15160 ) 15161) ;; end of place p_treasury 15162 15163p_death_knights_hold 15164p_great_hall 15165p_paladins_hold 15166(kern-mk-place 'p_absalot "Absalot" 15167 s_ruin ;; sprite 15168 (kern-mk-map 15169 nil 41 36 pal_expanded 15170 (list 15171 "tt tt tt tt tc .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. cc .. .. .. .. .. .. .. .. .. .. .. .. .. ta tt tt tt tt tt " 15172 "tt xx xx xx xx xx xx xx xx xx xx xx xx .. .. .. xx xx xx xx .. cc .. xx xx xx xx .. .. %7 .. .. .. .. .. t% ta tt tt tt tt " 15173 "tt xx ,, xx xx xx xx xx xx xx xx xx xx .. .. .. xx ,, ,, xx .. cc .. xx ,, ,, xx .. %b %% %d .. .. .. .. .. .. .. t% ta tt " 15174 "tt xx ?? xx .L .I .B .R .A .R .Y xx xx xx .. .. xx ,, .. .. .. cc .. ,, ,, ,, xx .. .. %e .. .. .. .. .. .. .. .. .. t% ta " 15175 "tc rr ,, ,, ,, ,, tt ,, ,, .. ,, ,, ,, xx .. .. xx xx xx .. .. cc .. xx xx xx xx .. .. .. xx xx xx xx xx xx xx xx xx .. .. " 15176 ".. xx ,, ,, ,, t3 tt td ,, ,, ,, ,, ,, rr .. .. .. .. .. .. .. cc .. .. .. .. .. .. .. xx bb .A .C .A .D .E .M .Y xx xx .. " 15177 ".. xx .. ,, 00 te ,, 00 ,, .. 00 ,, ,, xx .. .. xx xx rr rr .. cc .. xx xx xx .. .. .. bb ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. " 15178 ".. xx ,, ,, 00 ,, ,, 00 ,, ,, 00 ,, ,, xx .. .. xx ,, ,, rr .. cc .. ,, ,, ,, xx .. .. xx rr ,, ,, ,, ,, .. ,, ,, ,, xx .. " 15179 ".. xx ,, ,, 00 ,, ,, 00 ,, .. 00 ,, ,, xx .. .. xx ,, ,, ,, .. cc .. xx ,, ,, xx .. .. xx ,, ,, 00 ,, ,, ,, 00 ,, ,, xx .. " 15180 ".. rr ,, ,, .. ,, ,, 00 ,, ,, 00 ,, ,, rr .. .. xx xx .. xx .. cc .. bb xx xx xx .. .. xx ,, .. .. ,, ,, ,, 00 ,, ,, xx .. " 15181 ".. xx ,, ,, 00 ,, ,, 00 ,, ,, 00 ,, ,, rr .. .. .. .. .. .. .. cc .. .. .. .. .. %7 .. xx ,, ,, 00 00 00 00 00 ,, ,, xx .. " 15182 ".. tC t7 ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx tC t7 pp ,, pp ,, ,, cc ,, ,, pp .. %3 %% %% rr ,, ,, ,, ,, ,, ,, ,, ,, ,, xx .. " 15183 ".. tb tt bb ,, ,, ,, ,, ,, ,, ,, .. ,, xx tb tt td ,, .. ,, ,, cc ,, ,, ,, .. %a %% .. rr .. ,, ,, .. ,, ,, rr ,, ,, xx .. " 15184 ".. t% ta td xx xx xx ,, .. xx xx xx rr xx t% te pp ,, ,, ,, ,, cc ,, ,, ,, ,, .. %e .. rr rr xx xx xx ,, rr xx xx xx xx .. " 15185 ".. .. .. .. .. .. .. cc .. .. .. .. .. .. .. .. .. .. ,, ,, .. cc cc ,, ,, ,, ,, .. .. .. .. .. .. .. cc .. .. .. .. .. .. " 15186 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ,, ,, cc cc cc cc cc cc cc ,, ,, .. .. .. .. .. .. .. cc .. .. .. .. .. .. " 15187 "cc cc cc cc cc .. cc cc cc cc cc cc .. cc cc cc cc cc cc .F .O .R .U .M cc cc cc cc cc cc cc .. cc cc .. cc cc cc cc cc cc " 15188 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. ,, ,, cc cc .. cc cc cc cc ,, ,, .. .. .. .. cc .. .. .. .. .. bb .. .. bb " 15189 "%5 .. .. .. xx xx ,, xx .. .. xx xx ,, xx .. .. ,, ,, ,, .. cc cc cc ,, ,, ,, ,, .. .. .. xx ,, rr xx ,, xx .. .. .. .. .. " 15190 "%% %5 .. .. xx ,, ,, xx .. .. xx .. ,, xx .. .. pp ,, ,, .. .. cc ,, .. ,, ,, pp .. .. xx ,, ,, xx ,, .. xx tC t7 tA .. bb " 15191 "%% %% .. .. xx ,, ,, rr %5 .. xx ,, ,, xx .. .. ,, ,, ,, ,, ,, cc ,, ,, ,, ,, ,, .. .. xx .. ,, xx ,, .. .. tb tt td .. .. " 15192 "%% %% .. .. xx xx rr rr %% .. xx xx xx xx t7 tA .. ,, pp ,, ,, cc ,, ,, pp ,, pp .. .. rr xx xx .. .. .. xx .. bb .. .. bb " 15193 "%% %% %5 .. .. .. .. %% %c .. .. .. .. tb tt td .. .. .. .. .. cc .. .. .. .. .. tC t7 tA .. .. .. .. .. .. .. .. .. .. .. " 15194 "%% %% %c .. %3 %% %% %% .. .. .. .. .. t% te t# .. .. .. .. .. cc tC t7 tA .. .. tb tt td .. .. .. .. .. .. .. bb .. .. bb " 15195 "%% %c .. .. %a %% %% %% .. .. .. xx xx xx xx bb xx rr .. .. .. cc tb tt td tA .. bb tt bb .. bb .. bb .. .. .. .. .. .. .. " 15196 "%% .. .. .. .. %a %% %c .. .. xx .. ,, ,, ,, ,, ,, xx xx .. .. cc t% te tF t7 bb .G .A .R .. .E .N .S bb .. .. bb .. .. bb " 15197 "%% .. %3 %5 .. .. %% .. .. .. xx .M .. .G .I .C .K .S xx .. .. cc .. t% tb tt td .. .. tt tt tt .. .. .. .. .. .. .. .. .. " 15198 "%% %% %% %% %5 .. %% %5 .. .. xx ,, ,, ,, ,, ,, ,, ,, sA .. .. bb .. .. bb te bb .. t3 tt tt tt t5 .. bb .. bb .. .. .. bb " 15199 "%% %% %% bb %% %% %% %% %5 .. xx ,, ,, ,, .. ,, ,, ,, ,, cc cc .. .. .. .. .. .. .. ta tt tt tt tt tA .. .. .. .. .. .. .. " 15200 "%% %% %% %% ~5 %% %% %% %c .. xx ,, ,, ,, ,, ,, .. .. xx .. .. cc .. .. .. .. .. .. t% tt tt tt tt tt tt t5 tA .. .. bb .. " 15201 "%% bb %% ~3 ~~ %% %% bb .. .. .. .F .U .T .U .R .E .S xx .. .. cc .. .. .. %3 %% %5 .. ta tt tt tt tt tt tt tt t5 .. .. .. " 15202 "%% .. %% ~2 ~~ ~5 %% %% .. .. xx xx ,, ,, ,, ,, ,, xx xx .. .. cc bb .. bb %% bb %% %5 .. t% ta tt tt bb tt bb tt bb tC t3 " 15203 "%% bb %% ~a ~8 ~c %% bb .. .. %a xx xx .. aa ,, xx xx .. %7 .. cc .. %3 %% %% %% %% %% %5 .. t% tt tt tt tt tt tt tt tt tt " 15204 "%% %% %% %% %% %% %% %c .. %7 .. %% xx ,, ,, ,, xx %% %% %% .. .. .. %% %% %% %% %% %% %% %5 .. tt bb tt tt tt tt || || || " 15205 "%% %% %% bb %% bb %% .. .. %% .. %% xx xx xx xx xx %% %% %c .. cc .. %a %% %% %% %% %% %% %% bb ta tt tt tt tt || || || || " 15206 "%% %% %% %% %% %% %% %% %% %% %% %% %% %% %% %% %% %% %% .. .. cc .. .. %% %% %% %% %% %% %% .. .. t% tt || || || || || || " 15207 ) 15208 ) 15209 #f #f #f #f 15210 ;; subplaces 15211 nil 15212 nil ;; neighbors 15213 (list ;; objects in p_absalot 15214 (list 15215 (bind 15216 (kern-mk-obj t_corpse 1 15217 ;; hooks 15218 (list 15219 ) 15220 ) 15221 (list 15222 '() 15223 ) 15224 ) ;; bind 15225 16 17) 15226 (list 15227 (bind 15228 (kern-mk-obj t_corpse 1 15229 ;; hooks 15230 (list 15231 ) 15232 ) 15233 (list 15234 '() 15235 ) 15236 ) ;; bind 15237 23 10) 15238 (list 15239 (bind 15240 (kern-mk-obj t_corpse 1 15241 ;; hooks 15242 (list 15243 ) 15244 ) 15245 (list 15246 '() 15247 ) 15248 ) ;; bind 15249 12 12) 15250 (list 15251 (bind 15252 (kern-mk-obj t_corpse 1 15253 ;; hooks 15254 (list 15255 ) 15256 ) 15257 (list 15258 '() 15259 ) 15260 ) ;; bind 15261 5 14) 15262 (list 15263 (bind 15264 (kern-mk-obj t_corpse 1 15265 ;; hooks 15266 (list 15267 ) 15268 ) 15269 (list 15270 '() 15271 ) 15272 ) ;; bind 15273 31 20) 15274 (list 15275 (bind 15276 (kern-mk-obj t_corpse 1 15277 ;; hooks 15278 (list 15279 ) 15280 ) 15281 (list 15282 '() 15283 ) 15284 ) ;; bind 15285 35 11) 15286 (list 15287 (bind 15288 (kern-mk-obj t_corpse 1 15289 ;; hooks 15290 (list 15291 ) 15292 ) 15293 (list 15294 '() 15295 ) 15296 ) ;; bind 15297 3 11) 15298 (list 15299 (bind 15300 (kern-mk-obj t_corpse 1 15301 ;; hooks 15302 (list 15303 ) 15304 ) 15305 (list 15306 '() 15307 ) 15308 ) ;; bind 15309 23 19) 15310 (list 15311 (bind 15312 (kern-mk-obj t_corpse 1 15313 ;; hooks 15314 (list 15315 ) 15316 ) 15317 (list 15318 '() 15319 ) 15320 ) ;; bind 15321 28 3) 15322 (list 15323 (bind 15324 (kern-mk-obj t_corpse 1 15325 ;; hooks 15326 (list 15327 ) 15328 ) 15329 (list 15330 '() 15331 ) 15332 ) ;; bind 15333 36 30) 15334 (list 15335 (bind 15336 (kern-mk-obj t_corpse 1 15337 ;; hooks 15338 (list 15339 ) 15340 ) 15341 (list 15342 '() 15343 ) 15344 ) ;; bind 15345 12 19) 15346 (list 15347 (bind 15348 (kern-mk-obj t_ladder_down 1 15349 ;; hooks 15350 (list 15351 ) 15352 ) 15353 (list 15354 'p_old_absalot 15355 11 15356 27 15357 ) 15358 ) ;; bind 15359 2 2) 15360 (list 15361 (bind 15362 (kern-mk-obj t_corpse 1 15363 ;; hooks 15364 (list 15365 ) 15366 ) 15367 (list 15368 '() 15369 ) 15370 ) ;; bind 15371 38 3) 15372 (list 15373 (bind 15374 (kern-mk-obj t_corpse 1 15375 ;; hooks 15376 (list 15377 ) 15378 ) 15379 (list 15380 '() 15381 ) 15382 ) ;; bind 15383 2 32) 15384 (list 15385 (bind 15386 (kern-mk-obj t_corpse 1 15387 ;; hooks 15388 (list 15389 ) 15390 ) 15391 (list 15392 '() 15393 ) 15394 ) ;; bind 15395 21 12) 15396 (list 15397 (bind 15398 (kern-mk-obj t_corpse 1 15399 ;; hooks 15400 (list 15401 ) 15402 ) 15403 (list 15404 '() 15405 ) 15406 ) ;; bind 15407 39 25) 15408 (list 15409 (bind 15410 (kern-mk-obj t_corpse 1 15411 ;; hooks 15412 (list 15413 ) 15414 ) 15415 (list 15416 '() 15417 ) 15418 ) ;; bind 15419 25 26) 15420 (list 15421 (bind 15422 (kern-mk-obj t_corpse 1 15423 ;; hooks 15424 (list 15425 ) 15426 ) 15427 (list 15428 '() 15429 ) 15430 ) ;; bind 15431 34 17) 15432 (list 15433 (bind 15434 (kern-mk-obj t_corpse 1 15435 ;; hooks 15436 (list 15437 ) 15438 ) 15439 (list 15440 '() 15441 ) 15442 ) ;; bind 15443 24 3) 15444 (list 15445 (bind 15446 (kern-mk-obj t_corpse 1 15447 ;; hooks 15448 (list 15449 ) 15450 ) 15451 (list 15452 '() 15453 ) 15454 ) ;; bind 15455 37 9) 15456 (list 15457 (bind 15458 (kern-mk-obj t_corpse 1 15459 ;; hooks 15460 (list 15461 ) 15462 ) 15463 (list 15464 '() 15465 ) 15466 ) ;; bind 15467 2 31) 15468 ) ;; end of objects in p_absalot 15469 nil ;; on-entry-hook 15470 (list ;; edge entrances 15471 (list 0 40 35) ;; Northwest 15472 (list 1 21 35) ;; North 15473 (list 2 0 35) ;; Northeast 15474 (list 3 40 16) ;; West 15475 (list 4 20 18) ;; Here 15476 (list 5 0 16) ;; East 15477 (list 6 40 0) ;; Southwest 15478 (list 7 21 0) ;; South 15479 (list 8 0 0) ;; SoutheastUp 15480 ) 15481) ;; end of place p_absalot 15482 15483(kern-load "silas.scm") 15484 15485(kern-load "dennis.scm") 15486 15487(kern-load "selene.scm") 15488 15489(kern-mk-place 'p_old_absalot "Old Absalot" 15490 nil ;; sprite 15491 (kern-mk-map 15492 nil 31 31 pal_expanded 15493 (list 15494 "rr rr rr rr rr rr rr rr rr xx xx xx xx xx xx rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 15495 "rr rr rr rr rr rr rr rr xx xx ,T ,E ,M ,P ,L ,E xx xx rr rr rr ,, ,, ,, rr rr rr rr rr rr rr " 15496 "rr rr rr rr rr rr rr rr xx !! cc cc cc cc cc cc !! xx xx rr rr ,, ,, ,, rr rr rr rr rr rr rr " 15497 "rr rr rr rr rr rr rr rr !! !! cc aa cc cc aa cc !! !! xx xx rr ,, ,, ,, rr rr rr rr rr rr rr " 15498 "rr rr rr rr rr rr xx !! !! !! cc cc cc cc cc cc !! !! !! xx rr ,, ,, ,, rr rr rr rr rr rr rr " 15499 "rr rr rr rr ,, rr xx ,, ,, pp ,, ,, ,, ,, ,, ,, pp ,, ,, xx rr ,, ,, ,, rr rr rr rr rr rr rr " 15500 "rr rr rr rr ,, xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr rr ,, rr rr rr rr rr rr rr rr rr " 15501 "rr rr rr ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, bb rr ,, rr ,M ,E ,A ,T rr rr rr rr " 15502 "rr rr rr ,, ,, ,, ,, ,, ,, pp ,, ,, ,, ,, ,, ,, pp ,, ,, ,, ,, ,, rr ,, ,, ,, ,, rr rr rr rr " 15503 "rr rr xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr ,, ,, ,, ,, rr rr rr rr " 15504 "xx xx xx rr xx xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr ,, ,, ,, ,, ,, ,, rr rr rr rr " 15505 "rr ,S ,L ,A ,V ,E ,S xx rr xx ,, pp ,, ,, pp ,, rr xx xx rr rr ,, xx xx xx xx xx xx xx xx xx " 15506 "xx ,, ,, ,, ,, ,, ,, xx rr xx ,, ,, ,, ,, ,, ,, xx rr rr rr rr ,, xx ,F ,L ,E ,S ,H ,L ,Y xx " 15507 "xx ,, ,, ,, ,, ,, ,, xx rr xx ,, ,, ,, ,, ,, ,, xx rr rr rr rr ,, rr ,, ,, ,, ,, ,, ,, ,, xx " 15508 "xx ,, ,, ,, ,, ,, ,, xx rr xx ,, pp ,, ,, pp ,, xx rr rr rr rr ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 15509 "xx xx rr ,, ,, xx xx xx rr xx ,, ,, ,, ,, ,, ,, xx rr rr rr rr rr xx ,, ,, ,, aa ,, ,, ,, xx " 15510 "xx ,, ,, ,, ,, ,, ,, rr rr xx xx xx ,, ,, xx xx xx rr rr rr rr rr xx ,, ,, ,, ,, ,, ,, ,, xx " 15511 "xx xx xx ,, ,, xx rr rr rr rr rr xx ,, ,, rr rr rr rr rr xx xx xx xx ,, ,, ,, ,, ,, ,, ,, xx " 15512 "xx ,, ,, ,, ,, ,, ,, xx rr rr rr xx ,, ,, xx rr rr rr xx ,, ,, ,, xx ,, ,, [[ @@ ]] ,, ,, xx " 15513 "xx xx xx ,, ,, xx xx xx xx xx xx rr ,, ,, xx xx rr xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 15514 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx " 15515 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx ,F ,E ,A ,S ,T xx xx " 15516 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr xx xx xx xx rr rr xx " 15517 "xx xx xx ,, xx xx xx xx xx xx ,, ,, ,, xx xx ,, ,, ,, xx xx xx xx xx xx rr cc cc cc cc cc rr " 15518 "xx xx xx ,, xx xx xx xx rr xx ,, ,, ,, xx xx ,, ,, ,, xx ,B ,L ,O ,O ,D xx cc cc ~~ ~~ cc rr " 15519 "xx ,, xx ,, xx xx xx xx rr xx ,, ,, ,, rr xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, cc ~~ ~~ ~~ cc rr " 15520 "xx xx xx ,, xx xx xx xx rr ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, cc ~~ aa cc cc rr " 15521 "xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, cc ~~ ~~ ~~ cc xx " 15522 "xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx rr rr xx ,B ,A ,T ,H ,S xx cc cc ~~ ~~ cc xx " 15523 "xx ,, ,, ,, ,, ,, xx xx xx xx ,, ,, ,, xx rr rr rr rr xx xx xx xx xx xx xx cc cc cc cc cc xx " 15524 "xx xx xx rr rr rr xx xx rr rr xx xx xx xx rr rr rr rr rr rr rr rr rr rr rr xx xx xx xx xx xx " 15525 ) 15526 ) 15527 #f #t #f #f 15528 ;; subplaces 15529 nil 15530 nil ;; neighbors 15531 (list ;; objects in p_old_absalot 15532 (list 15533 (kern-tag 'oa-ps2 15534 (bind 15535 (kern-mk-obj t_portcullis 1 15536 ;; hooks 15537 (list 15538 ) 15539 ) 15540 (list 15541 #f 15542 'oa-ps1 15543 #f 15544 '() 15545 ) 15546 ) ;; bind 15547 ) ;; kern-tag 15548 4 19) 15549 (list 15550 (bind 15551 (kern-mk-obj t_lever 1 15552 ;; hooks 15553 (list 15554 ) 15555 ) 15556 (list 15557 #f 15558 'oa-ps2 15559 #f 15560 '() 15561 ) 15562 ) ;; bind 15563 2 20) 15564 (list 15565 (bind 15566 (kern-mk-obj t_lever 1 15567 ;; hooks 15568 (list 15569 ) 15570 ) 15571 (list 15572 #f 15573 'oa-cp1 15574 #f 15575 '() 15576 ) 15577 ) ;; bind 15578 1 14) 15579 (list 15580 (bind 15581 (kern-mk-obj t_lever 1 15582 ;; hooks 15583 (list 15584 ) 15585 ) 15586 (list 15587 #f 15588 'oa-cp2 15589 #f 15590 '() 15591 ) 15592 ) ;; bind 15593 2 14) 15594 (list 15595 (bind 15596 (kern-mk-obj t_lever 1 15597 ;; hooks 15598 (list 15599 ) 15600 ) 15601 (list 15602 #f 15603 'oa-cp3 15604 #f 15605 '() 15606 ) 15607 ) ;; bind 15608 5 14) 15609 (list 15610 (bind 15611 (kern-mk-obj t_lever 1 15612 ;; hooks 15613 (list 15614 ) 15615 ) 15616 (list 15617 #f 15618 'oa-cp4 15619 #f 15620 '() 15621 ) 15622 ) ;; bind 15623 6 14) 15624 (list 15625 (bind 15626 (kern-mk-obj t_door 1 15627 ;; hooks 15628 (list 15629 ) 15630 ) 15631 (list 15632 #f 15633 0 15634 '() 15635 #f 15636 #f 15637 #t 15638 (list 15639 (list 15640 's_closed_solid_wood_door_in_stone 15641 #t 15642 5 15643 ) 15644 (list 15645 's_open_door_in_stone 15646 #f 15647 0 15648 ) 15649 (list 15650 's_locked_solid_wood_door_in_stone 15651 #t 15652 5 15653 ) 15654 (list 15655 's_magically_locked_solid_wood_door_in_stone 15656 #t 15657 5 15658 ) 15659 ) 15660 ) 15661 ) ;; bind 15662 3 23) 15663 (list 15664 (kern-mk-field f_poison_perm -1) 3 24) 15665 (list 15666 (kern-mk-field f_sleep_perm -1) 3 25) 15667 (list 15668 (kern-mk-field f_energy_perm -1) 3 26) 15669 (list 15670 (kern-mk-field f_fire_perm -1) 3 27) 15671 (list 15672 (kern-mk-field f_poison_perm -1) 3 28) 15673 (list 15674 (kern-mk-field f_poison_perm -1) 2 27) 15675 (list 15676 (kern-mk-field f_poison_perm -1) 4 27) 15677 (list 15678 (kern-mk-field f_sleep_perm -1) 1 27) 15679 (list 15680 (kern-mk-field f_sleep_perm -1) 2 28) 15681 (list 15682 (kern-mk-field f_sleep_perm -1) 3 29) 15683 (list 15684 (kern-mk-field f_sleep_perm -1) 4 28) 15685 (list 15686 (kern-mk-field f_sleep_perm -1) 5 27) 15687 (list 15688 (kern-mk-field f_energy_perm -1) 1 28) 15689 (list 15690 (kern-mk-field f_energy_perm -1) 2 29) 15691 (list 15692 (kern-mk-field f_energy_perm -1) 4 29) 15693 (list 15694 (kern-mk-field f_energy_perm -1) 5 28) 15695 (list 15696 (kern-mk-field f_fire_perm -1) 1 29) 15697 (list 15698 (kern-mk-field f_fire_perm -1) 5 29) 15699 (list 15700 (bind 15701 (kern-mk-obj t_hidden 1 15702 ;; hooks 15703 (list 15704 ) 15705 ) 15706 (list 15707 't_rune_s 15708 1 15709 ) 15710 ) ;; bind 15711 4 29) 15712 (list 15713 (bind 15714 (kern-mk-obj t_door 1 15715 ;; hooks 15716 (list 15717 ) 15718 ) 15719 (list 15720 #f 15721 0 15722 '() 15723 #f 15724 #t 15725 #f 15726 (list 15727 (list 15728 's_closed_solid_wood_door_in_stone 15729 #t 15730 5 15731 ) 15732 (list 15733 's_open_door_in_stone 15734 #f 15735 0 15736 ) 15737 (list 15738 's_locked_solid_wood_door_in_stone 15739 #t 15740 5 15741 ) 15742 (list 15743 's_magically_locked_solid_wood_door_in_stone 15744 #t 15745 5 15746 ) 15747 ) 15748 ) 15749 ) ;; bind 15750 22 14) 15751 (list 15752 (bind 15753 (kern-mk-obj t_corpse 1 15754 ;; hooks 15755 (list 15756 ) 15757 ) 15758 (list 15759 '() 15760 ) 15761 ) ;; bind 15762 26 8) 15763 (list 15764 (bind 15765 (kern-mk-obj t_corpse 1 15766 ;; hooks 15767 (list 15768 ) 15769 ) 15770 (list 15771 '() 15772 ) 15773 ) ;; bind 15774 26 9) 15775 (list 15776 (bind 15777 (kern-mk-obj t_corpse 1 15778 ;; hooks 15779 (list 15780 ) 15781 ) 15782 (list 15783 '() 15784 ) 15785 ) ;; bind 15786 26 10) 15787 (list 15788 (bind 15789 (kern-mk-obj t_corpse 1 15790 ;; hooks 15791 (list 15792 ) 15793 ) 15794 (list 15795 '() 15796 ) 15797 ) ;; bind 15798 25 8) 15799 (list 15800 (bind 15801 (kern-mk-obj t_corpse 1 15802 ;; hooks 15803 (list 15804 ) 15805 ) 15806 (list 15807 '() 15808 ) 15809 ) ;; bind 15810 25 9) 15811 (list 15812 (bind 15813 (kern-mk-obj t_corpse 1 15814 ;; hooks 15815 (list 15816 ) 15817 ) 15818 (list 15819 '() 15820 ) 15821 ) ;; bind 15822 24 8) 15823 (list 15824 (kern-mk-obj t_bed 1 15825 ;; hooks 15826 (list 15827 ) 15828 ) 15829 4 8) 15830 (list 15831 (bind 15832 (kern-mk-obj t_door 1 15833 ;; hooks 15834 (list 15835 ) 15836 ) 15837 (list 15838 #f 15839 0 15840 '() 15841 #f 15842 #t 15843 #f 15844 (list 15845 (list 15846 's_closed_solid_wood_door_in_stone 15847 #t 15848 5 15849 ) 15850 (list 15851 's_open_door_in_stone 15852 #f 15853 0 15854 ) 15855 (list 15856 's_locked_solid_wood_door_in_stone 15857 #t 15858 5 15859 ) 15860 (list 15861 's_magically_locked_solid_wood_door_in_stone 15862 #t 15863 5 15864 ) 15865 ) 15866 ) 15867 ) ;; bind 15868 6 8) 15869 (list 15870 (bind 15871 (kern-mk-obj t_door 1 15872 ;; hooks 15873 (list 15874 ) 15875 ) 15876 (list 15877 #f 15878 0 15879 '() 15880 #f 15881 #f 15882 #t 15883 (list 15884 (list 15885 's_closed_solid_wood_door_in_stone 15886 #t 15887 5 15888 ) 15889 (list 15890 's_open_door_in_stone 15891 #f 15892 0 15893 ) 15894 (list 15895 's_locked_solid_wood_door_in_stone 15896 #t 15897 5 15898 ) 15899 (list 15900 's_magically_locked_solid_wood_door_in_stone 15901 #t 15902 5 15903 ) 15904 ) 15905 ) 15906 ) ;; bind 15907 4 6) 15908 (list 15909 (kern-mk-container 15910 t_chest 15911 ;; trap 15912 'bomb-trap 15913 ;; contents 15914 (list 15915 (list 1 t_demon_gate_book) 15916 ) 15917 ;; hooks 15918 (list 15919 ) 15920 ) 15921 4 5) 15922 (list 15923 (bind 15924 (kern-mk-obj t_door 1 15925 ;; hooks 15926 (list 15927 ) 15928 ) 15929 (list 15930 #f 15931 0 15932 '() 15933 #f 15934 #f 15935 #f 15936 (list 15937 (list 15938 's_closed_solid_wood_door_in_stone 15939 #t 15940 5 15941 ) 15942 (list 15943 's_open_door_in_stone 15944 #f 15945 0 15946 ) 15947 (list 15948 's_locked_solid_wood_door_in_stone 15949 #t 15950 5 15951 ) 15952 (list 15953 's_magically_locked_solid_wood_door_in_stone 15954 #t 15955 5 15956 ) 15957 ) 15958 ) 15959 ) ;; bind 15960 19 8) 15961 (list 15962 (bind 15963 (kern-mk-obj t_door 1 15964 ;; hooks 15965 (list 15966 ) 15967 ) 15968 (list 15969 #f 15970 0 15971 '() 15972 #f 15973 #f 15974 #f 15975 (list 15976 (list 15977 's_closed_solid_wood_door_in_stone 15978 #t 15979 5 15980 ) 15981 (list 15982 's_open_door_in_stone 15983 #f 15984 0 15985 ) 15986 (list 15987 's_locked_solid_wood_door_in_stone 15988 #t 15989 5 15990 ) 15991 (list 15992 's_magically_locked_solid_wood_door_in_stone 15993 #t 15994 5 15995 ) 15996 ) 15997 ) 15998 ) ;; bind 15999 21 6) 16000 (list 16001 (kern-mk-obj t_bed 1 16002 ;; hooks 16003 (list 16004 ) 16005 ) 16006 21 1) 16007 (list 16008 (kern-mk-obj t_bed 1 16009 ;; hooks 16010 (list 16011 ) 16012 ) 16013 23 1) 16014 (list 16015 (kern-mk-obj t_bed 1 16016 ;; hooks 16017 (list 16018 ) 16019 ) 16020 23 3) 16021 (list 16022 (kern-mk-obj t_bed 1 16023 ;; hooks 16024 (list 16025 ) 16026 ) 16027 23 5) 16028 (list 16029 (bind 16030 (kern-mk-obj t_ladder_up 1 16031 ;; hooks 16032 (list 16033 ) 16034 ) 16035 (list 16036 'p_absalot 16037 2 16038 2 16039 ) 16040 ) ;; bind 16041 11 27) 16042 (list 16043 (bind 16044 (kern-mk-char 16045 'ch_silas 16046 "Silas" 16047 sp_human 16048 oc_wizard 16049 s_companion_shepherd 16050 2 16051 0 5 0 16052 2 1 16053 2 1 16054 28 16384 16055 20 8 16056 #f ;; dead? 16057 'silas-conv 16058 sch_silas 16059 'spell-sword-ai 16060 nil ;; inventory 16061 (list 16062 t_stun_wand 16063 ) 16064 ;; hooks 16065 (list 16066 ) 16067 ) 16068 (list 16069 #f 16070 (list 16071 #f 16072 #f 16073 #f 16074 ) 16075 #f 16076 ) 16077 ) ;; bind 16078 25 23) 16079 (list 16080 (bind 16081 (kern-mk-char 16082 'ch_dennis 16083 "Dennis" 16084 sp_human 16085 oc_wright 16086 s_townsman 16087 2 16088 0 0 0 16089 0 0 16090 0 0 16091 13 512 16092 5 3 16093 #f ;; dead? 16094 'dennis-conv 16095 sch_dennis 16096 'spell-sword-ai 16097 nil ;; inventory 16098 (list 16099 t_staff 16100 ) 16101 ;; hooks 16102 (list 16103 ) 16104 ) 16105 '() 16106 ) ;; bind 16107 23 13) 16108 (list 16109 (bind 16110 (kern-mk-char 16111 'ch_selene 16112 "Selene" 16113 sp_human 16114 nil 16115 s_townswoman 16116 2 16117 0 0 0 16118 0 0 16119 0 0 16120 15 2048 16121 7 5 16122 #f ;; dead? 16123 'selene-conv 16124 sch_selene 16125 nil 16126 nil ;; inventory 16127 (list 16128 t_dagger 16129 ) 16130 ;; hooks 16131 (list 16132 ) 16133 ) 16134 '() 16135 ) ;; bind 16136 10 5) 16137 (list 16138 (kern-tag 'oa-cp1 16139 (bind 16140 (kern-mk-obj t_portcullis 1 16141 ;; hooks 16142 (list 16143 ) 16144 ) 16145 (list 16146 #f 16147 '() 16148 #f 16149 '() 16150 ) 16151 ) ;; bind 16152 ) ;; kern-tag 16153 2 16) 16154 (list 16155 (kern-tag 'oa-cp2 16156 (bind 16157 (kern-mk-obj t_portcullis 1 16158 ;; hooks 16159 (list 16160 ) 16161 ) 16162 (list 16163 #f 16164 '() 16165 #f 16166 '() 16167 ) 16168 ) ;; bind 16169 ) ;; kern-tag 16170 2 18) 16171 (list 16172 (kern-tag 'oa-cp3 16173 (bind 16174 (kern-mk-obj t_portcullis 1 16175 ;; hooks 16176 (list 16177 ) 16178 ) 16179 (list 16180 #f 16181 '() 16182 #f 16183 '() 16184 ) 16185 ) ;; bind 16186 ) ;; kern-tag 16187 5 16) 16188 (list 16189 (kern-tag 'oa-cp4 16190 (bind 16191 (kern-mk-obj t_portcullis 1 16192 ;; hooks 16193 (list 16194 ) 16195 ) 16196 (list 16197 #f 16198 '() 16199 #f 16200 '() 16201 ) 16202 ) ;; bind 16203 ) ;; kern-tag 16204 5 18) 16205 (list 16206 (bind 16207 (kern-mk-obj t_corpse 1 16208 ;; hooks 16209 (list 16210 ) 16211 ) 16212 (list 16213 '() 16214 ) 16215 ) ;; bind 16216 1 16) 16217 (list 16218 (kern-tag 'oa-ps1 16219 (bind 16220 (kern-mk-obj t_portcullis 1 16221 ;; hooks 16222 (list 16223 ) 16224 ) 16225 (list 16226 #f 16227 '() 16228 #f 16229 '() 16230 ) 16231 ) ;; bind 16232 ) ;; kern-tag 16233 3 19) 16234 ) ;; end of objects in p_old_absalot 16235 nil ;; on-entry-hook 16236 (list ;; edge entrances 16237 (list 0 30 30) ;; Northwest 16238 (list 1 15 30) ;; North 16239 (list 2 0 30) ;; Northeast 16240 (list 3 30 15) ;; West 16241 (list 4 15 15) ;; Here 16242 (list 5 0 15) ;; East 16243 (list 6 30 0) ;; Southwest 16244 (list 7 15 0) ;; South 16245 (list 8 0 0) ;; SoutheastUp 16246 ) 16247) ;; end of place p_old_absalot 16248 16249(kern-load "engineer.scm") 16250 16251(kern-mk-place 'p_engineers_hut "Engineers Hut" 16252 s_hamlet ;; sprite 16253 (kern-mk-map 16254 nil 19 19 pal_expanded 16255 (list 16256 "** *. *8 *8 *8 *8 *8 *8 *8 ** ** ee ee *. ** *8 ** ** ** " 16257 "*c rr rr rr rr ws rr rr rr rr *4 ee ee *2 rr rr rr ** ** " 16258 ".. rr rr [[ @@ @@ @@ ]] rr rr *6 ee ee *e rr ,, *b rr *. " 16259 "|| rr 00 ,, ,, ,, ,, ,, ,, rr *e /0 /d /d ,, ,, ,, *a ** " 16260 "*d rr 00 ,, ,, ,, ,, ,, ,, rr .. /7 .. .. rr ,, ,, rr *a " 16261 ".. rr 00 ,, ,, [[ ]] ,, ,, ,, /d /6 .. .. rr ,, bb rr .. " 16262 "~~ rr ,, ,, ,, ,, ,, ,, ,, rr .. /7 .. .. rr .. ,, rr .. " 16263 "~~ bb ~~ ,, ,, ,, ,, ,, ,, rr .. /7 .. .. rr ,, ,, rr .. " 16264 "bb ~~ ~~ ,, ,, ,, [[ @@ ]] rr .. /7 .. .. rr rr rr rr .. " 16265 "~~ rr ,, ,, ,, ,, rr rr rr rr .. /7 .. bb .. .. .. tC t3 " 16266 ".. rr ,, ,, ,, ,, 00 rr .. .. .. /7 .. .. .. .. .. t3 tt " 16267 ".. rr ,, ,, ,, ,, 00 rr .. /0 /d /9 /d /d /d /2 .. ta tt " 16268 ".. rr ,, rr && rr rr rr .. /7 .. .. .. .. .. /7 .. t% ta " 16269 "bb .. .. rr rr rr ~~ .. .. /7 .. .. .. rr rr ,, rr rr .. " 16270 "bb .. .. .. .. .. ~2 bb .. /7 .. .. rr rr ,, ,, ,, rr .. " 16271 "bb .. .. .. .. .. ~a ~~ ~9 =| ~9 ~~ rr && ,, ,, ,, rr .. " 16272 "bb .. .. .. .. .. .. bb .. /7 .. ~~ rr rr ,, ,, ,, rr .. " 16273 "bb .. .. .. .. .. bb .. .. /7 .. ~a ~~ rr rr rr rr rr .. " 16274 "t5 bb bb bb bb bb t7 .. .. /7 .. .. ~6 .. .. .. .. .. .. " 16275 ) 16276 ) 16277 #f #f #f #f 16278 ;; subplaces 16279 nil 16280 nil ;; neighbors 16281 (list ;; objects in p_engineers_hut 16282 (list 16283 (bind 16284 (kern-mk-char 16285 nil 16286 "bull" 16287 sp_bull 16288 nil 16289 s_bull 16290 0 16291 0 0 0 16292 0 0 16293 0 0 16294 36 16384 16295 8 8 16296 #f ;; dead? 16297 nil 16298 nil 16299 'animal-ai 16300 (kern-mk-container 16301 t_chest 16302 ;; trap 16303 nil 16304 ;; contents 16305 nil 16306 ;; hooks 16307 (list 16308 ) 16309 ) 16310 nil 16311 ;; hooks 16312 (list 16313 ) 16314 ) 16315 (list 16316 'npcg 16317 'bull 16318 #f 16319 #f 16320 '() 16321 ) 16322 ) ;; bind 16323 3 15) 16324 (list 16325 (bind 16326 (kern-mk-obj t_door 1 16327 ;; hooks 16328 (list 16329 ) 16330 ) 16331 (list 16332 #f 16333 0 16334 '() 16335 #f 16336 #f 16337 #f 16338 (list 16339 (list 16340 's_closed_solid_wood_door_in_stone 16341 #t 16342 5 16343 ) 16344 (list 16345 's_open_door_in_stone 16346 #f 16347 0 16348 ) 16349 (list 16350 's_locked_solid_wood_door_in_stone 16351 #t 16352 5 16353 ) 16354 (list 16355 's_magically_locked_solid_wood_door_in_stone 16356 #t 16357 5 16358 ) 16359 ) 16360 ) 16361 ) ;; bind 16362 15 13) 16363 (list 16364 (kern-mk-obj t_bed 1 16365 ;; hooks 16366 (list 16367 ) 16368 ) 16369 16 15) 16370 (list 16371 (kern-mk-container 16372 t_chest 16373 ;; trap 16374 nil 16375 ;; contents 16376 (list 16377 (list 5 t_food) 16378 ) 16379 ;; hooks 16380 (list 16381 ) 16382 ) 16383 14 16) 16384 (list 16385 (bind 16386 (kern-mk-obj t_door 1 16387 ;; hooks 16388 (list 16389 ) 16390 ) 16391 (list 16392 #f 16393 0 16394 '() 16395 #f 16396 #f 16397 #f 16398 (list 16399 (list 16400 's_closed_solid_wood_door_in_stone 16401 #t 16402 5 16403 ) 16404 (list 16405 's_open_door_in_stone 16406 #f 16407 0 16408 ) 16409 (list 16410 's_locked_solid_wood_door_in_stone 16411 #t 16412 5 16413 ) 16414 (list 16415 's_magically_locked_solid_wood_door_in_stone 16416 #t 16417 5 16418 ) 16419 ) 16420 ) 16421 ) ;; bind 16422 14 3) 16423 (list 16424 (bind 16425 (kern-mk-obj t_door 1 16426 ;; hooks 16427 (list 16428 ) 16429 ) 16430 (list 16431 #f 16432 0 16433 '() 16434 #f 16435 #f 16436 #f 16437 (list 16438 (list 16439 's_closed_solid_wood_door_in_stone 16440 #t 16441 5 16442 ) 16443 (list 16444 's_open_door_in_stone 16445 #f 16446 0 16447 ) 16448 (list 16449 's_locked_solid_wood_door_in_stone 16450 #t 16451 5 16452 ) 16453 (list 16454 's_magically_locked_solid_wood_door_in_stone 16455 #t 16456 5 16457 ) 16458 ) 16459 ) 16460 ) ;; bind 16461 9 5) 16462 (list 16463 (bind 16464 (kern-mk-obj t_door 1 16465 ;; hooks 16466 (list 16467 ) 16468 ) 16469 (list 16470 #f 16471 0 16472 '() 16473 #f 16474 #f 16475 #f 16476 (list 16477 (list 16478 's_closed_windowed_wood_door_in_rock 16479 #f 16480 5 16481 ) 16482 (list 16483 's_open_door_in_rock 16484 #f 16485 0 16486 ) 16487 (list 16488 's_locked_windowed_wood_door_in_rock 16489 #f 16490 5 16491 ) 16492 (list 16493 's_magically_locked_windowed_wood_door_in_rock 16494 #f 16495 5 16496 ) 16497 ) 16498 ) 16499 ) ;; bind 16500 2 12) 16501 (list 16502 (kern-mk-obj t_voidship_plans 1 16503 ;; hooks 16504 (list 16505 ) 16506 ) 16507 16 7) 16508 (list 16509 (bind 16510 (kern-mk-char 16511 'ch_engineer 16512 "Engineer" 16513 sp_human 16514 oc_wright 16515 s_companion_tinker 16516 2 16517 2 10 2 16518 10 2 16519 20 5 16520 18 0 16521 10 8 16522 #f ;; dead? 16523 'engineer-conv 16524 sch_engineer 16525 nil 16526 (kern-mk-container 16527 t_chest 16528 ;; trap 16529 'bomb-trap 16530 ;; contents 16531 (list 16532 (list 1 t_dagger) 16533 (list 5 t_cure_potion) 16534 (list 5 t_heal_potion) 16535 ) 16536 ;; hooks 16537 (list 16538 ) 16539 ) 16540 (list 16541 t_doom_staff 16542 ) 16543 ;; hooks 16544 (list 16545 ) 16546 ) 16547 (list 16548 #f 16549 (list 16550 #f 16551 #f 16552 #f 16553 ) 16554 ) 16555 ) ;; bind 16556 3 3) 16557 ) ;; end of objects in p_engineers_hut 16558 nil ;; on-entry-hook 16559 (list ;; edge entrances 16560 (list 0 18 18) ;; Northwest 16561 (list 1 9 18) ;; North 16562 (list 2 0 18) ;; Northeast 16563 (list 3 18 9) ;; West 16564 (list 4 9 9) ;; Here 16565 (list 5 0 9) ;; East 16566 (list 6 18 0) ;; Southwest 16567 (list 7 11 0) ;; South 16568 (list 8 0 0) ;; SoutheastUp 16569 ) 16570) ;; end of place p_engineers_hut 16571 16572(kern-load "the-man.scm") 16573 16574(kern-mk-place 'p_mans_hideout "The MAN's Hideout" 16575 s_mountains ;; sprite 16576 (kern-mk-map 16577 nil 19 19 pal_expanded 16578 (list 16579 "xx xx xx x! xx xx xx rr rr rr rr rr xx xx xx xx xx xx xx " 16580 "xx pp cc cc cc pp xx xx xx rr rr rr xx .T .O .O .L .S xx " 16581 "xx cc ,, ,, ,, cc ,, ,, xx xx xx xx xx ,, ,, ,, ,, ,, xx " 16582 "x! cc ,, ,, ,, cc x! ,, ?? ,, ?? ?? ?? ,, ,, ,, ,, ,, xx " 16583 "xx cc ,, ,, ,, cc xx xx xx x! ?? xx xx ,, ,, ,, ,, ,, xx " 16584 "xx pp cc cc cc pp xx xx ,, ,, ,, xx xx xx x! ,, x! xx xx " 16585 "xx xx xx ,, xx xx x! cc ,, ,, ,, cc x! xx xx ,, xx rr rr " 16586 "rr rr xx ,, xx xx cc pp cc ,, cc pp cc xx xx ,, xx rr rr " 16587 "rr rr xx ,, xx ,, ,, cc ,, ,, ,, cc ,, ,, xx ,, xx rr rr " 16588 "rr rr x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! rr rr " 16589 "rr rr xx ,, xx ,, ,, cc ,, ,, ,, cc ,, ,, xx ,, xx ~~ ~~ " 16590 "rr rr xx ,, xx xx cc pp cc ,, cc pp cc xx xx ,, xx ~~ rr " 16591 "rr xx x! ,, x! xx x! cc ,, ,, ,, cc x! xx ~~ ,, ~~ ~c rr " 16592 "xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx xx ~~ ee ~~ rr rr " 16593 "xx ,, ,, ,, ,, ,, rr rr rr rr rr rr rr ~~ ~~ ~8 ~c rr rr " 16594 "x! ,, ,, 00 ,, ,, rr rr .. .. .. rr rr ~2 rr rr rr rr rr " 16595 "xx ,, ,, ,, ,, ,, rr .. .. .. .. .. rr ~4 rr ,, ,, rr rr " 16596 "xx xx xx && xx xx rr .. .. .. .. ~3 ~~ ~c rr ,, ,, rr rr " 16597 "rr rr xx xx xx rr rr rr .. .. .. ~~ rr rr rr rr rr rr rr " 16598 ) 16599 ) 16600 #f #t #f #f 16601 ;; subplaces 16602 nil 16603 nil ;; neighbors 16604 (list ;; objects in p_mans_hideout 16605 (list 16606 (kern-mk-container 16607 t_chest 16608 ;; trap 16609 'bomb-trap 16610 ;; contents 16611 (list 16612 (list 1 t_sling_4) 16613 (list 1 t_dagger_4) 16614 (list 1 t_leather_helm_4) 16615 (list 1 t_armor_leather_4) 16616 ) 16617 ;; hooks 16618 (list 16619 ) 16620 ) 16621 13 3) 16622 (list 16623 (kern-mk-container 16624 t_chest 16625 ;; trap 16626 'bomb-trap 16627 ;; contents 16628 (list 16629 (list 10 t_cure_potion) 16630 (list 10 t_poison_immunity_potion) 16631 (list 10 t_inv_potion) 16632 ) 16633 ;; hooks 16634 (list 16635 ) 16636 ) 16637 13 4) 16638 (list 16639 (kern-mk-container 16640 t_chest 16641 ;; trap 16642 'bomb-trap 16643 ;; contents 16644 (list 16645 (list 10 t_heal_potion) 16646 (list 10 t_mana_potion) 16647 ) 16648 ;; hooks 16649 (list 16650 ) 16651 ) 16652 17 2) 16653 (list 16654 (kern-mk-container 16655 t_chest 16656 ;; trap 16657 'bomb-trap 16658 ;; contents 16659 (list 16660 (list 10 t_in_ex_por_scroll) 16661 (list 10 t_wis_quas_scroll) 16662 (list 10 t_vas_mani_scroll) 16663 ) 16664 ;; hooks 16665 (list 16666 ) 16667 ) 16668 17 3) 16669 (list 16670 (kern-mk-container 16671 t_chest 16672 ;; trap 16673 'bomb-trap 16674 ;; contents 16675 (list 16676 (list 10 t_an_tym_scroll) 16677 (list 10 t_sanct_lor_scroll) 16678 (list 10 t_in_quas_xen_scroll) 16679 (list 10 t_an_xen_exe_scroll) 16680 ) 16681 ;; hooks 16682 (list 16683 ) 16684 ) 16685 17 4) 16686 (list 16687 (bind 16688 (kern-mk-obj t_ladder_down 1 16689 ;; hooks 16690 (list 16691 ) 16692 ) 16693 (list 16694 'p_forsaken_prison 16695 2 16696 16 16697 ) 16698 ) ;; bind 16699 9 3) 16700 (list 16701 (bind 16702 (kern-mk-char 16703 'ch_man 16704 "The MAN" 16705 sp_human 16706 oc_wrogue 16707 s_brigandess 16708 2 16709 0 0 0 16710 0 0 16711 0 0 16712 19 0 16713 11 9 16714 #f ;; dead? 16715 'man-conv 16716 sch_man 16717 nil 16718 nil ;; inventory 16719 nil 16720 ;; hooks 16721 (list 16722 ) 16723 ) 16724 '() 16725 ) ;; bind 16726 15 13) 16727 (list 16728 (kern-mk-container 16729 t_chest 16730 ;; trap 16731 nil 16732 ;; contents 16733 (list 16734 (list 10 t_food) 16735 ) 16736 ;; hooks 16737 (list 16738 ) 16739 ) 16740 5 16) 16741 (list 16742 (kern-mk-obj t_bed 1 16743 ;; hooks 16744 (list 16745 ) 16746 ) 16747 3 3) 16748 (list 16749 (kern-mk-container 16750 t_chest 16751 ;; trap 16752 'bomb-trap 16753 ;; contents 16754 (list 16755 (list 100 t_gold_coins) 16756 ) 16757 ;; hooks 16758 (list 16759 ) 16760 ) 16761 7 3) 16762 (list 16763 (bind 16764 (kern-mk-obj t_door 1 16765 ;; hooks 16766 (list 16767 ) 16768 ) 16769 (list 16770 #f 16771 0 16772 '() 16773 #f 16774 #f 16775 #f 16776 (list 16777 (list 16778 's_closed_solid_wood_door_in_stone 16779 #t 16780 5 16781 ) 16782 (list 16783 's_open_door_in_stone 16784 #f 16785 0 16786 ) 16787 (list 16788 's_locked_solid_wood_door_in_stone 16789 #t 16790 5 16791 ) 16792 (list 16793 's_magically_locked_solid_wood_door_in_stone 16794 #t 16795 5 16796 ) 16797 ) 16798 ) 16799 ) ;; bind 16800 6 2) 16801 (list 16802 (bind 16803 (kern-mk-obj t_disg_lvr 1 16804 ;; hooks 16805 (list 16806 ) 16807 ) 16808 (list 16809 #f 16810 'mh-b1 16811 #f 16812 's_wall_rock 16813 ) 16814 ) ;; bind 16815 7 18) 16816 (list 16817 (bind 16818 (kern-mk-obj t_hidden 1 16819 ;; hooks 16820 (list 16821 ) 16822 ) 16823 (list 16824 't_hidden_mech 16825 1 16826 ) 16827 ) ;; bind 16828 7 18) 16829 (list 16830 (kern-tag 'mh-b1 16831 (bind 16832 (kern-mk-obj t_terrain_blitter 1 16833 ;; hooks 16834 (list 16835 ) 16836 ) 16837 (list 16838 'p_mans_hideout 16839 8 16840 14 16841 3 16842 1 16843 'm_hall_section 16844 ) 16845 ) ;; bind 16846 ) ;; kern-tag 16847 0 0) 16848 (list 16849 (bind 16850 (kern-mk-obj t_door 1 16851 ;; hooks 16852 (list 16853 ) 16854 ) 16855 (list 16856 #f 16857 0 16858 '() 16859 #f 16860 #f 16861 #t 16862 (list 16863 (list 16864 's_closed_solid_wood_door_in_stone 16865 #t 16866 5 16867 ) 16868 (list 16869 's_open_door_in_stone 16870 #f 16871 0 16872 ) 16873 (list 16874 's_locked_solid_wood_door_in_stone 16875 #t 16876 5 16877 ) 16878 (list 16879 's_magically_locked_solid_wood_door_in_stone 16880 #t 16881 5 16882 ) 16883 ) 16884 ) 16885 ) ;; bind 16886 15 5) 16887 (list 16888 (kern-mk-container 16889 t_chest 16890 ;; trap 16891 'bomb-trap 16892 ;; contents 16893 (list 16894 (list 10 t_gem) 16895 (list 10 t_torch) 16896 (list 10 t_picklock) 16897 ) 16898 ;; hooks 16899 (list 16900 ) 16901 ) 16902 13 2) 16903 ) ;; end of objects in p_mans_hideout 16904 nil ;; on-entry-hook 16905 (list ;; edge entrances 16906 (list 0 18 18) ;; Northwest 16907 (list 1 9 18) ;; North 16908 (list 2 0 18) ;; Northeast 16909 (list 3 18 9) ;; West 16910 (list 4 9 9) ;; Here 16911 (list 5 0 9) ;; East 16912 (list 6 18 0) ;; Southwest 16913 (list 7 9 0) ;; South 16914 (list 8 0 0) ;; SoutheastUp 16915 ) 16916) ;; end of place p_mans_hideout 16917 16918(kern-load "luximene.scm") 16919 16920(kern-load "necromancer.scm") 16921 16922(kern-mk-place 'p_necromancers_lair "Necromancers Lair" 16923 nil ;; sprite 16924 (kern-mk-map 16925 nil 19 19 pal_expanded 16926 (list 16927 "xx xx xx xx xx xx xx xx xx && xx xx xx xx xx x! xx xx xx " 16928 "xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 16929 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 16930 "xx ,, ,, x! ,, ,, ,, ,, [[ @@ ]] ,, xx ,, ,, ,, ,, ,, xx " 16931 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 16932 "xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 16933 "xx xx xx xx xx xx xx xx x! ,, x! xx xx xx x! ,, x! xx xx " 16934 "xx xx .. .. .. xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 16935 "xx .. .. .. ,, .. xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 16936 "xx .. ,, ,, .. .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 16937 "xx .. .. ,, .. .. xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 16938 "xx xx .. .. .. xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 16939 "xx xx xx ,, xx xx xx xx x! ,, x! xx xx xx x! ,, x! xx xx " 16940 "xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 16941 "xx ,, ,, ,, ,, ,, x! ,, ~~ ee ~~ ~~ xx 00 ,, ,, ,, 00 xx " 16942 "xx ,, ,, ,, ,, ,, ,, ,, ee ee ~~ ~~ xx 00 ,, ,, ,, 00 xx " 16943 "xx ,, ,, ,, ,, ,, x! ,, ~~ ~~ ~~ ~~ xx 00 ,, ,, ,, 00 xx " 16944 "xx x! [[ @@ ]] x! xx xx ~~ ~~ ~~ xx xx x! 00 00 00 x! xx " 16945 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 16946 ) 16947 ) 16948 #f #t #f #f 16949 ;; subplaces 16950 nil 16951 nil ;; neighbors 16952 (list ;; objects in p_necromancers_lair 16953 (list 16954 (bind 16955 (kern-mk-obj t_door 1 16956 ;; hooks 16957 (list 16958 ) 16959 ) 16960 (list 16961 #f 16962 0 16963 '() 16964 #f 16965 #t 16966 #f 16967 (list 16968 (list 16969 's_closed_solid_wood_door_in_stone 16970 #t 16971 5 16972 ) 16973 (list 16974 's_open_door_in_stone 16975 #f 16976 0 16977 ) 16978 (list 16979 's_locked_solid_wood_door_in_stone 16980 #t 16981 5 16982 ) 16983 (list 16984 's_magically_locked_solid_wood_door_in_stone 16985 #t 16986 5 16987 ) 16988 ) 16989 ) 16990 ) ;; bind 16991 3 12) 16992 (list 16993 (bind 16994 (kern-mk-obj t_corpse 1 16995 ;; hooks 16996 (list 16997 ) 16998 ) 16999 (list 17000 '() 17001 ) 17002 ) ;; bind 17003 2 7) 17004 (list 17005 (bind 17006 (kern-mk-obj t_corpse 1 17007 ;; hooks 17008 (list 17009 ) 17010 ) 17011 (list 17012 '() 17013 ) 17014 ) ;; bind 17015 3 7) 17016 (list 17017 (bind 17018 (kern-mk-obj t_corpse 1 17019 ;; hooks 17020 (list 17021 ) 17022 ) 17023 (list 17024 '() 17025 ) 17026 ) ;; bind 17027 4 7) 17028 (list 17029 (bind 17030 (kern-mk-obj t_corpse 1 17031 ;; hooks 17032 (list 17033 ) 17034 ) 17035 (list 17036 '() 17037 ) 17038 ) ;; bind 17039 1 8) 17040 (list 17041 (bind 17042 (kern-mk-obj t_corpse 1 17043 ;; hooks 17044 (list 17045 ) 17046 ) 17047 (list 17048 '() 17049 ) 17050 ) ;; bind 17051 2 8) 17052 (list 17053 (bind 17054 (kern-mk-obj t_corpse 1 17055 ;; hooks 17056 (list 17057 ) 17058 ) 17059 (list 17060 '() 17061 ) 17062 ) ;; bind 17063 5 8) 17064 (list 17065 (bind 17066 (kern-mk-obj t_corpse 1 17067 ;; hooks 17068 (list 17069 ) 17070 ) 17071 (list 17072 '() 17073 ) 17074 ) ;; bind 17075 1 10) 17076 (list 17077 (bind 17078 (kern-mk-obj t_corpse 1 17079 ;; hooks 17080 (list 17081 ) 17082 ) 17083 (list 17084 '() 17085 ) 17086 ) ;; bind 17087 5 9) 17088 (list 17089 (bind 17090 (kern-mk-obj t_door 1 17091 ;; hooks 17092 (list 17093 ) 17094 ) 17095 (list 17096 #f 17097 0 17098 '() 17099 #f 17100 #f 17101 #t 17102 (list 17103 (list 17104 's_closed_solid_wood_door_in_stone 17105 #t 17106 5 17107 ) 17108 (list 17109 's_open_door_in_stone 17110 #f 17111 0 17112 ) 17113 (list 17114 's_locked_solid_wood_door_in_stone 17115 #t 17116 5 17117 ) 17118 (list 17119 's_magically_locked_solid_wood_door_in_stone 17120 #t 17121 5 17122 ) 17123 ) 17124 ) 17125 ) ;; bind 17126 6 3) 17127 (list 17128 (kern-mk-obj mandrake 6 17129 ;; hooks 17130 (list 17131 ) 17132 ) 17133 2 1) 17134 (list 17135 (kern-mk-obj nightshade 4 17136 ;; hooks 17137 (list 17138 ) 17139 ) 17140 3 1) 17141 (list 17142 (kern-mk-obj blood_moss 12 17143 ;; hooks 17144 (list 17145 ) 17146 ) 17147 4 1) 17148 (list 17149 (kern-mk-obj black_pearl 14 17150 ;; hooks 17151 (list 17152 ) 17153 ) 17154 2 5) 17155 (list 17156 (kern-mk-obj spider_silk 21 17157 ;; hooks 17158 (list 17159 ) 17160 ) 17161 3 5) 17162 (list 17163 (kern-mk-obj garlic 18 17164 ;; hooks 17165 (list 17166 ) 17167 ) 17168 4 5) 17169 (list 17170 (kern-mk-obj ginseng 17 17171 ;; hooks 17172 (list 17173 ) 17174 ) 17175 1 4) 17176 (list 17177 (kern-mk-obj sulphorous_ash 26 17178 ;; hooks 17179 (list 17180 ) 17181 ) 17182 1 3) 17183 (list 17184 (kern-mk-obj t_mana_potion 8 17185 ;; hooks 17186 (list 17187 ) 17188 ) 17189 1 2) 17190 (list 17191 (bind 17192 (kern-mk-obj t_ladder_up 1 17193 ;; hooks 17194 (list 17195 ) 17196 ) 17197 (list 17198 'p_shard 17199 40 17200 70 17201 ) 17202 ) ;; bind 17203 9 9) 17204 (list 17205 (bind 17206 (kern-mk-char 17207 'ch_necr 17208 "Necromancer" 17209 sp_human 17210 oc_wizard 17211 s_companion_wizard 17212 2 17213 0 0 0 17214 0 0 17215 0 0 17216 18 0 17217 10 8 17218 #f ;; dead? 17219 'necr-conv 17220 sch_necr 17221 nil 17222 nil ;; inventory 17223 nil 17224 ;; hooks 17225 (list 17226 ) 17227 ) 17228 (list 17229 #f 17230 #f 17231 #f 17232 ) 17233 ) ;; bind 17234 15 13) 17235 (list 17236 (kern-mk-obj t_bed 1 17237 ;; hooks 17238 (list 17239 ) 17240 ) 17241 15 3) 17242 (list 17243 (bind 17244 (kern-mk-obj t_door 1 17245 ;; hooks 17246 (list 17247 ) 17248 ) 17249 (list 17250 #f 17251 0 17252 '() 17253 #f 17254 #f 17255 #f 17256 (list 17257 (list 17258 's_closed_solid_wood_door_in_stone 17259 #t 17260 5 17261 ) 17262 (list 17263 's_open_door_in_stone 17264 #f 17265 0 17266 ) 17267 (list 17268 's_locked_solid_wood_door_in_stone 17269 #t 17270 5 17271 ) 17272 (list 17273 's_magically_locked_solid_wood_door_in_stone 17274 #t 17275 5 17276 ) 17277 ) 17278 ) 17279 ) ;; bind 17280 15 6) 17281 (list 17282 (kern-mk-container 17283 t_chest 17284 ;; trap 17285 nil 17286 ;; contents 17287 (list 17288 (list 5 t_food) 17289 ) 17290 ;; hooks 17291 (list 17292 ) 17293 ) 17294 10 1) 17295 (list 17296 (bind 17297 (kern-mk-obj t_door 1 17298 ;; hooks 17299 (list 17300 ) 17301 ) 17302 (list 17303 #f 17304 0 17305 '() 17306 #f 17307 #f 17308 #f 17309 (list 17310 (list 17311 's_closed_solid_wood_door_in_stone 17312 #t 17313 5 17314 ) 17315 (list 17316 's_open_door_in_stone 17317 #f 17318 0 17319 ) 17320 (list 17321 's_locked_solid_wood_door_in_stone 17322 #t 17323 5 17324 ) 17325 (list 17326 's_magically_locked_solid_wood_door_in_stone 17327 #t 17328 5 17329 ) 17330 ) 17331 ) 17332 ) ;; bind 17333 15 12) 17334 (list 17335 (bind 17336 (kern-mk-obj t_door 1 17337 ;; hooks 17338 (list 17339 ) 17340 ) 17341 (list 17342 #f 17343 0 17344 '() 17345 #f 17346 #f 17347 #f 17348 (list 17349 (list 17350 's_closed_solid_wood_door_in_stone 17351 #t 17352 5 17353 ) 17354 (list 17355 's_open_door_in_stone 17356 #f 17357 0 17358 ) 17359 (list 17360 's_locked_solid_wood_door_in_stone 17361 #t 17362 5 17363 ) 17364 (list 17365 's_magically_locked_solid_wood_door_in_stone 17366 #t 17367 5 17368 ) 17369 ) 17370 ) 17371 ) ;; bind 17372 9 12) 17373 (list 17374 (bind 17375 (kern-mk-obj t_door 1 17376 ;; hooks 17377 (list 17378 ) 17379 ) 17380 (list 17381 #f 17382 0 17383 '() 17384 #f 17385 #f 17386 #f 17387 (list 17388 (list 17389 's_closed_solid_wood_door_in_stone 17390 #t 17391 5 17392 ) 17393 (list 17394 's_open_door_in_stone 17395 #f 17396 0 17397 ) 17398 (list 17399 's_locked_solid_wood_door_in_stone 17400 #t 17401 5 17402 ) 17403 (list 17404 's_magically_locked_solid_wood_door_in_stone 17405 #t 17406 5 17407 ) 17408 ) 17409 ) 17410 ) ;; bind 17411 9 6) 17412 (list 17413 (bind 17414 (kern-mk-obj t_door 1 17415 ;; hooks 17416 (list 17417 ) 17418 ) 17419 (list 17420 #f 17421 0 17422 '() 17423 #f 17424 #f 17425 #f 17426 (list 17427 (list 17428 's_closed_solid_wood_door_in_stone 17429 #t 17430 5 17431 ) 17432 (list 17433 's_open_door_in_stone 17434 #f 17435 0 17436 ) 17437 (list 17438 's_locked_solid_wood_door_in_stone 17439 #t 17440 5 17441 ) 17442 (list 17443 's_magically_locked_solid_wood_door_in_stone 17444 #t 17445 5 17446 ) 17447 ) 17448 ) 17449 ) ;; bind 17450 12 9) 17451 (list 17452 (bind 17453 (kern-mk-obj t_door 1 17454 ;; hooks 17455 (list 17456 ) 17457 ) 17458 (list 17459 #f 17460 0 17461 '() 17462 #f 17463 #f 17464 #f 17465 (list 17466 (list 17467 's_closed_solid_wood_door_in_stone 17468 #t 17469 5 17470 ) 17471 (list 17472 's_open_door_in_stone 17473 #f 17474 0 17475 ) 17476 (list 17477 's_locked_solid_wood_door_in_stone 17478 #t 17479 5 17480 ) 17481 (list 17482 's_magically_locked_solid_wood_door_in_stone 17483 #t 17484 5 17485 ) 17486 ) 17487 ) 17488 ) ;; bind 17489 6 15) 17490 ) ;; end of objects in p_necromancers_lair 17491 nil ;; on-entry-hook 17492 (list ;; edge entrances 17493 (list 0 18 18) ;; Northwest 17494 (list 1 9 18) ;; North 17495 (list 2 0 18) ;; Northeast 17496 (list 3 18 9) ;; West 17497 (list 4 9 9) ;; Here 17498 (list 5 0 9) ;; East 17499 (list 6 18 0) ;; Southwest 17500 (list 7 9 0) ;; South 17501 (list 8 0 0) ;; SoutheastUp 17502 ) 17503) ;; end of place p_necromancers_lair 17504 17505(kern-mk-place 'p_smoldering_cave "Smoldering Cave" 17506 nil ;; sprite 17507 (kern-mk-map 17508 nil 19 19 pal_expanded 17509 (list 17510 "rr rr rr rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr " 17511 "rr rr rr rr rr rr rr rr {8 .. {8 rr rr rr rr rr rr rr rr " 17512 "rr rr rr rr rr !_ !_ rr {{ {6 {{ rr !_ !_ rr rr rr rr rr " 17513 "rr rr rr rr !_ !_ !_ !! {{ {6 {{ !! !_ !_ !_ rr rr rr rr " 17514 "rr rr rr !_ !_ !_ !_ !_ !! =| !! !_ !_ !_ !_ !_ rr rr rr " 17515 "rr rr rr !_ !_ !_ !_ !c {{ {6 {{ !a !_ !_ !_ !_ rr rr rr " 17516 "rr rr !_ !_ !_ !_ !c bb {{ {6 {{ bb !a !_ !_ !_ !_ rr rr " 17517 "rr rr !_ !_ !_ !! bb {{ {{ {6 {{ {{ bb !! !_ !_ !_ rr rr " 17518 "rr rr !_ !_ !_ !! {{ {{ {3 .. {5 {{ {{ !! !_ !_ !_ rr rr " 17519 "rr rr !_ !_ !_ !! {{ {{ {2 .. {4 {{ {{ !! !_ !_ !_ rr rr " 17520 "rr rr !_ !_ !_ !! {{ {{ {a {8 {c {{ {{ !! !_ !_ !_ rr rr " 17521 "rr rr !_ !_ !_ !! bb {{ {{ {{ {{ {{ bb !! !_ !_ !_ rr rr " 17522 "rr rr !_ !_ !_ !_ !5 bb {{ {{ {{ bb !3 !_ !_ !_ !_ rr rr " 17523 "rr rr rr !_ !_ !_ !_ !! !! !! !! !! !_ !_ !_ !_ rr rr rr " 17524 "rr rr rr !_ !_ !_ !_ !_ !_ !_ !_ !_ !_ !_ !_ !_ rr rr rr " 17525 "rr rr rr rr !_ !_ !_ !_ !_ !_ !_ !_ !_ !_ !_ rr rr rr rr " 17526 "rr rr rr rr rr rr !_ !_ !_ !_ !_ !_ !_ rr rr rr rr rr rr " 17527 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 17528 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 17529 ) 17530 ) 17531 #f #t #f #f 17532 ;; subplaces 17533 nil 17534 (list 17535 (list 17536 (kern-mk-place 'p_fire_sea "Fire Sea" 17537 nil ;; sprite 17538 (kern-mk-map 17539 nil 19 19 pal_expanded 17540 (list 17541 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 17542 "rr !_ !_ !! {A {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ rr rr rr " 17543 "rr !_ !_ !_ !5 {A {{ {{ {3 {9 {9 {9 {9 {5 {{ {C ~! rr rr " 17544 "rr !! !_ !! !! !5 {{ {3 {c {{ {{ {{ {{ {6 {{ ~! !_ ~! rr " 17545 "rr {% !e {# {{ !! {{ {6 {{ {C !3 !5 {{ {6 {{ {% ~! {# rr " 17546 "rr {{ {{ {3 {9 == {9 {c {C !3 !_ !! {{ {6 {{ !7 {{ {{ rr " 17547 "rr {{ {3 {c {{ !! {{ {{ !_ !_ !_ !_ {{ {a {9 == {9 {1 rr " 17548 "rr {{ {6 {{ {{ !_ !_ !_ rr rr rr rr !5 {{ {{ !! {{ {2 rr " 17549 "rr {{ {6 {{ {{ {% !a !_ rr .. .. rr rr !! !! !c {{ {2 rr " 17550 "rr {{ {a {9 {9 {5 {{ rr rr .. .. .. rr {{ !! {{ {{ {2 rr " 17551 "rr {{ {{ {{ {{ {6 {{ rr rr .. bb .. .. {9 == {9 {9 {8 rr " 17552 "rr {C !3 !! !! =| !! !_ rr .. .. .. rr {{ !! {{ {{ {{ rr " 17553 "rr !! !_ !c {{ {6 {{ !_ rr rr rr .. rr rr !_ !! !5 {A rr " 17554 "rr {% !e {# {{ {6 {{ !! !_ !_ rr rr rr rr !_ !_ !_ !! rr " 17555 "rr rr {{ {{ {{ {6 {{ !a !_ !_ !_ !_ !_ !_ !_ !_ !_ !_ rr " 17556 "rr rr rr {{ {{ {6 {{ {% !a !! !! !_ !_ !_ !_ !_ !_ !_ rr " 17557 "rr rr rr bb {{ {a {5 {{ {{ {{ {% !a !! !! !_ !_ !_ !_ rr " 17558 "rr rr rr rr bb {{ {2 {1 {1 {5 {{ {{ {{ {{ !! !_ !_ !_ rr " 17559 "rr rr rr rr rr rr rr rr .. .. {5 {{ {{ {3 bb !! !! ~! rr " 17560 ) 17561 ) 17562 #f #t #f #f 17563 ;; subplaces 17564 nil 17565 nil ;; neighbors 17566 (list ;; objects in p_fire_sea 17567 (list 17568 (kern-mk-obj t_gold_coins 140 17569 ;; hooks 17570 (list 17571 ) 17572 ) 17573 11 10) 17574 (list 17575 (kern-mk-obj t_armor_plate_4 1 17576 ;; hooks 17577 (list 17578 ) 17579 ) 17580 11 11) 17581 (list 17582 (kern-mk-obj t_gem 14 17583 ;; hooks 17584 (list 17585 ) 17586 ) 17587 9 11) 17588 (list 17589 (kern-mk-obj t_gold_coins 104 17590 ;; hooks 17591 (list 17592 ) 17593 ) 17594 10 11) 17595 (list 17596 (kern-mk-obj t_shield_4 1 17597 ;; hooks 17598 (list 17599 ) 17600 ) 17601 10 11) 17602 (list 17603 (kern-mk-obj t_gem 10 17604 ;; hooks 17605 (list 17606 ) 17607 ) 17608 11 11) 17609 (list 17610 (kern-mk-obj t_gold_coins 96 17611 ;; hooks 17612 (list 17613 ) 17614 ) 17615 11 12) 17616 (list 17617 (bind 17618 (kern-mk-obj t_spawn_pt 1 17619 ;; hooks 17620 (list 17621 ) 17622 ) 17623 (list 17624 'spawn-pt 17625 'dragon 17626 ) 17627 ) ;; bind 17628 11 10) 17629 (list 17630 (bind 17631 (kern-mk-obj t_monman 1 17632 ;; hooks 17633 (list 17634 ) 17635 ) 17636 (list 17637 'monman 17638 (list 17639 0 17640 0 17641 0 17642 -1 17643 6 17644 -1 17645 ) 17646 ) 17647 ) ;; bind 17648 0 0) 17649 (list 17650 (kern-mk-obj t_rune_w 1 17651 ;; hooks 17652 (list 17653 ) 17654 ) 17655 11 12) 17656 (list 17657 (kern-mk-obj t_gold_coins 181 17658 ;; hooks 17659 (list 17660 ) 17661 ) 17662 9 8) 17663 (list 17664 (kern-mk-obj t_gold_coins 157 17665 ;; hooks 17666 (list 17667 ) 17668 ) 17669 10 8) 17670 (list 17671 (kern-mk-obj t_iron_helm_4 1 17672 ;; hooks 17673 (list 17674 ) 17675 ) 17676 10 8) 17677 (list 17678 (kern-mk-obj t_gold_coins 94 17679 ;; hooks 17680 (list 17681 ) 17682 ) 17683 9 9) 17684 (list 17685 (kern-mk-obj t_gem 13 17686 ;; hooks 17687 (list 17688 ) 17689 ) 17690 10 9) 17691 (list 17692 (kern-mk-obj t_gold_coins 135 17693 ;; hooks 17694 (list 17695 ) 17696 ) 17697 11 9) 17698 (list 17699 (kern-mk-obj t_gold_coins 113 17700 ;; hooks 17701 (list 17702 ) 17703 ) 17704 9 10) 17705 (list 17706 (kern-mk-obj t_sword_4 1 17707 ;; hooks 17708 (list 17709 ) 17710 ) 17711 9 10) 17712 ) ;; end of objects in p_fire_sea 17713 (list ;; on-entry-hooks 17714 'on-entry-to-dungeon-room 17715 ) 17716 (list ;; edge entrances 17717 (list 0 18 18) ;; Northwest 17718 (list 1 9 18) ;; North 17719 (list 2 0 18) ;; Northeast 17720 (list 3 18 9) ;; West 17721 (list 4 9 9) ;; Here 17722 (list 5 0 9) ;; East 17723 (list 6 18 0) ;; Southwest 17724 (list 7 9 0) ;; South 17725 (list 8 0 0) ;; SoutheastUp 17726 ) 17727 ) ;; end of place p_fire_sea 17728 17729 1) 17730 ) ;; end neighbors of p_smoldering_cave 17731 (list ;; objects in p_smoldering_cave 17732 (list 17733 (bind 17734 (kern-mk-obj t_monman 1 17735 ;; hooks 17736 (list 17737 ) 17738 ) 17739 (list 17740 'monman 17741 (list 17742 0 17743 0 17744 0 17745 -1 17746 6 17747 -1 17748 ) 17749 ) 17750 ) ;; bind 17751 0 0) 17752 (list 17753 (bind 17754 (kern-mk-obj t_ladder_up 1 17755 ;; hooks 17756 (list 17757 ) 17758 ) 17759 (list 17760 'p_shard 17761 118 17762 46 17763 ) 17764 ) ;; bind 17765 9 9) 17766 (list 17767 (bind 17768 (kern-mk-obj t_spawn_pt 1 17769 ;; hooks 17770 (list 17771 ) 17772 ) 17773 (list 17774 'spawn-pt 17775 'fire-slime 17776 ) 17777 ) ;; bind 17778 9 1) 17779 (list 17780 (bind 17781 (kern-mk-obj t_spawn_pt 1 17782 ;; hooks 17783 (list 17784 ) 17785 ) 17786 (list 17787 'spawn-pt 17788 'fire-slime 17789 ) 17790 ) ;; bind 17791 7 3) 17792 (list 17793 (bind 17794 (kern-mk-obj t_spawn_pt 1 17795 ;; hooks 17796 (list 17797 ) 17798 ) 17799 (list 17800 'spawn-pt 17801 'fire-slime 17802 ) 17803 ) ;; bind 17804 10 4) 17805 ) ;; end of objects in p_smoldering_cave 17806 (list ;; on-entry-hooks 17807 'on-entry-to-dungeon-room 17808 ) 17809 (list ;; edge entrances 17810 (list 0 18 18) ;; Northwest 17811 (list 1 9 18) ;; North 17812 (list 2 0 18) ;; Northeast 17813 (list 3 18 9) ;; West 17814 (list 4 9 9) ;; Here 17815 (list 5 0 9) ;; East 17816 (list 6 18 0) ;; Southwest 17817 (list 7 9 0) ;; South 17818 (list 8 0 0) ;; SoutheastUp 17819 ) 17820) ;; end of place p_smoldering_cave 17821 17822p_fire_sea 17823(kern-mk-place 'p_void_temple "Void Temple" 17824 s_shrine ;; sprite 17825 (kern-mk-map 17826 nil 19 19 pal_expanded 17827 (list 17828 "cc cc cc cc cc cc cc .. .. .. .. .. cc cc cc cc cc cc cc " 17829 "cc cc cc cc cc cc cc cc .. .. .. cc cc cc cc cc cc cc cc " 17830 "cc cc t3 tt tt *3 *1 *5 bb .. bb *3 *1 *5 tt tt t5 cc cc " 17831 "cc cc tt tt *3 ** *. ** *5 cc *3 ** ** ** *5 tt tt cc cc " 17832 "cc cc tt *3 *. ** ** ** *4 cc *2 ** ** *. *. *5 tt cc cc " 17833 "cc cc *3 ** ** *. ** ** *c cc *a ** ** ** ** *. *5 cc cc " 17834 "cc cc *2 *. *. ** *. *c bb .. bb *a *. ** *. ** *4 cc cc " 17835 ".. cc *a ** *. ** *c .g .. .. .. .h *a ** ** ** *c cc .. " 17836 ".. .. bb *a *8 *c bb .. .. .. .. .. bb *a *8 *c bb .. .. " 17837 ".. .. .. cc cc cc .. .. .. .. .. .. .. cc cc cc .. .. .. " 17838 ".. .. bb *3 *1 *5 bb .. .. .. .. .. bb *3 *1 *5 bb .. .. " 17839 ".. cc *3 ** ** ** *5 .j .. .. .. .l *3 ** *. ** *5 cc .. " 17840 "cc cc *2 *. *. ** ** *5 bb .. bb *3 ** *. *. *. *4 cc cc " 17841 "cc cc *a *. *. ** ** *. *5 cc *3 ** ** *. ** ** *c cc cc " 17842 "cc cc tt *a ** *. ** *. *4 cc *2 *. *. *. *. *c tt cc cc " 17843 "cc cc tt tt *a *. *. ** *c cc *a ** *. *. *c tt tt cc cc " 17844 "cc cc ta tt tt *a *8 *c bb .. bb *a *8 *c tt tt tc cc cc " 17845 "cc cc cc cc cc cc cc cc .. .. .. cc cc cc cc cc cc cc cc " 17846 "cc cc cc cc cc cc cc .. .. .. .. .. cc cc cc cc cc cc cc " 17847 ) 17848 ) 17849 #f #f #f #f 17850 ;; subplaces 17851 nil 17852 nil ;; neighbors 17853 (list ;; objects in p_void_temple 17854 (list 17855 (kern-mk-field f_energy_perm -1) 9 5) 17856 (list 17857 (kern-mk-field f_sleep_perm -1) 9 15) 17858 (list 17859 (kern-mk-field f_fire_perm -1) 9 14) 17860 (list 17861 (kern-mk-field f_energy_perm -1) 9 13) 17862 (list 17863 (bind 17864 (kern-mk-obj t_spawn_pt 1 17865 ;; hooks 17866 (list 17867 ) 17868 ) 17869 (list 17870 'spawn-pt 17871 'wisp 17872 ) 17873 ) ;; bind 17874 7 9) 17875 (list 17876 (bind 17877 (kern-mk-obj t_spawn_pt 1 17878 ;; hooks 17879 (list 17880 ) 17881 ) 17882 (list 17883 'spawn-pt 17884 'wisp 17885 ) 17886 ) ;; bind 17887 9 7) 17888 (list 17889 (bind 17890 (kern-mk-obj t_spawn_pt 1 17891 ;; hooks 17892 (list 17893 ) 17894 ) 17895 (list 17896 'spawn-pt 17897 'wisp 17898 ) 17899 ) ;; bind 17900 11 9) 17901 (list 17902 (bind 17903 (kern-mk-obj t_spawn_pt 1 17904 ;; hooks 17905 (list 17906 ) 17907 ) 17908 (list 17909 'spawn-pt 17910 'wisp 17911 ) 17912 ) ;; bind 17913 9 11) 17914 (list 17915 (bind 17916 (kern-mk-obj t_monman 1 17917 ;; hooks 17918 (list 17919 ) 17920 ) 17921 (list 17922 'monman 17923 (list 17924 0 17925 0 17926 0 17927 -1 17928 6 17929 -1 17930 ) 17931 ) 17932 ) ;; bind 17933 0 0) 17934 (list 17935 (kern-mk-obj t_rune_d 1 17936 ;; hooks 17937 (list 17938 ) 17939 ) 17940 9 9) 17941 (list 17942 (kern-mk-field f_sleep_perm -1) 15 9) 17943 (list 17944 (kern-mk-field f_fire_perm -1) 14 9) 17945 (list 17946 (kern-mk-field f_energy_perm -1) 13 9) 17947 (list 17948 (kern-mk-field f_sleep_perm -1) 3 9) 17949 (list 17950 (kern-mk-field f_fire_perm -1) 4 9) 17951 (list 17952 (kern-mk-field f_energy_perm -1) 5 9) 17953 (list 17954 (kern-mk-field f_sleep_perm -1) 9 3) 17955 (list 17956 (kern-mk-field f_fire_perm -1) 9 4) 17957 ) ;; end of objects in p_void_temple 17958 nil ;; on-entry-hook 17959 (list ;; edge entrances 17960 (list 0 18 18) ;; Northwest 17961 (list 1 9 18) ;; North 17962 (list 2 0 18) ;; Northeast 17963 (list 3 18 9) ;; West 17964 (list 4 9 9) ;; Here 17965 (list 5 0 9) ;; East 17966 (list 6 18 0) ;; Southwest 17967 (list 7 9 0) ;; South 17968 (list 8 0 0) ;; SoutheastUp 17969 ) 17970) ;; end of place p_void_temple 17971 17972(kern-mk-place 'p_merciful_death "Wreck of the Merciful Death (abovedecks)" 17973 s_ship ;; sprite 17974 (kern-mk-map 17975 nil 19 19 pal_expanded 17976 (list 17977 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 17978 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 17979 ".. ~C ~3 ~1 ~1 ~1 ~5 ~A .. .. .. ~C ~3 ~1 ~1 ~1 ~5 ~A .. " 17980 "~~ ~~ ~~ bb -- -- ~~ ~~ ~1 ee ~1 ~~ ~~ -- -- -- ~~ ~5 ~A " 17981 "-- -- -- ~~ -- -- -- -- -- ee -- -- -- -- -- bb -- ~~ ~~ " 17982 "-- ## ## ## ## ## ## ## ## ee ## ## ## -- -- ~~ -- -- -- " 17983 "-- ## ee ee ee ee ee ee ee ee ee ee ## ## ## ## -- -- -- " 17984 "-- ## ee ee ee ee ee ee ee ee ee ee ee ee ee ## ## -- -- " 17985 "-- ## ee ee ee ee ee ee ee ee ee ee ee ee ee ee ## ## -- " 17986 "-- ## ee ee oo ee ee ee ee oo ee ee ee WW ee ee ee ## -- " 17987 "-- ## ee ee ee ee ee ee ee ee ee ee ee ee ee ee ## ## -- " 17988 "-- ## ee ee ee ee ee ee ee ee ee ee ee ee ~~ ~~ ~~ ~~ -- " 17989 "-- ## ee ~~ ~~ ~~ ee ee ~~ ~~ ee ee ## ## ## ~~ ~~ ~~ -- " 17990 "-- ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ bb -- " 17991 "-- ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ bb ~~ ~~ ~~ ~~ -- -- bb ~~ -- " 17992 "-- -- bb -- -- -- -- -- -- ~~ -- -- -- -- -- -- ~~ -- -- " 17993 "-- -- ~~ -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- " 17994 "-- -- -- -- __ __ __ __ -- -- -- -- __ __ __ -- -- -- -- " 17995 "-- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- " 17996 ) 17997 ) 17998 #f #f #f #f 17999 ;; subplaces 18000 nil 18001 nil ;; neighbors 18002 (list ;; objects in p_merciful_death 18003 (list 18004 (bind 18005 (kern-mk-obj t_spawn_pt 1 18006 ;; hooks 18007 (list 18008 ) 18009 ) 18010 (list 18011 'spawn-pt 18012 'skeletal-warrior 18013 ) 18014 ) ;; bind 18015 7 9) 18016 (list 18017 (bind 18018 (kern-mk-obj t_spawn_pt 1 18019 ;; hooks 18020 (list 18021 ) 18022 ) 18023 (list 18024 'spawn-pt 18025 'skeletal-spear-thrower 18026 ) 18027 ) ;; bind 18028 10 9) 18029 (list 18030 (bind 18031 (kern-mk-obj t_monman 1 18032 ;; hooks 18033 (list 18034 ) 18035 ) 18036 (list 18037 'monman 18038 (list 18039 0 18040 0 18041 0 18042 -1 18043 6 18044 -1 18045 ) 18046 ) 18047 ) ;; bind 18048 0 0) 18049 (list 18050 (bind 18051 (kern-mk-obj t_ladder_down 1 18052 ;; hooks 18053 (list 18054 ) 18055 ) 18056 (list 18057 'p_merciful_death_l2 18058 6 18059 9 18060 ) 18061 ) ;; bind 18062 6 9) 18063 ) ;; end of objects in p_merciful_death 18064 (list ;; on-entry-hooks 18065 'on-entry-to-dungeon-room 18066 ) 18067 (list ;; edge entrances 18068 (list 0 18 18) ;; Northwest 18069 (list 1 9 18) ;; North 18070 (list 2 0 18) ;; Northeast 18071 (list 3 18 9) ;; West 18072 (list 4 9 9) ;; Here 18073 (list 5 0 9) ;; East 18074 (list 6 18 0) ;; Southwest 18075 (list 7 9 0) ;; South 18076 (list 8 0 0) ;; SoutheastUp 18077 ) 18078) ;; end of place p_merciful_death 18079 18080(kern-mk-place 'p_merciful_death_l2 "Wreck of the Merciful Death (belowdecks)" 18081 nil ;; sprite 18082 (kern-mk-map 18083 nil 19 19 pal_expanded 18084 (list 18085 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 18086 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 18087 "rr rr -- -- -- -- -- rr rr rr rr rr -- -- -- -- -- rr rr " 18088 "-- -- -- bb -- -- -- -- -- -- -- -- -- -- -- -- -- -- rr " 18089 "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- bb -- -- -- " 18090 "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- " 18091 "-- -- #> #> #> #> #> #> #> #> #> #> -- -- -- -- -- -- -- " 18092 "-- -- #> ee ee ee ee ee ee ee ee #> #> #> #> -- -- -- -- " 18093 "-- -- #> ee ee ee ee ee ee ee ee ee ee ee #> #> -- -- -- " 18094 "-- -- #> ee ee ee ee ee ee ee ee ee ee ee ee #> -- -- -- " 18095 "-- -- #> ee ee ee ee ee ee ee ee ee ee ee #> #> -- -- -- " 18096 "-- -- #> ee ee ee ee ee ee ee ee #> #> #> #> -- -- -- -- " 18097 "-- -- #> #> #> #> #> #> #> #> #> #> -- -- -- -- -- -- -- " 18098 "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- bb -- " 18099 "-- -- -- -- -- -- -- -- -- bb -- -- -- -- -- -- bb -- -- " 18100 "-- -- bb -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- " 18101 "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- " 18102 "-- -- -- -- __ __ __ __ -- -- -- -- __ __ __ -- -- -- -- " 18103 "-- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- " 18104 ) 18105 ) 18106 #f #t #f #f 18107 ;; subplaces 18108 nil 18109 nil ;; neighbors 18110 (list ;; objects in p_merciful_death_l2 18111 (list 18112 (bind 18113 (kern-mk-obj t_monman 1 18114 ;; hooks 18115 (list 18116 ) 18117 ) 18118 (list 18119 'monman 18120 (list 18121 0 18122 0 18123 0 18124 -1 18125 6 18126 -1 18127 ) 18128 ) 18129 ) ;; bind 18130 0 0) 18131 (list 18132 (bind 18133 (kern-mk-obj t_ladder_up 1 18134 ;; hooks 18135 (list 18136 ) 18137 ) 18138 (list 18139 'p_merciful_death 18140 6 18141 9 18142 ) 18143 ) ;; bind 18144 6 9) 18145 (list 18146 (kern-mk-container 18147 t_chest 18148 ;; trap 18149 'poison-trap 18150 ;; contents 18151 (list 18152 (list 1 t_rune_c) 18153 (list 342 t_gold_coins) 18154 (list 4 t_gem) 18155 (list 1 t_sextant) 18156 ) 18157 ;; hooks 18158 (list 18159 ) 18160 ) 18161 14 9) 18162 (list 18163 (bind 18164 (kern-mk-obj t_spawn_pt 1 18165 ;; hooks 18166 (list 18167 ) 18168 ) 18169 (list 18170 'spawn-pt 18171 'skeletal-warrior 18172 ) 18173 ) ;; bind 18174 7 9) 18175 (list 18176 (bind 18177 (kern-mk-obj t_spawn_pt 1 18178 ;; hooks 18179 (list 18180 ) 18181 ) 18182 (list 18183 'spawn-pt 18184 'skeletal-spear-thrower 18185 ) 18186 ) ;; bind 18187 10 9) 18188 ) ;; end of objects in p_merciful_death_l2 18189 (list ;; on-entry-hooks 18190 'on-entry-to-dungeon-room 18191 ) 18192 (list ;; edge entrances 18193 (list 0 18 18) ;; Northwest 18194 (list 1 9 18) ;; North 18195 (list 2 0 18) ;; Northeast 18196 (list 3 18 9) ;; West 18197 (list 4 9 9) ;; Here 18198 (list 5 0 9) ;; East 18199 (list 6 18 0) ;; Southwest 18200 (list 7 9 0) ;; South 18201 (list 8 0 0) ;; SoutheastUp 18202 ) 18203) ;; end of place p_merciful_death_l2 18204 18205(kern-mk-place 'p_angriss_lair "Entrance to Angriss's Lair" 18206 s_spider_web ;; sprite 18207 (kern-mk-map 18208 nil 19 19 pal_expanded 18209 (list 18210 "|| || || || || || || || tt tt tt || || || tt || || || || " 18211 "|| || || || || || || || || tt || || || tt tt tt || || || " 18212 "|| || || || || || bb bb bb bb || || || bb .. bb || || || " 18213 "|| || || || bb bb bb t3 t5 bb bb || bb .. .. .. bb || || " 18214 "|| || || bb .. .. t3 || || t5 bb .. .. .. .. .. bb || || " 18215 "|| || || bb .. .. ta || || tc .. .. .. .. .. bb || || || " 18216 "|| || || bb bb bb .. .. .. .. .. .. .. bb bb || || || || " 18217 "|| || || || bb bb .. bb .. .. tC t3 tt t5 bb || || || || " 18218 "tt || || || bb || || || bb .. tb || || tt td bb || || tt " 18219 "tt tt || || bb || tF || bb .. t% |A || tc t# bb || tt tt " 18220 "tt || || || bb || || || bb bb .. .. .. .. bb || || || tt " 18221 "|| || || || bb bb bb bb .. .. .. bb .. bb bb bb || || || " 18222 "|| || || bb .. tC t3 t5 tA .. .. bb .. || || bb || || || " 18223 "|| || || bb .. t3 || || td .. bb .. .. t% || bb || || || " 18224 "|| || || bb .. ta || |C t# .. bb .. .. .. .. bb || || || " 18225 "|| || || || bb .. .. .. .. bb || bb bb .. bb || || || || " 18226 "|| || || || || bb .. bb bb || || || tt tt tt || || || || " 18227 "|| || || || || tt tt tt || tt || || || tt || || || || || " 18228 "|| || || || || || tt || tt tt tt || || || || || || || || " 18229 ) 18230 ) 18231 #f #f #f #f 18232 ;; subplaces 18233 nil 18234 nil ;; neighbors 18235 (list ;; objects in p_angriss_lair 18236 (list 18237 (bind 18238 (kern-mk-obj t_ladder_down 1 18239 ;; hooks 18240 (list 18241 ) 18242 ) 18243 (list 18244 'p_spider_cave 18245 15 18246 4 18247 ) 18248 ) ;; bind 18249 15 4) 18250 (list 18251 (bind 18252 (kern-mk-obj t_spawn_pt 1 18253 ;; hooks 18254 (list 18255 ) 18256 ) 18257 (list 18258 'spawn-pt 18259 'giant-spider 18260 ) 18261 ) ;; bind 18262 6 9) 18263 (list 18264 (bind 18265 (kern-mk-obj t_spawn_pt 1 18266 ;; hooks 18267 (list 18268 ) 18269 ) 18270 (list 18271 'spawn-pt 18272 'giant-spider 18273 ) 18274 ) ;; bind 18275 15 4) 18276 (list 18277 (bind 18278 (kern-mk-obj t_spawn_pt 1 18279 ;; hooks 18280 (list 18281 ) 18282 ) 18283 (list 18284 'spawn-pt 18285 'giant-spider 18286 ) 18287 ) ;; bind 18288 7 4) 18289 (list 18290 (bind 18291 (kern-mk-obj t_spawn_pt 1 18292 ;; hooks 18293 (list 18294 ) 18295 ) 18296 (list 18297 'spawn-pt 18298 'giant-spider 18299 ) 18300 ) ;; bind 18301 6 13) 18302 (list 18303 (bind 18304 (kern-mk-obj t_spawn_pt 1 18305 ;; hooks 18306 (list 18307 ) 18308 ) 18309 (list 18310 'spawn-pt 18311 'giant-spider 18312 ) 18313 ) ;; bind 18314 14 12) 18315 (list 18316 (bind 18317 (kern-mk-obj t_monman 1 18318 ;; hooks 18319 (list 18320 ) 18321 ) 18322 (list 18323 'monman 18324 (list 18325 0 18326 0 18327 0 18328 -1 18329 6 18330 -1 18331 ) 18332 ) 18333 ) ;; bind 18334 0 0) 18335 (list 18336 (bind 18337 (kern-mk-obj t_ladder_down 1 18338 ;; hooks 18339 (list 18340 ) 18341 ) 18342 (list 18343 'p_spider_cave 18344 6 18345 9 18346 ) 18347 ) ;; bind 18348 6 9) 18349 ) ;; end of objects in p_angriss_lair 18350 (list ;; on-entry-hooks 18351 'on-entry-to-dungeon-room 18352 ) 18353 (list ;; edge entrances 18354 (list 0 18 18) ;; Northwest 18355 (list 1 9 18) ;; North 18356 (list 2 0 18) ;; Northeast 18357 (list 3 18 9) ;; West 18358 (list 4 9 9) ;; Here 18359 (list 5 0 9) ;; East 18360 (list 6 18 0) ;; Southwest 18361 (list 7 9 0) ;; South 18362 (list 8 0 0) ;; SoutheastUp 18363 ) 18364) ;; end of place p_angriss_lair 18365 18366(kern-load "angriss.scm") 18367 18368(kern-mk-place 'p_spider_cave "Spider Cave" 18369 nil ;; sprite 18370 (kern-mk-map 18371 nil 19 19 pal_expanded 18372 (list 18373 "rr rr rr rr rr rr rr .. .. .. .. .. rr rr rr rr rr rr rr " 18374 "rr bb .. .. .. .. .. .. .. .. .. .. rr rr bb .. bb bb rr " 18375 "rr rr .. .. .. .. .. .. .. .. .. rr rr bb .. .. .. bb rr " 18376 "rr rr rr .. rr .. .. .. tC t7 tA rr .. .. .. .! .. bb rr " 18377 "rr rr rr rr rr rr .. tC t3 tt t5 rr .. .. .! .! .! .. rr " 18378 "rr rr rr bb rr t3 tt tt tt tt tc rr bb .. .. .! .. .. rr " 18379 "rr rr .. tC t3 tt tt tt tt tt t# rr rr bb bb .. .. bb rr " 18380 "rr .. tC t3 tt tt tt tt tt tt tA .. rr rr rr rr rr rr rr " 18381 "rr .. t3 tt tt .! .! .! tt tt t5 tA .. .. bb .. .. .. rr " 18382 "rr .. tt tt tt .! .! .! tt tt tt td .. .. .. .. .. rr rr " 18383 "rr .. tt tt tt .! .! .! tt tt tc t# .. .. bb .. .. .. rr " 18384 "rr .. ta tt tt tt tt tt tt tc rr .. .. .. .. bb .. .. rr " 18385 "rr .. t% ta tt tc bb ta tc rr rr bb .. rr rr .. .. rr rr " 18386 "rr .. .. t% te rr rr rr rr rr rr rr rr rr bb rr .. .. rr " 18387 "rr bb .. rr .. .. rr rr .. .. bb .. .. bb .. .. .. .. rr " 18388 "rr rr bb .. .. .. .. .. .. .. .. bb .. .. .. .. .. .. rr " 18389 "rr rr .. .. .. bb .. .. .. .. bb .. .. .. .. bb .. bb rr " 18390 "rr .. .. .. .. .. .. .. rr rr rr rr rr .. .. .. .. rr rr " 18391 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 18392 ) 18393 ) 18394 #f #t #f #f 18395 ;; subplaces 18396 nil 18397 (list 18398 (list 18399 (kern-mk-place 'p_angriss_throne_room "Angriss's Throne Room" 18400 nil ;; sprite 18401 (kern-mk-map 18402 nil 19 19 pal_expanded 18403 (list 18404 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 18405 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 18406 "rr rr .. .. .. .. bb .. .. .. .. .. .. .. .. .. .. rr rr " 18407 "rr .. .. .. .. .. bb bb .. bb bb bb .. .. .. .. .. .. rr " 18408 "rr .. .. .. .. bb .. bb bb bb .. bb bb .. .. .. .. .. rr " 18409 "rr .. .. .. bb bb .. .. .. .. bb bb bb bb .. .. .. .. rr " 18410 "rr .. .. .. bb .. .. bb bb .. .. bb bb .. bb .. .. .. rr " 18411 "rr .. .. bb .. .. bb .. .. .. .. .. bb .. bb bb .. .. rr " 18412 "rr .. .. bb .. bb .. .. .. .. .. bb .. .. bb .. .. .. rr " 18413 "rr .. .. bb .. .. bb .. .. .. .. .. bb .. bb .. .. .. rr " 18414 "rr .. .. bb bb .. bb .. .. .. .. .. bb bb .. bb .. .. rr " 18415 "rr .. .. .. .. .. bb bb .. .. .. bb bb .. .. bb .. .. rr " 18416 "rr .. .. .. bb bb bb .. bb .. bb .. .. bb bb .. .. .. rr " 18417 "rr .. .. .. bb bb bb bb bb bb bb .. bb bb bb .. .. .. rr " 18418 "rr bb .. .. .. bb .. bb bb .. bb .. .. bb .. .. .. .. rr " 18419 "rr bb bb .. .. .. bb bb bb bb .. bb .. .. .. .. .. .. rr " 18420 "rr bb .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. bb rr " 18421 "rr bb bb .. bb .. .. .. .. .. .. .. .. .. .. .. bb bb rr " 18422 "rr rr rr rr rr rr rr .. .. .. .. .. rr rr rr rr rr rr rr " 18423 ) 18424 ) 18425 #f #t #f #f 18426 ;; subplaces 18427 nil 18428 nil ;; neighbors 18429 (list ;; objects in p_angriss_throne_room 18430 (list 18431 (kern-mk-field f_web_perm -1) 7 8) 18432 (list 18433 (kern-mk-field f_web_perm -1) 8 8) 18434 (list 18435 (kern-mk-field f_web_perm -1) 9 8) 18436 (list 18437 (kern-mk-field f_web_perm -1) 10 8) 18438 (list 18439 (kern-mk-field f_web_perm -1) 7 9) 18440 (list 18441 (kern-mk-field f_web_perm -1) 8 9) 18442 (list 18443 (kern-mk-field f_web_perm -1) 9 9) 18444 (list 18445 (kern-mk-field f_web_perm -1) 10 9) 18446 (list 18447 (kern-mk-field f_web_perm -1) 11 9) 18448 (list 18449 (kern-mk-field f_web_perm -1) 7 10) 18450 (list 18451 (kern-mk-field f_web_perm -1) 8 10) 18452 (list 18453 (kern-mk-field f_web_perm -1) 9 10) 18454 (list 18455 (kern-mk-field f_web_perm -1) 10 10) 18456 (list 18457 (kern-mk-field f_web_perm -1) 11 10) 18458 (list 18459 (kern-mk-field f_web_perm -1) 8 11) 18460 (list 18461 (kern-mk-field f_web_perm -1) 9 11) 18462 (list 18463 (kern-mk-field f_web_perm -1) 10 11) 18464 (list 18465 (kern-mk-field f_web_perm -1) 9 12) 18466 (list 18467 (kern-mk-field f_web_perm -1) 11 12) 18468 (list 18469 (kern-mk-field f_web_perm -1) 11 13) 18470 (list 18471 (kern-mk-field f_web_perm -1) 11 14) 18472 (list 18473 (kern-mk-field f_web_perm -1) 12 14) 18474 (list 18475 (kern-mk-field f_web_perm -1) 5 6) 18476 (list 18477 (bind 18478 (kern-mk-obj t_corpse 1 18479 ;; hooks 18480 (list 18481 ) 18482 ) 18483 (list 18484 (list 18485 (list 18486 1 18487 't_bolt 18488 ) 18489 ) 18490 ) 18491 ) ;; bind 18492 5 3) 18493 (list 18494 (bind 18495 (kern-mk-obj t_corpse 1 18496 ;; hooks 18497 (list 18498 ) 18499 ) 18500 (list 18501 (list 18502 (list 18503 1 18504 't_torch 18505 ) 18506 (list 18507 5 18508 't_gold_coins 18509 ) 18510 (list 18511 2 18512 't_arrow 18513 ) 18514 ) 18515 ) 18516 ) ;; bind 18517 17 5) 18518 (list 18519 (bind 18520 (kern-mk-obj t_corpse 1 18521 ;; hooks 18522 (list 18523 ) 18524 ) 18525 (list 18526 (list 18527 (list 18528 1 18529 't_mana_potion 18530 ) 18531 (list 18532 1 18533 't_mana_potion 18534 ) 18535 (list 18536 1 18537 't_bolt 18538 ) 18539 ) 18540 ) 18541 ) ;; bind 18542 3 16) 18543 (list 18544 (bind 18545 (kern-mk-obj t_corpse 1 18546 ;; hooks 18547 (list 18548 ) 18549 ) 18550 (list 18551 (list 18552 (list 18553 5 18554 't_gold_coins 18555 ) 18556 (list 18557 2 18558 't_arrow 18559 ) 18560 ) 18561 ) 18562 ) ;; bind 18563 17 11) 18564 (list 18565 (bind 18566 (kern-mk-obj t_corpse 1 18567 ;; hooks 18568 (list 18569 ) 18570 ) 18571 (list 18572 (list 18573 (list 18574 4 18575 't_arrow 18576 ) 18577 (list 18578 3 18579 't_gold_coins 18580 ) 18581 (list 18582 3 18583 't_gold_coins 18584 ) 18585 ) 18586 ) 18587 ) ;; bind 18588 3 4) 18589 (list 18590 (bind 18591 (kern-mk-obj t_corpse 1 18592 ;; hooks 18593 (list 18594 ) 18595 ) 18596 (list 18597 (list 18598 (list 18599 1 18600 't_food 18601 ) 18602 (list 18603 1 18604 't_food 18605 ) 18606 ) 18607 ) 18608 ) ;; bind 18609 9 17) 18610 (list 18611 (bind 18612 (kern-mk-obj t_corpse 1 18613 ;; hooks 18614 (list 18615 ) 18616 ) 18617 (list 18618 (list 18619 (list 18620 2 18621 't_gold_coins 18622 ) 18623 (list 18624 4 18625 't_bolt 18626 ) 18627 (list 18628 5 18629 't_gold_coins 18630 ) 18631 ) 18632 ) 18633 ) ;; bind 18634 13 8) 18635 (list 18636 (bind 18637 (kern-mk-obj t_corpse 1 18638 ;; hooks 18639 (list 18640 ) 18641 ) 18642 (list 18643 (list 18644 (list 18645 4 18646 't_arrow 18647 ) 18648 (list 18649 1 18650 't_food 18651 ) 18652 (list 18653 1 18654 't_arrow 18655 ) 18656 ) 18657 ) 18658 ) ;; bind 18659 16 15) 18660 (list 18661 (bind 18662 (kern-mk-obj t_corpse 1 18663 ;; hooks 18664 (list 18665 ) 18666 ) 18667 (list 18668 (list 18669 (list 18670 4 18671 't_bolt 18672 ) 18673 (list 18674 2 18675 't_bolt 18676 ) 18677 (list 18678 2 18679 't_arrow 18680 ) 18681 ) 18682 ) 18683 ) ;; bind 18684 16 13) 18685 (list 18686 (bind 18687 (kern-mk-obj t_corpse 1 18688 ;; hooks 18689 (list 18690 ) 18691 ) 18692 (list 18693 (list 18694 (list 18695 2 18696 't_arrow 18697 ) 18698 (list 18699 1 18700 't_heal_potion 18701 ) 18702 (list 18703 1 18704 't_mana_potion 18705 ) 18706 ) 18707 ) 18708 ) ;; bind 18709 3 12) 18710 (list 18711 (bind 18712 (kern-mk-obj t_corpse 1 18713 ;; hooks 18714 (list 18715 ) 18716 ) 18717 (list 18718 (list 18719 (list 18720 1 18721 't_heal_potion 18722 ) 18723 (list 18724 5 18725 't_bolt 18726 ) 18727 (list 18728 5 18729 't_arrow 18730 ) 18731 ) 18732 ) 18733 ) ;; bind 18734 8 3) 18735 (list 18736 (bind 18737 (kern-mk-obj t_corpse 1 18738 ;; hooks 18739 (list 18740 ) 18741 ) 18742 (list 18743 (list 18744 (list 18745 5 18746 't_gold_coins 18747 ) 18748 ) 18749 ) 18750 ) ;; bind 18751 9 12) 18752 (list 18753 (bind 18754 (kern-mk-obj t_corpse 1 18755 ;; hooks 18756 (list 18757 ) 18758 ) 18759 (list 18760 (list 18761 (list 18762 3 18763 't_gold_coins 18764 ) 18765 ) 18766 ) 18767 ) ;; bind 18768 13 3) 18769 (list 18770 (bind 18771 (kern-mk-obj t_corpse 1 18772 ;; hooks 18773 (list 18774 ) 18775 ) 18776 (list 18777 (list 18778 (list 18779 1 18780 't_food 18781 ) 18782 (list 18783 1 18784 't_arrow 18785 ) 18786 (list 18787 3 18788 't_arrow 18789 ) 18790 ) 18791 ) 18792 ) ;; bind 18793 3 13) 18794 (list 18795 (bind 18796 (kern-mk-obj t_corpse 1 18797 ;; hooks 18798 (list 18799 ) 18800 ) 18801 (list 18802 (list 18803 (list 18804 1 18805 't_gold_coins 18806 ) 18807 (list 18808 1 18809 't_food 18810 ) 18811 (list 18812 1 18813 't_heal_potion 18814 ) 18815 ) 18816 ) 18817 ) ;; bind 18818 3 11) 18819 (list 18820 (bind 18821 (kern-mk-obj t_corpse 1 18822 ;; hooks 18823 (list 18824 ) 18825 ) 18826 (list 18827 (list 18828 (list 18829 1 18830 't_mana_potion 18831 ) 18832 ) 18833 ) 18834 ) ;; bind 18835 4 4) 18836 (list 18837 (bind 18838 (kern-mk-obj t_corpse 1 18839 ;; hooks 18840 (list 18841 ) 18842 ) 18843 (list 18844 (list 18845 (list 18846 1 18847 't_cure_potion 18848 ) 18849 (list 18850 3 18851 't_arrow 18852 ) 18853 (list 18854 1 18855 't_torch 18856 ) 18857 ) 18858 ) 18859 ) ;; bind 18860 10 9) 18861 (list 18862 (bind 18863 (kern-mk-obj t_corpse 1 18864 ;; hooks 18865 (list 18866 ) 18867 ) 18868 (list 18869 (list 18870 (list 18871 1 18872 't_bolt 18873 ) 18874 (list 18875 3 18876 't_bolt 18877 ) 18878 (list 18879 4 18880 't_gold_coins 18881 ) 18882 ) 18883 ) 18884 ) ;; bind 18885 13 9) 18886 (list 18887 (bind 18888 (kern-mk-obj t_corpse 1 18889 ;; hooks 18890 (list 18891 ) 18892 ) 18893 (list 18894 (list 18895 (list 18896 1 18897 't_arrow 18898 ) 18899 ) 18900 ) 18901 ) ;; bind 18902 5 3) 18903 (list 18904 (bind 18905 (kern-mk-obj t_corpse 1 18906 ;; hooks 18907 (list 18908 ) 18909 ) 18910 (list 18911 (list 18912 (list 18913 1 18914 't_cure_potion 18915 ) 18916 ) 18917 ) 18918 ) ;; bind 18919 1 9) 18920 (list 18921 (bind 18922 (kern-mk-obj t_corpse 1 18923 ;; hooks 18924 (list 18925 ) 18926 ) 18927 (list 18928 (list 18929 (list 18930 1 18931 't_torch 18932 ) 18933 (list 18934 1 18935 't_food 18936 ) 18937 ) 18938 ) 18939 ) ;; bind 18940 9 7) 18941 (list 18942 (bind 18943 (kern-mk-obj t_corpse 1 18944 ;; hooks 18945 (list 18946 ) 18947 ) 18948 (list 18949 (list 18950 (list 18951 2 18952 't_arrow 18953 ) 18954 (list 18955 4 18956 't_bolt 18957 ) 18958 ) 18959 ) 18960 ) ;; bind 18961 2 12) 18962 (list 18963 (bind 18964 (kern-mk-obj t_corpse 1 18965 ;; hooks 18966 (list 18967 ) 18968 ) 18969 (list 18970 (list 18971 (list 18972 2 18973 't_gold_coins 18974 ) 18975 (list 18976 1 18977 't_food 18978 ) 18979 (list 18980 1 18981 't_food 18982 ) 18983 ) 18984 ) 18985 ) ;; bind 18986 1 11) 18987 (list 18988 (bind 18989 (kern-mk-obj t_corpse 1 18990 ;; hooks 18991 (list 18992 ) 18993 ) 18994 (list 18995 (list 18996 (list 18997 4 18998 't_bolt 18999 ) 19000 (list 19001 1 19002 't_food 19003 ) 19004 ) 19005 ) 19006 ) ;; bind 19007 16 13) 19008 (list 19009 (bind 19010 (kern-mk-obj t_corpse 1 19011 ;; hooks 19012 (list 19013 ) 19014 ) 19015 (list 19016 (list 19017 (list 19018 1 19019 't_food 19020 ) 19021 ) 19022 ) 19023 ) ;; bind 19024 3 13) 19025 (list 19026 (bind 19027 (kern-mk-obj t_corpse 1 19028 ;; hooks 19029 (list 19030 ) 19031 ) 19032 (list 19033 (list 19034 (list 19035 4 19036 't_arrow 19037 ) 19038 ) 19039 ) 19040 ) ;; bind 19041 1 4) 19042 (list 19043 (bind 19044 (kern-mk-obj t_corpse 1 19045 ;; hooks 19046 (list 19047 ) 19048 ) 19049 (list 19050 (list 19051 (list 19052 1 19053 't_food 19054 ) 19055 ) 19056 ) 19057 ) ;; bind 19058 15 13) 19059 (list 19060 (bind 19061 (kern-mk-obj t_corpse 1 19062 ;; hooks 19063 (list 19064 ) 19065 ) 19066 (list 19067 (list 19068 (list 19069 1 19070 't_mana_potion 19071 ) 19072 (list 19073 5 19074 't_gold_coins 19075 ) 19076 ) 19077 ) 19078 ) ;; bind 19079 8 11) 19080 (list 19081 (bind 19082 (kern-mk-obj t_corpse 1 19083 ;; hooks 19084 (list 19085 ) 19086 ) 19087 (list 19088 (list 19089 (list 19090 1 19091 't_heal_potion 19092 ) 19093 (list 19094 2 19095 't_bolt 19096 ) 19097 ) 19098 ) 19099 ) ;; bind 19100 1 8) 19101 (list 19102 (bind 19103 (kern-mk-obj t_corpse 1 19104 ;; hooks 19105 (list 19106 ) 19107 ) 19108 (list 19109 (list 19110 (list 19111 4 19112 't_arrow 19113 ) 19114 (list 19115 3 19116 't_bolt 19117 ) 19118 ) 19119 ) 19120 ) ;; bind 19121 16 8) 19122 (list 19123 (bind 19124 (kern-mk-obj t_corpse 1 19125 ;; hooks 19126 (list 19127 ) 19128 ) 19129 (list 19130 (list 19131 (list 19132 4 19133 't_bolt 19134 ) 19135 (list 19136 1 19137 't_cure_potion 19138 ) 19139 (list 19140 1 19141 't_mana_potion 19142 ) 19143 ) 19144 ) 19145 ) ;; bind 19146 7 7) 19147 (list 19148 (bind 19149 (kern-mk-obj t_corpse 1 19150 ;; hooks 19151 (list 19152 ) 19153 ) 19154 (list 19155 (list 19156 (list 19157 1 19158 't_heal_potion 19159 ) 19160 ) 19161 ) 19162 ) ;; bind 19163 9 2) 19164 (list 19165 (bind 19166 (kern-mk-obj t_corpse 1 19167 ;; hooks 19168 (list 19169 ) 19170 ) 19171 (list 19172 (list 19173 (list 19174 1 19175 't_cure_potion 19176 ) 19177 (list 19178 1 19179 't_food 19180 ) 19181 ) 19182 ) 19183 ) ;; bind 19184 14 17) 19185 (list 19186 (bind 19187 (kern-mk-obj t_corpse 1 19188 ;; hooks 19189 (list 19190 ) 19191 ) 19192 (list 19193 (list 19194 (list 19195 1 19196 't_food 19197 ) 19198 (list 19199 2 19200 't_gold_coins 19201 ) 19202 (list 19203 4 19204 't_gold_coins 19205 ) 19206 ) 19207 ) 19208 ) ;; bind 19209 14 15) 19210 (list 19211 (bind 19212 (kern-mk-obj t_corpse 1 19213 ;; hooks 19214 (list 19215 ) 19216 ) 19217 (list 19218 (list 19219 (list 19220 4 19221 't_gold_coins 19222 ) 19223 (list 19224 3 19225 't_gold_coins 19226 ) 19227 (list 19228 1 19229 't_food 19230 ) 19231 ) 19232 ) 19233 ) ;; bind 19234 16 13) 19235 (list 19236 (bind 19237 (kern-mk-obj t_corpse 1 19238 ;; hooks 19239 (list 19240 ) 19241 ) 19242 (list 19243 (list 19244 (list 19245 2 19246 't_bolt 19247 ) 19248 (list 19249 1 19250 't_food 19251 ) 19252 (list 19253 1 19254 't_cure_potion 19255 ) 19256 ) 19257 ) 19258 ) ;; bind 19259 5 1) 19260 (list 19261 (bind 19262 (kern-mk-obj t_corpse 1 19263 ;; hooks 19264 (list 19265 ) 19266 ) 19267 (list 19268 (list 19269 (list 19270 5 19271 't_arrow 19272 ) 19273 ) 19274 ) 19275 ) ;; bind 19276 5 1) 19277 (list 19278 (bind 19279 (kern-mk-obj t_corpse 1 19280 ;; hooks 19281 (list 19282 ) 19283 ) 19284 (list 19285 (list 19286 (list 19287 1 19288 't_food 19289 ) 19290 (list 19291 2 19292 't_bolt 19293 ) 19294 (list 19295 1 19296 't_heal_potion 19297 ) 19298 ) 19299 ) 19300 ) ;; bind 19301 8 5) 19302 (list 19303 (bind 19304 (kern-mk-obj t_corpse 1 19305 ;; hooks 19306 (list 19307 ) 19308 ) 19309 (list 19310 (list 19311 (list 19312 1 19313 't_bolt 19314 ) 19315 (list 19316 3 19317 't_gold_coins 19318 ) 19319 ) 19320 ) 19321 ) ;; bind 19322 7 18) 19323 (list 19324 (bind 19325 (kern-mk-obj t_corpse 1 19326 ;; hooks 19327 (list 19328 ) 19329 ) 19330 (list 19331 (list 19332 (list 19333 3 19334 't_arrow 19335 ) 19336 (list 19337 1 19338 't_mana_potion 19339 ) 19340 (list 19341 2 19342 't_gold_coins 19343 ) 19344 ) 19345 ) 19346 ) ;; bind 19347 14 4) 19348 (list 19349 (bind 19350 (kern-mk-obj t_corpse 1 19351 ;; hooks 19352 (list 19353 ) 19354 ) 19355 (list 19356 (list 19357 (list 19358 1 19359 't_heal_potion 19360 ) 19361 ) 19362 ) 19363 ) ;; bind 19364 3 17) 19365 (list 19366 (bind 19367 (kern-mk-obj t_corpse 1 19368 ;; hooks 19369 (list 19370 ) 19371 ) 19372 (list 19373 (list 19374 (list 19375 1 19376 't_picklock 19377 ) 19378 ) 19379 ) 19380 ) ;; bind 19381 9 10) 19382 (list 19383 (bind 19384 (kern-mk-obj t_corpse 1 19385 ;; hooks 19386 (list 19387 ) 19388 ) 19389 (list 19390 (list 19391 (list 19392 1 19393 't_food 19394 ) 19395 ) 19396 ) 19397 ) ;; bind 19398 10 8) 19399 (list 19400 (bind 19401 (kern-mk-obj t_corpse 1 19402 ;; hooks 19403 (list 19404 ) 19405 ) 19406 (list 19407 (list 19408 (list 19409 1 19410 't_bolt 19411 ) 19412 ) 19413 ) 19414 ) ;; bind 19415 12 16) 19416 (list 19417 (bind 19418 (kern-mk-obj t_corpse 1 19419 ;; hooks 19420 (list 19421 ) 19422 ) 19423 (list 19424 (list 19425 (list 19426 5 19427 't_gold_coins 19428 ) 19429 (list 19430 1 19431 't_bolt 19432 ) 19433 ) 19434 ) 19435 ) ;; bind 19436 1 9) 19437 (list 19438 (bind 19439 (kern-mk-obj t_corpse 1 19440 ;; hooks 19441 (list 19442 ) 19443 ) 19444 (list 19445 (list 19446 (list 19447 4 19448 't_bolt 19449 ) 19450 ) 19451 ) 19452 ) ;; bind 19453 5 11) 19454 (list 19455 (bind 19456 (kern-mk-obj t_corpse 1 19457 ;; hooks 19458 (list 19459 ) 19460 ) 19461 (list 19462 (list 19463 (list 19464 1 19465 't_food 19466 ) 19467 ) 19468 ) 19469 ) ;; bind 19470 5 11) 19471 (list 19472 (bind 19473 (kern-mk-obj t_corpse 1 19474 ;; hooks 19475 (list 19476 ) 19477 ) 19478 (list 19479 (list 19480 (list 19481 1 19482 't_gold_coins 19483 ) 19484 ) 19485 ) 19486 ) ;; bind 19487 15 9) 19488 (list 19489 (bind 19490 (kern-mk-obj t_corpse 1 19491 ;; hooks 19492 (list 19493 ) 19494 ) 19495 (list 19496 (list 19497 (list 19498 1 19499 't_arrow 19500 ) 19501 ) 19502 ) 19503 ) ;; bind 19504 1 3) 19505 (list 19506 (bind 19507 (kern-mk-obj t_corpse 1 19508 ;; hooks 19509 (list 19510 ) 19511 ) 19512 (list 19513 (list 19514 (list 19515 1 19516 't_bolt 19517 ) 19518 ) 19519 ) 19520 ) ;; bind 19521 3 17) 19522 (list 19523 (bind 19524 (kern-mk-obj spider-egg-type 1 19525 ;; hooks 19526 (list 19527 ) 19528 ) 19529 (list 19530 10 19531 ) 19532 ) ;; bind 19533 6 12) 19534 (list 19535 (bind 19536 (kern-mk-obj spider-egg-type 1 19537 ;; hooks 19538 (list 19539 ) 19540 ) 19541 (list 19542 10 19543 ) 19544 ) ;; bind 19545 12 6) 19546 (list 19547 (bind 19548 (kern-mk-obj spider-egg-type 1 19549 ;; hooks 19550 (list 19551 ) 19552 ) 19553 (list 19554 10 19555 ) 19556 ) ;; bind 19557 10 10) 19558 (list 19559 (bind 19560 (kern-mk-obj spider-egg-type 1 19561 ;; hooks 19562 (list 19563 ) 19564 ) 19565 (list 19566 10 19567 ) 19568 ) ;; bind 19569 7 10) 19570 (list 19571 (bind 19572 (kern-mk-obj spider-egg-type 1 19573 ;; hooks 19574 (list 19575 ) 19576 ) 19577 (list 19578 10 19579 ) 19580 ) ;; bind 19581 10 11) 19582 (list 19583 (bind 19584 (kern-mk-obj spider-egg-type 1 19585 ;; hooks 19586 (list 19587 ) 19588 ) 19589 (list 19590 10 19591 ) 19592 ) ;; bind 19593 9 6) 19594 (list 19595 (bind 19596 (kern-mk-obj spider-egg-type 1 19597 ;; hooks 19598 (list 19599 ) 19600 ) 19601 (list 19602 10 19603 ) 19604 ) ;; bind 19605 6 8) 19606 (list 19607 (bind 19608 (kern-mk-obj spider-egg-type 1 19609 ;; hooks 19610 (list 19611 ) 19612 ) 19613 (list 19614 10 19615 ) 19616 ) ;; bind 19617 12 10) 19618 (list 19619 (bind 19620 (kern-mk-obj spider-egg-type 1 19621 ;; hooks 19622 (list 19623 ) 19624 ) 19625 (list 19626 10 19627 ) 19628 ) ;; bind 19629 11 9) 19630 (list 19631 (bind 19632 (kern-mk-obj spider-egg-type 1 19633 ;; hooks 19634 (list 19635 ) 19636 ) 19637 (list 19638 10 19639 ) 19640 ) ;; bind 19641 7 8) 19642 (list 19643 (bind 19644 (kern-mk-obj spider-egg-type 1 19645 ;; hooks 19646 (list 19647 ) 19648 ) 19649 (list 19650 10 19651 ) 19652 ) ;; bind 19653 7 7) 19654 (list 19655 (bind 19656 (kern-mk-obj spider-egg-type 1 19657 ;; hooks 19658 (list 19659 ) 19660 ) 19661 (list 19662 10 19663 ) 19664 ) ;; bind 19665 12 11) 19666 (list 19667 (bind 19668 (kern-mk-obj spider-egg-type 1 19669 ;; hooks 19670 (list 19671 ) 19672 ) 19673 (list 19674 10 19675 ) 19676 ) ;; bind 19677 11 6) 19678 (list 19679 (bind 19680 (kern-mk-obj spider-egg-type 1 19681 ;; hooks 19682 (list 19683 ) 19684 ) 19685 (list 19686 10 19687 ) 19688 ) ;; bind 19689 6 7) 19690 (list 19691 (bind 19692 (kern-mk-obj spider-egg-type 1 19693 ;; hooks 19694 (list 19695 ) 19696 ) 19697 (list 19698 10 19699 ) 19700 ) ;; bind 19701 8 10) 19702 (list 19703 (bind 19704 (kern-mk-obj spider-egg-type 1 19705 ;; hooks 19706 (list 19707 ) 19708 ) 19709 (list 19710 10 19711 ) 19712 ) ;; bind 19713 6 8) 19714 (list 19715 (bind 19716 (kern-mk-obj spider-egg-type 1 19717 ;; hooks 19718 (list 19719 ) 19720 ) 19721 (list 19722 10 19723 ) 19724 ) ;; bind 19725 8 8) 19726 (list 19727 (bind 19728 (kern-mk-obj spider-egg-type 1 19729 ;; hooks 19730 (list 19731 ) 19732 ) 19733 (list 19734 10 19735 ) 19736 ) ;; bind 19737 6 10) 19738 (list 19739 (bind 19740 (kern-mk-obj spider-egg-type 1 19741 ;; hooks 19742 (list 19743 ) 19744 ) 19745 (list 19746 10 19747 ) 19748 ) ;; bind 19749 9 9) 19750 (list 19751 (bind 19752 (kern-mk-obj spider-egg-type 1 19753 ;; hooks 19754 (list 19755 ) 19756 ) 19757 (list 19758 10 19759 ) 19760 ) ;; bind 19761 10 6) 19762 (list 19763 (bind 19764 (kern-mk-obj t_monman 1 19765 ;; hooks 19766 (list 19767 ) 19768 ) 19769 (list 19770 'monman 19771 (list 19772 0 19773 0 19774 0 19775 -1 19776 6 19777 -1 19778 ) 19779 ) 19780 ) ;; bind 19781 0 0) 19782 (list 19783 (bind 19784 (kern-char-force-drop (kern-mk-char 19785 'ch_angriss 19786 "Angriss" 19787 sp_queen_spider 19788 nil 19789 s_purple_spider 19790 7 19791 20 0 20 19792 10 5 19793 10 5 19794 138 0 19795 132 20 19796 #f ;; dead? 19797 'angriss-conv 19798 nil 19799 'angriss-ai 19800 (kern-mk-container 19801 t_chest 19802 ;; trap 19803 nil 19804 ;; contents 19805 (list 19806 (list 1 t_rune_f) 19807 ) 19808 ;; hooks 19809 (list 19810 ) 19811 ) 19812 nil 19813 ;; hooks 19814 (list 19815 ) 19816 ) 19817 #t) ;; kern-char-force-drop 19818 (list 19819 #f 19820 (list 19821 #f 19822 #f 19823 #f 19824 ) 19825 ) 19826 ) ;; bind 19827 9 9) 19828 (list 19829 (kern-mk-field f_web_perm -1) 9 6) 19830 (list 19831 (kern-mk-field f_web_perm -1) 10 6) 19832 (list 19833 (kern-mk-field f_web_perm -1) 7 7) 19834 (list 19835 (kern-mk-field f_web_perm -1) 8 7) 19836 (list 19837 (kern-mk-field f_web_perm -1) 9 7) 19838 (list 19839 (kern-mk-field f_web_perm -1) 10 7) 19840 (list 19841 (kern-mk-field f_web_perm -1) 11 7) 19842 (list 19843 (kern-mk-field f_web_perm -1) 6 8) 19844 ) ;; end of objects in p_angriss_throne_room 19845 (list ;; on-entry-hooks 19846 'on-entry-to-dungeon-room 19847 ) 19848 (list ;; edge entrances 19849 (list 0 18 18) ;; Northwest 19850 (list 1 9 18) ;; North 19851 (list 2 0 18) ;; Northeast 19852 (list 3 18 9) ;; West 19853 (list 4 9 9) ;; Here 19854 (list 5 0 9) ;; East 19855 (list 6 18 0) ;; Southwest 19856 (list 7 9 0) ;; South 19857 (list 8 0 0) ;; SoutheastUp 19858 ) 19859 ) ;; end of place p_angriss_throne_room 19860 19861 1) 19862 ) ;; end neighbors of p_spider_cave 19863 (list ;; objects in p_spider_cave 19864 (list 19865 (bind 19866 (kern-mk-obj t_corpse 1 19867 ;; hooks 19868 (list 19869 ) 19870 ) 19871 (list 19872 '() 19873 ) 19874 ) ;; bind 19875 17 4) 19876 (list 19877 (bind 19878 (kern-mk-obj spider-egg-type 1 19879 ;; hooks 19880 (list 19881 ) 19882 ) 19883 (list 19884 10 19885 ) 19886 ) ;; bind 19887 15 1) 19888 (list 19889 (bind 19890 (kern-mk-obj spider-egg-type 1 19891 ;; hooks 19892 (list 19893 ) 19894 ) 19895 (list 19896 10 19897 ) 19898 ) ;; bind 19899 12 3) 19900 (list 19901 (bind 19902 (kern-mk-obj spider-egg-type 1 19903 ;; hooks 19904 (list 19905 ) 19906 ) 19907 (list 19908 10 19909 ) 19910 ) ;; bind 19911 12 4) 19912 (list 19913 (bind 19914 (kern-mk-obj spider-egg-type 1 19915 ;; hooks 19916 (list 19917 ) 19918 ) 19919 (list 19920 10 19921 ) 19922 ) ;; bind 19923 16 6) 19924 (list 19925 (bind 19926 (kern-mk-obj spider-egg-type 1 19927 ;; hooks 19928 (list 19929 ) 19930 ) 19931 (list 19932 10 19933 ) 19934 ) ;; bind 19935 17 4) 19936 (list 19937 (kern-mk-field web-type 20) 15 1) 19938 (list 19939 (kern-mk-field web-type 20) 12 3) 19940 (list 19941 (kern-mk-field web-type 20) 12 4) 19942 (list 19943 (kern-mk-field web-type 20) 16 6) 19944 (list 19945 (kern-mk-field web-type 20) 17 4) 19946 (list 19947 (kern-mk-field web-type 20) 17 5) 19948 (list 19949 (kern-mk-field web-type 20) 15 6) 19950 (list 19951 (kern-mk-field web-type 20) 13 5) 19952 (list 19953 (kern-mk-obj t_gold_coins 52 19954 ;; hooks 19955 (list 19956 ) 19957 ) 19958 14 2) 19959 (list 19960 (kern-mk-obj t_gold_coins 34 19961 ;; hooks 19962 (list 19963 ) 19964 ) 19965 17 5) 19966 (list 19967 (kern-mk-obj t_bow 1 19968 ;; hooks 19969 (list 19970 ) 19971 ) 19972 15 6) 19973 (list 19974 (kern-mk-obj t_arrow 34 19975 ;; hooks 19976 (list 19977 ) 19978 ) 19979 13 5) 19980 (list 19981 (kern-mk-obj t_leather_helm 1 19982 ;; hooks 19983 (list 19984 ) 19985 ) 19986 16 2) 19987 (list 19988 (kern-mk-obj t_halberd 1 19989 ;; hooks 19990 (list 19991 ) 19992 ) 19993 12 3) 19994 (list 19995 (kern-mk-obj t_heal_potion 3 19996 ;; hooks 19997 (list 19998 ) 19999 ) 20000 15 1) 20001 (list 20002 (kern-mk-obj t_mana_potion 5 20003 ;; hooks 20004 (list 20005 ) 20006 ) 20007 16 6) 20008 (list 20009 (bind 20010 (kern-mk-obj t_monman 1 20011 ;; hooks 20012 (list 20013 ) 20014 ) 20015 (list 20016 'monman 20017 (list 20018 0 20019 0 20020 0 20021 -1 20022 6 20023 -1 20024 ) 20025 ) 20026 ) ;; bind 20027 0 0) 20028 (list 20029 (bind 20030 (kern-mk-obj t_ladder_up 1 20031 ;; hooks 20032 (list 20033 ) 20034 ) 20035 (list 20036 'p_angriss_lair 20037 6 20038 9 20039 ) 20040 ) ;; bind 20041 6 9) 20042 (list 20043 (bind 20044 (kern-mk-obj t_ladder_up 1 20045 ;; hooks 20046 (list 20047 ) 20048 ) 20049 (list 20050 'p_angriss_lair 20051 15 20052 4 20053 ) 20054 ) ;; bind 20055 15 4) 20056 (list 20057 (bind 20058 (kern-mk-obj t_spawn_pt 1 20059 ;; hooks 20060 (list 20061 ) 20062 ) 20063 (list 20064 'spawn-pt 20065 'queen-spider 20066 ) 20067 ) ;; bind 20068 9 0) 20069 (list 20070 (bind 20071 (kern-mk-obj t_spawn_pt 1 20072 ;; hooks 20073 (list 20074 ) 20075 ) 20076 (list 20077 'spawn-pt 20078 'queen-spider 20079 ) 20080 ) ;; bind 20081 15 15) 20082 (list 20083 (bind 20084 (kern-mk-obj t_spawn_pt 1 20085 ;; hooks 20086 (list 20087 ) 20088 ) 20089 (list 20090 'spawn-pt 20091 'queen-spider 20092 ) 20093 ) ;; bind 20094 1 17) 20095 (list 20096 (bind 20097 (kern-mk-obj t_corpse 1 20098 ;; hooks 20099 (list 20100 ) 20101 ) 20102 (list 20103 '() 20104 ) 20105 ) ;; bind 20106 15 1) 20107 (list 20108 (bind 20109 (kern-mk-obj t_corpse 1 20110 ;; hooks 20111 (list 20112 ) 20113 ) 20114 (list 20115 '() 20116 ) 20117 ) ;; bind 20118 12 3) 20119 (list 20120 (bind 20121 (kern-mk-obj t_corpse 1 20122 ;; hooks 20123 (list 20124 ) 20125 ) 20126 (list 20127 '() 20128 ) 20129 ) ;; bind 20130 12 4) 20131 (list 20132 (bind 20133 (kern-mk-obj t_corpse 1 20134 ;; hooks 20135 (list 20136 ) 20137 ) 20138 (list 20139 '() 20140 ) 20141 ) ;; bind 20142 16 6) 20143 ) ;; end of objects in p_spider_cave 20144 (list ;; on-entry-hooks 20145 'on-entry-to-dungeon-room 20146 ) 20147 (list ;; edge entrances 20148 (list 0 18 18) ;; Northwest 20149 (list 1 9 18) ;; North 20150 (list 2 0 18) ;; Northeast 20151 (list 3 18 9) ;; West 20152 (list 4 9 9) ;; Here 20153 (list 5 0 9) ;; East 20154 (list 6 18 0) ;; Southwest 20155 (list 7 9 0) ;; South 20156 (list 8 0 0) ;; SoutheastUp 20157 ) 20158) ;; end of place p_spider_cave 20159 20160p_angriss_throne_room 20161(kern-load "meaney.scm") 20162 20163(kern-load "amy.scm") 20164 20165(kern-mk-place 'p_poor_house "The Poor House" 20166 s_hamlet ;; sprite 20167 (kern-mk-map 20168 nil 19 19 pal_expanded 20169 (list 20170 ".. .. .. .. .. .. .. .. .. /7 .. bb bb bb bb bb bb bb ta " 20171 ".. /0 /d /d /d /d /d /d /d /a bb .. .. .. .. t3 tt t5 bb " 20172 ".. /7 .. .. .. .. .. .. .. .. bb .. .. .. .. te bb tt bb " 20173 ".. /7 .. rr rr rr rr rr rr bb rr .. .. .. .. t% tb tc bb " 20174 ".. /7 .. rr .P .O .O .R ]] rr .. .. .. .. .. .. .. .. bb " 20175 ".. /7 .. rr .H .O .U .S .E rr .. .. .. .. .. .. .. .. bb " 20176 ".. /7 .. ,, ,, ,, ,, ,, ,, rr rr rr ,, rr bb rr .. .. bb " 20177 ".. /7 .. bb ,, ,, ,, ,, ,, rr ,, ,, ,, ,, .. rr .. .. bb " 20178 ".. /7 .. rr ,, ,, ,, ,, ,, d, ,, ,, ,, ,, ,, rr bb bb .. " 20179 "/d /6 .. rr rr rr d, rr rr bb ,, ,, 00 ,, ,, ws .. /0 /d " 20180 ".. /7 .. rr ,, ,, ,, ,, ,, rr ,, ,, 00 ,, ,, rr .. /7 .. " 20181 ".. /7 .. rr ,, ,, ,, ,, ,, rr ,, ,, 00 ,, ,, rr .. /7 .. " 20182 ".. /7 .. ws ,, ,, ,, ,, ,, rr ,, ,, ,, ,, ,, rr .. /7 .. " 20183 ".. /7 .. rr ,, .. ,, ,, ,, rr ,, ,, ,, ,, ,, ws .. /7 .. " 20184 ".. /7 .. rr ,, ,, .. ,, ,, rr ,, bb && bb ,, rr .. /7 .. " 20185 ".. /7 .. rr rr rr bb rr rr rr rr rr rr rr rr rr .. /7 .. " 20186 ".. /7 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. /7 .. " 20187 ".. /8 /d /d /d /d /d /d /d /1 /d /d /d /d /d /d /d /a .. " 20188 ".. .. .. .. .. .. .. .. .. /7 .. .. .. .. .. .. .. .. .. " 20189 ) 20190 ) 20191 #f #f #f #f 20192 ;; subplaces 20193 nil 20194 nil ;; neighbors 20195 (list ;; objects in p_poor_house 20196 (list 20197 (bind 20198 (kern-mk-obj t_door 1 20199 ;; hooks 20200 (list 20201 ) 20202 ) 20203 (list 20204 #t 20205 4 20206 '() 20207 #f 20208 #f 20209 #f 20210 (list 20211 (list 20212 's_closed_solid_wood_door_in_stone 20213 #t 20214 5 20215 ) 20216 (list 20217 's_open_door_in_stone 20218 #f 20219 0 20220 ) 20221 (list 20222 's_locked_solid_wood_door_in_stone 20223 #t 20224 5 20225 ) 20226 (list 20227 's_magically_locked_solid_wood_door_in_stone 20228 #t 20229 5 20230 ) 20231 ) 20232 ) 20233 ) ;; bind 20234 3 6) 20235 (list 20236 (bind 20237 (kern-mk-obj t_door 1 20238 ;; hooks 20239 (list 20240 ) 20241 ) 20242 (list 20243 #t 20244 4 20245 '() 20246 #f 20247 #f 20248 #f 20249 (list 20250 (list 20251 's_closed_solid_wood_door_in_stone 20252 #t 20253 5 20254 ) 20255 (list 20256 's_open_door_in_stone 20257 #f 20258 0 20259 ) 20260 (list 20261 's_locked_solid_wood_door_in_stone 20262 #t 20263 5 20264 ) 20265 (list 20266 's_magically_locked_solid_wood_door_in_stone 20267 #t 20268 5 20269 ) 20270 ) 20271 ) 20272 ) ;; bind 20273 12 6) 20274 (list 20275 (kern-mk-container 20276 t_chest 20277 ;; trap 20278 nil 20279 ;; contents 20280 (list 20281 (list 1 t_food) 20282 ) 20283 ;; hooks 20284 (list 20285 ) 20286 ) 20287 10 14) 20288 (list 20289 (kern-mk-container 20290 t_chest 20291 ;; trap 20292 nil 20293 ;; contents 20294 (list 20295 (list 1 t_gold_coins) 20296 ) 20297 ;; hooks 20298 (list 20299 ) 20300 ) 20301 14 14) 20302 (list 20303 (bind 20304 (kern-mk-char 20305 nil 20306 "bull" 20307 sp_bull 20308 nil 20309 s_bull 20310 0 20311 0 0 0 20312 0 0 20313 0 0 20314 32 4096 20315 6 6 20316 #f ;; dead? 20317 nil 20318 nil 20319 'animal-ai 20320 (kern-mk-container 20321 t_chest 20322 ;; trap 20323 nil 20324 ;; contents 20325 nil 20326 ;; hooks 20327 (list 20328 ) 20329 ) 20330 nil 20331 ;; hooks 20332 (list 20333 ) 20334 ) 20335 (list 20336 'npcg 20337 'bull 20338 #f 20339 #f 20340 '() 20341 ) 20342 ) ;; bind 20343 16 3) 20344 (list 20345 (bind 20346 (kern-char-force-drop (kern-mk-char 20347 'ch_meaney 20348 "Meaney" 20349 sp_human 20350 nil 20351 s_companion_shepherd 20352 2 20353 0 0 0 20354 0 0 20355 0 0 20356 16 0 20357 8 6 20358 #f ;; dead? 20359 'meaney-conv 20360 sch_meaney 20361 nil 20362 (kern-mk-container 20363 t_chest 20364 ;; trap 20365 nil 20366 ;; contents 20367 (list 20368 (list 1 t_skull_ring) 20369 (list 1 t_dagger) 20370 ) 20371 ;; hooks 20372 (list 20373 ) 20374 ) 20375 nil 20376 ;; hooks 20377 (list 20378 ) 20379 ) 20380 #t) ;; kern-char-force-drop 20381 (list 20382 0 20383 ) 20384 ) ;; bind 20385 4 10) 20386 (list 20387 (kern-mk-obj t_bed 1 20388 ;; hooks 20389 (list 20390 ) 20391 ) 20392 4 10) 20393 (list 20394 (kern-mk-obj t_bed 1 20395 ;; hooks 20396 (list 20397 ) 20398 ) 20399 4 12) 20400 (list 20401 (kern-mk-obj t_bed 1 20402 ;; hooks 20403 (list 20404 ) 20405 ) 20406 4 14) 20407 (list 20408 (kern-mk-obj t_bed 1 20409 ;; hooks 20410 (list 20411 ) 20412 ) 20413 8 10) 20414 (list 20415 (kern-mk-obj t_bed 1 20416 ;; hooks 20417 (list 20418 ) 20419 ) 20420 8 12) 20421 (list 20422 (kern-mk-obj t_bed 1 20423 ;; hooks 20424 (list 20425 ) 20426 ) 20427 8 14) 20428 ) ;; end of objects in p_poor_house 20429 nil ;; on-entry-hook 20430 (list ;; edge entrances 20431 (list 0 18 18) ;; Northwest 20432 (list 1 9 18) ;; North 20433 (list 2 0 18) ;; Northeast 20434 (list 3 18 9) ;; West 20435 (list 4 9 9) ;; Here 20436 (list 5 0 9) ;; East 20437 (list 6 18 0) ;; Southwest 20438 (list 7 9 0) ;; South 20439 (list 8 0 0) ;; SoutheastUp 20440 ) 20441) ;; end of place p_poor_house 20442 20443(kern-load "gholet.scm") 20444 20445(kern-mk-place 'p_prison "Prison" 20446 s_hamlet ;; sprite 20447 (kern-mk-map 20448 nil 32 9 pal_expanded 20449 (list 20450 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 20451 "xx ,, ,, ,, xx xx xx xx xx ,, xx ,, xx xx xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx xx xx xx xx xx " 20452 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx xx xx xx xx xx " 20453 "xx ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx ee xx xx ,, xx xx xx ,, xx xx xx ,, xx xx xx ,, ,, ,, xx " 20454 "xx ,, ,, ,, xx xx ,, ,, ,, x! ,, ,, ,, ee ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 20455 "xx ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx ee xx xx ,, xx xx xx ,, xx xx xx ,, xx xx xx ,, ,, ,, xx " 20456 "xx ,, ,, ,, xx xx xx ,, ,, ,, ,, ,, xx xx xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx xx xx xx xx xx " 20457 "xx ,, ,, ,, xx xx xx xx xx ,, xx ,, xx xx xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx xx xx xx xx xx " 20458 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 20459 ) 20460 ) 20461 #f #t #f #f 20462 ;; subplaces 20463 nil 20464 nil ;; neighbors 20465 (list ;; objects in p_prison 20466 (list 20467 (bind 20468 (kern-mk-obj t_spawn_pt 1 20469 ;; hooks 20470 (list 20471 ) 20472 ) 20473 (list 20474 'spawn-pt 20475 'rat 20476 ) 20477 ) ;; bind 20478 1 3) 20479 (list 20480 (bind 20481 (kern-mk-obj t_spawn_pt 1 20482 ;; hooks 20483 (list 20484 ) 20485 ) 20486 (list 20487 'spawn-pt 20488 'rat 20489 ) 20490 ) ;; bind 20491 2 4) 20492 (list 20493 (bind 20494 (kern-mk-obj t_spawn_pt 1 20495 ;; hooks 20496 (list 20497 ) 20498 ) 20499 (list 20500 'spawn-pt 20501 'rat 20502 ) 20503 ) ;; bind 20504 3 7) 20505 (list 20506 (bind 20507 (kern-mk-obj t_spawn_pt 1 20508 ;; hooks 20509 (list 20510 ) 20511 ) 20512 (list 20513 'spawn-pt 20514 'rat 20515 ) 20516 ) ;; bind 20517 1 6) 20518 (list 20519 (bind 20520 (kern-mk-obj t_spawn_pt 1 20521 ;; hooks 20522 (list 20523 ) 20524 ) 20525 (list 20526 'spawn-pt 20527 'rat 20528 ) 20529 ) ;; bind 20530 4 2) 20531 (list 20532 (kern-tag 'pp1 20533 (bind 20534 (kern-mk-obj t_portcullis 1 20535 ;; hooks 20536 (list 20537 ) 20538 ) 20539 (list 20540 #f 20541 '() 20542 #f 20543 '() 20544 ) 20545 ) ;; bind 20546 ) ;; kern-tag 20547 12 4) 20548 (list 20549 (kern-tag 'pp2 20550 (bind 20551 (kern-mk-obj t_portcullis 1 20552 ;; hooks 20553 (list 20554 ) 20555 ) 20556 (list 20557 #f 20558 '() 20559 #f 20560 '() 20561 ) 20562 ) ;; bind 20563 ) ;; kern-tag 20564 14 4) 20565 (list 20566 (kern-mk-field f_energy_perm -1) 26 4) 20567 (list 20568 (kern-mk-field f_energy_perm -1) 28 3) 20569 (list 20570 (kern-mk-field f_energy_perm -1) 28 4) 20571 (list 20572 (kern-mk-field f_energy_perm -1) 28 5) 20573 (list 20574 (kern-mk-field f_energy_perm -1) 29 3) 20575 (list 20576 (kern-mk-field f_energy_perm -1) 29 5) 20577 (list 20578 (kern-mk-field f_energy_perm -1) 30 3) 20579 (list 20580 (kern-mk-field f_energy_perm -1) 30 4) 20581 (list 20582 (kern-mk-field f_energy_perm -1) 30 5) 20583 (list 20584 (bind 20585 (kern-mk-obj t_door 1 20586 ;; hooks 20587 (list 20588 ) 20589 ) 20590 (list 20591 #f 20592 0 20593 '() 20594 #f 20595 #t 20596 #f 20597 (list 20598 (list 20599 's_closed_windowed_wood_door_in_rock 20600 #f 20601 5 20602 ) 20603 (list 20604 's_open_door_in_rock 20605 #f 20606 0 20607 ) 20608 (list 20609 's_locked_windowed_wood_door_in_rock 20610 #f 20611 5 20612 ) 20613 (list 20614 's_magically_locked_windowed_wood_door_in_rock 20615 #f 20616 5 20617 ) 20618 ) 20619 ) 20620 ) ;; bind 20621 16 3) 20622 (list 20623 (bind 20624 (kern-mk-obj t_door 1 20625 ;; hooks 20626 (list 20627 ) 20628 ) 20629 (list 20630 #f 20631 0 20632 '() 20633 #f 20634 #t 20635 #f 20636 (list 20637 (list 20638 's_closed_windowed_wood_door_in_rock 20639 #f 20640 5 20641 ) 20642 (list 20643 's_open_door_in_rock 20644 #f 20645 0 20646 ) 20647 (list 20648 's_locked_windowed_wood_door_in_rock 20649 #f 20650 5 20651 ) 20652 (list 20653 's_magically_locked_windowed_wood_door_in_rock 20654 #f 20655 5 20656 ) 20657 ) 20658 ) 20659 ) ;; bind 20660 20 3) 20661 (list 20662 (bind 20663 (kern-mk-obj t_door 1 20664 ;; hooks 20665 (list 20666 ) 20667 ) 20668 (list 20669 #f 20670 0 20671 '() 20672 #f 20673 #t 20674 #f 20675 (list 20676 (list 20677 's_closed_windowed_wood_door_in_rock 20678 #f 20679 5 20680 ) 20681 (list 20682 's_open_door_in_rock 20683 #f 20684 0 20685 ) 20686 (list 20687 's_locked_windowed_wood_door_in_rock 20688 #f 20689 5 20690 ) 20691 (list 20692 's_magically_locked_windowed_wood_door_in_rock 20693 #f 20694 5 20695 ) 20696 ) 20697 ) 20698 ) ;; bind 20699 24 3) 20700 (list 20701 (bind 20702 (kern-mk-obj t_door 1 20703 ;; hooks 20704 (list 20705 ) 20706 ) 20707 (list 20708 #f 20709 0 20710 '() 20711 #f 20712 #t 20713 #f 20714 (list 20715 (list 20716 's_closed_windowed_wood_door_in_rock 20717 #f 20718 5 20719 ) 20720 (list 20721 's_open_door_in_rock 20722 #f 20723 0 20724 ) 20725 (list 20726 's_locked_windowed_wood_door_in_rock 20727 #f 20728 5 20729 ) 20730 (list 20731 's_magically_locked_windowed_wood_door_in_rock 20732 #f 20733 5 20734 ) 20735 ) 20736 ) 20737 ) ;; bind 20738 16 5) 20739 (list 20740 (bind 20741 (kern-mk-obj t_door 1 20742 ;; hooks 20743 (list 20744 ) 20745 ) 20746 (list 20747 #f 20748 0 20749 '() 20750 #f 20751 #t 20752 #f 20753 (list 20754 (list 20755 's_closed_windowed_wood_door_in_rock 20756 #f 20757 5 20758 ) 20759 (list 20760 's_open_door_in_rock 20761 #f 20762 0 20763 ) 20764 (list 20765 's_locked_windowed_wood_door_in_rock 20766 #f 20767 5 20768 ) 20769 (list 20770 's_magically_locked_windowed_wood_door_in_rock 20771 #f 20772 5 20773 ) 20774 ) 20775 ) 20776 ) ;; bind 20777 20 5) 20778 (list 20779 (bind 20780 (kern-mk-obj t_door 1 20781 ;; hooks 20782 (list 20783 ) 20784 ) 20785 (list 20786 #f 20787 0 20788 '() 20789 #f 20790 #t 20791 #f 20792 (list 20793 (list 20794 's_closed_windowed_wood_door_in_rock 20795 #f 20796 5 20797 ) 20798 (list 20799 's_open_door_in_rock 20800 #f 20801 0 20802 ) 20803 (list 20804 's_locked_windowed_wood_door_in_rock 20805 #f 20806 5 20807 ) 20808 (list 20809 's_magically_locked_windowed_wood_door_in_rock 20810 #f 20811 5 20812 ) 20813 ) 20814 ) 20815 ) ;; bind 20816 24 5) 20817 (list 20818 (bind 20819 (kern-mk-obj t_door 1 20820 ;; hooks 20821 (list 20822 ) 20823 ) 20824 (list 20825 #f 20826 0 20827 '() 20828 #f 20829 #t 20830 #f 20831 (list 20832 (list 20833 's_closed_solid_wood_door_in_stone 20834 #t 20835 5 20836 ) 20837 (list 20838 's_open_door_in_stone 20839 #f 20840 0 20841 ) 20842 (list 20843 's_locked_solid_wood_door_in_stone 20844 #t 20845 5 20846 ) 20847 (list 20848 's_magically_locked_solid_wood_door_in_stone 20849 #t 20850 5 20851 ) 20852 ) 20853 ) 20854 ) ;; bind 20855 27 4) 20856 (list 20857 (bind 20858 (kern-mk-obj t_lever 1 20859 ;; hooks 20860 (list 20861 ) 20862 ) 20863 (list 20864 #f 20865 'pp1 20866 #f 20867 '() 20868 ) 20869 ) ;; bind 20870 11 1) 20871 (list 20872 (bind 20873 (kern-mk-obj t_lever 1 20874 ;; hooks 20875 (list 20876 ) 20877 ) 20878 (list 20879 #f 20880 'pp2 20881 #f 20882 '() 20883 ) 20884 ) ;; bind 20885 11 7) 20886 (list 20887 (bind 20888 (kern-char-force-drop (kern-mk-char 20889 'ch_my 20890 "Gholet" 20891 sp_human 20892 nil 20893 s_brigand 20894 2 20895 0 0 0 20896 0 0 20897 0 0 20898 14 0 20899 6 4 20900 #f ;; dead? 20901 'gholet-conv 20902 nil 20903 nil 20904 (kern-mk-container 20905 t_chest 20906 ;; trap 20907 nil 20908 ;; contents 20909 (list 20910 (list 1 t_skull_ring) 20911 ) 20912 ;; hooks 20913 (list 20914 ) 20915 ) 20916 nil 20917 ;; hooks 20918 (list 20919 ) 20920 ) 20921 #t) ;; kern-char-force-drop 20922 '() 20923 ) ;; bind 20924 24 1) 20925 (list 20926 (bind 20927 (kern-mk-char 20928 nil 20929 "zorn" 20930 sp_zorn 20931 oc_wrogue 20932 s_zorn 20933 5 20934 0 0 0 20935 0 0 20936 0 0 20937 18 16384 20938 10 8 20939 #f ;; dead? 20940 nil 20941 nil 20942 'std-ai 20943 (kern-mk-container 20944 t_chest 20945 ;; trap 20946 'poison-trap 20947 ;; contents 20948 nil 20949 ;; hooks 20950 (list 20951 ) 20952 ) 20953 nil 20954 ;; hooks 20955 (list 20956 (list 20957 ef_loot_drop 20958 (list 20959 'loot-drop-gob 20960 'drop-generic 20961 (list 20962 (list 20963 (list 20964 100 20965 "1d20+9" 20966 't_gold_coins 20967 ) 20968 ) 20969 ) 20970 ) 20971 2 20972 0 20973 ) 20974 ) 20975 ) 20976 (list 20977 'npcg 20978 'zorn 20979 #f 20980 #f 20981 '() 20982 ) 20983 ) ;; bind 20984 29 4) 20985 (list 20986 (bind 20987 (kern-mk-char 20988 nil 20989 "footpad" 20990 sp_human 20991 oc_wrogue 20992 s_brigand 20993 8 20994 0 0 0 20995 0 0 20996 0 0 20997 18 16384 20998 10 8 20999 #f ;; dead? 21000 nil 21001 nil 21002 'std-ai 21003 (kern-mk-container 21004 t_chest 21005 ;; trap 21006 'self-destruct-trap 21007 ;; contents 21008 (list 21009 (list 5 t_gold_coins) 21010 (list 2 t_food) 21011 ) 21012 ;; hooks 21013 (list 21014 ) 21015 ) 21016 (list 21017 t_dagger 21018 ) 21019 ;; hooks 21020 (list 21021 (list 21022 ef_loot_drop 21023 (list 21024 'loot-drop-gob 21025 'drop-generic 21026 (list 21027 (list 21028 (list 21029 100 21030 "2d6-2" 21031 't_gold_coins 21032 ) 21033 (list 21034 50 21035 "1d5" 21036 't_food 21037 ) 21038 (list 21039 10 21040 "1d3" 21041 't_torch 21042 ) 21043 ) 21044 ) 21045 ) 21046 2 21047 0 21048 ) 21049 ) 21050 ) 21051 (list 21052 'npcg 21053 'footpad 21054 #f 21055 #f 21056 '() 21057 ) 21058 ) ;; bind 21059 16 7) 21060 (list 21061 (bind 21062 (kern-mk-obj t_guard_pt 1 21063 ;; hooks 21064 (list 21065 ) 21066 ) 21067 (list 21068 'spawn-pt 21069 'halberdier 21070 ) 21071 ) ;; bind 21072 9 1) 21073 (list 21074 (bind 21075 (kern-mk-obj t_guard_pt 1 21076 ;; hooks 21077 (list 21078 ) 21079 ) 21080 (list 21081 'spawn-pt 21082 'halberdier 21083 ) 21084 ) ;; bind 21085 9 7) 21086 (list 21087 (bind 21088 (kern-mk-obj t_monman 1 21089 ;; hooks 21090 (list 21091 ) 21092 ) 21093 (list 21094 'monman 21095 (list 21096 0 21097 0 21098 0 21099 -1 21100 6 21101 -1 21102 ) 21103 ) 21104 ) ;; bind 21105 0 0) 21106 (list 21107 (bind 21108 (kern-mk-obj t_ladder_up 1 21109 ;; hooks 21110 (list 21111 ) 21112 ) 21113 (list 21114 'p_glasdrin 21115 2 21116 2 21117 ) 21118 ) ;; bind 21119 6 4) 21120 (list 21121 (bind 21122 (kern-mk-obj t_door 1 21123 ;; hooks 21124 (list 21125 ) 21126 ) 21127 (list 21128 #f 21129 0 21130 '() 21131 #f 21132 #t 21133 #f 21134 (list 21135 (list 21136 's_closed_solid_wood_door_in_stone 21137 #t 21138 5 21139 ) 21140 (list 21141 's_open_door_in_stone 21142 #f 21143 0 21144 ) 21145 (list 21146 's_locked_solid_wood_door_in_stone 21147 #t 21148 5 21149 ) 21150 (list 21151 's_magically_locked_solid_wood_door_in_stone 21152 #t 21153 5 21154 ) 21155 ) 21156 ) 21157 ) ;; bind 21158 6 2) 21159 (list 21160 (kern-mk-container 21161 t_chest 21162 ;; trap 21163 'burn-trap 21164 ;; contents 21165 (list 21166 (list 10 t_food) 21167 ) 21168 ;; hooks 21169 (list 21170 ) 21171 ) 21172 1 1) 21173 (list 21174 (kern-mk-container 21175 t_chest 21176 ;; trap 21177 'burn-trap 21178 ;; contents 21179 (list 21180 (list 1 t_cure_potion) 21181 (list 1 t_heal_potion) 21182 ) 21183 ;; hooks 21184 (list 21185 ) 21186 ) 21187 2 1) 21188 (list 21189 (kern-mk-container 21190 t_chest 21191 ;; trap 21192 'burn-trap 21193 ;; contents 21194 (list 21195 (list 10 t_arrow) 21196 ) 21197 ;; hooks 21198 (list 21199 ) 21200 ) 21201 1 2) 21202 (list 21203 (kern-mk-container 21204 t_chest 21205 ;; trap 21206 'burn-trap 21207 ;; contents 21208 (list 21209 (list 10 t_bolt) 21210 ) 21211 ;; hooks 21212 (list 21213 ) 21214 ) 21215 2 7) 21216 (list 21217 (kern-mk-container 21218 t_chest 21219 ;; trap 21220 'burn-trap 21221 ;; contents 21222 (list 21223 (list 1 t_vas_mani_scroll) 21224 ) 21225 ;; hooks 21226 (list 21227 ) 21228 ) 21229 3 7) 21230 (list 21231 (kern-mk-container 21232 t_chest 21233 ;; trap 21234 'burn-trap 21235 ;; contents 21236 (list 21237 (list 10 sulphorous_ash) 21238 (list 5 garlic) 21239 (list 5 ginseng) 21240 ) 21241 ;; hooks 21242 (list 21243 ) 21244 ) 21245 3 6) 21246 (list 21247 (bind 21248 (kern-mk-obj t_spawn_pt 1 21249 ;; hooks 21250 (list 21251 ) 21252 ) 21253 (list 21254 'spawn-pt 21255 'rat 21256 ) 21257 ) ;; bind 21258 1 1) 21259 ) ;; end of objects in p_prison 21260 (list ;; on-entry-hooks 21261 'on-entry-to-dungeon-room 21262 ) 21263 (list ;; edge entrances 21264 (list 0 31 8) ;; Northwest 21265 (list 1 16 8) ;; North 21266 (list 2 0 8) ;; Northeast 21267 (list 3 31 4) ;; West 21268 (list 4 16 4) ;; Here 21269 (list 5 0 4) ;; East 21270 (list 6 31 0) ;; Southwest 21271 (list 7 16 0) ;; South 21272 (list 8 0 0) ;; SoutheastUp 21273 ) 21274) ;; end of place p_prison 21275 21276(kern-load "talking-ankh.scm") 21277 21278(kern-load "demon-gate.scm") 21279 21280(kern-load "nossifer.scm") 21281 21282(kern-load "nossifer.scm") 21283 21284(kern-load "nossifer.scm") 21285 21286(kern-load "nossifer.scm") 21287 21288(kern-load "nossifer.scm") 21289 21290(kern-load "nossifer.scm") 21291 21292(kern-load "nossifer.scm") 21293 21294(kern-load "nossifer.scm") 21295 21296(kern-load "nossifer.scm") 21297 21298(kern-load "nossifer.scm") 21299 21300(kern-mk-place 'p_ankh_shrine "Ankh Shrine" 21301 s_shrine ;; sprite 21302 (kern-mk-map 21303 nil 31 31 pal_expanded 21304 (list 21305 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21306 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21307 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21308 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21309 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21310 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21311 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21312 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21313 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21314 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21315 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21316 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21317 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21318 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21319 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21320 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21321 "rr rr rr rr rr rr rr rr rr rr ** ** ** ** ** ** ** ** ** rr rr rr rr rr rr rr rr rr rr rr rr " 21322 "rr rr rr rr rr rr rr rr rr ** ** ** ** ** ** ** ** ** ** ** rr rr rr rr rr rr rr rr rr rr rr " 21323 "rr rr rr rr rr rr rr rr rr ** ** xx xx xx xx xx xx xx ** ** rr rr rr rr rr rr rr rr rr rr rr " 21324 "rr rr rr rr rr rr rr rr rr ** ** xx pp ,, ,, ,, pp xx ** ** rr rr rr rr rr rr rr rr rr rr rr " 21325 "rr rr rr rr rr rr rr rr rr ** ** xx ,, cc cc cc ,, xx ** ** rr rr rr rr rr rr rr rr rr rr rr " 21326 "rr rr rr rr rr rr rr rr rr ** ** xx ,, cc cc cc ,, xx ** ** rr rr rr rr rr rr rr rr rr rr rr " 21327 "rr rr rr rr rr rr rr rr rr ** ** xx ,, cc cc cc ,, xx ** ** rr rr rr rr rr rr rr rr rr rr rr " 21328 "rr rr rr rr rr rr rr rr rr ** ** xx pp ,, cc ,, pp xx ** ** rr rr rr rr rr rr rr rr rr rr rr " 21329 "rr rr rr rr rr rr rr rr rr ** ** xx xx ,, cc ,, xx xx ** ** rr rr rr rr rr rr rr rr rr rr rr " 21330 "rr rr rr rr rr rr rr rr rr ** ** ** ** ,, cc ,, ** ** ** ** rr rr rr rr rr rr rr rr rr rr rr " 21331 "rr rr rr rr rr rr rr rr rr rr ** ** ** ,, cc ,, ** ** ** rr rr rr rr rr rr rr rr rr rr rr rr " 21332 "rr rr rr rr rr rr rr rr rr rr rr ** ** ,, cc ,, ** ** rr rr rr rr rr rr rr rr rr rr rr rr rr " 21333 "rr rr rr rr rr rr rr rr rr rr rr ** ** ,, cc ,, ** ** rr rr rr rr rr rr rr rr rr rr rr rr rr " 21334 "rr rr rr rr rr rr rr rr rr rr rr ** ** ,, cc ,, ** ** rr rr rr rr rr rr rr rr rr rr rr rr rr " 21335 "rr rr rr rr rr rr rr rr rr rr rr ** ** ,, cc ,, ** ** rr rr rr rr rr rr rr rr rr rr rr rr rr " 21336 ) 21337 ) 21338 #f #f #f #f 21339 ;; subplaces 21340 nil 21341 nil ;; neighbors 21342 (list ;; objects in p_ankh_shrine 21343 (list 21344 (bind 21345 (kern-mk-char 21346 'ch_ankh 21347 "Ankh" 21348 sp_statue 21349 nil 21350 s_ankh 21351 2 21352 0 0 0 21353 0 0 21354 0 0 21355 189 0 21356 9 9 21357 #f ;; dead? 21358 'ankh-conv 21359 nil 21360 'ankh-ai 21361 nil ;; inventory 21362 nil 21363 ;; hooks 21364 (list 21365 ) 21366 ) 21367 (list 21368 #f 21369 ) 21370 ) ;; bind 21371 14 21) 21372 (list 21373 (kern-tag 'demon-gate 21374 (bind 21375 (kern-mk-obj t_demon_gate 1 21376 ;; hooks 21377 (list 21378 ) 21379 ) 21380 (list 21381 8 21382 #f 21383 #f 21384 ) 21385 ) ;; bind 21386 ) ;; kern-tag 21387 0 0) 21388 ) ;; end of objects in p_ankh_shrine 21389 nil ;; on-entry-hook 21390 (list ;; edge entrances 21391 (list 0 30 30) ;; Northwest 21392 (list 1 14 30) ;; North 21393 (list 2 0 30) ;; Northeast 21394 (list 3 14 30) ;; West 21395 (list 4 15 15) ;; Here 21396 (list 5 14 30) ;; East 21397 (list 6 30 0) ;; Southwest 21398 (list 7 14 30) ;; South 21399 (list 8 0 0) ;; SoutheastUp 21400 ) 21401) ;; end of place p_ankh_shrine 21402 21403(kern-mk-place 'p_pools "Pools" 21404 nil ;; sprite 21405 (kern-mk-map 21406 nil 19 19 pal_expanded 21407 (list 21408 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 21409 "rr rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr " 21410 "rr -- -- rr rr .. .. .. .. .. .. .. %3 %% %% %5 .. .. rr " 21411 "rr -- -- rr rr .. .. .. .. .. .. %b %% ~3 ~5 %% %5 .. rr " 21412 "rr -- -- ~~ %5 .. .. .. .. .. .. ~C ~3 -- -- ~5 %% %5 rr " 21413 "rr rr ~~ ~c %% .. .. .. .. .. .. ~3 -- -- -- -- ~5 %% rr " 21414 "rr rr %a %% %c .. .. .. .. .. .. ~~ -- -- -- -- ~4 %% rr " 21415 "rr rr .. .. .. .. .. xx w+ d, ,, xx ~~ -- -- -- ~c %% rr " 21416 "rr .. .. .. .. .. .. rr ,, ,, ,, xx ~~ -- -- ~c %% %c rr " 21417 "rr .. %3 %% %% %5 .. w+ .. ,, ,, rr ~% ~a ~c %% %c rr rr " 21418 "rr %3 %% ~3 ~5 %% .. ,, ,, ,, ,, ,, .. %% %% %% .. .. rr " 21419 "rr %% ~3 -- ~c %% .. rr xx .. ,, rr .. %% ~7 %% %5 .. rr " 21420 "rr %% ~a ~c %% %c .. .. .. .. .. .. %3 ~3 -- ~5 %% .. rr " 21421 "rr %a %% %% %c .. .. .. .. .. %3 %% ~3 -- -- ~4 %% .. rr " 21422 "rr rr .. rr rr .. .. .. .. .. %% ~3 -- -- -- ~c %% .. rr " 21423 "rr rr rr rr rr .. .. .. .. .. %% ~a -- -- ~c %% %c .. rr " 21424 "rr rr rr rr .. .. .. .. .. .. %a %% ~a ~c %% %c .. rr rr " 21425 "rr rr rr rr rr .. .. rr rr .. .. %a %% %% %c .. .. rr rr " 21426 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21427 ) 21428 ) 21429 #f #t #f #f 21430 ;; subplaces 21431 nil 21432 (list 21433 (list 21434 (kern-mk-place 'p_deepness "The Deepness" 21435 nil ;; sprite 21436 (kern-mk-map 21437 nil 38 38 pal_expanded 21438 (list 21439 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr bb .. .. .. bb rr rr rr rr rr rr " 21440 "rr rr _3 _1 _1 _5 {{ {{ {{ {{ {{ {{ {{ {{ rr {{ rr rr rr bb %3 %% %% ~7 %% %% %5 .. .. .. .. .. %3 %% %% %% %5 rr " 21441 "rr _3 __ __ __ __ =| _1 _1 _5 rr rr rr {{ {{ {{ {{ {{ {{ {% %e bb %a ~e %% %% %% bb .. .. .. bb %% %% %% %% %% rr " 21442 "rr _a _8 _c rr _e {{ __ __ __ __ _5 rr rr rr {{ rr rr rr {{ {2 == .. bb %e bb %% %5 .. .. .. %3 %% bb %% bb %% rr " 21443 "rr {{ {{ rr rr rr {{ _2 __ __ __ __ ~~ ~1 ~1 ~1 ~5 rr rr ~7 .. ~6 .. .. .. .. ~7 %c .. .. .. %a %% %% %% %% %% rr " 21444 "rr {{ {{ {{ rr {{ {L __ __ __ __ ~8 ~8 ~8 ~~ ~~ ~~ ~~ ~~ b~ ~9 ~~ ~~ ~d .. .. == .. .. .. .. .. .. .. %e bb %% rr " 21445 "rr {{ rr {{ {{ {L _3 __ __ _c {G {{ {{ {{ {H -a ~~ ~~ ~~ ~~ %% b~ ~~ bb %7 bb ~6 %5 .. .. .. %3 %5 .. .. %b %% rr " 21446 "rr {{ {L _3 _1 __ __ __ __ {G {{ rr rr rr {{ {H ~~ ~~ ~~ ~~ ~~ ~~ ~~ %% %% %% ~6 %% %5 .. ~3 ~9 ~9 ~d .. bb %% rr " 21447 "rr {{ _3 __ __ __ __ __ _4 {{ rr rr {{ rr rr {{ ~2 ~~ ~~ ~~ ~~ ~~ ~~ ~9 ~1 ~9 ~c %% %% %% ~6 %% %% .. .. %b %% rr " 21448 "rr {{ _a __ __ __ __ __ _4 {{ rr {{ {{ {{ rr {{ ~2 ~~ -- ~~ ~~ b~ %% %% ~6 %% %% %% %% bb ~~ bb %% .. %7 bb %% rr " 21449 "rr {{ {H _a __ __ __ __ _c {{ rr {{ {{ {{ rr {{ ~2 -- __ -- ~~ ~~ ~5 %% ~6 %c bb ~3 ~1 ~9 ~8 ~9 ~9 =| ~9 ~9 ~9 ~~ " 21450 "rr {{ {{ {H _a _8 _8 _c {G {{ rr rr {{ rr rr {{ ~2 __ __ __ ~~ ~~ ~~ b~ ~~ bb %3 ~~ bb bb %% %% %% .. .. bb %e rr " 21451 "rr rr {{ {{ {{ {{ {{ {{ bb {{ {{ rr {{ {{ {{ {L ~~ -- __ -- ~~ ~~ ~~ ~~ -- ~~ ~~ ~~ ~~ ~5 %% %% %% %5 .. .. .. rr " 21452 "rr rr rr rr rr {1 rr {{ {{ {{ rr rr b~ ~1 ~1 ~~ ~~ ~~ -- ~~ ~~ ~~ ~~ ~~ __ __ ~~ b~ %% ~~ ~9 b~ ~9 ~d .. bb .. rr " 21453 "rr rr rr rr rr .. rr rr rr rr rr bb ~~ ~~ b~ ~~ ~~ ~8 ~8 ~8 ~8 ~8 ~~ ~~ __ __ ~~ ~~ ~~ %% %% %% %c .. .. .. .. rr " 21454 "rr rr rr rr {{ {2 .. rr rr rr bb ~3 ~~ b~ ~~ ~c {G {{ {{ {{ {{ {{ {H ~a ~~ ~~ ~~ ~~ ~~ ~d bb .. .. .. bb %7 .. rr " 21455 "rr rr rr rr {{ {2 .. rr rr rr b~ ~~ ~~ ~~ ~c {G {{ rr rr rr rr rr bb bb {H ~a ~~ -- ~~ %c .. .. .. .. %3 %% %5 rr " 21456 "rr rr {{ bb {1 .. .. bb rr bb ~~ ~~ ~~ ~~ {G {{ {{ rr .. .. .. rr .. .. bb {H ~~ -- ~4 bb .. .. .. bb %% ~7 %% rr " 21457 "rr {{ {{ {2 .. .. .. .. ~C ~3 ~~ -- -- ~4 {A {{ rr rr .. .. .. rr .. .. .. bb ~2 -- ~4 %d .. .. .. %b ~b ~~ ~d rr " 21458 "rr {{ bb .. .. .. bb ~C ~3 ~~ -- -- -- ~4 bb {{ rr && .. .. .. .. .. .. .. bb ~2 -- ~4 bb .. .. .. bb %% ~e %% rr " 21459 "rr {{ {2 .. .. .. .. ~b ~~ -- -- __ -- ~4 {# {{ rr rr .. .. .. rr .. .. .. bb ~2 -- ~4 %5 .. .. .. .. %a %% %c rr " 21460 "rr {{ bb .. .. .. bb ~% ~~ -- __ __ __ ~~ {J {{ {{ rr .. .. .. rr .. .. bb {L ~~ -- ~~ %% bb .. .. .. bb %e .. rr " 21461 "rr rr {{ {2 .. .. .. .. ~a -- -- __ -- -- ~5 {J {{ rr rr .. rr rr bb bb {L ~3 ~~ -- ~~ ~d .. .. .. .. .. .. .. rr " 21462 "rr rr rr bb .. .. .. bb {H ~~ -- __ __ -- ~~ b~ {J {{ {{ {6 {{ {{ {{ {L ~3 ~~ -- -- ~~ bb .. bb .. .. .. bb .. rr " 21463 "rr rr rr {{ {2 .. {4 {{ rr ~a -- -- __ -- -- ~~ ~~ ~1 ~1 ~1 ~5 {N ~3 ~~ ~~ -- -- -- ~~ b~ rr rr .. .. .. .. rr rr " 21464 "rr rr rr bb .. .. .. bb rr rr ~~ -- __ __ -- -- ~~ -- -- -- ~~ ~~ ~~ -- -- -- ~~ ~~ ~~ ~~ b~ rr rr rr .. .. rr rr " 21465 "rr rr rr {{ {2 .. {4 {{ rr ~b ~~ -- __ __ __ -- -- __ __ __ -- -- -- -- -- ~~ ~~ b~ ~~ ~~ ~~ ~~ ~5 rr .. .. rr rr " 21466 "rr rr {{ bb .. .. .. bb {{ {H ~~ -- -- -- __ __ __ __ __ __ __ -- -- ~~ ~~ ~~ b~ bb b~ ~~ ~~ b~ ~~ rr .. .. .. rr " 21467 "rr rr {{ {2 .. .. {4 {{ {{ {{ ~a ~8 ~8 ~~ -- -- -- __ __ __ -- -- ~~ ~~ b~ rr rr rr rr xx xx ~~ ~~ xx xx .. .. rr " 21468 "rr {{ bb .. .. .. bb {A {{ {{ {{ {{ {{ {H ~a ~8 ~~ -- -- -- ~~ ~8 ~c rr rr rr xx xx xx xx __ __ __ __ xx ,, xx xx " 21469 "rr {{ {2 .. .. .. .. bb {1 bb {{ {{ {{ {{ {{ {{ {H ~a ~8 ~c {G {{ {{ bb .. bb xx ,, ,, w+ __ __ __ __ w+ ,, ,, xx " 21470 "rr {{ bb .. .. .. .. .. .. .. {1 bb {1 bb {1 bb {1 bb .. bb {1 bb {1 .. .. .. ,, ,, ,, ,, ee ee ee ee ,, ,, ,, xx " 21471 "rr rr {{ {2 {8 .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. xx ,, ,, w+ __ __ __ __ w+ ,, ,, xx " 21472 "rr rr {{ bb {{ bb {8 bb .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. {8 bb xx xx xx xx __ __ __ __ xx xx xx xx " 21473 "rr rr rr rr rr {{ {{ {2 .. .. .. .. .. .. .. .. {8 .. {8 .. .. .. {8 bb {{ {{ xx xx xx __ __ __ __ __ __ xx xx xx " 21474 "rr rr rr rr rr {{ {{ bb .. .. .. bb {8 bb {8 bb {{ bb {{ bb {8 bb {{ {{ {{ rr xx xx xx __ __ __ __ __ __ xx xx xx " 21475 "rr rr rr rr {{ {{ {{ {2 .. .. .. {4 {{ {{ {{ rr rr rr rr {{ {{ {{ {{ rr rr rr xx xx xx xx __ __ __ __ xx xx xx xx " 21476 "rr rr {{ {{ {{ {{ {{ bb .. .. .. bb {{ {{ {{ {{ rr rr rr rr rr rr rr rr rr rr xx xx xx xx xx xx xx xx xx xx xx xx " 21477 ) 21478 ) 21479 #f #t #f #f 21480 ;; subplaces 21481 nil 21482 (list 21483 (list 21484 (kern-mk-place 'p_hydra_fen "Hydra Fen" 21485 nil ;; sprite 21486 (kern-mk-map 21487 nil 19 19 pal_expanded 21488 (list 21489 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 21490 "rr rr rr rr rr rr {{ {{ {{ {{ {{ {{ {{ rr rr rr rr rr rr " 21491 "rr rr rr rr rr {{ {{ {{ {{ {{ {{ {{ {{ {{ rr rr rr rr rr " 21492 "rr rr rr rr {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ rr rr rr rr " 21493 "rr rr rr {{ {{ {{ {{ {C %3 %% %5 {A {{ {{ {{ {{ rr rr rr " 21494 "rr rr {{ {{ {{ {C %3 %% %% %% %% %% %5 {A {{ {{ {{ rr rr " 21495 "rr {{ {{ {{ {C %3 %% %% %% %% %% %% %% %5 {A {{ {{ {{ rr " 21496 "rr {{ {{ {{ %3 %% %% %% %% %% %% %% %% %% %5 {{ {{ {{ rr " 21497 "rr {{ {{ {{ %% %% %% %% %% %% %% %% %% %% %% {{ {{ {{ rr " 21498 "rr {{ {{ {{ %% %% %% %% %% %% %% %% %% %% %% {{ {{ {{ rr " 21499 "rr {{ {{ {{ %% %% %% %% %% %% %% %% %% %% %% {{ {{ {{ rr " 21500 "rr {{ {{ {{ %% %% %% %% ee ee ee %% %% %% %c {{ {{ {{ rr " 21501 "rr {{ {{ {{ %a %% %% oo ee ee ee oo %% %% {# {{ {{ {{ rr " 21502 "rr rr {{ {{ {% %a %% %% ee ee ee %% %% %c {{ {{ {{ rr rr " 21503 "rr rr rr {{ {{ {% %e oo ee ee ee oo %e {# {{ {{ rr rr rr " 21504 "rr rr rr rr {{ {{ {{ {{ ee ee ee {{ {{ {{ {{ rr rr rr rr " 21505 "rr rr rr rr rr {{ {{ {{ {2 .. {4 {{ {{ {{ rr rr rr rr rr " 21506 "rr rr rr rr rr rr {{ {{ {2 .. {4 {{ {{ rr rr rr rr rr rr " 21507 "rr rr rr rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr " 21508 ) 21509 ) 21510 #f #t #f #f 21511 ;; subplaces 21512 nil 21513 nil ;; neighbors 21514 (list ;; objects in p_hydra_fen 21515 (list 21516 (bind 21517 (kern-mk-obj t_monman 1 21518 ;; hooks 21519 (list 21520 ) 21521 ) 21522 (list 21523 'monman 21524 (list 21525 0 21526 0 21527 0 21528 -1 21529 6 21530 -1 21531 ) 21532 ) 21533 ) ;; bind 21534 0 0) 21535 (list 21536 (bind 21537 (kern-mk-obj t_spawn_pt 1 21538 ;; hooks 21539 (list 21540 ) 21541 ) 21542 (list 21543 'spawn-pt 21544 'hydra 21545 ) 21546 ) ;; bind 21547 9 9) 21548 ) ;; end of objects in p_hydra_fen 21549 (list ;; on-entry-hooks 21550 'on-entry-to-dungeon-room 21551 ) 21552 (list ;; edge entrances 21553 (list 0 18 18) ;; Northwest 21554 (list 1 9 18) ;; North 21555 (list 2 0 18) ;; Northeast 21556 (list 3 18 9) ;; West 21557 (list 4 9 9) ;; Here 21558 (list 5 0 9) ;; East 21559 (list 6 18 0) ;; Southwest 21560 (list 7 9 0) ;; South 21561 (list 8 0 0) ;; SoutheastUp 21562 ) 21563 ) ;; end of place p_hydra_fen 21564 21565 1) 21566 ) ;; end neighbors of p_deepness 21567 (list ;; objects in p_deepness 21568 (list 21569 (bind 21570 (kern-mk-obj t_guard_pt 1 21571 ;; hooks 21572 (list 21573 ) 21574 ) 21575 (list 21576 'spawn-pt 21577 'headless 21578 ) 21579 ) ;; bind 21580 5 21) 21581 (list 21582 (bind 21583 (kern-mk-obj t_guard_pt 1 21584 ;; hooks 21585 (list 21586 ) 21587 ) 21588 (list 21589 'spawn-pt 21590 'headless 21591 ) 21592 ) ;; bind 21593 3 20) 21594 (list 21595 (bind 21596 (kern-mk-obj t_spawn_pt 1 21597 ;; hooks 21598 (list 21599 ) 21600 ) 21601 (list 21602 'spawn-pt 21603 'kraken 21604 ) 21605 ) ;; bind 21606 5 9) 21607 (list 21608 (bind 21609 (kern-mk-obj t_spawn_pt 1 21610 ;; hooks 21611 (list 21612 ) 21613 ) 21614 (list 21615 'spawn-pt 21616 'sea-serpent 21617 ) 21618 ) ;; bind 21619 18 11) 21620 (list 21621 (bind 21622 (kern-mk-obj t_step_pt 1 21623 ;; hooks 21624 (list 21625 ) 21626 ) 21627 (list 21628 'step-pt 21629 "A yellow slime oozes up!" 21630 (list 21631 0 21632 0 21633 0 21634 -1 21635 6 21636 -1 21637 ) 21638 (list 21639 (list 21640 'yellow-slime 21641 32 21642 11 21643 ) 21644 ) 21645 ) 21646 ) ;; bind 21647 33 10) 21648 (list 21649 (bind 21650 (kern-mk-obj t_step_pt 1 21651 ;; hooks 21652 (list 21653 ) 21654 ) 21655 (list 21656 'step-pt 21657 "A yellow slime oozes up!" 21658 (list 21659 0 21660 0 21661 0 21662 -1 21663 6 21664 -1 21665 ) 21666 (list 21667 (list 21668 'yellow-slime 21669 26 21670 3 21671 ) 21672 ) 21673 ) 21674 ) ;; bind 21675 26 5) 21676 (list 21677 (bind 21678 (kern-mk-obj t_step_trig 1 21679 ;; hooks 21680 (list 21681 (list 21682 ef_permanent_invisibility 21683 '() 21684 2 21685 0 21686 ) 21687 ) 21688 ) 21689 (list 21690 'spawn-kraken-lakes-sea-serpent 21691 '() 21692 ) 21693 ) ;; bind 21694 31 31) 21695 (list 21696 (bind 21697 (kern-mk-obj t_portcullis 1 21698 ;; hooks 21699 (list 21700 ) 21701 ) 21702 (list 21703 #f 21704 '() 21705 #f 21706 '() 21707 ) 21708 ) ;; bind 21709 31 28) 21710 (list 21711 (bind 21712 (kern-mk-obj t_portcullis 1 21713 ;; hooks 21714 (list 21715 ) 21716 ) 21717 (list 21718 #f 21719 '() 21720 #f 21721 '() 21722 ) 21723 ) ;; bind 21724 32 28) 21725 (list 21726 (bind 21727 (kern-mk-obj t_door 1 21728 ;; hooks 21729 (list 21730 ) 21731 ) 21732 (list 21733 #f 21734 0 21735 '() 21736 #f 21737 #f 21738 #f 21739 (list 21740 (list 21741 's_closed_solid_wood_door_in_stone 21742 #t 21743 5 21744 ) 21745 (list 21746 's_open_door_in_stone 21747 #f 21748 0 21749 ) 21750 (list 21751 's_locked_solid_wood_door_in_stone 21752 #t 21753 5 21754 ) 21755 (list 21756 's_magically_locked_solid_wood_door_in_stone 21757 #t 21758 5 21759 ) 21760 ) 21761 ) 21762 ) ;; bind 21763 26 31) 21764 (list 21765 (bind 21766 (kern-mk-obj t_door 1 21767 ;; hooks 21768 (list 21769 ) 21770 ) 21771 (list 21772 #f 21773 0 21774 '() 21775 #f 21776 #f 21777 #f 21778 (list 21779 (list 21780 's_closed_solid_wood_door_in_stone 21781 #t 21782 5 21783 ) 21784 (list 21785 's_open_door_in_stone 21786 #f 21787 0 21788 ) 21789 (list 21790 's_locked_solid_wood_door_in_stone 21791 #t 21792 5 21793 ) 21794 (list 21795 's_magically_locked_solid_wood_door_in_stone 21796 #t 21797 5 21798 ) 21799 ) 21800 ) 21801 ) ;; bind 21802 35 29) 21803 (list 21804 (bind 21805 (kern-mk-obj t_door 1 21806 ;; hooks 21807 (list 21808 ) 21809 ) 21810 (list 21811 #f 21812 0 21813 '() 21814 #f 21815 #f 21816 #f 21817 (list 21818 (list 21819 's_closed_windowed_wood_door_in_rock 21820 #f 21821 5 21822 ) 21823 (list 21824 's_open_door_in_rock 21825 #f 21826 0 21827 ) 21828 (list 21829 's_locked_windowed_wood_door_in_rock 21830 #f 21831 5 21832 ) 21833 (list 21834 's_magically_locked_windowed_wood_door_in_rock 21835 #f 21836 5 21837 ) 21838 ) 21839 ) 21840 ) ;; bind 21841 34 31) 21842 (list 21843 (bind 21844 (kern-mk-obj t_door 1 21845 ;; hooks 21846 (list 21847 ) 21848 ) 21849 (list 21850 #f 21851 0 21852 '() 21853 #f 21854 #f 21855 #f 21856 (list 21857 (list 21858 's_closed_windowed_wood_door_in_rock 21859 #f 21860 5 21861 ) 21862 (list 21863 's_open_door_in_rock 21864 #f 21865 0 21866 ) 21867 (list 21868 's_locked_windowed_wood_door_in_rock 21869 #f 21870 5 21871 ) 21872 (list 21873 's_magically_locked_windowed_wood_door_in_rock 21874 #f 21875 5 21876 ) 21877 ) 21878 ) 21879 ) ;; bind 21880 29 31) 21881 (list 21882 (bind 21883 (kern-mk-obj t_ladder_down 1 21884 ;; hooks 21885 (list 21886 ) 21887 ) 21888 (list 21889 'p_lost_garrison 21890 11 21891 11 21892 ) 21893 ) ;; bind 21894 12 9) 21895 (list 21896 (bind 21897 (kern-mk-obj t_monman 1 21898 ;; hooks 21899 (list 21900 ) 21901 ) 21902 (list 21903 'monman 21904 (list 21905 0 21906 0 21907 0 21908 -1 21909 6 21910 -1 21911 ) 21912 ) 21913 ) ;; bind 21914 0 0) 21915 (list 21916 (bind 21917 (kern-mk-obj t_guard_pt 1 21918 ;; hooks 21919 (list 21920 ) 21921 ) 21922 (list 21923 'spawn-pt 21924 'headless 21925 ) 21926 ) ;; bind 21927 3 22) 21928 (list 21929 (bind 21930 (kern-mk-obj t_guard_pt 1 21931 ;; hooks 21932 (list 21933 ) 21934 ) 21935 (list 21936 'spawn-pt 21937 'headless 21938 ) 21939 ) ;; bind 21940 7 22) 21941 ) ;; end of objects in p_deepness 21942 (list ;; on-entry-hooks 21943 'on-entry-to-dungeon-room 21944 ) 21945 (list ;; edge entrances 21946 (list 0 37 37) ;; Northwest 21947 (list 1 9 37) ;; North 21948 (list 2 0 37) ;; Northeast 21949 (list 3 37 19) ;; West 21950 (list 4 19 19) ;; Here 21951 (list 5 0 19) ;; East 21952 (list 6 37 0) ;; Southwest 21953 (list 7 29 0) ;; South 21954 (list 8 0 0) ;; SoutheastUp 21955 ) 21956 ) ;; end of place p_deepness 21957 21958 1) 21959 ) ;; end neighbors of p_pools 21960 (list ;; objects in p_pools 21961 (list 21962 (bind 21963 (kern-mk-obj t_spawn_pt 1 21964 ;; hooks 21965 (list 21966 ) 21967 ) 21968 (list 21969 'spawn-pt 21970 'yellow-slime 21971 ) 21972 ) ;; bind 21973 4 6) 21974 (list 21975 (bind 21976 (kern-mk-obj t_spawn_pt 1 21977 ;; hooks 21978 (list 21979 ) 21980 ) 21981 (list 21982 'spawn-pt 21983 'yellow-slime 21984 ) 21985 ) ;; bind 21986 10 13) 21987 (list 21988 (bind 21989 (kern-mk-obj t_monman 1 21990 ;; hooks 21991 (list 21992 ) 21993 ) 21994 (list 21995 'monman 21996 (list 21997 0 21998 0 21999 0 22000 -1 22001 6 22002 -1 22003 ) 22004 ) 22005 ) ;; bind 22006 0 0) 22007 (list 22008 (bind 22009 (kern-mk-obj t_door 1 22010 ;; hooks 22011 (list 22012 ) 22013 ) 22014 (list 22015 #f 22016 0 22017 '() 22018 #f 22019 #f 22020 #f 22021 (list 22022 (list 22023 's_closed_solid_wood_door_in_stone 22024 #t 22025 5 22026 ) 22027 (list 22028 's_open_door_in_stone 22029 #f 22030 0 22031 ) 22032 (list 22033 's_locked_solid_wood_door_in_stone 22034 #t 22035 5 22036 ) 22037 (list 22038 's_magically_locked_solid_wood_door_in_stone 22039 #t 22040 5 22041 ) 22042 ) 22043 ) 22044 ) ;; bind 22045 9 7) 22046 (list 22047 (bind 22048 (kern-mk-obj t_ladder_up 1 22049 ;; hooks 22050 (list 22051 ) 22052 ) 22053 (list 22054 'p_great_hall 22055 9 22056 6 22057 ) 22058 ) ;; bind 22059 9 9) 22060 (list 22061 (bind 22062 (kern-mk-obj t_spawn_pt 1 22063 ;; hooks 22064 (list 22065 ) 22066 ) 22067 (list 22068 'spawn-pt 22069 'yellow-slime 22070 ) 22071 ) ;; bind 22072 11 3) 22073 ) ;; end of objects in p_pools 22074 (list ;; on-entry-hooks 22075 'on-entry-to-dungeon-room 22076 ) 22077 (list ;; edge entrances 22078 (list 0 18 18) ;; Northwest 22079 (list 1 9 18) ;; North 22080 (list 2 0 18) ;; Northeast 22081 (list 3 18 9) ;; West 22082 (list 4 9 9) ;; Here 22083 (list 5 0 9) ;; East 22084 (list 6 18 0) ;; Southwest 22085 (list 7 9 0) ;; South 22086 (list 8 0 0) ;; SoutheastUp 22087 ) 22088) ;; end of place p_pools 22089 22090p_deepness 22091p_hydra_fen 22092(kern-mk-place 'p_lost_garrison "Deep Fortress" 22093 nil ;; sprite 22094 (kern-mk-map 22095 nil 38 38 pal_expanded 22096 (list 22097 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 22098 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 22099 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr xx xx xx rr rr rr xx xx xx rr rr rr xx xx rr rr rr xx xx rr rr rr " 22100 "rr rr rr xx xx xx w+ xx ,, x! ,, xx w+ xx xx xx xx xx rr x! xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx rr rr " 22101 "rr .. rr xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 22102 ".. .. .. rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, .. ,, ,, xx ,, ,, ,, xx ,, ,, xx ,, xx ,, ,, xx xx rr rr " 22103 ".. .. .. w+ ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, rr xx xx x! ,, x! xx xx xx xx rr rr " 22104 ".. .. .. xx ,, ,, .. ,, ,, ,, .. bb ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 22105 ".. .. .. ,, ,, ,, ,, ,, ,, ,, ,, .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, xx ,, xx ,, ,, xx rr rr rr " 22106 ".. .. .. x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, ,, x! ,, ,, ,, xx xx xx xx ,, xx xx xx xx rr rr rr " 22107 ".. .. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx xx rr rr " 22108 ".. .. .. xx ,, ,, bb ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx xx rr rr " 22109 ".. .. .. w+ ,, ,, ,, ,, ,, ,, ,, ,, .. ,, ,, w+ ,, ,, ,, ,, ,, ,, w+ ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx rr rr " 22110 ".. .. .. xx ,, ,, ,, ,, ,, .. ,, ,, bb ,, ,, xx ,, ,, ,, ,, ,, .. xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 22111 "rr rr .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, .. .. .. xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 22112 "rr rr xx xx xx xx w+ w+ x! w+ x! w+ w+ xx xx xx xx xx xx x! xx xx xx ,, ,, ,, x! ,, [[ @@ @@ @@ ]] ,, x! xx rr rr " 22113 "rr rr xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx rr xx xx rr xx xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 22114 "rr rr rr rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, bb rr rr rr rr rr rr xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 22115 "rr rr rr x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! rr rr rr rr rr rr xx ,, ,, ,, xx xx xx xx xx xx xx xx xx xx rr rr " 22116 "rr rr xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr rr rr xx ,, ,, ,, xx [[ .M .E .D .I .K ]] xx xx rr rr " 22117 "rr rr xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx rr rr rr rr rr rr rr ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 22118 "rr rr rr xx xx rr xx rr xx xx xx xx ,, ,, ,, xx xx rr rr xx xx xx rr ,, ,, ,, x! ,, ,, ,, ,, ,, ,, ,, x! rr rr rr " 22119 "rr rr rr xx ,, ,, ,, [[ @@ @@ ]] xx ,, ,, ,, x! xx xx x! xx xx xx x! ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, bb rr rr rr " 22120 "rr rr rr xx 00 ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx rr rr rr " 22121 "rr rr xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx rr rr " 22122 "rr rr rr xx ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, xx xx rr rr " 22123 "rr rr xx xx xx xx xx xx x! xx xx xx xx xx xx ,, ,, xx xx xx xx ,, ,, xx xx xx xx xx xx xx xx xx rr xx xx rr rr rr " 22124 "rr rr xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, 00 xx rr rr rr " 22125 "rr rr rr xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, && xx xx rr rr " 22126 "rr rr rr rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, [[ @@ @@ @@ @@ @@ @@ @@ @@ ]] ,, ,, ,, 00 xx xx rr rr " 22127 "rr rr rr rr .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, && xx rr rr rr " 22128 "rr rr rr xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, 00 xx rr rr rr " 22129 "rr rr xx rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr ,, [[ @@ @@ @@ @@ @@ @@ @@ @@ ]] ,, ,, ,, && xx xx rr rr " 22130 "rr rr xx bb ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, 00 xx xx xx rr " 22131 "rr rr xx xx xx xx xx xx xx xx xx rr xx xx xx xx xx xx xx xx xx x! xx xx xx xx xx x! xx xx xx xx xx xx xx xx rr rr " 22132 "rr rr rr xx rr xx xx xx rr rr xx xx xx xx rr rr rr xx xx xx xx xx rr xx rr xx rr xx xx rr xx xx rr rr xx rr rr rr " 22133 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 22134 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 22135 ) 22136 ) 22137 #f #t #f #f 22138 ;; subplaces 22139 nil 22140 nil ;; neighbors 22141 (list ;; objects in p_lost_garrison 22142 (list 22143 (bind 22144 (kern-mk-obj t_door 1 22145 ;; hooks 22146 (list 22147 ) 22148 ) 22149 (list 22150 #f 22151 0 22152 '() 22153 #f 22154 #t 22155 #f 22156 (list 22157 (list 22158 's_closed_solid_wood_door_in_stone 22159 #t 22160 5 22161 ) 22162 (list 22163 's_open_door_in_stone 22164 #f 22165 0 22166 ) 22167 (list 22168 's_locked_solid_wood_door_in_stone 22169 #t 22170 5 22171 ) 22172 (list 22173 's_magically_locked_solid_wood_door_in_stone 22174 #t 22175 5 22176 ) 22177 ) 22178 ) 22179 ) ;; bind 22180 29 4) 22181 (list 22182 (bind 22183 (kern-mk-obj t_door 1 22184 ;; hooks 22185 (list 22186 ) 22187 ) 22188 (list 22189 #f 22190 0 22191 '() 22192 #f 22193 #f 22194 #f 22195 (list 22196 (list 22197 's_closed_solid_wood_door_in_stone 22198 #t 22199 5 22200 ) 22201 (list 22202 's_open_door_in_stone 22203 #f 22204 0 22205 ) 22206 (list 22207 's_locked_solid_wood_door_in_stone 22208 #t 22209 5 22210 ) 22211 (list 22212 's_magically_locked_solid_wood_door_in_stone 22213 #t 22214 5 22215 ) 22216 ) 22217 ) 22218 ) ;; bind 22219 29 7) 22220 (list 22221 (bind 22222 (kern-mk-obj t_door 1 22223 ;; hooks 22224 (list 22225 ) 22226 ) 22227 (list 22228 #f 22229 0 22230 '() 22231 #f 22232 #f 22233 #f 22234 (list 22235 (list 22236 's_closed_solid_wood_door_in_stone 22237 #t 22238 5 22239 ) 22240 (list 22241 's_open_door_in_stone 22242 #f 22243 0 22244 ) 22245 (list 22246 's_locked_solid_wood_door_in_stone 22247 #t 22248 5 22249 ) 22250 (list 22251 's_magically_locked_solid_wood_door_in_stone 22252 #t 22253 5 22254 ) 22255 ) 22256 ) 22257 ) ;; bind 22258 31 4) 22259 (list 22260 (bind 22261 (kern-mk-obj t_door 1 22262 ;; hooks 22263 (list 22264 ) 22265 ) 22266 (list 22267 #f 22268 0 22269 '() 22270 #f 22271 #t 22272 #f 22273 (list 22274 (list 22275 's_closed_solid_wood_door_in_stone 22276 #t 22277 5 22278 ) 22279 (list 22280 's_open_door_in_stone 22281 #f 22282 0 22283 ) 22284 (list 22285 's_locked_solid_wood_door_in_stone 22286 #t 22287 5 22288 ) 22289 (list 22290 's_magically_locked_solid_wood_door_in_stone 22291 #t 22292 5 22293 ) 22294 ) 22295 ) 22296 ) ;; bind 22297 31 7) 22298 (list 22299 (bind 22300 (kern-mk-obj t_door 1 22301 ;; hooks 22302 (list 22303 ) 22304 ) 22305 (list 22306 #f 22307 0 22308 '() 22309 #f 22310 #f 22311 #f 22312 (list 22313 (list 22314 's_closed_solid_wood_door_in_stone 22315 #t 22316 5 22317 ) 22318 (list 22319 's_open_door_in_stone 22320 #f 22321 0 22322 ) 22323 (list 22324 's_locked_solid_wood_door_in_stone 22325 #t 22326 5 22327 ) 22328 (list 22329 's_magically_locked_solid_wood_door_in_stone 22330 #t 22331 5 22332 ) 22333 ) 22334 ) 22335 ) ;; bind 22336 26 12) 22337 (list 22338 (bind 22339 (kern-mk-obj t_door 1 22340 ;; hooks 22341 (list 22342 ) 22343 ) 22344 (list 22345 #f 22346 0 22347 '() 22348 #f 22349 #f 22350 #f 22351 (list 22352 (list 22353 's_closed_solid_wood_door_in_stone 22354 #t 22355 5 22356 ) 22357 (list 22358 's_open_door_in_stone 22359 #f 22360 0 22361 ) 22362 (list 22363 's_locked_solid_wood_door_in_stone 22364 #t 22365 5 22366 ) 22367 (list 22368 's_magically_locked_solid_wood_door_in_stone 22369 #t 22370 5 22371 ) 22372 ) 22373 ) 22374 ) ;; bind 22375 26 24) 22376 (list 22377 (bind 22378 (kern-mk-obj t_door 1 22379 ;; hooks 22380 (list 22381 ) 22382 ) 22383 (list 22384 #f 22385 0 22386 '() 22387 #f 22388 #f 22389 #f 22390 (list 22391 (list 22392 's_closed_solid_wood_door_in_stone 22393 #t 22394 5 22395 ) 22396 (list 22397 's_open_door_in_stone 22398 #f 22399 0 22400 ) 22401 (list 22402 's_locked_solid_wood_door_in_stone 22403 #t 22404 5 22405 ) 22406 (list 22407 's_magically_locked_solid_wood_door_in_stone 22408 #t 22409 5 22410 ) 22411 ) 22412 ) 22413 ) ;; bind 22414 21 26) 22415 (list 22416 (bind 22417 (kern-mk-obj t_door 1 22418 ;; hooks 22419 (list 22420 ) 22421 ) 22422 (list 22423 #f 22424 0 22425 '() 22426 #f 22427 #f 22428 #f 22429 (list 22430 (list 22431 's_closed_solid_wood_door_in_stone 22432 #t 22433 5 22434 ) 22435 (list 22436 's_open_door_in_stone 22437 #f 22438 0 22439 ) 22440 (list 22441 's_locked_solid_wood_door_in_stone 22442 #t 22443 5 22444 ) 22445 (list 22446 's_magically_locked_solid_wood_door_in_stone 22447 #t 22448 5 22449 ) 22450 ) 22451 ) 22452 ) ;; bind 22453 22 26) 22454 (list 22455 (bind 22456 (kern-mk-obj t_door 1 22457 ;; hooks 22458 (list 22459 ) 22460 ) 22461 (list 22462 #f 22463 0 22464 '() 22465 #f 22466 #f 22467 #f 22468 (list 22469 (list 22470 's_closed_solid_wood_door_in_stone 22471 #t 22472 5 22473 ) 22474 (list 22475 's_open_door_in_stone 22476 #f 22477 0 22478 ) 22479 (list 22480 's_locked_solid_wood_door_in_stone 22481 #t 22482 5 22483 ) 22484 (list 22485 's_magically_locked_solid_wood_door_in_stone 22486 #t 22487 5 22488 ) 22489 ) 22490 ) 22491 ) ;; bind 22492 15 26) 22493 (list 22494 (bind 22495 (kern-mk-obj t_door 1 22496 ;; hooks 22497 (list 22498 ) 22499 ) 22500 (list 22501 #f 22502 0 22503 '() 22504 #f 22505 #f 22506 #f 22507 (list 22508 (list 22509 's_closed_solid_wood_door_in_stone 22510 #t 22511 5 22512 ) 22513 (list 22514 's_open_door_in_stone 22515 #f 22516 0 22517 ) 22518 (list 22519 's_locked_solid_wood_door_in_stone 22520 #t 22521 5 22522 ) 22523 (list 22524 's_magically_locked_solid_wood_door_in_stone 22525 #t 22526 5 22527 ) 22528 ) 22529 ) 22530 ) ;; bind 22531 16 26) 22532 (list 22533 (bind 22534 (kern-mk-obj t_door 1 22535 ;; hooks 22536 (list 22537 ) 22538 ) 22539 (list 22540 #f 22541 0 22542 '() 22543 #f 22544 #f 22545 #f 22546 (list 22547 (list 22548 's_closed_solid_wood_door_in_stone 22549 #t 22550 5 22551 ) 22552 (list 22553 's_open_door_in_stone 22554 #f 22555 0 22556 ) 22557 (list 22558 's_locked_solid_wood_door_in_stone 22559 #t 22560 5 22561 ) 22562 (list 22563 's_magically_locked_solid_wood_door_in_stone 22564 #t 22565 5 22566 ) 22567 ) 22568 ) 22569 ) ;; bind 22570 11 24) 22571 (list 22572 (bind 22573 (kern-mk-obj t_lever 1 22574 ;; hooks 22575 (list 22576 ) 22577 ) 22578 (list 22579 #f 22580 'edwp2 22581 #f 22582 '() 22583 ) 22584 ) ;; bind 22585 4 17) 22586 (list 22587 (bind 22588 (kern-mk-obj t_lever 1 22589 ;; hooks 22590 (list 22591 ) 22592 ) 22593 (list 22594 #t 22595 'ednp2 22596 #f 22597 '() 22598 ) 22599 ) ;; bind 22600 4 16) 22601 (list 22602 (bind 22603 (kern-mk-obj t_lever 1 22604 ;; hooks 22605 (list 22606 ) 22607 ) 22608 (list 22609 #t 22610 'ede1p2 22611 #f 22612 '() 22613 ) 22614 ) ;; bind 22615 14 16) 22616 (list 22617 (bind 22618 (kern-mk-obj t_lever 1 22619 ;; hooks 22620 (list 22621 ) 22622 ) 22623 (list 22624 #t 22625 'ede2p2 22626 #f 22627 '() 22628 ) 22629 ) ;; bind 22630 25 4) 22631 (list 22632 (kern-mk-obj t_bed 1 22633 ;; hooks 22634 (list 22635 ) 22636 ) 22637 4 25) 22638 (list 22639 (kern-mk-obj t_bed 1 22640 ;; hooks 22641 (list 22642 ) 22643 ) 22644 5 28) 22645 (list 22646 (kern-mk-obj t_bed 1 22647 ;; hooks 22648 (list 22649 ) 22650 ) 22651 8 28) 22652 (list 22653 (kern-mk-obj t_bed 1 22654 ;; hooks 22655 (list 22656 ) 22657 ) 22658 11 28) 22659 (list 22660 (kern-mk-obj t_bed 1 22661 ;; hooks 22662 (list 22663 ) 22664 ) 22665 14 28) 22666 (list 22667 (kern-mk-obj t_bed 1 22668 ;; hooks 22669 (list 22670 ) 22671 ) 22672 17 28) 22673 (list 22674 (kern-mk-obj t_bed 1 22675 ;; hooks 22676 (list 22677 ) 22678 ) 22679 5 30) 22680 (list 22681 (kern-mk-obj t_bed 1 22682 ;; hooks 22683 (list 22684 ) 22685 ) 22686 8 30) 22687 (list 22688 (kern-mk-obj t_bed 1 22689 ;; hooks 22690 (list 22691 ) 22692 ) 22693 11 30) 22694 (list 22695 (kern-mk-obj t_bed 1 22696 ;; hooks 22697 (list 22698 ) 22699 ) 22700 14 30) 22701 (list 22702 (kern-mk-obj t_bed 1 22703 ;; hooks 22704 (list 22705 ) 22706 ) 22707 17 30) 22708 (list 22709 (kern-mk-obj t_bed 1 22710 ;; hooks 22711 (list 22712 ) 22713 ) 22714 5 32) 22715 (list 22716 (kern-mk-obj t_bed 1 22717 ;; hooks 22718 (list 22719 ) 22720 ) 22721 8 32) 22722 (list 22723 (kern-mk-obj t_bed 1 22724 ;; hooks 22725 (list 22726 ) 22727 ) 22728 11 32) 22729 (list 22730 (kern-mk-obj t_bed 1 22731 ;; hooks 22732 (list 22733 ) 22734 ) 22735 14 32) 22736 (list 22737 (kern-mk-obj t_bed 1 22738 ;; hooks 22739 (list 22740 ) 22741 ) 22742 17 32) 22743 (list 22744 (kern-mk-obj t_bed 1 22745 ;; hooks 22746 (list 22747 ) 22748 ) 22749 28 21) 22750 (list 22751 (kern-mk-obj t_bed 1 22752 ;; hooks 22753 (list 22754 ) 22755 ) 22756 32 24) 22757 (list 22758 (kern-mk-obj t_bed 1 22759 ;; hooks 22760 (list 22761 ) 22762 ) 22763 30 24) 22764 (list 22765 (kern-mk-obj t_bed 1 22766 ;; hooks 22767 (list 22768 ) 22769 ) 22770 32 22) 22771 (list 22772 (kern-mk-obj t_garrison_log 1 22773 ;; hooks 22774 (list 22775 ) 22776 ) 22777 4 23) 22778 (list 22779 (kern-mk-obj t_food 21 22780 ;; hooks 22781 (list 22782 ) 22783 ) 22784 33 27) 22785 (list 22786 (kern-mk-obj t_food 1 22787 ;; hooks 22788 (list 22789 ) 22790 ) 22791 22 29) 22792 (list 22793 (kern-mk-obj t_food 1 22794 ;; hooks 22795 (list 22796 ) 22797 ) 22798 27 32) 22799 (list 22800 (bind 22801 (kern-mk-obj t_spawn_pt 1 22802 ;; hooks 22803 (list 22804 ) 22805 ) 22806 (list 22807 'spawn-pt 22808 'troll-m 22809 ) 22810 ) ;; bind 22811 6 17) 22812 (list 22813 (bind 22814 (kern-mk-obj t_spawn_pt 1 22815 ;; hooks 22816 (list 22817 ) 22818 ) 22819 (list 22820 'spawn-pt 22821 'troll-m 22822 ) 22823 ) ;; bind 22824 11 19) 22825 (list 22826 (bind 22827 (kern-mk-obj t_spawn_pt 1 22828 ;; hooks 22829 (list 22830 ) 22831 ) 22832 (list 22833 'spawn-pt 22834 'cave-goblin-berserker-m 22835 ) 22836 ) ;; bind 22837 29 11) 22838 (list 22839 (bind 22840 (kern-mk-obj t_spawn_pt 1 22841 ;; hooks 22842 (list 22843 ) 22844 ) 22845 (list 22846 'spawn-pt 22847 'cave-goblin-slinger-m 22848 ) 22849 ) ;; bind 22850 32 13) 22851 (list 22852 (bind 22853 (kern-mk-obj t_spawn_pt 1 22854 ;; hooks 22855 (list 22856 ) 22857 ) 22858 (list 22859 'spawn-pt 22860 'cave-goblin-berserker-m 22861 ) 22862 ) ;; bind 22863 32 23) 22864 (list 22865 (bind 22866 (kern-mk-obj t_spawn_pt 1 22867 ;; hooks 22868 (list 22869 ) 22870 ) 22871 (list 22872 'spawn-pt 22873 'gint-warrior-m 22874 ) 22875 ) ;; bind 22876 23 28) 22877 (list 22878 (bind 22879 (kern-mk-obj t_spawn_pt 1 22880 ;; hooks 22881 (list 22882 ) 22883 ) 22884 (list 22885 'spawn-pt 22886 'gint-warrior-m 22887 ) 22888 ) ;; bind 22889 28 33) 22890 (list 22891 (bind 22892 (kern-mk-obj t_corpse 1 22893 ;; hooks 22894 (list 22895 ) 22896 ) 22897 (list 22898 (list 22899 (list 22900 1 22901 't_armor_chain 22902 ) 22903 (list 22904 1 22905 't_sword_2 22906 ) 22907 (list 22908 1 22909 't_scratched_shield 22910 ) 22911 ) 22912 ) 22913 ) ;; bind 22914 7 24) 22915 (list 22916 (bind 22917 (kern-mk-char 22918 nil 22919 "halberdier" 22920 sp_human 22921 oc_warrior 22922 s_guard 22923 5 22924 0 0 0 22925 0 0 22926 0 0 22927 14 1024 22928 6 4 22929 #f ;; dead? 22930 nil 22931 nil 22932 'guard-ai 22933 (kern-mk-container 22934 t_chest 22935 ;; trap 22936 nil 22937 ;; contents 22938 nil 22939 ;; hooks 22940 (list 22941 ) 22942 ) 22943 (list 22944 t_chain_coif 22945 t_halberd 22946 t_armor_chain 22947 ) 22948 ;; hooks 22949 (list 22950 (list 22951 ef_loot_drop 22952 (list 22953 'loot-drop-gob 22954 'drop-generic 22955 (list 22956 (list 22957 (list 22958 100 22959 "1d3-1" 22960 't_heal_potion 22961 ) 22962 (list 22963 10 22964 "1" 22965 't_vas_mani_scroll 22966 ) 22967 (list 22968 10 22969 "1" 22970 't_in_an_scroll 22971 ) 22972 (list 22973 50 22974 "1d5" 22975 't_food 22976 ) 22977 ) 22978 ) 22979 ) 22980 2 22981 0 22982 ) 22983 ) 22984 ) 22985 (list 22986 'npcg 22987 'corrupt-halberdier 22988 #f 22989 #f 22990 '() 22991 ) 22992 ) ;; bind 22993 18 12) 22994 (list 22995 (bind 22996 (kern-mk-char 22997 nil 22998 "halberdier" 22999 sp_human 23000 oc_warrior 23001 s_guard 23002 5 23003 0 0 0 23004 0 0 23005 0 0 23006 18 16384 23007 10 8 23008 #f ;; dead? 23009 nil 23010 nil 23011 'guard-ai 23012 (kern-mk-container 23013 t_chest 23014 ;; trap 23015 nil 23016 ;; contents 23017 (list 23018 (list 1 t_heal_potion) 23019 ) 23020 ;; hooks 23021 (list 23022 ) 23023 ) 23024 (list 23025 t_chain_coif 23026 t_halberd 23027 t_armor_chain 23028 ) 23029 ;; hooks 23030 (list 23031 (list 23032 ef_loot_drop 23033 (list 23034 'loot-drop-gob 23035 'drop-generic 23036 (list 23037 (list 23038 (list 23039 100 23040 "1d3-1" 23041 't_heal_potion 23042 ) 23043 (list 23044 10 23045 "1" 23046 't_vas_mani_scroll 23047 ) 23048 (list 23049 10 23050 "1" 23051 't_in_an_scroll 23052 ) 23053 (list 23054 50 23055 "1d5" 23056 't_food 23057 ) 23058 ) 23059 ) 23060 ) 23061 2 23062 0 23063 ) 23064 ) 23065 ) 23066 (list 23067 'npcg 23068 'corrupt-halberdier 23069 #f 23070 #f 23071 '() 23072 ) 23073 ) ;; bind 23074 17 6) 23075 (list 23076 (bind 23077 (kern-mk-char 23078 nil 23079 "halberdier" 23080 sp_human 23081 oc_warrior 23082 s_guard 23083 5 23084 0 0 0 23085 0 0 23086 0 0 23087 16 4096 23088 8 6 23089 #f ;; dead? 23090 nil 23091 nil 23092 'guard-ai 23093 (kern-mk-container 23094 t_chest 23095 ;; trap 23096 nil 23097 ;; contents 23098 (list 23099 (list 2 t_heal_potion) 23100 ) 23101 ;; hooks 23102 (list 23103 ) 23104 ) 23105 (list 23106 t_chain_coif 23107 t_halberd 23108 t_armor_chain 23109 ) 23110 ;; hooks 23111 (list 23112 (list 23113 ef_loot_drop 23114 (list 23115 'loot-drop-gob 23116 'drop-generic 23117 (list 23118 (list 23119 (list 23120 100 23121 "1d3-1" 23122 't_heal_potion 23123 ) 23124 (list 23125 10 23126 "1" 23127 't_vas_mani_scroll 23128 ) 23129 (list 23130 10 23131 "1" 23132 't_in_an_scroll 23133 ) 23134 (list 23135 50 23136 "1d5" 23137 't_food 23138 ) 23139 ) 23140 ) 23141 ) 23142 2 23143 0 23144 ) 23145 ) 23146 ) 23147 (list 23148 'npcg 23149 'corrupt-halberdier 23150 #f 23151 #f 23152 '() 23153 ) 23154 ) ;; bind 23155 24 12) 23156 (list 23157 (bind 23158 (kern-mk-char 23159 nil 23160 "crossbowman" 23161 sp_human 23162 oc_warrior 23163 s_guard 23164 5 23165 0 0 0 23166 0 0 23167 0 0 23168 15 2048 23169 7 5 23170 #f ;; dead? 23171 nil 23172 nil 23173 'guard-ai 23174 (kern-mk-container 23175 t_chest 23176 ;; trap 23177 nil 23178 ;; contents 23179 (list 23180 (list 10 t_bolt) 23181 (list 1 t_dagger) 23182 (list 2 t_heal_potion) 23183 ) 23184 ;; hooks 23185 (list 23186 ) 23187 ) 23188 (list 23189 t_chain_coif 23190 t_crossbow 23191 t_armor_chain 23192 ) 23193 ;; hooks 23194 (list 23195 (list 23196 ef_loot_drop 23197 (list 23198 'loot-drop-gob 23199 'drop-generic 23200 (list 23201 (list 23202 (list 23203 100 23204 "1d10" 23205 't_bolt 23206 ) 23207 (list 23208 100 23209 "1d3-1" 23210 't_heal_potion 23211 ) 23212 (list 23213 10 23214 "1" 23215 't_vas_mani_scroll 23216 ) 23217 (list 23218 10 23219 "1" 23220 't_in_an_scroll 23221 ) 23222 (list 23223 50 23224 "1d5" 23225 't_food 23226 ) 23227 ) 23228 ) 23229 ) 23230 2 23231 0 23232 ) 23233 ) 23234 ) 23235 (list 23236 'npcg 23237 'corrupt-crossbowman 23238 #f 23239 #f 23240 '() 23241 ) 23242 ) ;; bind 23243 8 17) 23244 (list 23245 (bind 23246 (kern-mk-char 23247 nil 23248 "crossbowman" 23249 sp_human 23250 oc_warrior 23251 s_guard 23252 5 23253 0 0 0 23254 0 0 23255 0 0 23256 16 4096 23257 8 6 23258 #f ;; dead? 23259 nil 23260 nil 23261 'guard-ai 23262 (kern-mk-container 23263 t_chest 23264 ;; trap 23265 nil 23266 ;; contents 23267 (list 23268 (list 10 t_bolt) 23269 (list 1 t_dagger) 23270 ) 23271 ;; hooks 23272 (list 23273 ) 23274 ) 23275 (list 23276 t_chain_coif 23277 t_crossbow 23278 t_armor_chain 23279 ) 23280 ;; hooks 23281 (list 23282 (list 23283 ef_loot_drop 23284 (list 23285 'loot-drop-gob 23286 'drop-generic 23287 (list 23288 (list 23289 (list 23290 100 23291 "1d10" 23292 't_bolt 23293 ) 23294 (list 23295 100 23296 "1d3-1" 23297 't_heal_potion 23298 ) 23299 (list 23300 10 23301 "1" 23302 't_vas_mani_scroll 23303 ) 23304 (list 23305 10 23306 "1" 23307 't_in_an_scroll 23308 ) 23309 (list 23310 50 23311 "1d5" 23312 't_food 23313 ) 23314 ) 23315 ) 23316 ) 23317 2 23318 0 23319 ) 23320 ) 23321 ) 23322 (list 23323 'npcg 23324 'corrupt-crossbowman 23325 #f 23326 #f 23327 '() 23328 ) 23329 ) ;; bind 23330 14 5) 23331 (list 23332 (bind 23333 (kern-mk-char 23334 nil 23335 "halberdier" 23336 sp_human 23337 oc_warrior 23338 s_guard 23339 5 23340 0 0 0 23341 0 0 23342 0 0 23343 17 8192 23344 9 7 23345 #f ;; dead? 23346 nil 23347 nil 23348 'guard-ai 23349 (kern-mk-container 23350 t_chest 23351 ;; trap 23352 nil 23353 ;; contents 23354 (list 23355 (list 2 t_heal_potion) 23356 ) 23357 ;; hooks 23358 (list 23359 ) 23360 ) 23361 (list 23362 t_chain_coif 23363 t_halberd 23364 t_armor_chain 23365 ) 23366 ;; hooks 23367 (list 23368 (list 23369 ef_loot_drop 23370 (list 23371 'loot-drop-gob 23372 'drop-generic 23373 (list 23374 (list 23375 (list 23376 100 23377 "1d3-1" 23378 't_heal_potion 23379 ) 23380 (list 23381 10 23382 "1" 23383 't_vas_mani_scroll 23384 ) 23385 (list 23386 10 23387 "1" 23388 't_in_an_scroll 23389 ) 23390 (list 23391 50 23392 "1d5" 23393 't_food 23394 ) 23395 ) 23396 ) 23397 ) 23398 2 23399 0 23400 ) 23401 ) 23402 ) 23403 (list 23404 'npcg 23405 'corrupt-halberdier 23406 #f 23407 #f 23408 '() 23409 ) 23410 ) ;; bind 23411 24 5) 23412 (list 23413 (bind 23414 (kern-mk-obj t_corpse 1 23415 ;; hooks 23416 (list 23417 ) 23418 ) 23419 (list 23420 (list 23421 (list 23422 2 23423 't_heal_potion 23424 ) 23425 (list 23426 1 23427 't_crossbow 23428 ) 23429 (list 23430 13 23431 't_bolt 23432 ) 23433 ) 23434 ) 23435 ) ;; bind 23436 13 6) 23437 (list 23438 (bind 23439 (kern-mk-obj t_corpse 1 23440 ;; hooks 23441 (list 23442 ) 23443 ) 23444 (list 23445 (list 23446 (list 23447 4 23448 't_gold_coins 23449 ) 23450 ) 23451 ) 23452 ) ;; bind 23453 11 9) 23454 (list 23455 (bind 23456 (kern-mk-obj t_corpse 1 23457 ;; hooks 23458 (list 23459 ) 23460 ) 23461 (list 23462 (list 23463 (list 23464 4 23465 't_bolt 23466 ) 23467 (list 23468 1 23469 't_bolt 23470 ) 23471 (list 23472 1 23473 't_gold_coins 23474 ) 23475 ) 23476 ) 23477 ) ;; bind 23478 17 13) 23479 (list 23480 (bind 23481 (kern-mk-obj t_corpse 1 23482 ;; hooks 23483 (list 23484 ) 23485 ) 23486 (list 23487 (list 23488 (list 23489 1 23490 't_mana_potion 23491 ) 23492 (list 23493 1 23494 't_food 23495 ) 23496 ) 23497 ) 23498 ) ;; bind 23499 7 29) 23500 (list 23501 (bind 23502 (kern-mk-obj t_corpse 1 23503 ;; hooks 23504 (list 23505 ) 23506 ) 23507 (list 23508 (list 23509 (list 23510 2 23511 't_gold_coins 23512 ) 23513 (list 23514 4 23515 't_gold_coins 23516 ) 23517 ) 23518 ) 23519 ) ;; bind 23520 30 30) 23521 (list 23522 (bind 23523 (kern-mk-char 23524 nil 23525 "gazer" 23526 sp_gazer 23527 oc_wizard 23528 s_gazer 23529 5 23530 0 0 0 23531 0 0 23532 0 0 23533 19 32768 23534 44 9 23535 #f ;; dead? 23536 nil 23537 nil 23538 'gazer-ai 23539 (kern-mk-container 23540 t_chest 23541 ;; trap 23542 'poison-trap 23543 ;; contents 23544 nil 23545 ;; hooks 23546 (list 23547 ) 23548 ) 23549 nil 23550 ;; hooks 23551 (list 23552 (list 23553 ef_loot_drop 23554 (list 23555 'loot-drop-gob 23556 'drop-generic 23557 (list 23558 (list 23559 (list 23560 100 23561 "1d2-1" 23562 't_heal_potion 23563 ) 23564 (list 23565 100 23566 "1d2+1" 23567 't_mana_potion 23568 ) 23569 (list 23570 100 23571 "1d20" 23572 't_gold_coins 23573 ) 23574 (list 23575 10 23576 "1d3" 23577 't_food 23578 ) 23579 (list 23580 10 23581 "1" 23582 't_cure_potion 23583 ) 23584 (list 23585 10 23586 "1" 23587 't_poison_immunity_potion 23588 ) 23589 (list 23590 20 23591 "1d5" 23592 'sulphorous_ash 23593 ) 23594 (list 23595 20 23596 "1d5" 23597 'ginseng 23598 ) 23599 (list 23600 20 23601 "1d5" 23602 'garlic 23603 ) 23604 (list 23605 10 23606 "1d3" 23607 'spider_silk 23608 ) 23609 (list 23610 10 23611 "1d3" 23612 'blood_moss 23613 ) 23614 (list 23615 10 23616 "1d3" 23617 'black_pearl 23618 ) 23619 (list 23620 5 23621 "1d2" 23622 'nightshade 23623 ) 23624 (list 23625 5 23626 "1d2" 23627 'mandrake 23628 ) 23629 (list 23630 5 23631 "1" 23632 't_in_mani_corp_scroll 23633 ) 23634 (list 23635 5 23636 "1" 23637 't_xen_corp_scroll 23638 ) 23639 (list 23640 10 23641 "1" 23642 't_in_quas_xen_scroll 23643 ) 23644 (list 23645 10 23646 "1" 23647 't_an_xen_exe_scroll 23648 ) 23649 (list 23650 20 23651 "1" 23652 't_in_an_scroll 23653 ) 23654 (list 23655 20 23656 "1" 23657 't_vas_mani_scroll 23658 ) 23659 ) 23660 ) 23661 ) 23662 2 23663 0 23664 ) 23665 ) 23666 ) 23667 (list 23668 'npcg 23669 'gazer 23670 #f 23671 #f 23672 '() 23673 ) 23674 ) ;; bind 23675 25 8) 23676 (list 23677 (bind 23678 (kern-mk-char 23679 nil 23680 "gazer" 23681 sp_gazer 23682 oc_wizard 23683 s_gazer 23684 5 23685 0 0 0 23686 0 0 23687 0 0 23688 18 16384 23689 40 8 23690 #f ;; dead? 23691 nil 23692 nil 23693 'gazer-ai 23694 (kern-mk-container 23695 t_chest 23696 ;; trap 23697 'lightning-trap 23698 ;; contents 23699 nil 23700 ;; hooks 23701 (list 23702 ) 23703 ) 23704 nil 23705 ;; hooks 23706 (list 23707 (list 23708 ef_loot_drop 23709 (list 23710 'loot-drop-gob 23711 'drop-generic 23712 (list 23713 (list 23714 (list 23715 100 23716 "1d2-1" 23717 't_heal_potion 23718 ) 23719 (list 23720 100 23721 "1d2+1" 23722 't_mana_potion 23723 ) 23724 (list 23725 100 23726 "1d20" 23727 't_gold_coins 23728 ) 23729 (list 23730 10 23731 "1d3" 23732 't_food 23733 ) 23734 (list 23735 10 23736 "1" 23737 't_cure_potion 23738 ) 23739 (list 23740 10 23741 "1" 23742 't_poison_immunity_potion 23743 ) 23744 (list 23745 20 23746 "1d5" 23747 'sulphorous_ash 23748 ) 23749 (list 23750 20 23751 "1d5" 23752 'ginseng 23753 ) 23754 (list 23755 20 23756 "1d5" 23757 'garlic 23758 ) 23759 (list 23760 10 23761 "1d3" 23762 'spider_silk 23763 ) 23764 (list 23765 10 23766 "1d3" 23767 'blood_moss 23768 ) 23769 (list 23770 10 23771 "1d3" 23772 'black_pearl 23773 ) 23774 (list 23775 5 23776 "1d2" 23777 'nightshade 23778 ) 23779 (list 23780 5 23781 "1d2" 23782 'mandrake 23783 ) 23784 (list 23785 5 23786 "1" 23787 't_in_mani_corp_scroll 23788 ) 23789 (list 23790 5 23791 "1" 23792 't_xen_corp_scroll 23793 ) 23794 (list 23795 10 23796 "1" 23797 't_in_quas_xen_scroll 23798 ) 23799 (list 23800 10 23801 "1" 23802 't_an_xen_exe_scroll 23803 ) 23804 (list 23805 20 23806 "1" 23807 't_in_an_scroll 23808 ) 23809 (list 23810 20 23811 "1" 23812 't_vas_mani_scroll 23813 ) 23814 ) 23815 ) 23816 ) 23817 2 23818 0 23819 ) 23820 ) 23821 ) 23822 (list 23823 'npcg 23824 'gazer 23825 #f 23826 #f 23827 '() 23828 ) 23829 ) ;; bind 23830 22 31) 23831 (list 23832 (bind 23833 (kern-mk-char 23834 nil 23835 "gazer" 23836 sp_gazer 23837 oc_wizard 23838 s_gazer 23839 5 23840 0 0 0 23841 0 0 23842 0 0 23843 17 8192 23844 36 7 23845 #f ;; dead? 23846 nil 23847 nil 23848 'gazer-ai 23849 (kern-mk-container 23850 t_chest 23851 ;; trap 23852 'poison-trap 23853 ;; contents 23854 nil 23855 ;; hooks 23856 (list 23857 ) 23858 ) 23859 nil 23860 ;; hooks 23861 (list 23862 (list 23863 ef_loot_drop 23864 (list 23865 'loot-drop-gob 23866 'drop-generic 23867 (list 23868 (list 23869 (list 23870 100 23871 "1d2-1" 23872 't_heal_potion 23873 ) 23874 (list 23875 100 23876 "1d2+1" 23877 't_mana_potion 23878 ) 23879 (list 23880 100 23881 "1d20" 23882 't_gold_coins 23883 ) 23884 (list 23885 10 23886 "1d3" 23887 't_food 23888 ) 23889 (list 23890 10 23891 "1" 23892 't_cure_potion 23893 ) 23894 (list 23895 10 23896 "1" 23897 't_poison_immunity_potion 23898 ) 23899 (list 23900 20 23901 "1d5" 23902 'sulphorous_ash 23903 ) 23904 (list 23905 20 23906 "1d5" 23907 'ginseng 23908 ) 23909 (list 23910 20 23911 "1d5" 23912 'garlic 23913 ) 23914 (list 23915 10 23916 "1d3" 23917 'spider_silk 23918 ) 23919 (list 23920 10 23921 "1d3" 23922 'blood_moss 23923 ) 23924 (list 23925 10 23926 "1d3" 23927 'black_pearl 23928 ) 23929 (list 23930 5 23931 "1d2" 23932 'nightshade 23933 ) 23934 (list 23935 5 23936 "1d2" 23937 'mandrake 23938 ) 23939 (list 23940 5 23941 "1" 23942 't_in_mani_corp_scroll 23943 ) 23944 (list 23945 5 23946 "1" 23947 't_xen_corp_scroll 23948 ) 23949 (list 23950 10 23951 "1" 23952 't_in_quas_xen_scroll 23953 ) 23954 (list 23955 10 23956 "1" 23957 't_an_xen_exe_scroll 23958 ) 23959 (list 23960 20 23961 "1" 23962 't_in_an_scroll 23963 ) 23964 (list 23965 20 23966 "1" 23967 't_vas_mani_scroll 23968 ) 23969 ) 23970 ) 23971 ) 23972 2 23973 0 23974 ) 23975 ) 23976 ) 23977 (list 23978 'npcg 23979 'gazer 23980 #f 23981 #f 23982 '() 23983 ) 23984 ) ;; bind 23985 7 25) 23986 (list 23987 (bind 23988 (kern-mk-char 23989 nil 23990 "gazer" 23991 sp_gazer 23992 oc_wizard 23993 s_gazer 23994 5 23995 0 0 0 23996 0 0 23997 0 0 23998 16 4096 23999 32 6 24000 #f ;; dead? 24001 nil 24002 nil 24003 'gazer-ai 24004 (kern-mk-container 24005 t_chest 24006 ;; trap 24007 'lightning-trap 24008 ;; contents 24009 nil 24010 ;; hooks 24011 (list 24012 ) 24013 ) 24014 nil 24015 ;; hooks 24016 (list 24017 (list 24018 ef_loot_drop 24019 (list 24020 'loot-drop-gob 24021 'drop-generic 24022 (list 24023 (list 24024 (list 24025 100 24026 "1d2-1" 24027 't_heal_potion 24028 ) 24029 (list 24030 100 24031 "1d2+1" 24032 't_mana_potion 24033 ) 24034 (list 24035 100 24036 "1d20" 24037 't_gold_coins 24038 ) 24039 (list 24040 10 24041 "1d3" 24042 't_food 24043 ) 24044 (list 24045 10 24046 "1" 24047 't_cure_potion 24048 ) 24049 (list 24050 10 24051 "1" 24052 't_poison_immunity_potion 24053 ) 24054 (list 24055 20 24056 "1d5" 24057 'sulphorous_ash 24058 ) 24059 (list 24060 20 24061 "1d5" 24062 'ginseng 24063 ) 24064 (list 24065 20 24066 "1d5" 24067 'garlic 24068 ) 24069 (list 24070 10 24071 "1d3" 24072 'spider_silk 24073 ) 24074 (list 24075 10 24076 "1d3" 24077 'blood_moss 24078 ) 24079 (list 24080 10 24081 "1d3" 24082 'black_pearl 24083 ) 24084 (list 24085 5 24086 "1d2" 24087 'nightshade 24088 ) 24089 (list 24090 5 24091 "1d2" 24092 'mandrake 24093 ) 24094 (list 24095 5 24096 "1" 24097 't_in_mani_corp_scroll 24098 ) 24099 (list 24100 5 24101 "1" 24102 't_xen_corp_scroll 24103 ) 24104 (list 24105 10 24106 "1" 24107 't_in_quas_xen_scroll 24108 ) 24109 (list 24110 10 24111 "1" 24112 't_an_xen_exe_scroll 24113 ) 24114 (list 24115 20 24116 "1" 24117 't_in_an_scroll 24118 ) 24119 (list 24120 20 24121 "1" 24122 't_vas_mani_scroll 24123 ) 24124 ) 24125 ) 24126 ) 24127 2 24128 0 24129 ) 24130 ) 24131 ) 24132 (list 24133 'npcg 24134 'gazer 24135 #f 24136 #f 24137 '() 24138 ) 24139 ) ;; bind 24140 32 11) 24141 (list 24142 (bind 24143 (kern-mk-char 24144 nil 24145 "gint warrior" 24146 sp_gint 24147 oc_warrior 24148 s_ettin 24149 5 24150 0 0 0 24151 0 0 24152 0 0 24153 90 16384 24154 10 8 24155 #f ;; dead? 24156 nil 24157 nil 24158 'std-ai 24159 (kern-mk-container 24160 t_chest 24161 ;; trap 24162 'burn 24163 ;; contents 24164 (list 24165 (list 2 t_heal_potion) 24166 ) 24167 ;; hooks 24168 (list 24169 ) 24170 ) 24171 (list 24172 t_2h_sword 24173 t_2h_axe 24174 ) 24175 ;; hooks 24176 (list 24177 (list 24178 ef_loot_drop 24179 (list 24180 'loot-drop-gob 24181 'drop-generic 24182 (list 24183 (list 24184 (list 24185 100 24186 "4d25" 24187 't_gold_coins 24188 ) 24189 (list 24190 100 24191 "1d5" 24192 't_food 24193 ) 24194 (list 24195 100 24196 "1d3-1" 24197 't_heal_potion 24198 ) 24199 ) 24200 ) 24201 ) 24202 2 24203 0 24204 ) 24205 ) 24206 ) 24207 (list 24208 'npcg 24209 'gint-warrior-m 24210 #f 24211 #f 24212 '() 24213 ) 24214 ) ;; bind 24215 5 6) 24216 (list 24217 (bind 24218 (kern-mk-char 24219 nil 24220 "gint warrior" 24221 sp_gint 24222 oc_warrior 24223 s_ettin 24224 5 24225 0 0 0 24226 0 0 24227 0 0 24228 85 8192 24229 9 7 24230 #f ;; dead? 24231 nil 24232 nil 24233 'std-ai 24234 (kern-mk-container 24235 t_chest 24236 ;; trap 24237 'burn 24238 ;; contents 24239 nil 24240 ;; hooks 24241 (list 24242 ) 24243 ) 24244 (list 24245 t_2h_sword 24246 t_2h_axe 24247 ) 24248 ;; hooks 24249 (list 24250 (list 24251 ef_loot_drop 24252 (list 24253 'loot-drop-gob 24254 'drop-generic 24255 (list 24256 (list 24257 (list 24258 100 24259 "4d25" 24260 't_gold_coins 24261 ) 24262 (list 24263 100 24264 "1d5" 24265 't_food 24266 ) 24267 (list 24268 100 24269 "1d3-1" 24270 't_heal_potion 24271 ) 24272 ) 24273 ) 24274 ) 24275 2 24276 0 24277 ) 24278 ) 24279 ) 24280 (list 24281 'npcg 24282 'gint-warrior-m 24283 #f 24284 #f 24285 '() 24286 ) 24287 ) ;; bind 24288 12 32) 24289 (list 24290 (bind 24291 (kern-mk-char 24292 nil 24293 "gint warrior" 24294 sp_gint 24295 oc_warrior 24296 s_ettin 24297 5 24298 0 0 0 24299 0 0 24300 0 0 24301 80 4096 24302 8 6 24303 #f ;; dead? 24304 nil 24305 nil 24306 'std-ai 24307 (kern-mk-container 24308 t_chest 24309 ;; trap 24310 'burn 24311 ;; contents 24312 nil 24313 ;; hooks 24314 (list 24315 ) 24316 ) 24317 (list 24318 t_2h_sword 24319 t_2h_axe 24320 ) 24321 ;; hooks 24322 (list 24323 (list 24324 ef_loot_drop 24325 (list 24326 'loot-drop-gob 24327 'drop-generic 24328 (list 24329 (list 24330 (list 24331 100 24332 "4d25" 24333 't_gold_coins 24334 ) 24335 (list 24336 100 24337 "1d5" 24338 't_food 24339 ) 24340 (list 24341 100 24342 "1d3-1" 24343 't_heal_potion 24344 ) 24345 ) 24346 ) 24347 ) 24348 2 24349 0 24350 ) 24351 ) 24352 ) 24353 (list 24354 'npcg 24355 'gint-warrior-m 24356 #f 24357 #f 24358 '() 24359 ) 24360 ) ;; bind 24361 30 27) 24362 (list 24363 (bind 24364 (kern-mk-char 24365 nil 24366 "troll" 24367 sp_troll 24368 oc_warrior 24369 s_troll 24370 5 24371 0 0 0 24372 0 0 24373 0 0 24374 34 8192 24375 9 7 24376 #f ;; dead? 24377 nil 24378 nil 24379 'std-ai 24380 (kern-mk-container 24381 t_chest 24382 ;; trap 24383 nil 24384 ;; contents 24385 (list 24386 (list 2 t_thrown_boulder) 24387 ) 24388 ;; hooks 24389 (list 24390 ) 24391 ) 24392 (list 24393 t_thrown_boulder 24394 ) 24395 ;; hooks 24396 (list 24397 (list 24398 ef_loot_drop 24399 (list 24400 'loot-drop-gob 24401 'drop-generic 24402 (list 24403 (list 24404 (list 24405 100 24406 "1d3-1" 24407 't_thrown_boulder 24408 ) 24409 (list 24410 25 24411 "1d3" 24412 't_food 24413 ) 24414 (list 24415 100 24416 "2d10" 24417 't_gold_coins 24418 ) 24419 ) 24420 ) 24421 ) 24422 2 24423 0 24424 ) 24425 ) 24426 ) 24427 (list 24428 'npcg 24429 'troll-m 24430 #f 24431 #f 24432 '() 24433 ) 24434 ) ;; bind 24435 7 19) 24436 (list 24437 (bind 24438 (kern-mk-char 24439 nil 24440 "troll" 24441 sp_troll 24442 oc_warrior 24443 s_troll 24444 5 24445 0 0 0 24446 0 0 24447 0 0 24448 32 4096 24449 8 6 24450 #f ;; dead? 24451 nil 24452 nil 24453 'std-ai 24454 (kern-mk-container 24455 t_chest 24456 ;; trap 24457 nil 24458 ;; contents 24459 (list 24460 (list 1 t_thrown_boulder) 24461 ) 24462 ;; hooks 24463 (list 24464 ) 24465 ) 24466 (list 24467 t_thrown_boulder 24468 ) 24469 ;; hooks 24470 (list 24471 (list 24472 ef_loot_drop 24473 (list 24474 'loot-drop-gob 24475 'drop-generic 24476 (list 24477 (list 24478 (list 24479 100 24480 "1d3-1" 24481 't_thrown_boulder 24482 ) 24483 (list 24484 25 24485 "1d3" 24486 't_food 24487 ) 24488 (list 24489 100 24490 "2d10" 24491 't_gold_coins 24492 ) 24493 ) 24494 ) 24495 ) 24496 2 24497 0 24498 ) 24499 ) 24500 ) 24501 (list 24502 'npcg 24503 'troll-m 24504 #f 24505 #f 24506 '() 24507 ) 24508 ) ;; bind 24509 29 17) 24510 (list 24511 (bind 24512 (kern-mk-char 24513 nil 24514 "troll" 24515 sp_troll 24516 oc_warrior 24517 s_troll 24518 5 24519 0 0 0 24520 0 0 24521 0 0 24522 30 2048 24523 7 5 24524 #f ;; dead? 24525 nil 24526 nil 24527 'std-ai 24528 (kern-mk-container 24529 t_chest 24530 ;; trap 24531 nil 24532 ;; contents 24533 (list 24534 (list 2 t_thrown_boulder) 24535 ) 24536 ;; hooks 24537 (list 24538 ) 24539 ) 24540 (list 24541 t_thrown_boulder 24542 ) 24543 ;; hooks 24544 (list 24545 (list 24546 ef_loot_drop 24547 (list 24548 'loot-drop-gob 24549 'drop-generic 24550 (list 24551 (list 24552 (list 24553 100 24554 "1d3-1" 24555 't_thrown_boulder 24556 ) 24557 (list 24558 25 24559 "1d3" 24560 't_food 24561 ) 24562 (list 24563 100 24564 "2d10" 24565 't_gold_coins 24566 ) 24567 ) 24568 ) 24569 ) 24570 2 24571 0 24572 ) 24573 ) 24574 ) 24575 (list 24576 'npcg 24577 'troll-m 24578 #f 24579 #f 24580 '() 24581 ) 24582 ) ;; bind 24583 10 29) 24584 (list 24585 (bind 24586 (kern-mk-char 24587 nil 24588 "troll" 24589 sp_troll 24590 oc_warrior 24591 s_troll 24592 5 24593 0 0 0 24594 0 0 24595 0 0 24596 30 2048 24597 7 5 24598 #f ;; dead? 24599 nil 24600 nil 24601 'std-ai 24602 (kern-mk-container 24603 t_chest 24604 ;; trap 24605 nil 24606 ;; contents 24607 (list 24608 (list 2 t_thrown_boulder) 24609 ) 24610 ;; hooks 24611 (list 24612 ) 24613 ) 24614 (list 24615 t_thrown_boulder 24616 ) 24617 ;; hooks 24618 (list 24619 (list 24620 ef_loot_drop 24621 (list 24622 'loot-drop-gob 24623 'drop-generic 24624 (list 24625 (list 24626 (list 24627 100 24628 "1d3-1" 24629 't_thrown_boulder 24630 ) 24631 (list 24632 25 24633 "1d3" 24634 't_food 24635 ) 24636 (list 24637 100 24638 "2d10" 24639 't_gold_coins 24640 ) 24641 ) 24642 ) 24643 ) 24644 2 24645 0 24646 ) 24647 ) 24648 ) 24649 (list 24650 'npcg 24651 'troll-m 24652 #f 24653 #f 24654 '() 24655 ) 24656 ) ;; bind 24657 31 21) 24658 (list 24659 (bind 24660 (kern-mk-char 24661 nil 24662 "troll" 24663 sp_troll 24664 oc_warrior 24665 s_troll 24666 5 24667 0 0 0 24668 0 0 24669 0 0 24670 28 1024 24671 6 4 24672 #f ;; dead? 24673 nil 24674 nil 24675 'std-ai 24676 (kern-mk-container 24677 t_chest 24678 ;; trap 24679 nil 24680 ;; contents 24681 (list 24682 (list 1 t_thrown_boulder) 24683 ) 24684 ;; hooks 24685 (list 24686 ) 24687 ) 24688 (list 24689 t_thrown_boulder 24690 ) 24691 ;; hooks 24692 (list 24693 (list 24694 ef_loot_drop 24695 (list 24696 'loot-drop-gob 24697 'drop-generic 24698 (list 24699 (list 24700 (list 24701 100 24702 "1d3-1" 24703 't_thrown_boulder 24704 ) 24705 (list 24706 25 24707 "1d3" 24708 't_food 24709 ) 24710 (list 24711 100 24712 "2d10" 24713 't_gold_coins 24714 ) 24715 ) 24716 ) 24717 ) 24718 2 24719 0 24720 ) 24721 ) 24722 ) 24723 (list 24724 'npcg 24725 'troll-m 24726 #f 24727 #f 24728 '() 24729 ) 24730 ) ;; bind 24731 13 16) 24732 (list 24733 (bind 24734 (kern-mk-char 24735 nil 24736 "cave goblin berserker" 24737 sp_cave_goblin 24738 oc_warrior 24739 s_cgob_berserk 24740 5 24741 0 0 0 24742 0 0 24743 0 0 24744 18 4096 24745 8 6 24746 #f ;; dead? 24747 nil 24748 nil 24749 'generic-ai 24750 (kern-mk-container 24751 t_chest 24752 ;; trap 24753 'burn 24754 ;; contents 24755 (list 24756 (list 1 t_heal_potion) 24757 ) 24758 ;; hooks 24759 (list 24760 ) 24761 ) 24762 (list 24763 t_axe 24764 t_axe 24765 ) 24766 ;; hooks 24767 (list 24768 (list 24769 ef_loot_drop 24770 (list 24771 'loot-drop-gob 24772 'drop-generic 24773 (list 24774 (list 24775 (list 24776 100 24777 "1d2" 24778 't_heal_potion 24779 ) 24780 (list 24781 100 24782 "1d15" 24783 't_gold_coins 24784 ) 24785 (list 24786 30 24787 "1d3" 24788 't_food 24789 ) 24790 ) 24791 ) 24792 ) 24793 2 24794 0 24795 ) 24796 ) 24797 ) 24798 (list 24799 'npcg 24800 'cave-goblin-berserker-m 24801 #f 24802 #f 24803 '() 24804 ) 24805 ) ;; bind 24806 12 31) 24807 (list 24808 (bind 24809 (kern-mk-char 24810 nil 24811 "cave goblin berserker" 24812 sp_cave_goblin 24813 oc_warrior 24814 s_cgob_berserk 24815 5 24816 0 0 0 24817 0 0 24818 0 0 24819 17 2048 24820 7 5 24821 #f ;; dead? 24822 nil 24823 nil 24824 'generic-ai 24825 (kern-mk-container 24826 t_chest 24827 ;; trap 24828 'burn 24829 ;; contents 24830 (list 24831 (list 2 t_heal_potion) 24832 ) 24833 ;; hooks 24834 (list 24835 ) 24836 ) 24837 (list 24838 t_axe 24839 t_axe 24840 ) 24841 ;; hooks 24842 (list 24843 (list 24844 ef_loot_drop 24845 (list 24846 'loot-drop-gob 24847 'drop-generic 24848 (list 24849 (list 24850 (list 24851 100 24852 "1d2" 24853 't_heal_potion 24854 ) 24855 (list 24856 100 24857 "1d15" 24858 't_gold_coins 24859 ) 24860 (list 24861 30 24862 "1d3" 24863 't_food 24864 ) 24865 ) 24866 ) 24867 ) 24868 2 24869 0 24870 ) 24871 ) 24872 ) 24873 (list 24874 'npcg 24875 'cave-goblin-berserker-m 24876 #f 24877 #f 24878 '() 24879 ) 24880 ) ;; bind 24881 9 32) 24882 (list 24883 (bind 24884 (kern-mk-char 24885 nil 24886 "cave goblin berserker" 24887 sp_cave_goblin 24888 oc_warrior 24889 s_cgob_berserk 24890 5 24891 0 0 0 24892 0 0 24893 0 0 24894 16 1024 24895 6 4 24896 #f ;; dead? 24897 nil 24898 nil 24899 'generic-ai 24900 (kern-mk-container 24901 t_chest 24902 ;; trap 24903 nil 24904 ;; contents 24905 (list 24906 (list 2 t_heal_potion) 24907 ) 24908 ;; hooks 24909 (list 24910 ) 24911 ) 24912 (list 24913 t_axe 24914 t_axe 24915 ) 24916 ;; hooks 24917 (list 24918 (list 24919 ef_loot_drop 24920 (list 24921 'loot-drop-gob 24922 'drop-generic 24923 (list 24924 (list 24925 (list 24926 100 24927 "1d2" 24928 't_heal_potion 24929 ) 24930 (list 24931 100 24932 "1d15" 24933 't_gold_coins 24934 ) 24935 (list 24936 30 24937 "1d3" 24938 't_food 24939 ) 24940 ) 24941 ) 24942 ) 24943 2 24944 0 24945 ) 24946 ) 24947 ) 24948 (list 24949 'npcg 24950 'cave-goblin-berserker-m 24951 #f 24952 #f 24953 '() 24954 ) 24955 ) ;; bind 24956 18 8) 24957 (list 24958 (bind 24959 (kern-mk-char 24960 nil 24961 "cave goblin slinger" 24962 sp_cave_goblin 24963 oc_warrior 24964 s_cgob_slinger 24965 5 24966 0 0 0 24967 0 0 24968 0 0 24969 18 4096 24970 8 6 24971 #f ;; dead? 24972 nil 24973 nil 24974 'generic-ai 24975 (kern-mk-container 24976 t_chest 24977 ;; trap 24978 'spike-trap 24979 ;; contents 24980 nil 24981 ;; hooks 24982 (list 24983 ) 24984 ) 24985 (list 24986 t_sling 24987 ) 24988 ;; hooks 24989 (list 24990 (list 24991 ef_loot_drop 24992 (list 24993 'loot-drop-gob 24994 'drop-generic 24995 (list 24996 (list 24997 (list 24998 100 24999 "1d10" 25000 't_gold_coins 25001 ) 25002 (list 25003 20 25004 "1d3" 25005 't_food 25006 ) 25007 ) 25008 ) 25009 ) 25010 2 25011 0 25012 ) 25013 ) 25014 ) 25015 (list 25016 'npcg 25017 'cave-goblin-slinger-m 25018 #f 25019 #f 25020 '() 25021 ) 25022 ) ;; bind 25023 7 20) 25024 (list 25025 (bind 25026 (kern-mk-char 25027 nil 25028 "cave goblin slinger" 25029 sp_cave_goblin 25030 oc_warrior 25031 s_cgob_slinger 25032 5 25033 0 0 0 25034 0 0 25035 0 0 25036 17 2048 25037 7 5 25038 #f ;; dead? 25039 nil 25040 nil 25041 'generic-ai 25042 (kern-mk-container 25043 t_chest 25044 ;; trap 25045 'spike-trap 25046 ;; contents 25047 nil 25048 ;; hooks 25049 (list 25050 ) 25051 ) 25052 (list 25053 t_sling 25054 ) 25055 ;; hooks 25056 (list 25057 (list 25058 ef_loot_drop 25059 (list 25060 'loot-drop-gob 25061 'drop-generic 25062 (list 25063 (list 25064 (list 25065 100 25066 "1d10" 25067 't_gold_coins 25068 ) 25069 (list 25070 20 25071 "1d3" 25072 't_food 25073 ) 25074 ) 25075 ) 25076 ) 25077 2 25078 0 25079 ) 25080 ) 25081 ) 25082 (list 25083 'npcg 25084 'cave-goblin-slinger-m 25085 #f 25086 #f 25087 '() 25088 ) 25089 ) ;; bind 25090 12 16) 25091 (list 25092 (bind 25093 (kern-mk-char 25094 nil 25095 "cave goblin slinger" 25096 sp_cave_goblin 25097 oc_warrior 25098 s_cgob_slinger 25099 5 25100 0 0 0 25101 0 0 25102 0 0 25103 16 1024 25104 6 4 25105 #f ;; dead? 25106 nil 25107 nil 25108 'generic-ai 25109 (kern-mk-container 25110 t_chest 25111 ;; trap 25112 nil 25113 ;; contents 25114 nil 25115 ;; hooks 25116 (list 25117 ) 25118 ) 25119 (list 25120 t_sling 25121 ) 25122 ;; hooks 25123 (list 25124 (list 25125 ef_loot_drop 25126 (list 25127 'loot-drop-gob 25128 'drop-generic 25129 (list 25130 (list 25131 (list 25132 100 25133 "1d10" 25134 't_gold_coins 25135 ) 25136 (list 25137 20 25138 "1d3" 25139 't_food 25140 ) 25141 ) 25142 ) 25143 ) 25144 2 25145 0 25146 ) 25147 ) 25148 ) 25149 (list 25150 'npcg 25151 'cave-goblin-slinger-m 25152 #f 25153 #f 25154 '() 25155 ) 25156 ) ;; bind 25157 10 32) 25158 (list 25159 (bind 25160 (kern-mk-char 25161 nil 25162 "cave goblin slinger" 25163 sp_cave_goblin 25164 oc_warrior 25165 s_cgob_slinger 25166 5 25167 0 0 0 25168 0 0 25169 0 0 25170 15 512 25171 5 3 25172 #f ;; dead? 25173 nil 25174 nil 25175 'generic-ai 25176 (kern-mk-container 25177 t_chest 25178 ;; trap 25179 nil 25180 ;; contents 25181 nil 25182 ;; hooks 25183 (list 25184 ) 25185 ) 25186 (list 25187 t_sling 25188 ) 25189 ;; hooks 25190 (list 25191 (list 25192 ef_loot_drop 25193 (list 25194 'loot-drop-gob 25195 'drop-generic 25196 (list 25197 (list 25198 (list 25199 100 25200 "1d10" 25201 't_gold_coins 25202 ) 25203 (list 25204 20 25205 "1d3" 25206 't_food 25207 ) 25208 ) 25209 ) 25210 ) 25211 2 25212 0 25213 ) 25214 ) 25215 ) 25216 (list 25217 'npcg 25218 'cave-goblin-slinger-m 25219 #f 25220 #f 25221 '() 25222 ) 25223 ) ;; bind 25224 32 16) 25225 (list 25226 (bind 25227 (kern-mk-obj t_buried 1 25228 ;; hooks 25229 (list 25230 ) 25231 ) 25232 (list 25233 't_rune_p 25234 1 25235 ) 25236 ) ;; bind 25237 3 33) 25238 (list 25239 (bind 25240 (kern-mk-obj t_roomdata 1 25241 ;; hooks 25242 (list 25243 ) 25244 ) 25245 (list 25246 0 25247 0 25248 #t 25249 #t 25250 (list 25251 'p_deeps_1 25252 'p_deeps_2 25253 'p_deeps_5 25254 'p_deeps_3 25255 ) 25256 ) 25257 ) ;; bind 25258 0 0) 25259 (list 25260 (bind 25261 (kern-mk-obj t_monman 1 25262 ;; hooks 25263 (list 25264 ) 25265 ) 25266 (list 25267 'monman 25268 (list 25269 0 25270 0 25271 0 25272 -1 25273 6 25274 -1 25275 ) 25276 ) 25277 ) ;; bind 25278 0 0) 25279 (list 25280 (bind 25281 (kern-mk-obj t_ladder_up 1 25282 ;; hooks 25283 (list 25284 ) 25285 ) 25286 (list 25287 'p_deepness 25288 12 25289 9 25290 ) 25291 ) ;; bind 25292 11 11) 25293 (list 25294 (kern-tag 'ednp1 25295 (bind 25296 (kern-mk-obj t_portcullis 1 25297 ;; hooks 25298 (list 25299 ) 25300 ) 25301 (list 25302 #t 25303 '() 25304 #f 25305 '() 25306 ) 25307 ) ;; bind 25308 ) ;; kern-tag 25309 8 3) 25310 (list 25311 (kern-tag 'ednp2 25312 (bind 25313 (kern-mk-obj t_portcullis 1 25314 ;; hooks 25315 (list 25316 ) 25317 ) 25318 (list 25319 #t 25320 'ednp1 25321 #f 25322 '() 25323 ) 25324 ) ;; bind 25325 ) ;; kern-tag 25326 10 3) 25327 (list 25328 (kern-tag 'edwp1 25329 (bind 25330 (kern-mk-obj t_portcullis 1 25331 ;; hooks 25332 (list 25333 ) 25334 ) 25335 (list 25336 #f 25337 '() 25338 #f 25339 '() 25340 ) 25341 ) ;; bind 25342 ) ;; kern-tag 25343 3 8) 25344 (list 25345 (kern-tag 'edwp2 25346 (bind 25347 (kern-mk-obj t_portcullis 1 25348 ;; hooks 25349 (list 25350 ) 25351 ) 25352 (list 25353 #f 25354 'edwp1 25355 #f 25356 '() 25357 ) 25358 ) ;; bind 25359 ) ;; kern-tag 25360 3 10) 25361 (list 25362 (kern-tag 'ede1p1 25363 (bind 25364 (kern-mk-obj t_portcullis 1 25365 ;; hooks 25366 (list 25367 ) 25368 ) 25369 (list 25370 #t 25371 '() 25372 #f 25373 '() 25374 ) 25375 ) ;; bind 25376 ) ;; kern-tag 25377 15 8) 25378 (list 25379 (kern-tag 'ede1p2 25380 (bind 25381 (kern-mk-obj t_portcullis 1 25382 ;; hooks 25383 (list 25384 ) 25385 ) 25386 (list 25387 #t 25388 'ede1p1 25389 #f 25390 '() 25391 ) 25392 ) ;; bind 25393 ) ;; kern-tag 25394 15 10) 25395 (list 25396 (kern-tag 'ede2p1 25397 (bind 25398 (kern-mk-obj t_portcullis 1 25399 ;; hooks 25400 (list 25401 ) 25402 ) 25403 (list 25404 #t 25405 '() 25406 #f 25407 '() 25408 ) 25409 ) ;; bind 25410 ) ;; kern-tag 25411 22 8) 25412 (list 25413 (kern-tag 'ede2p2 25414 (bind 25415 (kern-mk-obj t_portcullis 1 25416 ;; hooks 25417 (list 25418 ) 25419 ) 25420 (list 25421 #t 25422 'ede2p1 25423 #f 25424 '() 25425 ) 25426 ) ;; bind 25427 ) ;; kern-tag 25428 22 10) 25429 ) ;; end of objects in p_lost_garrison 25430 (list ;; on-entry-hooks 25431 'on-entry-to-dungeon-room 25432 'deeps-room-handle-garrison 25433 ) 25434 (list ;; edge entrances 25435 (list 0 37 37) ;; Northwest 25436 (list 1 19 37) ;; North 25437 (list 2 0 37) ;; Northeast 25438 (list 3 37 19) ;; West 25439 (list 4 19 19) ;; Here 25440 (list 5 0 9) ;; East 25441 (list 6 37 0) ;; Southwest 25442 (list 7 9 0) ;; South 25443 (list 8 0 0) ;; SoutheastUp 25444 ) 25445) ;; end of place p_lost_garrison 25446 25447(kern-mk-place 'p_deeps_1 "endless deepness" 25448 nil ;; sprite 25449 (kern-mk-map 25450 nil 19 19 pal_expanded 25451 (list 25452 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25453 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25454 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25455 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25456 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25457 ".. .. .. .. .. .. .A .. .. .. .. .. .. .. .. .. .. .. .. " 25458 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25459 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25460 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25461 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25462 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25463 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25464 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25465 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25466 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25467 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25468 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25469 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25470 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25471 ) 25472 ) 25473 #f #t #f #f 25474 ;; subplaces 25475 nil 25476 nil ;; neighbors 25477 (list ;; objects in p_deeps_1 25478 (list 25479 (bind 25480 (kern-mk-obj t_roomdata 1 25481 ;; hooks 25482 (list 25483 ) 25484 ) 25485 (list 25486 0 25487 1 25488 #f 25489 #f 25490 (list 25491 'p_deeps_2 25492 'p_deeps_5 25493 'p_deeps_3 25494 'p_deeps_4 25495 ) 25496 ) 25497 ) ;; bind 25498 0 0) 25499 ) ;; end of objects in p_deeps_1 25500 (list ;; on-entry-hooks 25501 'deeps-room-handle-deeps 25502 ) 25503 (list ;; edge entrances 25504 (list 0 18 18) ;; Northwest 25505 (list 1 9 18) ;; North 25506 (list 2 0 18) ;; Northeast 25507 (list 3 18 9) ;; West 25508 (list 4 9 9) ;; Here 25509 (list 5 0 9) ;; East 25510 (list 6 18 0) ;; Southwest 25511 (list 7 9 0) ;; South 25512 (list 8 0 0) ;; SoutheastUp 25513 ) 25514) ;; end of place p_deeps_1 25515 25516(kern-mk-place 'p_deeps_2 "endless deepness" 25517 nil ;; sprite 25518 (kern-mk-map 25519 nil 19 19 pal_expanded 25520 (list 25521 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25522 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25523 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25524 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25525 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25526 ".. .. .. .. .. .. .B .. .. .. .. .. .. .. .. .. .. .. .. " 25527 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25528 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25529 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25530 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25531 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25532 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25533 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25534 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25535 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25536 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25537 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25538 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25539 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25540 ) 25541 ) 25542 #f #t #f #f 25543 ;; subplaces 25544 nil 25545 nil ;; neighbors 25546 (list ;; objects in p_deeps_2 25547 (list 25548 (bind 25549 (kern-mk-obj t_monman 1 25550 ;; hooks 25551 (list 25552 ) 25553 ) 25554 (list 25555 'monman 25556 (list 25557 0 25558 0 25559 0 25560 -1 25561 6 25562 -1 25563 ) 25564 ) 25565 ) ;; bind 25566 0 0) 25567 (list 25568 (bind 25569 (kern-mk-obj t_roomdata 1 25570 ;; hooks 25571 (list 25572 ) 25573 ) 25574 (list 25575 0 25576 2 25577 #f 25578 #f 25579 (list 25580 'p_deeps_5 25581 'p_deeps_3 25582 'p_deeps_4 25583 'p_deeps_1 25584 ) 25585 ) 25586 ) ;; bind 25587 0 0) 25588 ) ;; end of objects in p_deeps_2 25589 (list ;; on-entry-hooks 25590 'deeps-room-handle-deeps 25591 ) 25592 (list ;; edge entrances 25593 (list 0 18 18) ;; Northwest 25594 (list 1 9 18) ;; North 25595 (list 2 0 18) ;; Northeast 25596 (list 3 18 9) ;; West 25597 (list 4 9 9) ;; Here 25598 (list 5 0 9) ;; East 25599 (list 6 18 0) ;; Southwest 25600 (list 7 9 0) ;; South 25601 (list 8 0 0) ;; SoutheastUp 25602 ) 25603) ;; end of place p_deeps_2 25604 25605(kern-mk-place 'p_deeps_3 "endless deepness" 25606 nil ;; sprite 25607 (kern-mk-map 25608 nil 19 19 pal_expanded 25609 (list 25610 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25611 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25612 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25613 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25614 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25615 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25616 ".. .. .. .. .. .. .. .C .. .. .. .. .. .. .. .. .. .. .. " 25617 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25618 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25619 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25620 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25621 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25622 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25623 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25624 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25625 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25626 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25627 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25628 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25629 ) 25630 ) 25631 #f #t #f #f 25632 ;; subplaces 25633 nil 25634 nil ;; neighbors 25635 (list ;; objects in p_deeps_3 25636 (list 25637 (bind 25638 (kern-mk-obj t_monman 1 25639 ;; hooks 25640 (list 25641 ) 25642 ) 25643 (list 25644 'monman 25645 (list 25646 0 25647 0 25648 0 25649 -1 25650 6 25651 -1 25652 ) 25653 ) 25654 ) ;; bind 25655 0 0) 25656 (list 25657 (bind 25658 (kern-mk-obj t_roomdata 1 25659 ;; hooks 25660 (list 25661 ) 25662 ) 25663 (list 25664 0 25665 3 25666 #f 25667 #f 25668 (list 25669 'p_deeps_4 25670 'p_deeps_1 25671 'p_deeps_2 25672 'p_deeps_5 25673 ) 25674 ) 25675 ) ;; bind 25676 0 0) 25677 ) ;; end of objects in p_deeps_3 25678 (list ;; on-entry-hooks 25679 'deeps-room-handle-deeps 25680 ) 25681 (list ;; edge entrances 25682 (list 0 18 18) ;; Northwest 25683 (list 1 9 18) ;; North 25684 (list 2 0 18) ;; Northeast 25685 (list 3 18 9) ;; West 25686 (list 4 9 9) ;; Here 25687 (list 5 0 9) ;; East 25688 (list 6 18 0) ;; Southwest 25689 (list 7 9 0) ;; South 25690 (list 8 0 0) ;; SoutheastUp 25691 ) 25692) ;; end of place p_deeps_3 25693 25694(kern-mk-place 'p_deeps_4 "endless deepness" 25695 nil ;; sprite 25696 (kern-mk-map 25697 nil 19 19 pal_expanded 25698 (list 25699 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25700 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25701 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25702 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25703 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25704 ".. .. .. .. .. .. .D .. .. .. .. .. .. .. .. .. .. .. .. " 25705 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25706 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25707 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25708 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25709 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25710 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25711 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25712 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25713 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25714 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25715 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25716 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25717 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25718 ) 25719 ) 25720 #f #t #f #f 25721 ;; subplaces 25722 nil 25723 nil ;; neighbors 25724 (list ;; objects in p_deeps_4 25725 (list 25726 (bind 25727 (kern-mk-obj t_monman 1 25728 ;; hooks 25729 (list 25730 ) 25731 ) 25732 (list 25733 'monman 25734 (list 25735 0 25736 0 25737 0 25738 -1 25739 6 25740 -1 25741 ) 25742 ) 25743 ) ;; bind 25744 0 0) 25745 (list 25746 (bind 25747 (kern-mk-obj t_roomdata 1 25748 ;; hooks 25749 (list 25750 ) 25751 ) 25752 (list 25753 0 25754 4 25755 #f 25756 #f 25757 (list 25758 'p_deeps_1 25759 'p_deeps_2 25760 'p_deeps_5 25761 'p_deeps_3 25762 ) 25763 ) 25764 ) ;; bind 25765 0 0) 25766 ) ;; end of objects in p_deeps_4 25767 (list ;; on-entry-hooks 25768 'deeps-room-handle-deeps 25769 ) 25770 (list ;; edge entrances 25771 (list 0 18 18) ;; Northwest 25772 (list 1 9 18) ;; North 25773 (list 2 0 18) ;; Northeast 25774 (list 3 18 9) ;; West 25775 (list 4 9 9) ;; Here 25776 (list 5 0 9) ;; East 25777 (list 6 18 0) ;; Southwest 25778 (list 7 9 0) ;; South 25779 (list 8 0 0) ;; SoutheastUp 25780 ) 25781) ;; end of place p_deeps_4 25782 25783(kern-mk-place 'p_deeps_5 "endless deepness" 25784 nil ;; sprite 25785 (kern-mk-map 25786 nil 19 19 pal_expanded 25787 (list 25788 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25789 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25790 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25791 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25792 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25793 ".. .. .. .. .. .. .E .. .. .. .. .. .. .. .. .. .. .. .. " 25794 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25795 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25796 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25797 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25798 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25799 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25800 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25801 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. " 25802 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25803 "rr rr rr .. .. .. .. .. .. .. .. .. .. .. .. .. rr rr rr " 25804 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25805 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25806 "rr rr rr rr rr .. .. .. .. .. .. .. .. .. rr rr rr rr rr " 25807 ) 25808 ) 25809 #f #t #f #f 25810 ;; subplaces 25811 nil 25812 nil ;; neighbors 25813 (list ;; objects in p_deeps_5 25814 (list 25815 (bind 25816 (kern-mk-obj t_monman 1 25817 ;; hooks 25818 (list 25819 ) 25820 ) 25821 (list 25822 'monman 25823 (list 25824 0 25825 0 25826 0 25827 -1 25828 6 25829 -1 25830 ) 25831 ) 25832 ) ;; bind 25833 0 0) 25834 (list 25835 (bind 25836 (kern-mk-obj t_roomdata 1 25837 ;; hooks 25838 (list 25839 ) 25840 ) 25841 (list 25842 0 25843 5 25844 #f 25845 #f 25846 (list 25847 'p_deeps_3 25848 'p_deeps_4 25849 'p_deeps_1 25850 'p_deeps_2 25851 ) 25852 ) 25853 ) ;; bind 25854 0 0) 25855 ) ;; end of objects in p_deeps_5 25856 (list ;; on-entry-hooks 25857 'deeps-room-handle-deeps 25858 ) 25859 (list ;; edge entrances 25860 (list 0 18 18) ;; Northwest 25861 (list 1 9 18) ;; North 25862 (list 2 0 18) ;; Northeast 25863 (list 3 18 9) ;; West 25864 (list 4 9 9) ;; Here 25865 (list 5 0 9) ;; East 25866 (list 6 18 0) ;; Southwest 25867 (list 7 9 0) ;; South 25868 (list 8 0 0) ;; SoutheastUp 25869 ) 25870) ;; end of place p_deeps_5 25871 25872(kern-mk-place 'p_forsaken_prison "Forsaken Prison" 25873 nil ;; sprite 25874 (kern-mk-map 25875 nil 19 19 pal_expanded 25876 (list 25877 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 25878 "xx xx xx xx xx ,, ,, xx ,, ,, ,, xx ,, ,, xx xx xx xx xx " 25879 "xx xx xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx xx xx xx " 25880 "xx xx xx xx xx ,, ,, xx ,, ,, ,, xx ,, ,, xx xx xx xx xx " 25881 "xx xx xx xx xx xx xx xx ,, ,, ,, xx xx xx xx xx xx xx xx " 25882 "xx xx xx xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx xx xx xx " 25883 "xx xx xx xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx xx xx xx " 25884 "xx xx xx xx xx ,, xx xx ,, ,, ,, xx xx ,, xx xx xx xx xx " 25885 "xx ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, xx " 25886 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 25887 "xx ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, ,, xx " 25888 "xx xx xx xx xx ,, xx xx ,, ,, ,, xx xx ,, xx xx xx xx xx " 25889 "xx xx xx xx ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx xx xx xx " 25890 "xx xx ?? ?? ,, ,, ,, xx ,, ,, ,, xx ,, ,, ,, xx xx xx xx " 25891 "xx xx ?? xx xx xx xx xx ,, ,, ,, xx xx xx xx xx xx xx xx " 25892 "xx ,, ,, ,, xx ,, ,, xx ,, ,, ,, xx ,, ,, xx xx xx xx xx " 25893 "xx ,, ,, ,, xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx xx xx xx xx " 25894 "xx ,, ,, ,, xx ,, ,, xx ,, ,, ,, xx ,, ,, xx xx xx xx xx " 25895 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 25896 ) 25897 ) 25898 #f #t #f #f 25899 ;; subplaces 25900 nil 25901 nil ;; neighbors 25902 (list ;; objects in p_forsaken_prison 25903 (list 25904 (bind 25905 (kern-mk-obj t_door 1 25906 ;; hooks 25907 (list 25908 ) 25909 ) 25910 (list 25911 #f 25912 0 25913 '() 25914 #f 25915 #t 25916 #f 25917 (list 25918 (list 25919 's_closed_solid_wood_door_in_stone 25920 #t 25921 5 25922 ) 25923 (list 25924 's_open_door_in_stone 25925 #f 25926 0 25927 ) 25928 (list 25929 's_locked_solid_wood_door_in_stone 25930 #t 25931 5 25932 ) 25933 (list 25934 's_magically_locked_solid_wood_door_in_stone 25935 #t 25936 5 25937 ) 25938 ) 25939 ) 25940 ) ;; bind 25941 5 11) 25942 (list 25943 (bind 25944 (kern-mk-obj t_door 1 25945 ;; hooks 25946 (list 25947 ) 25948 ) 25949 (list 25950 #f 25951 0 25952 '() 25953 #f 25954 #t 25955 #f 25956 (list 25957 (list 25958 's_closed_solid_wood_door_in_stone 25959 #t 25960 5 25961 ) 25962 (list 25963 's_open_door_in_stone 25964 #f 25965 0 25966 ) 25967 (list 25968 's_locked_solid_wood_door_in_stone 25969 #t 25970 5 25971 ) 25972 (list 25973 's_magically_locked_solid_wood_door_in_stone 25974 #t 25975 5 25976 ) 25977 ) 25978 ) 25979 ) ;; bind 25980 3 9) 25981 (list 25982 (bind 25983 (kern-mk-obj t_door 1 25984 ;; hooks 25985 (list 25986 ) 25987 ) 25988 (list 25989 #f 25990 0 25991 '() 25992 #f 25993 #t 25994 #f 25995 (list 25996 (list 25997 's_closed_solid_wood_door_in_stone 25998 #t 25999 5 26000 ) 26001 (list 26002 's_open_door_in_stone 26003 #f 26004 0 26005 ) 26006 (list 26007 's_locked_solid_wood_door_in_stone 26008 #t 26009 5 26010 ) 26011 (list 26012 's_magically_locked_solid_wood_door_in_stone 26013 #t 26014 5 26015 ) 26016 ) 26017 ) 26018 ) ;; bind 26019 5 7) 26020 (list 26021 (bind 26022 (kern-mk-char 26023 nil 26024 "bandit" 26025 sp_human 26026 oc_wrogue 26027 s_brigand 26028 8 26029 0 0 0 26030 0 0 26031 0 0 26032 14 1024 26033 6 4 26034 #f ;; dead? 26035 nil 26036 nil 26037 'std-ai 26038 (kern-mk-container 26039 t_chest 26040 ;; trap 26041 'self-destruct-trap 26042 ;; contents 26043 nil 26044 ;; hooks 26045 (list 26046 ) 26047 ) 26048 (list 26049 t_leather_helm 26050 t_sword 26051 t_armor_leather 26052 ) 26053 ;; hooks 26054 (list 26055 (list 26056 ef_loot_drop 26057 (list 26058 'loot-drop-gob 26059 'drop-generic 26060 (list 26061 (list 26062 (list 26063 100 26064 "2d6-2" 26065 't_gold_coins 26066 ) 26067 (list 26068 100 26069 "1d3-1" 26070 't_picklock 26071 ) 26072 (list 26073 50 26074 "1d5" 26075 't_food 26076 ) 26077 (list 26078 10 26079 "1d3" 26080 't_torch 26081 ) 26082 ) 26083 ) 26084 ) 26085 2 26086 0 26087 ) 26088 ) 26089 ) 26090 (list 26091 'npcg 26092 'bandit 26093 #f 26094 #f 26095 '() 26096 ) 26097 ) ;; bind 26098 5 2) 26099 (list 26100 (bind 26101 (kern-mk-char 26102 nil 26103 "cave goblin berserker" 26104 sp_cave_goblin 26105 oc_warrior 26106 s_cgob_berserk 26107 3 26108 0 0 0 26109 0 0 26110 0 0 26111 16 1024 26112 6 4 26113 #f ;; dead? 26114 nil 26115 nil 26116 'generic-ai 26117 (kern-mk-container 26118 t_chest 26119 ;; trap 26120 'spike-trap 26121 ;; contents 26122 (list 26123 (list 2 t_heal_potion) 26124 ) 26125 ;; hooks 26126 (list 26127 ) 26128 ) 26129 (list 26130 t_axe 26131 t_axe 26132 ) 26133 ;; hooks 26134 (list 26135 (list 26136 ef_loot_drop 26137 (list 26138 'loot-drop-gob 26139 'drop-generic 26140 (list 26141 (list 26142 (list 26143 100 26144 "1d2" 26145 't_heal_potion 26146 ) 26147 (list 26148 100 26149 "1d15" 26150 't_gold_coins 26151 ) 26152 (list 26153 30 26154 "1d3" 26155 't_food 26156 ) 26157 ) 26158 ) 26159 ) 26160 2 26161 0 26162 ) 26163 ) 26164 ) 26165 (list 26166 'npcg 26167 'cave-goblin-berserker 26168 #f 26169 #f 26170 '() 26171 ) 26172 ) ;; bind 26173 6 15) 26174 (list 26175 (bind 26176 (kern-mk-char 26177 nil 26178 "troll" 26179 sp_troll 26180 oc_warrior 26181 s_troll 26182 6 26183 0 0 0 26184 0 0 26185 0 0 26186 32 4096 26187 8 6 26188 #f ;; dead? 26189 nil 26190 nil 26191 'std-ai 26192 (kern-mk-container 26193 t_chest 26194 ;; trap 26195 nil 26196 ;; contents 26197 (list 26198 (list 2 t_thrown_boulder) 26199 ) 26200 ;; hooks 26201 (list 26202 ) 26203 ) 26204 (list 26205 t_thrown_boulder 26206 ) 26207 ;; hooks 26208 (list 26209 (list 26210 ef_loot_drop 26211 (list 26212 'loot-drop-gob 26213 'drop-generic 26214 (list 26215 (list 26216 (list 26217 100 26218 "1d3-1" 26219 't_thrown_boulder 26220 ) 26221 (list 26222 25 26223 "1d3" 26224 't_food 26225 ) 26226 (list 26227 100 26228 "2d10" 26229 't_gold_coins 26230 ) 26231 ) 26232 ) 26233 ) 26234 2 26235 0 26236 ) 26237 ) 26238 ) 26239 (list 26240 'npcg 26241 'troll 26242 #f 26243 #f 26244 '() 26245 ) 26246 ) ;; bind 26247 2 9) 26248 (list 26249 (bind 26250 (kern-mk-char 26251 nil 26252 "warlock" 26253 sp_human 26254 oc_wizard 26255 s_wizard 26256 5 26257 0 0 0 26258 0 0 26259 0 0 26260 18 16384 26261 10 8 26262 #f ;; dead? 26263 nil 26264 nil 26265 'warlock-ai 26266 (kern-mk-container 26267 t_chest 26268 ;; trap 26269 'lightning-trap 26270 ;; contents 26271 nil 26272 ;; hooks 26273 (list 26274 ) 26275 ) 26276 (list 26277 t_dagger 26278 ) 26279 ;; hooks 26280 (list 26281 (list 26282 ef_loot_drop 26283 (list 26284 'loot-drop-gob 26285 'drop-generic 26286 (list 26287 (list 26288 (list 26289 100 26290 "1d2-1" 26291 't_heal_potion 26292 ) 26293 (list 26294 100 26295 "1d2+1" 26296 't_mana_potion 26297 ) 26298 (list 26299 100 26300 "1d20" 26301 't_gold_coins 26302 ) 26303 (list 26304 10 26305 "1d3" 26306 't_food 26307 ) 26308 (list 26309 10 26310 "1" 26311 't_cure_potion 26312 ) 26313 (list 26314 10 26315 "1" 26316 't_poison_immunity_potion 26317 ) 26318 (list 26319 20 26320 "1d5" 26321 'sulphorous_ash 26322 ) 26323 (list 26324 20 26325 "1d5" 26326 'ginseng 26327 ) 26328 (list 26329 20 26330 "1d5" 26331 'garlic 26332 ) 26333 (list 26334 10 26335 "1d3" 26336 'spider_silk 26337 ) 26338 (list 26339 10 26340 "1d3" 26341 'blood_moss 26342 ) 26343 (list 26344 10 26345 "1d3" 26346 'black_pearl 26347 ) 26348 (list 26349 5 26350 "1d2" 26351 'nightshade 26352 ) 26353 (list 26354 5 26355 "1d2" 26356 'mandrake 26357 ) 26358 (list 26359 5 26360 "1" 26361 't_in_mani_corp_scroll 26362 ) 26363 (list 26364 5 26365 "1" 26366 't_xen_corp_scroll 26367 ) 26368 (list 26369 10 26370 "1" 26371 't_in_quas_xen_scroll 26372 ) 26373 (list 26374 10 26375 "1" 26376 't_an_xen_exe_scroll 26377 ) 26378 (list 26379 20 26380 "1" 26381 't_in_an_scroll 26382 ) 26383 (list 26384 20 26385 "1" 26386 't_vas_mani_scroll 26387 ) 26388 ) 26389 ) 26390 ) 26391 2 26392 0 26393 ) 26394 ) 26395 ) 26396 (list 26397 'npcg 26398 'warlock 26399 #f 26400 #f 26401 '() 26402 ) 26403 ) ;; bind 26404 13 16) 26405 (list 26406 (bind 26407 (kern-mk-char 26408 nil 26409 "halberdier" 26410 sp_human 26411 oc_warrior 26412 s_guard 26413 5 26414 0 0 0 26415 0 0 26416 0 0 26417 13 512 26418 5 3 26419 #f ;; dead? 26420 nil 26421 nil 26422 'guard-ai 26423 (kern-mk-container 26424 t_chest 26425 ;; trap 26426 nil 26427 ;; contents 26428 (list 26429 (list 2 t_heal_potion) 26430 (list 1 t_in_an_scroll) 26431 ) 26432 ;; hooks 26433 (list 26434 ) 26435 ) 26436 (list 26437 t_chain_coif 26438 t_halberd 26439 t_armor_chain 26440 ) 26441 ;; hooks 26442 (list 26443 (list 26444 ef_loot_drop 26445 (list 26446 'loot-drop-gob 26447 'drop-generic 26448 (list 26449 (list 26450 (list 26451 100 26452 "1d3-1" 26453 't_heal_potion 26454 ) 26455 (list 26456 10 26457 "1" 26458 't_vas_mani_scroll 26459 ) 26460 (list 26461 10 26462 "1" 26463 't_in_an_scroll 26464 ) 26465 (list 26466 50 26467 "1d5" 26468 't_food 26469 ) 26470 ) 26471 ) 26472 ) 26473 2 26474 0 26475 ) 26476 ) 26477 ) 26478 (list 26479 'npcg 26480 'corrupt-halberdier 26481 #f 26482 #f 26483 '() 26484 ) 26485 ) ;; bind 26486 17 9) 26487 (list 26488 (bind 26489 (kern-mk-char 26490 nil 26491 "skeletal warrior" 26492 sp_skeleton 26493 oc_warrior 26494 s_skeleton 26495 5 26496 0 0 0 26497 0 0 26498 0 0 26499 17 2048 26500 7 5 26501 #f ;; dead? 26502 nil 26503 nil 26504 'generic-ai 26505 (kern-mk-container 26506 t_chest 26507 ;; trap 26508 nil 26509 ;; contents 26510 nil 26511 ;; hooks 26512 (list 26513 ) 26514 ) 26515 (list 26516 t_iron_helm 26517 t_shield 26518 t_sword 26519 ) 26520 ;; hooks 26521 (list 26522 (list 26523 ef_poison_immunity 26524 '() 26525 2 26526 0 26527 ) 26528 (list 26529 ef_disease_immunity 26530 '() 26531 2 26532 0 26533 ) 26534 (list 26535 ef_fire_immunity 26536 '() 26537 2 26538 0 26539 ) 26540 (list 26541 ef_loot_drop 26542 (list 26543 'loot-drop-gob 26544 'drop-generic 26545 (list 26546 (list 26547 (list 26548 100 26549 "1d20" 26550 't_gold_coins 26551 ) 26552 ) 26553 ) 26554 ) 26555 2 26556 0 26557 ) 26558 ) 26559 ) 26560 (list 26561 'npcg 26562 'skeletal-warrior 26563 #f 26564 #f 26565 '() 26566 ) 26567 ) ;; bind 26568 13 1) 26569 (list 26570 (bind 26571 (kern-mk-obj t_corpse 1 26572 ;; hooks 26573 (list 26574 ) 26575 ) 26576 (list 26577 (list 26578 (list 26579 2 26580 't_bolt 26581 ) 26582 ) 26583 ) 26584 ) ;; bind 26585 14 5) 26586 (list 26587 (bind 26588 (kern-mk-obj t_corpse 1 26589 ;; hooks 26590 (list 26591 ) 26592 ) 26593 (list 26594 (list 26595 (list 26596 4 26597 't_arrow 26598 ) 26599 ) 26600 ) 26601 ) ;; bind 26602 12 12) 26603 (list 26604 (bind 26605 (kern-mk-obj t_corpse 1 26606 ;; hooks 26607 (list 26608 ) 26609 ) 26610 (list 26611 (list 26612 (list 26613 5 26614 't_gold_coins 26615 ) 26616 (list 26617 1 26618 't_food 26619 ) 26620 ) 26621 ) 26622 ) ;; bind 26623 14 5) 26624 (list 26625 (bind 26626 (kern-mk-obj t_corpse 1 26627 ;; hooks 26628 (list 26629 ) 26630 ) 26631 (list 26632 (list 26633 (list 26634 4 26635 't_bolt 26636 ) 26637 (list 26638 4 26639 't_gold_coins 26640 ) 26641 ) 26642 ) 26643 ) ;; bind 26644 5 6) 26645 (list 26646 (bind 26647 (kern-mk-obj t_monman 1 26648 ;; hooks 26649 (list 26650 ) 26651 ) 26652 (list 26653 'monman 26654 (list 26655 0 26656 0 26657 0 26658 -1 26659 6 26660 -1 26661 ) 26662 ) 26663 ) ;; bind 26664 0 0) 26665 (list 26666 (bind 26667 (kern-mk-obj t_ladder_up 1 26668 ;; hooks 26669 (list 26670 ) 26671 ) 26672 (list 26673 'p_paladins_hold 26674 8 26675 17 26676 ) 26677 ) ;; bind 26678 9 9) 26679 (list 26680 (bind 26681 (kern-mk-obj t_ladder_up 1 26682 ;; hooks 26683 (list 26684 ) 26685 ) 26686 (list 26687 'p_mans_hideout 26688 9 26689 3 26690 ) 26691 ) ;; bind 26692 2 16) 26693 (list 26694 (bind 26695 (kern-mk-obj t_door 1 26696 ;; hooks 26697 (list 26698 ) 26699 ) 26700 (list 26701 #f 26702 0 26703 '() 26704 #f 26705 #t 26706 #f 26707 (list 26708 (list 26709 's_closed_solid_wood_door_in_stone 26710 #t 26711 5 26712 ) 26713 (list 26714 's_open_door_in_stone 26715 #f 26716 0 26717 ) 26718 (list 26719 's_locked_solid_wood_door_in_stone 26720 #t 26721 5 26722 ) 26723 (list 26724 's_magically_locked_solid_wood_door_in_stone 26725 #t 26726 5 26727 ) 26728 ) 26729 ) 26730 ) ;; bind 26731 7 2) 26732 (list 26733 (bind 26734 (kern-mk-obj t_door 1 26735 ;; hooks 26736 (list 26737 ) 26738 ) 26739 (list 26740 #f 26741 0 26742 '() 26743 #f 26744 #t 26745 #f 26746 (list 26747 (list 26748 's_closed_solid_wood_door_in_stone 26749 #t 26750 5 26751 ) 26752 (list 26753 's_open_door_in_stone 26754 #f 26755 0 26756 ) 26757 (list 26758 's_locked_solid_wood_door_in_stone 26759 #t 26760 5 26761 ) 26762 (list 26763 's_magically_locked_solid_wood_door_in_stone 26764 #t 26765 5 26766 ) 26767 ) 26768 ) 26769 ) ;; bind 26770 11 2) 26771 (list 26772 (bind 26773 (kern-mk-obj t_door 1 26774 ;; hooks 26775 (list 26776 ) 26777 ) 26778 (list 26779 #f 26780 0 26781 '() 26782 #f 26783 #t 26784 #f 26785 (list 26786 (list 26787 's_closed_solid_wood_door_in_stone 26788 #t 26789 5 26790 ) 26791 (list 26792 's_open_door_in_stone 26793 #f 26794 0 26795 ) 26796 (list 26797 's_locked_solid_wood_door_in_stone 26798 #t 26799 5 26800 ) 26801 (list 26802 's_magically_locked_solid_wood_door_in_stone 26803 #t 26804 5 26805 ) 26806 ) 26807 ) 26808 ) ;; bind 26809 13 7) 26810 (list 26811 (bind 26812 (kern-mk-obj t_door 1 26813 ;; hooks 26814 (list 26815 ) 26816 ) 26817 (list 26818 #f 26819 0 26820 '() 26821 #f 26822 #t 26823 #f 26824 (list 26825 (list 26826 's_closed_solid_wood_door_in_stone 26827 #t 26828 5 26829 ) 26830 (list 26831 's_open_door_in_stone 26832 #f 26833 0 26834 ) 26835 (list 26836 's_locked_solid_wood_door_in_stone 26837 #t 26838 5 26839 ) 26840 (list 26841 's_magically_locked_solid_wood_door_in_stone 26842 #t 26843 5 26844 ) 26845 ) 26846 ) 26847 ) ;; bind 26848 15 9) 26849 (list 26850 (bind 26851 (kern-mk-obj t_door 1 26852 ;; hooks 26853 (list 26854 ) 26855 ) 26856 (list 26857 #f 26858 0 26859 '() 26860 #f 26861 #t 26862 #f 26863 (list 26864 (list 26865 's_closed_solid_wood_door_in_stone 26866 #t 26867 5 26868 ) 26869 (list 26870 's_open_door_in_stone 26871 #f 26872 0 26873 ) 26874 (list 26875 's_locked_solid_wood_door_in_stone 26876 #t 26877 5 26878 ) 26879 (list 26880 's_magically_locked_solid_wood_door_in_stone 26881 #t 26882 5 26883 ) 26884 ) 26885 ) 26886 ) ;; bind 26887 13 11) 26888 (list 26889 (bind 26890 (kern-mk-obj t_door 1 26891 ;; hooks 26892 (list 26893 ) 26894 ) 26895 (list 26896 #f 26897 0 26898 '() 26899 #f 26900 #t 26901 #f 26902 (list 26903 (list 26904 's_closed_solid_wood_door_in_stone 26905 #t 26906 5 26907 ) 26908 (list 26909 's_open_door_in_stone 26910 #f 26911 0 26912 ) 26913 (list 26914 's_locked_solid_wood_door_in_stone 26915 #t 26916 5 26917 ) 26918 (list 26919 's_magically_locked_solid_wood_door_in_stone 26920 #t 26921 5 26922 ) 26923 ) 26924 ) 26925 ) ;; bind 26926 11 16) 26927 (list 26928 (bind 26929 (kern-mk-obj t_door 1 26930 ;; hooks 26931 (list 26932 ) 26933 ) 26934 (list 26935 #f 26936 0 26937 '() 26938 #f 26939 #t 26940 #f 26941 (list 26942 (list 26943 's_closed_solid_wood_door_in_stone 26944 #t 26945 5 26946 ) 26947 (list 26948 's_open_door_in_stone 26949 #f 26950 0 26951 ) 26952 (list 26953 's_locked_solid_wood_door_in_stone 26954 #t 26955 5 26956 ) 26957 (list 26958 's_magically_locked_solid_wood_door_in_stone 26959 #t 26960 5 26961 ) 26962 ) 26963 ) 26964 ) ;; bind 26965 7 16) 26966 ) ;; end of objects in p_forsaken_prison 26967 (list ;; on-entry-hooks 26968 'on-entry-to-dungeon-room 26969 ) 26970 (list ;; edge entrances 26971 (list 0 18 18) ;; Northwest 26972 (list 1 9 18) ;; North 26973 (list 2 0 18) ;; Northeast 26974 (list 3 18 9) ;; West 26975 (list 4 9 9) ;; Here 26976 (list 5 0 9) ;; East 26977 (list 6 18 0) ;; Southwest 26978 (list 7 9 0) ;; South 26979 (list 8 0 0) ;; SoutheastUp 26980 ) 26981) ;; end of place p_forsaken_prison 26982 26983(kern-mk-place 'p_old_mine "Old Mine" 26984 nil ;; sprite 26985 (kern-mk-map 26986 nil 19 19 pal_expanded 26987 (list 26988 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 26989 "rr rr bb bb rr rr rr rr rr bb bb bb .. .. .. .. bb bb rr " 26990 "rr bb .. .. bb rr rr rr bb .. .. .. .. .. .. .. .. bb rr " 26991 "rr bb .. .. .. .. .. .. .. .. .. .. rr rr .. .. .. bb rr " 26992 "rr rr .. .. .. .. .. .. .. .. .. bb rr rr rr .. .. rr rr " 26993 "rr rr .. .. rr rr rr rr .. .. .. rr rr rr rr .. .. rr rr " 26994 "rr rr .. .. bb rr rr rr rr .. .. bb bb rr rr .. .. rr rr " 26995 "rr rr .. .. .. bb bb bb bb .. .. .. bb .. bb .. .. rr rr " 26996 "rr rr .. .. .. bb bb .. .. .. .. .. .. .. .. .. .. rr rr " 26997 "rr rr .. .. bb rr .. .. .. .. .. .. .. .. .. .. .. rr rr " 26998 "rr rr .. .. rr bb .. .. .. .. .. rr rr .. .. .. .. bb rr " 26999 "rr rr .. .. rr rr .. .. .. .. bb rr rr rr rr .. .. rr rr " 27000 "rr rr .. .. .. bb .. .. rr bb rr rr rr rr rr .. .. rr rr " 27001 "rr rr .. .. .. .. .. rr rr rr rr .. .. rr .. .. .. rr rr " 27002 "rr bb .. .. .. .. .. rr .. .. .. .. .. .. .. .. .. rr rr " 27003 "rr bb .. .. .. .. .. .. .. .. .. .. .. .. .. rr .. rr rr " 27004 "rr rr bb .. .. .. .. .. .. rr rr .. .. rr rr rr .. .. rr " 27005 "rr rr rr rr bb rr rr rr rr rr rr rr rr rr rr rr .. .. rr " 27006 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 27007 ) 27008 ) 27009 #f #t #f #f 27010 ;; subplaces 27011 nil 27012 nil ;; neighbors 27013 (list ;; objects in p_old_mine 27014 (list 27015 (bind 27016 (kern-mk-obj t_step_trig 1 27017 ;; hooks 27018 (list 27019 (list 27020 ef_permanent_invisibility 27021 '() 27022 2 27023 0 27024 ) 27025 ) 27026 ) 27027 (list 27028 'wind-trap 27029 '() 27030 ) 27031 ) ;; bind 27032 15 14) 27033 (list 27034 (bind 27035 (kern-mk-obj t_step_trig 1 27036 ;; hooks 27037 (list 27038 (list 27039 ef_permanent_invisibility 27040 '() 27041 2 27042 0 27043 ) 27044 ) 27045 ) 27046 (list 27047 'wind-trap 27048 '() 27049 ) 27050 ) ;; bind 27051 16 12) 27052 (list 27053 (bind 27054 (kern-mk-obj t_step_trig 1 27055 ;; hooks 27056 (list 27057 (list 27058 ef_permanent_invisibility 27059 '() 27060 2 27061 0 27062 ) 27063 ) 27064 ) 27065 (list 27066 'wind-trap 27067 '() 27068 ) 27069 ) ;; bind 27070 2 8) 27071 (list 27072 (bind 27073 (kern-mk-obj t_step_trig 1 27074 ;; hooks 27075 (list 27076 (list 27077 ef_permanent_invisibility 27078 '() 27079 2 27080 0 27081 ) 27082 ) 27083 ) 27084 (list 27085 'wind-trap 27086 '() 27087 ) 27088 ) ;; bind 27089 10 3) 27090 (list 27091 (kern-mk-obj t_gem 8 27092 ;; hooks 27093 (list 27094 ) 27095 ) 27096 6 7) 27097 (list 27098 (kern-mk-obj t_gem 3 27099 ;; hooks 27100 (list 27101 ) 27102 ) 27103 1 14) 27104 (list 27105 (kern-mk-obj t_gem 7 27106 ;; hooks 27107 (list 27108 ) 27109 ) 27110 11 1) 27111 (list 27112 (kern-mk-obj t_gem 5 27113 ;; hooks 27114 (list 27115 ) 27116 ) 27117 1 2) 27118 (list 27119 (kern-mk-obj t_gem 5 27120 ;; hooks 27121 (list 27122 ) 27123 ) 27124 2 1) 27125 (list 27126 (kern-mk-obj t_gem 2 27127 ;; hooks 27128 (list 27129 ) 27130 ) 27131 9 1) 27132 (list 27133 (kern-mk-obj t_gem 4 27134 ;; hooks 27135 (list 27136 ) 27137 ) 27138 17 3) 27139 (list 27140 (kern-mk-obj t_gem 3 27141 ;; hooks 27142 (list 27143 ) 27144 ) 27145 4 9) 27146 (list 27147 (kern-mk-obj t_gem 8 27148 ;; hooks 27149 (list 27150 ) 27151 ) 27152 5 12) 27153 (list 27154 (kern-mk-obj t_gem 9 27155 ;; hooks 27156 (list 27157 ) 27158 ) 27159 5 12) 27160 (list 27161 (bind 27162 (kern-mk-obj t_corpse 1 27163 ;; hooks 27164 (list 27165 ) 27166 ) 27167 (list 27168 (list 27169 (list 27170 1 27171 't_gold_coins 27172 ) 27173 ) 27174 ) 27175 ) ;; bind 27176 3 9) 27177 (list 27178 (bind 27179 (kern-mk-obj t_corpse 1 27180 ;; hooks 27181 (list 27182 ) 27183 ) 27184 (list 27185 (list 27186 (list 27187 1 27188 't_mana_potion 27189 ) 27190 (list 27191 1 27192 't_food 27193 ) 27194 ) 27195 ) 27196 ) ;; bind 27197 15 6) 27198 (list 27199 (bind 27200 (kern-mk-obj t_corpse 1 27201 ;; hooks 27202 (list 27203 ) 27204 ) 27205 (list 27206 (list 27207 (list 27208 2 27209 't_bolt 27210 ) 27211 ) 27212 ) 27213 ) ;; bind 27214 8 3) 27215 (list 27216 (bind 27217 (kern-mk-obj t_corpse 1 27218 ;; hooks 27219 (list 27220 ) 27221 ) 27222 (list 27223 (list 27224 (list 27225 1 27226 't_mana_potion 27227 ) 27228 (list 27229 2 27230 't_arrow 27231 ) 27232 (list 27233 1 27234 't_mana_potion 27235 ) 27236 ) 27237 ) 27238 ) ;; bind 27239 9 9) 27240 (list 27241 (bind 27242 (kern-mk-obj t_corpse 1 27243 ;; hooks 27244 (list 27245 ) 27246 ) 27247 (list 27248 (list 27249 (list 27250 1 27251 't_gold_coins 27252 ) 27253 ) 27254 ) 27255 ) ;; bind 27256 8 14) 27257 (list 27258 (kern-mk-field f_web_perm -1) 2 1) 27259 (list 27260 (kern-mk-field f_web_perm -1) 3 1) 27261 (list 27262 (kern-mk-field f_web_perm -1) 1 2) 27263 (list 27264 (kern-mk-field f_web_perm -1) 2 2) 27265 (list 27266 (kern-mk-field f_web_perm -1) 3 2) 27267 (list 27268 (kern-mk-field f_web_perm -1) 4 2) 27269 (list 27270 (kern-mk-field f_web_perm -1) 1 3) 27271 (list 27272 (kern-mk-field f_web_perm -1) 2 3) 27273 (list 27274 (kern-mk-field f_web_perm -1) 3 3) 27275 (list 27276 (kern-mk-field f_web_perm -1) 4 3) 27277 (list 27278 (kern-mk-field f_web_perm -1) 5 3) 27279 (list 27280 (kern-mk-field f_web_perm -1) 2 4) 27281 (list 27282 (kern-mk-field f_web_perm -1) 3 4) 27283 (list 27284 (kern-mk-field f_web_perm -1) 4 4) 27285 (list 27286 (kern-mk-field f_web_perm -1) 5 4) 27287 (list 27288 (kern-mk-field f_web_perm -1) 2 5) 27289 (list 27290 (kern-mk-field f_web_perm -1) 3 5) 27291 (list 27292 (kern-mk-field f_web_perm -1) 2 6) 27293 (list 27294 (kern-mk-field f_web_perm -1) 3 6) 27295 (list 27296 (kern-mk-field f_web_perm -1) 4 6) 27297 (list 27298 (bind 27299 (kern-mk-obj t_monman 1 27300 ;; hooks 27301 (list 27302 ) 27303 ) 27304 (list 27305 'monman 27306 (list 27307 0 27308 0 27309 0 27310 -1 27311 6 27312 -1 27313 ) 27314 ) 27315 ) ;; bind 27316 0 0) 27317 (list 27318 (bind 27319 (kern-mk-obj t_ladder_down 1 27320 ;; hooks 27321 (list 27322 ) 27323 ) 27324 (list 27325 'p_trolls_den 27326 3 27327 15 27328 ) 27329 ) ;; bind 27330 17 17) 27331 (list 27332 (bind 27333 (kern-mk-obj t_guard_pt 1 27334 ;; hooks 27335 (list 27336 ) 27337 ) 27338 (list 27339 'spawn-pt 27340 'skeletal-warrior 27341 ) 27342 ) ;; bind 27343 4 15) 27344 (list 27345 (bind 27346 (kern-mk-obj t_guard_pt 1 27347 ;; hooks 27348 (list 27349 ) 27350 ) 27351 (list 27352 'spawn-pt 27353 'skeletal-warrior 27354 ) 27355 ) ;; bind 27356 15 2) 27357 (list 27358 (bind 27359 (kern-mk-obj t_guard_pt 1 27360 ;; hooks 27361 (list 27362 ) 27363 ) 27364 (list 27365 'spawn-pt 27366 'skeletal-spear-thrower 27367 ) 27368 ) ;; bind 27369 9 9) 27370 (list 27371 (bind 27372 (kern-mk-obj t_spawn_pt 1 27373 ;; hooks 27374 (list 27375 ) 27376 ) 27377 (list 27378 'spawn-pt 27379 'ghast 27380 ) 27381 ) ;; bind 27382 15 9) 27383 (list 27384 (bind 27385 (kern-mk-obj t_spawn_pt 1 27386 ;; hooks 27387 (list 27388 ) 27389 ) 27390 (list 27391 'spawn-pt 27392 'ghast 27393 ) 27394 ) ;; bind 27395 11 14) 27396 (list 27397 (bind 27398 (kern-mk-obj t_spawn_pt 1 27399 ;; hooks 27400 (list 27401 ) 27402 ) 27403 (list 27404 'spawn-pt 27405 'ghast 27406 ) 27407 ) ;; bind 27408 9 4) 27409 (list 27410 (bind 27411 (kern-mk-obj t_spawn_pt 1 27412 ;; hooks 27413 (list 27414 ) 27415 ) 27416 (list 27417 'spawn-pt 27418 'giant-spider 27419 ) 27420 ) ;; bind 27421 3 3) 27422 (list 27423 (bind 27424 (kern-mk-obj t_spawn_pt 1 27425 ;; hooks 27426 (list 27427 ) 27428 ) 27429 (list 27430 'spawn-pt 27431 'giant-spider 27432 ) 27433 ) ;; bind 27434 4 4) 27435 ) ;; end of objects in p_old_mine 27436 (list ;; on-entry-hooks 27437 'on-entry-to-dungeon-room 27438 ) 27439 (list ;; edge entrances 27440 (list 0 18 18) ;; Northwest 27441 (list 1 9 18) ;; North 27442 (list 2 0 18) ;; Northeast 27443 (list 3 18 9) ;; West 27444 (list 4 9 9) ;; Here 27445 (list 5 0 9) ;; East 27446 (list 6 18 0) ;; Southwest 27447 (list 7 9 0) ;; South 27448 (list 8 0 0) ;; SoutheastUp 27449 ) 27450) ;; end of place p_old_mine 27451 27452(kern-mk-place 'p_lich_tomb "Lich Tomb" 27453 nil ;; sprite 27454 (kern-mk-map 27455 nil 19 19 pal_expanded 27456 (list 27457 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 27458 "xx %3 %% %% %5 pp ,, ,, ,, cc ,, ,, ,, pp %3 %% %% %5 xx " 27459 "xx %% %% %% %% ,, ,, cc cc cc cc cc ,, ,, %% %% %% %% xx " 27460 "xx %% %% %% %% ,, cc cc cc cc cc cc cc ,, %% %% %% %% xx " 27461 "xx %% %% %% %% ,, ,, cc cc cc cc cc ,, ,, %% %% %% %% xx " 27462 "xx %% %% %% %% pp ,, ,, cc cc cc ,, ,, pp %% %% %% %% xx " 27463 "xx %a %% %% %% %% %% ,, cc cc cc ,, %% %% %% %% %% %c xx " 27464 "xx .. %a %% %% %% %% pp cc cc cc pp %% %% %% %% %c .. xx " 27465 "xx .. .. %a %% %% %% ,, cc cc cc ,, %% %% %% %c .. .. xx " 27466 "xx .. .. .. %a %% %c pp cc cc cc pp %a %% %c .. .. .. xx " 27467 "xx .. .. .. .. .. .. ,, cc cc cc ,, .. .. .. .. .. .. xx " 27468 "xx .. .. .. .. .. .. pp cc cc cc pp .. .. .. .. .. .. xx " 27469 "xx .. .. .. .. .. .. ,, cc cc cc ,, .. .. .. .. .. .. xx " 27470 "xx .. .. .. .. .. .. pp cc cc cc pp .. .. .. .. .. .. xx " 27471 "xx .. .. .. .. .. .. ,, cc cc cc ,, .. .. .. .. .. .. xx " 27472 "xx .. .. .. .. .. .. pp cc cc cc pp .. .. .. .. .. .. xx " 27473 "xx .. .. .. .. .. .. ,, cc cc cc ,, .. .. .. .. .. .. xx " 27474 "xx .. .. .. .. .. .. pp cc cc cc pp .. .. .. .. .. .. xx " 27475 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 27476 ) 27477 ) 27478 #f #t #f #f 27479 ;; subplaces 27480 nil 27481 nil ;; neighbors 27482 (list ;; objects in p_lich_tomb 27483 (list 27484 (bind 27485 (kern-mk-obj t_monman 1 27486 ;; hooks 27487 (list 27488 ) 27489 ) 27490 (list 27491 'monman 27492 (list 27493 0 27494 0 27495 0 27496 -1 27497 6 27498 -1 27499 ) 27500 ) 27501 ) ;; bind 27502 0 0) 27503 (list 27504 (bind 27505 (kern-mk-obj t_ladder_up 1 27506 ;; hooks 27507 (list 27508 ) 27509 ) 27510 (list 27511 'p_crypt 27512 9 27513 10 27514 ) 27515 ) ;; bind 27516 9 16) 27517 (list 27518 (kern-mk-field f_sleep_perm -1) 8 1) 27519 (list 27520 (kern-mk-field f_sleep_perm -1) 10 1) 27521 (list 27522 (bind 27523 (kern-char-force-drop (kern-mk-char 27524 'ch_lich_king 27525 "Lich King" 27526 sp_lich 27527 oc_wizard 27528 s_lich 27529 5 27530 10 10 10 27531 10 1 27532 0 0 27533 54 0 27534 50 8 27535 #f ;; dead? 27536 nil 27537 nil 27538 'lich-ai 27539 (kern-mk-container 27540 t_chest 27541 ;; trap 27542 'lightning-trap 27543 ;; contents 27544 (list 27545 (list 1 t_morning_star) 27546 (list 1 t_armor_chain_4) 27547 (list 1 t_chain_coif_4) 27548 (list 100 t_gold_coins) 27549 (list 3 t_mana_potion) 27550 (list 3 t_heal_potion) 27551 (list 1 t_lich_skull) 27552 ) 27553 ;; hooks 27554 (list 27555 ) 27556 ) 27557 nil 27558 ;; hooks 27559 (list 27560 (list 27561 ef_poison_immunity 27562 '() 27563 2 27564 0 27565 ) 27566 (list 27567 ef_disease_immunity 27568 '() 27569 2 27570 0 27571 ) 27572 (list 27573 ef_fire_immunity 27574 '() 27575 2 27576 0 27577 ) 27578 ) 27579 ) 27580 #t) ;; kern-char-force-drop 27581 '() 27582 ) ;; bind 27583 9 2) 27584 ) ;; end of objects in p_lich_tomb 27585 (list ;; on-entry-hooks 27586 'on-entry-to-dungeon-room 27587 ) 27588 (list ;; edge entrances 27589 (list 0 18 18) ;; Northwest 27590 (list 1 9 18) ;; North 27591 (list 2 0 18) ;; Northeast 27592 (list 3 18 9) ;; West 27593 (list 4 9 9) ;; Here 27594 (list 5 0 9) ;; East 27595 (list 6 18 0) ;; Southwest 27596 (list 7 9 0) ;; South 27597 (list 8 0 0) ;; SoutheastUp 27598 ) 27599) ;; end of place p_lich_tomb 27600 27601(kern-mk-place 'p_altar_room "Altar Room" 27602 nil ;; sprite 27603 (kern-mk-map 27604 nil 19 19 pal_expanded 27605 (list 27606 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 27607 "xx xx xx xx xx xx xx pp ,, ,, ,, pp xx xx xx xx xx xx xx " 27608 "xx xx ,, ,, ,, ,, ,, ,, cc cc cc ,, ,, ,, ,, ,, ,, xx xx " 27609 "xx xx ,, cc cc cc cc cc cc aa cc cc cc cc cc cc ,, xx xx " 27610 "xx xx ,, cc ,, ,, ,, ,, cc cc cc ,, ,, ,, ,, cc ,, xx xx " 27611 "xx xx ,, cc ,, xx xx pp ,, cc ,, pp xx xx ,, cc ,, xx xx " 27612 "xx xx ,, cc ,, xx xx xx ,, cc ,, xx xx xx ,, cc ,, xx xx " 27613 "xx pp ,, cc ,, pp xx xx vv vv vv xx xx pp ,, cc ,, pp xx " 27614 "xx ,, cc cc cc ,, ,, vv vv vv vv vv ,, ,, cc cc cc ,, xx " 27615 "xx ,, cc aa cc cc cc vv vv vv vv vv cc cc cc aa cc ,, xx " 27616 "xx ,, cc cc cc ,, ,, vv vv vv vv vv ,, ,, cc cc cc ,, xx " 27617 "xx pp ,, cc ,, pp xx xx vv vv vv xx xx pp ,, cc ,, pp xx " 27618 "xx xx ,, cc ,, xx xx xx ,, cc ,, xx xx xx ,, cc ,, xx xx " 27619 "xx xx ,, cc ,, xx xx pp ,, cc ,, pp xx xx ,, cc ,, xx xx " 27620 "xx xx ,, cc ,, ,, ,, ,, cc cc cc ,, ,, ,, ,, cc ,, xx xx " 27621 "xx xx ,, cc cc cc cc cc cc aa cc cc cc cc cc cc ,, xx xx " 27622 "xx xx ,, ,, ,, ,, ,, ,, cc cc cc ,, ,, ,, ,, ,, ,, ,, xx " 27623 "xx xx xx xx xx xx xx pp ,, ,, ,, pp xx xx xx xx ,, ,, xx " 27624 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 27625 ) 27626 ) 27627 #f #t #f #f 27628 ;; subplaces 27629 nil 27630 nil ;; neighbors 27631 (list ;; objects in p_altar_room 27632 (list 27633 (bind 27634 (kern-mk-obj t_spawn_pt 1 27635 ;; hooks 27636 (list 27637 ) 27638 ) 27639 (list 27640 'spawn-pt 27641 'warlock 27642 ) 27643 ) ;; bind 27644 6 9) 27645 (list 27646 (bind 27647 (kern-mk-obj t_spawn_pt 1 27648 ;; hooks 27649 (list 27650 ) 27651 ) 27652 (list 27653 'spawn-pt 27654 'warlock 27655 ) 27656 ) ;; bind 27657 12 9) 27658 (list 27659 (bind 27660 (kern-mk-obj t_monman 1 27661 ;; hooks 27662 (list 27663 ) 27664 ) 27665 (list 27666 'monman 27667 (list 27668 0 27669 0 27670 0 27671 -1 27672 6 27673 -1 27674 ) 27675 ) 27676 ) ;; bind 27677 0 0) 27678 (list 27679 (bind 27680 (kern-mk-obj t_ladder_up 1 27681 ;; hooks 27682 (list 27683 ) 27684 ) 27685 (list 27686 'p_death_knights_hold 27687 17 27688 9 27689 ) 27690 ) ;; bind 27691 17 17) 27692 (list 27693 (bind 27694 (kern-mk-char 27695 nil 27696 "warlock" 27697 sp_human 27698 oc_wizard 27699 s_wizard 27700 5 27701 0 0 0 27702 0 0 27703 0 0 27704 30 67108864 27705 22 20 27706 #f ;; dead? 27707 nil 27708 nil 27709 'warlock-ai 27710 (kern-mk-container 27711 t_chest 27712 ;; trap 27713 nil 27714 ;; contents 27715 nil 27716 ;; hooks 27717 (list 27718 ) 27719 ) 27720 (list 27721 t_dagger 27722 ) 27723 ;; hooks 27724 (list 27725 (list 27726 ef_loot_drop 27727 (list 27728 'loot-drop-gob 27729 'drop-generic 27730 (list 27731 (list 27732 (list 27733 100 27734 "1d2-1" 27735 't_heal_potion 27736 ) 27737 (list 27738 100 27739 "1d2+1" 27740 't_mana_potion 27741 ) 27742 (list 27743 100 27744 "1d20" 27745 't_gold_coins 27746 ) 27747 (list 27748 10 27749 "1d3" 27750 't_food 27751 ) 27752 (list 27753 10 27754 "1" 27755 't_cure_potion 27756 ) 27757 (list 27758 10 27759 "1" 27760 't_poison_immunity_potion 27761 ) 27762 (list 27763 20 27764 "1d5" 27765 'sulphorous_ash 27766 ) 27767 (list 27768 20 27769 "1d5" 27770 'ginseng 27771 ) 27772 (list 27773 20 27774 "1d5" 27775 'garlic 27776 ) 27777 (list 27778 10 27779 "1d3" 27780 'spider_silk 27781 ) 27782 (list 27783 10 27784 "1d3" 27785 'blood_moss 27786 ) 27787 (list 27788 10 27789 "1d3" 27790 'black_pearl 27791 ) 27792 (list 27793 5 27794 "1d2" 27795 'nightshade 27796 ) 27797 (list 27798 5 27799 "1d2" 27800 'mandrake 27801 ) 27802 (list 27803 5 27804 "1" 27805 't_in_mani_corp_scroll 27806 ) 27807 (list 27808 5 27809 "1" 27810 't_xen_corp_scroll 27811 ) 27812 (list 27813 10 27814 "1" 27815 't_in_quas_xen_scroll 27816 ) 27817 (list 27818 10 27819 "1" 27820 't_an_xen_exe_scroll 27821 ) 27822 (list 27823 20 27824 "1" 27825 't_in_an_scroll 27826 ) 27827 (list 27828 20 27829 "1" 27830 't_vas_mani_scroll 27831 ) 27832 ) 27833 ) 27834 ) 27835 2 27836 0 27837 ) 27838 ) 27839 ) 27840 (list 27841 'npcg 27842 'warlock 27843 #f 27844 #f 27845 '() 27846 ) 27847 ) ;; bind 27848 9 6) 27849 (list 27850 (bind 27851 (kern-mk-obj t_spawn_pt 1 27852 ;; hooks 27853 (list 27854 ) 27855 ) 27856 (list 27857 'spawn-pt 27858 'warlock 27859 ) 27860 ) ;; bind 27861 9 12) 27862 ) ;; end of objects in p_altar_room 27863 (list ;; on-entry-hooks 27864 'on-entry-to-dungeon-room 27865 ) 27866 (list ;; edge entrances 27867 (list 0 18 18) ;; Northwest 27868 (list 1 9 18) ;; North 27869 (list 2 0 18) ;; Northeast 27870 (list 3 18 9) ;; West 27871 (list 4 9 9) ;; Here 27872 (list 5 0 9) ;; East 27873 (list 6 18 0) ;; Southwest 27874 (list 7 9 0) ;; South 27875 (list 8 0 0) ;; SoutheastUp 27876 ) 27877) ;; end of place p_altar_room 27878 27879(kern-mk-place 'p_dank_cave "Dank Cave" 27880 nil ;; sprite 27881 (kern-mk-map 27882 nil 19 19 pal_expanded 27883 (list 27884 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 27885 "rr rr rr rr rr rr rr rr .. .. .. rr rr rr rr rr rr rr rr " 27886 "rr rr rr rr {{ rr rr rr {8 .. {8 rr rr rr {{ rr rr rr rr " 27887 "rr rr rr {{ {{ {{ rr {{ {{ {e {{ {{ rr {{ {{ {{ rr rr rr " 27888 "rr rr {{ {C %f {A {{ {{ {{ {{ {{ {{ {{ {C .! {A {{ rr rr " 27889 "rr {{ {{ %7 .! %3 %d {{ {{ rr {{ {{ %b %% %% %5 {{ {{ rr " 27890 "rr {{ {{ %a %% %c {# {{ rr rr rr {{ {% %a %% %c {{ {{ rr " 27891 "rr rr {{ {% %e {# {{ {{ {{ rr {{ {{ {{ {% %e {# {{ rr rr " 27892 "rr rr rr {{ {{ {{ rr {{ {{ {{ {{ {{ rr {{ {{ {{ rr rr rr " 27893 "rr rr rr rr {{ rr rr rr {{ {{ {{ rr rr rr {{ rr rr rr rr " 27894 "rr rr rr {{ {{ {{ rr {{ {{ {{ {{ {{ rr {{ {{ {{ rr rr rr " 27895 "rr rr {{ {C %7 {A {{ {{ {{ rr {{ {{ {{ {C %7 {A {{ rr rr " 27896 "rr {{ {{ %3 %% %d {A {{ rr rr rr {{ {C %3 %% %5 {{ {{ rr " 27897 "rr {{ {{ %a %% .! %7 {A {{ rr {{ {C %3 %% %% %c {{ {{ rr " 27898 "rr rr {{ {% %a %% %% %d {{ {{ {{ %b %% .! %e {# {{ rr rr " 27899 "rr rr rr {{ {% %a %c {# {{ rr {{ {% %a %d {# {{ rr rr rr " 27900 "rr rr rr rr {{ {{ {{ {{ rr rr rr {{ {{ {{ {{ rr rr rr rr " 27901 "rr rr rr rr rr {{ {{ rr rr rr rr rr {{ {{ rr rr rr rr rr " 27902 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 27903 ) 27904 ) 27905 #f #t #f #f 27906 ;; subplaces 27907 nil 27908 nil ;; neighbors 27909 (list ;; objects in p_dank_cave 27910 (list 27911 (bind 27912 (kern-mk-obj t_spawn_pt 1 27913 ;; hooks 27914 (list 27915 ) 27916 ) 27917 (list 27918 'spawn-pt 27919 'bat 27920 ) 27921 ) ;; bind 27922 5 17) 27923 (list 27924 (bind 27925 (kern-mk-obj t_spawn_pt 1 27926 ;; hooks 27927 (list 27928 ) 27929 ) 27930 (list 27931 'spawn-pt 27932 'rat 27933 ) 27934 ) ;; bind 27935 4 2) 27936 (list 27937 (bind 27938 (kern-mk-obj t_spawn_pt 1 27939 ;; hooks 27940 (list 27941 ) 27942 ) 27943 (list 27944 'spawn-pt 27945 'snake 27946 ) 27947 ) ;; bind 27948 17 12) 27949 (list 27950 (bind 27951 (kern-mk-obj t_monman 1 27952 ;; hooks 27953 (list 27954 ) 27955 ) 27956 (list 27957 'monman 27958 (list 27959 0 27960 0 27961 0 27962 -1 27963 6 27964 -1 27965 ) 27966 ) 27967 ) ;; bind 27968 0 0) 27969 (list 27970 (bind 27971 (kern-mk-obj t_custom_pt 1 27972 ;; hooks 27973 (list 27974 ) 27975 ) 27976 (list 27977 'grow-trig 27978 'mandrake 27979 "1d5" 27980 ) 27981 ) ;; bind 27982 14 14) 27983 (list 27984 (bind 27985 (kern-mk-obj t_custom_pt 1 27986 ;; hooks 27987 (list 27988 ) 27989 ) 27990 (list 27991 'grow-trig 27992 'nightshade 27993 "1d5" 27994 ) 27995 ) ;; bind 27996 6 14) 27997 (list 27998 (bind 27999 (kern-mk-obj t_custom_pt 1 28000 ;; hooks 28001 (list 28002 ) 28003 ) 28004 (list 28005 'grow-trig 28006 'ginseng 28007 "1d5" 28008 ) 28009 ) ;; bind 28010 3 12) 28011 (list 28012 (bind 28013 (kern-mk-obj t_custom_pt 1 28014 ;; hooks 28015 (list 28016 ) 28017 ) 28018 (list 28019 'grow-trig 28020 'ginseng 28021 "1d5" 28022 ) 28023 ) ;; bind 28024 3 5) 28025 (list 28026 (bind 28027 (kern-mk-obj t_custom_pt 1 28028 ;; hooks 28029 (list 28030 ) 28031 ) 28032 (list 28033 'grow-trig 28034 'garlic 28035 "1d5" 28036 ) 28037 ) ;; bind 28038 15 5) 28039 (list 28040 (bind 28041 (kern-mk-obj t_custom_pt 1 28042 ;; hooks 28043 (list 28044 ) 28045 ) 28046 (list 28047 'grow-trig 28048 'garlic 28049 "1d5" 28050 ) 28051 ) ;; bind 28052 3 13) 28053 (list 28054 (bind 28055 (kern-mk-obj t_ladder_up 1 28056 ;; hooks 28057 (list 28058 ) 28059 ) 28060 (list 28061 'p_shamans_grove 28062 14 28063 11 28064 ) 28065 ) ;; bind 28066 9 1) 28067 (list 28068 (bind 28069 (kern-mk-obj t_spawn_pt 1 28070 ;; hooks 28071 (list 28072 ) 28073 ) 28074 (list 28075 'spawn-pt 28076 'gazer 28077 ) 28078 ) ;; bind 28079 9 9) 28080 (list 28081 (bind 28082 (kern-mk-obj t_spawn_pt 1 28083 ;; hooks 28084 (list 28085 ) 28086 ) 28087 (list 28088 'spawn-pt 28089 'headless 28090 ) 28091 ) ;; bind 28092 8 7) 28093 ) ;; end of objects in p_dank_cave 28094 (list ;; on-entry-hooks 28095 'on-entry-to-dungeon-room 28096 ) 28097 (list ;; edge entrances 28098 (list 0 18 18) ;; Northwest 28099 (list 1 9 18) ;; North 28100 (list 2 0 18) ;; Northeast 28101 (list 3 18 9) ;; West 28102 (list 4 9 9) ;; Here 28103 (list 5 0 9) ;; East 28104 (list 6 18 0) ;; Southwest 28105 (list 7 9 0) ;; South 28106 (list 8 0 0) ;; SoutheastUp 28107 ) 28108) ;; end of place p_dank_cave 28109 28110(kern-mk-place 'p_eastpass "Eastpass" 28111 s_keep ;; sprite 28112 (kern-mk-map 28113 nil 19 19 pal_expanded 28114 (list 28115 ".. {4 {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 28116 ".. {4 {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 28117 ".. .. {5 {{ {{ {{ {{ xx ,, xx {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 28118 ".. .. {4 {{ {{ {{ {{ w+ ,, w+ {5 {{ {{ {{ ^^ ^^ ^^ ^^ ^^ " 28119 ".. .. .. {1 {1 {1 {1 xx ,, xx .. {1 {5 {{ ^^ ^^ ^^ ^^ ^^ " 28120 ".. .. .. .. .. xx xx xx ,, xx xx xx {4 {{ {{ ^^ ^^ ^^ ^^ " 28121 ".. .. .. .. .. w+ ,, ,, ,, ,, ,, w+ .. {5 {{ {{ ^^ ^^ ^^ " 28122 ".. .. .. .. .. x! ,, ,, ,, ,, ,, x! .. .. {5 {{ {{ ^^ ^^ " 28123 ".. .. .. .. .. w+ ,, ,, ,, ,, ,, w+ .. .. .. {5 {{ {{ ^^ " 28124 ".. .. .. .. .. ,, ,, ,, ,, ,, ,, ,, .. .. .. .. {d {{ ^^ " 28125 ".. .. .. .. .. w+ ,, ,, ,, ,, ,, w+ .. .. .. {c {{ {{ ^^ " 28126 ".. .. .. .. .. x! ,, ,, ,, ,, ,, x! .. .. {4 {{ {{ ^^ ^^ " 28127 ".. .. .. .. .. w+ ,, ,, ,, ,, ,, w+ .. .. {c {{ ^^ ^^ ^^ " 28128 ".. .. .. .. .. xx xx xx ,, xx xx xx .. {c {{ {{ ^^ ^^ ^^ " 28129 ".. .. .. .. .. .. .. xx ,, xx .. .. {c {{ {{ ^^ ^^ ^^ ^^ " 28130 ".. .. .. {8 {8 {8 {8 w+ ,, w+ {8 {c {{ {{ ^^ ^^ ^^ ^^ ^^ " 28131 ".. .. {c {{ {{ {{ {{ xx ,, xx {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ " 28132 ".. {4 {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 28133 ".. {4 {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 28134 ) 28135 ) 28136 #f #f #f #f 28137 ;; subplaces 28138 nil 28139 nil ;; neighbors 28140 (list ;; objects in p_eastpass 28141 (list 28142 (bind 28143 (kern-mk-obj t_spawn_pt 1 28144 ;; hooks 28145 (list 28146 ) 28147 ) 28148 (list 28149 'spawn-pt 28150 'bandit 28151 ) 28152 ) ;; bind 28153 4 9) 28154 (list 28155 (bind 28156 (kern-mk-obj t_monman 1 28157 ;; hooks 28158 (list 28159 ) 28160 ) 28161 (list 28162 'monman 28163 (list 28164 0 28165 0 28166 0 28167 0 28168 7 28169 37 28170 ) 28171 ) 28172 ) ;; bind 28173 0 0) 28174 (list 28175 (bind 28176 (kern-mk-char 28177 nil 28178 "knight" 28179 sp_human 28180 oc_warrior 28181 s_human_knight 28182 2 28183 0 0 0 28184 0 0 28185 0 0 28186 11 140 28187 3 1 28188 #f ;; dead? 28189 'knight-conv 28190 nil 28191 'guard-ai 28192 (kern-mk-container 28193 t_chest 28194 ;; trap 28195 nil 28196 ;; contents 28197 (list 28198 (list 1 t_armor_plate) 28199 (list 2 t_heal_potion) 28200 ) 28201 ;; hooks 28202 (list 28203 ) 28204 ) 28205 (list 28206 t_iron_helm 28207 t_2h_sword 28208 ) 28209 ;; hooks 28210 (list 28211 (list 28212 ef_loot_drop 28213 (list 28214 'loot-drop-gob 28215 'drop-generic 28216 (list 28217 (list 28218 (list 28219 100 28220 "1d20" 28221 't_gold_coins 28222 ) 28223 (list 28224 100 28225 "1d3-1" 28226 't_heal_potion 28227 ) 28228 ) 28229 ) 28230 ) 28231 2 28232 0 28233 ) 28234 ) 28235 ) 28236 (list 28237 'npcg 28238 'knight 28239 #f 28240 #t 28241 (list 28242 7 28243 8 28244 ) 28245 ) 28246 ) ;; bind 28247 7 8) 28248 (list 28249 (bind 28250 (kern-mk-char 28251 nil 28252 "squire" 28253 sp_human 28254 oc_warrior 28255 s_guard 28256 2 28257 0 0 0 28258 0 0 28259 0 0 28260 11 128 28261 3 1 28262 #f ;; dead? 28263 'knight-conv 28264 nil 28265 'guard-ai 28266 (kern-mk-container 28267 t_chest 28268 ;; trap 28269 nil 28270 ;; contents 28271 (list 28272 (list 2 t_bolt) 28273 (list 1 t_dagger) 28274 (list 1 t_heal_potion) 28275 ) 28276 ;; hooks 28277 (list 28278 ) 28279 ) 28280 (list 28281 t_chain_coif 28282 t_crossbow 28283 t_armor_chain 28284 ) 28285 ;; hooks 28286 (list 28287 (list 28288 ef_loot_drop 28289 (list 28290 'loot-drop-gob 28291 'drop-generic 28292 (list 28293 (list 28294 (list 28295 100 28296 "1d10" 28297 't_bolt 28298 ) 28299 (list 28300 100 28301 "1d10" 28302 't_gold_coins 28303 ) 28304 (list 28305 100 28306 "1d2-1" 28307 't_heal_potion 28308 ) 28309 ) 28310 ) 28311 ) 28312 2 28313 0 28314 ) 28315 ) 28316 ) 28317 (list 28318 'npcg 28319 'squire 28320 #f 28321 #t 28322 (list 28323 9 28324 8 28325 ) 28326 ) 28327 ) ;; bind 28328 9 8) 28329 (list 28330 (bind 28331 (kern-mk-char 28332 nil 28333 "squire" 28334 sp_human 28335 oc_warrior 28336 s_guard 28337 2 28338 0 0 0 28339 0 0 28340 0 0 28341 11 128 28342 3 1 28343 #f ;; dead? 28344 'knight-conv 28345 nil 28346 'guard-ai 28347 (kern-mk-container 28348 t_chest 28349 ;; trap 28350 nil 28351 ;; contents 28352 (list 28353 (list 4 t_bolt) 28354 (list 1 t_dagger) 28355 (list 1 t_heal_potion) 28356 ) 28357 ;; hooks 28358 (list 28359 ) 28360 ) 28361 (list 28362 t_chain_coif 28363 t_crossbow 28364 t_armor_chain 28365 ) 28366 ;; hooks 28367 (list 28368 (list 28369 ef_loot_drop 28370 (list 28371 'loot-drop-gob 28372 'drop-generic 28373 (list 28374 (list 28375 (list 28376 100 28377 "1d10" 28378 't_bolt 28379 ) 28380 (list 28381 100 28382 "1d10" 28383 't_gold_coins 28384 ) 28385 (list 28386 100 28387 "1d2-1" 28388 't_heal_potion 28389 ) 28390 ) 28391 ) 28392 ) 28393 2 28394 0 28395 ) 28396 ) 28397 ) 28398 (list 28399 'npcg 28400 'squire 28401 #f 28402 #t 28403 (list 28404 7 28405 10 28406 ) 28407 ) 28408 ) ;; bind 28409 7 10) 28410 (list 28411 (bind 28412 (kern-mk-char 28413 nil 28414 "knight" 28415 sp_human 28416 oc_warrior 28417 s_human_knight 28418 2 28419 0 0 0 28420 0 0 28421 0 0 28422 11 128 28423 3 1 28424 #f ;; dead? 28425 'knight-conv 28426 nil 28427 'guard-ai 28428 (kern-mk-container 28429 t_chest 28430 ;; trap 28431 nil 28432 ;; contents 28433 (list 28434 (list 1 t_armor_plate) 28435 (list 2 t_heal_potion) 28436 ) 28437 ;; hooks 28438 (list 28439 ) 28440 ) 28441 (list 28442 t_iron_helm 28443 t_2h_sword 28444 ) 28445 ;; hooks 28446 (list 28447 (list 28448 ef_loot_drop 28449 (list 28450 'loot-drop-gob 28451 'drop-generic 28452 (list 28453 (list 28454 (list 28455 100 28456 "1d20" 28457 't_gold_coins 28458 ) 28459 (list 28460 100 28461 "1d3-1" 28462 't_heal_potion 28463 ) 28464 ) 28465 ) 28466 ) 28467 2 28468 0 28469 ) 28470 ) 28471 ) 28472 (list 28473 'npcg 28474 'knight 28475 #f 28476 #t 28477 (list 28478 9 28479 10 28480 ) 28481 ) 28482 ) ;; bind 28483 9 10) 28484 (list 28485 (bind 28486 (kern-mk-obj t_ladder_down 1 28487 ;; hooks 28488 (list 28489 ) 28490 ) 28491 (list 28492 'p_westpass 28493 4 28494 14 28495 ) 28496 ) ;; bind 28497 14 9) 28498 (list 28499 (bind 28500 (kern-mk-obj t_door 1 28501 ;; hooks 28502 (list 28503 ) 28504 ) 28505 (list 28506 #f 28507 0 28508 '() 28509 #f 28510 #f 28511 #f 28512 (list 28513 (list 28514 's_closed_windowed_wood_door_in_rock 28515 #f 28516 5 28517 ) 28518 (list 28519 's_open_door_in_rock 28520 #f 28521 0 28522 ) 28523 (list 28524 's_locked_windowed_wood_door_in_rock 28525 #f 28526 5 28527 ) 28528 (list 28529 's_magically_locked_windowed_wood_door_in_rock 28530 #f 28531 5 28532 ) 28533 ) 28534 ) 28535 ) ;; bind 28536 11 9) 28537 (list 28538 (bind 28539 (kern-mk-obj t_door 1 28540 ;; hooks 28541 (list 28542 ) 28543 ) 28544 (list 28545 #t 28546 4 28547 '() 28548 #f 28549 #f 28550 #f 28551 (list 28552 (list 28553 's_closed_windowed_wood_door_in_rock 28554 #f 28555 5 28556 ) 28557 (list 28558 's_open_door_in_rock 28559 #f 28560 0 28561 ) 28562 (list 28563 's_locked_windowed_wood_door_in_rock 28564 #f 28565 5 28566 ) 28567 (list 28568 's_magically_locked_windowed_wood_door_in_rock 28569 #f 28570 5 28571 ) 28572 ) 28573 ) 28574 ) ;; bind 28575 5 9) 28576 (list 28577 (bind 28578 (kern-mk-obj t_guard_pt 1 28579 ;; hooks 28580 (list 28581 ) 28582 ) 28583 (list 28584 'spawn-pt 28585 'knight 28586 ) 28587 ) ;; bind 28588 7 8) 28589 (list 28590 (bind 28591 (kern-mk-obj t_guard_pt 1 28592 ;; hooks 28593 (list 28594 ) 28595 ) 28596 (list 28597 'spawn-pt 28598 'knight 28599 ) 28600 ) ;; bind 28601 9 10) 28602 (list 28603 (bind 28604 (kern-mk-obj t_guard_pt 1 28605 ;; hooks 28606 (list 28607 ) 28608 ) 28609 (list 28610 'spawn-pt 28611 'squire 28612 ) 28613 ) ;; bind 28614 7 10) 28615 (list 28616 (bind 28617 (kern-mk-obj t_guard_pt 1 28618 ;; hooks 28619 (list 28620 ) 28621 ) 28622 (list 28623 'spawn-pt 28624 'squire 28625 ) 28626 ) ;; bind 28627 9 8) 28628 (list 28629 (bind 28630 (kern-mk-obj t_spawn_pt 1 28631 ;; hooks 28632 (list 28633 ) 28634 ) 28635 (list 28636 'spawn-pt 28637 'bandit 28638 ) 28639 ) ;; bind 28640 3 8) 28641 ) ;; end of objects in p_eastpass 28642 (list ;; on-entry-hooks 28643 'on-entry-to-dungeon-room 28644 ) 28645 (list ;; edge entrances 28646 (list 0 18 18) ;; Northwest 28647 (list 1 9 18) ;; North 28648 (list 2 0 18) ;; Northeast 28649 (list 3 18 9) ;; West 28650 (list 4 9 9) ;; Here 28651 (list 5 0 9) ;; East 28652 (list 6 18 0) ;; Southwest 28653 (list 7 9 0) ;; South 28654 (list 8 0 0) ;; SoutheastUp 28655 ) 28656) ;; end of place p_eastpass 28657 28658(kern-mk-place 'p_westpass "Westpass" 28659 s_keep ;; sprite 28660 (kern-mk-map 28661 nil 19 19 pal_expanded 28662 (list 28663 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {a tt tt || || || || || || " 28664 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ tt tt || || || || || || " 28665 "^^ ^^ ^^ {{ bb && bb {{ ^^ ^^ {{ tt tt || || || || || || " 28666 "^^ ^^ {{ {3 .. .. .. {5 {{ ^^ {C ta tt tt || || || || || " 28667 "^^ ^^ {{ {2 .. .. .. .. {5 {{ bb t% tt tt tt || || || || " 28668 "^^ ^^ bb .. .. .. .. .. .. bb {A {2 ta tt tt tt || || || " 28669 "^^ ^^ ^5 bb {8 .. .. .. .. .. bb .. t% ta tt tt tt tt tt " 28670 "^^ ^^ ^^ ^^ {{ {a .. .. .. .. bb .. .. t% ta tt tt tt tt " 28671 "^^ ^^ ^^ ^^ bb {{ {2 .. .. bb .. .. .. .. .. .. .. .. .. " 28672 "^^ ^^ ^^ ^^ bb {A {2 .. .. /c /d /d /d /d /d /d /d /d /d " 28673 "^^ ^^ ^^ ^^ bb bb .. .. .. bb .. .. .. .. .. .. .. .. .. " 28674 "^^ ^^ ^^ {{ {{ {2 .. .. .. .. bb .. .. tC t3 tt tt tt tt " 28675 "^^ ^^ {{ {3 {1 .. .. .. {8 .. bb .. tC t3 tt tt tt tt tt " 28676 "^^ {{ {3 .. .. .. .. bb ^^ bb {& tC t3 tt tt tt || || || " 28677 "^^ {{ {2 .. .. .. {4 {{ ^^ {{ {{ t3 tt tt tt || || || || " 28678 "^^ {{ {a .. .. .. {c {{ ^^ ^^ {{ ta tt tt || || || || || " 28679 "^^ {{ {{ {a {8 {c {{ ^^ ^^ ^^ {{ {% tt || || || || || || " 28680 "^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ tt || || || || || || " 28681 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ tt || || || || || || " 28682 ) 28683 ) 28684 #f #f #f #f 28685 ;; subplaces 28686 nil 28687 nil ;; neighbors 28688 (list ;; objects in p_westpass 28689 (list 28690 (bind 28691 (kern-mk-obj t_monman 1 28692 ;; hooks 28693 (list 28694 ) 28695 ) 28696 (list 28697 'monman 28698 (list 28699 0 28700 0 28701 0 28702 0 28703 7 28704 36 28705 ) 28706 ) 28707 ) ;; bind 28708 0 0) 28709 (list 28710 (bind 28711 (kern-mk-char 28712 nil 28713 "ranger" 28714 sp_human 28715 oc_warrior 28716 s_companion_ranger 28717 2 28718 0 0 0 28719 0 0 28720 0 0 28721 11 128 28722 3 1 28723 #f ;; dead? 28724 'ranger-conv 28725 nil 28726 'ranger-ai 28727 (kern-mk-container 28728 t_chest 28729 ;; trap 28730 'burn 28731 ;; contents 28732 (list 28733 (list 1 t_sword) 28734 (list 16 t_arrow) 28735 ) 28736 ;; hooks 28737 (list 28738 ) 28739 ) 28740 (list 28741 t_leather_helm 28742 t_bow 28743 t_armor_leather 28744 ) 28745 ;; hooks 28746 (list 28747 (list 28748 ef_loot_drop 28749 (list 28750 'loot-drop-gob 28751 'drop-generic 28752 (list 28753 (list 28754 (list 28755 100 28756 "1d10" 28757 't_gold_coins 28758 ) 28759 (list 28760 100 28761 "1d10" 28762 't_arrow 28763 ) 28764 (list 28765 30 28766 "1d3" 28767 't_food 28768 ) 28769 (list 28770 100 28771 "1d3-1" 28772 't_heal_potion 28773 ) 28774 ) 28775 ) 28776 ) 28777 2 28778 0 28779 ) 28780 ) 28781 ) 28782 (list 28783 'npcg 28784 'ranger 28785 #f 28786 #t 28787 (list 28788 9 28789 11 28790 ) 28791 ) 28792 ) ;; bind 28793 9 11) 28794 (list 28795 (bind 28796 (kern-mk-char 28797 nil 28798 "ranger" 28799 sp_human 28800 oc_warrior 28801 s_companion_ranger 28802 2 28803 0 0 0 28804 0 0 28805 0 0 28806 13 512 28807 5 3 28808 #f ;; dead? 28809 'ranger-conv 28810 nil 28811 'ranger-ai 28812 (kern-mk-container 28813 t_chest 28814 ;; trap 28815 'burn 28816 ;; contents 28817 (list 28818 (list 1 t_sword) 28819 (list 18 t_arrow) 28820 (list 1 t_heal_potion) 28821 ) 28822 ;; hooks 28823 (list 28824 ) 28825 ) 28826 (list 28827 t_leather_helm 28828 t_bow 28829 t_armor_leather 28830 ) 28831 ;; hooks 28832 (list 28833 (list 28834 ef_loot_drop 28835 (list 28836 'loot-drop-gob 28837 'drop-generic 28838 (list 28839 (list 28840 (list 28841 100 28842 "1d10" 28843 't_gold_coins 28844 ) 28845 (list 28846 100 28847 "1d10" 28848 't_arrow 28849 ) 28850 (list 28851 30 28852 "1d3" 28853 't_food 28854 ) 28855 (list 28856 100 28857 "1d3-1" 28858 't_heal_potion 28859 ) 28860 ) 28861 ) 28862 ) 28863 2 28864 0 28865 ) 28866 ) 28867 ) 28868 (list 28869 'npcg 28870 'ranger 28871 #f 28872 #t 28873 (list 28874 4 28875 12 28876 ) 28877 ) 28878 ) ;; bind 28879 4 12) 28880 (list 28881 (bind 28882 (kern-mk-char 28883 nil 28884 "ranger" 28885 sp_human 28886 oc_warrior 28887 s_companion_ranger 28888 2 28889 0 0 0 28890 0 0 28891 0 0 28892 10 152 28893 3 1 28894 #f ;; dead? 28895 'ranger-conv 28896 nil 28897 'ranger-ai 28898 (kern-mk-container 28899 t_chest 28900 ;; trap 28901 'spike-trap 28902 ;; contents 28903 (list 28904 (list 1 t_sword) 28905 (list 16 t_arrow) 28906 (list 1 t_heal_potion) 28907 ) 28908 ;; hooks 28909 (list 28910 ) 28911 ) 28912 (list 28913 t_leather_helm 28914 t_bow 28915 t_armor_leather 28916 ) 28917 ;; hooks 28918 (list 28919 (list 28920 ef_loot_drop 28921 (list 28922 'loot-drop-gob 28923 'drop-generic 28924 (list 28925 (list 28926 (list 28927 100 28928 "1d10" 28929 't_gold_coins 28930 ) 28931 (list 28932 100 28933 "1d10" 28934 't_arrow 28935 ) 28936 (list 28937 30 28938 "1d3" 28939 't_food 28940 ) 28941 (list 28942 100 28943 "1d3-1" 28944 't_heal_potion 28945 ) 28946 ) 28947 ) 28948 ) 28949 2 28950 0 28951 ) 28952 ) 28953 ) 28954 (list 28955 'npcg 28956 'ranger 28957 #f 28958 #t 28959 (list 28960 9 28961 7 28962 ) 28963 ) 28964 ) ;; bind 28965 9 7) 28966 (list 28967 (bind 28968 (kern-mk-char 28969 nil 28970 "ranger" 28971 sp_human 28972 oc_warrior 28973 s_companion_ranger 28974 2 28975 0 0 0 28976 0 0 28977 0 0 28978 11 128 28979 3 1 28980 #f ;; dead? 28981 'ranger-conv 28982 nil 28983 'ranger-ai 28984 (kern-mk-container 28985 t_chest 28986 ;; trap 28987 'spike-trap 28988 ;; contents 28989 (list 28990 (list 1 t_sword) 28991 (list 17 t_arrow) 28992 (list 2 t_heal_potion) 28993 ) 28994 ;; hooks 28995 (list 28996 ) 28997 ) 28998 (list 28999 t_leather_helm 29000 t_bow 29001 t_armor_leather 29002 ) 29003 ;; hooks 29004 (list 29005 (list 29006 ef_loot_drop 29007 (list 29008 'loot-drop-gob 29009 'drop-generic 29010 (list 29011 (list 29012 (list 29013 100 29014 "1d10" 29015 't_gold_coins 29016 ) 29017 (list 29018 100 29019 "1d10" 29020 't_arrow 29021 ) 29022 (list 29023 30 29024 "1d3" 29025 't_food 29026 ) 29027 (list 29028 100 29029 "1d3-1" 29030 't_heal_potion 29031 ) 29032 ) 29033 ) 29034 ) 29035 2 29036 0 29037 ) 29038 ) 29039 ) 29040 (list 29041 'npcg 29042 'ranger 29043 #f 29044 #t 29045 (list 29046 5 29047 4 29048 ) 29049 ) 29050 ) ;; bind 29051 5 4) 29052 (list 29053 (bind 29054 (kern-mk-obj t_ladder_down 1 29055 ;; hooks 29056 (list 29057 ) 29058 ) 29059 (list 29060 'p_eastpass 29061 14 29062 9 29063 ) 29064 ) ;; bind 29065 4 14) 29066 (list 29067 (bind 29068 (kern-mk-obj t_guard_pt 1 29069 ;; hooks 29070 (list 29071 ) 29072 ) 29073 (list 29074 'spawn-pt 29075 'ranger 29076 ) 29077 ) ;; bind 29078 9 7) 29079 (list 29080 (bind 29081 (kern-mk-obj t_guard_pt 1 29082 ;; hooks 29083 (list 29084 ) 29085 ) 29086 (list 29087 'spawn-pt 29088 'ranger 29089 ) 29090 ) ;; bind 29091 9 11) 29092 (list 29093 (bind 29094 (kern-mk-obj t_guard_pt 1 29095 ;; hooks 29096 (list 29097 ) 29098 ) 29099 (list 29100 'spawn-pt 29101 'ranger 29102 ) 29103 ) ;; bind 29104 5 4) 29105 (list 29106 (bind 29107 (kern-mk-obj t_guard_pt 1 29108 ;; hooks 29109 (list 29110 ) 29111 ) 29112 (list 29113 'spawn-pt 29114 'ranger 29115 ) 29116 ) ;; bind 29117 4 12) 29118 (list 29119 (bind 29120 (kern-mk-obj t_spawn_pt 1 29121 ;; hooks 29122 (list 29123 ) 29124 ) 29125 (list 29126 'spawn-pt 29127 'forest-goblin-stalker 29128 ) 29129 ) ;; bind 29130 11 8) 29131 (list 29132 (bind 29133 (kern-mk-obj t_spawn_pt 1 29134 ;; hooks 29135 (list 29136 ) 29137 ) 29138 (list 29139 'spawn-pt 29140 'forest-goblin-hunter 29141 ) 29142 ) ;; bind 29143 11 9) 29144 (list 29145 (bind 29146 (kern-mk-obj t_spawn_pt 1 29147 ;; hooks 29148 (list 29149 ) 29150 ) 29151 (list 29152 'spawn-pt 29153 'forest-goblin-stalker 29154 ) 29155 ) ;; bind 29156 11 10) 29157 ) ;; end of objects in p_westpass 29158 (list ;; on-entry-hooks 29159 'on-entry-to-dungeon-room 29160 ) 29161 (list ;; edge entrances 29162 (list 0 18 18) ;; Northwest 29163 (list 1 9 18) ;; North 29164 (list 2 0 18) ;; Northeast 29165 (list 3 18 9) ;; West 29166 (list 4 9 9) ;; Here 29167 (list 5 0 9) ;; East 29168 (list 6 18 0) ;; Southwest 29169 (list 7 9 0) ;; South 29170 (list 8 0 0) ;; SoutheastUp 29171 ) 29172) ;; end of place p_westpass 29173 29174(kern-load "keep_crypt_mech.scm") 29175 29176(kern-mk-place 'p_crypt "Crypt" 29177 nil ;; sprite 29178 (kern-mk-map 29179 nil 19 19 pal_expanded 29180 (list 29181 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 29182 "xx xx xx ,, ,, ,, xx x! ,, ,, ,, x! xx ,, ,, ,, xx ,, xx " 29183 "xx xx xx ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, xx ,, xx " 29184 "xx xx xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx ,, xx " 29185 "xx xx xx xx xx xx xx ,, ,, ,, ,, ,, xx xx xx xx xx ?? xx " 29186 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 29187 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 29188 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 29189 "xx xx xx ,, xx xx xx .C .R .Y .P .T xx xx xx ,, xx xx xx " 29190 "xx .. .. ,, .. .. xx xx xx x! xx xx xx .. .. ,, .. .. xx " 29191 "xx .. .. ,, .. .. xx xx xx ,, xx xx xx .. .. ,, .. .. xx " 29192 "xx .. .. ,, .. .. xx xx ,, ,, ,, xx xx .. .. ,, .. .. xx " 29193 "xx .. .. ,, .. .. xx xx ,, ,, ,, xx xx .. .. ,, .. .. xx " 29194 "xx .. .. ,, .. .. x! xx xx ,, xx xx x! .. .. ,, .. .. xx " 29195 "xx .. .. ,, .. .. xx ,, ,, ,, ,, ,, xx .. .. ,, .. .. xx " 29196 "xx .. .. ,, .. .. xx ,, ,, ,, ,, ,, xx .. .. ,, .. .. xx " 29197 "xx .. .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, .. .. xx " 29198 "xx .. .. .. .. .. xx ,, ,, ,, ,, ,, xx .. .. .. .. .. xx " 29199 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 29200 ) 29201 ) 29202 #f #t #f #f 29203 ;; subplaces 29204 nil 29205 nil ;; neighbors 29206 (list ;; objects in p_crypt 29207 (list 29208 (bind 29209 (kern-mk-obj t_door 1 29210 ;; hooks 29211 (list 29212 ) 29213 ) 29214 (list 29215 #f 29216 0 29217 '() 29218 #f 29219 #f 29220 #f 29221 (list 29222 (list 29223 's_closed_windowed_wood_door_in_rock 29224 #f 29225 5 29226 ) 29227 (list 29228 's_open_door_in_rock 29229 #f 29230 0 29231 ) 29232 (list 29233 's_locked_windowed_wood_door_in_rock 29234 #f 29235 5 29236 ) 29237 (list 29238 's_magically_locked_windowed_wood_door_in_rock 29239 #f 29240 5 29241 ) 29242 ) 29243 ) 29244 ) ;; bind 29245 3 8) 29246 (list 29247 (kern-tag 'kc_pa 29248 (bind 29249 (kern-mk-obj t_portcullis 1 29250 ;; hooks 29251 (list 29252 ) 29253 ) 29254 (list 29255 #f 29256 'kc_kcma 29257 #f 29258 '() 29259 ) 29260 ) ;; bind 29261 ) ;; kern-tag 29262 6 16) 29263 (list 29264 (kern-tag 'kc_pb 29265 (bind 29266 (kern-mk-obj t_portcullis 1 29267 ;; hooks 29268 (list 29269 ) 29270 ) 29271 (list 29272 #f 29273 'kc_kcmb 29274 #f 29275 '() 29276 ) 29277 ) ;; bind 29278 ) ;; kern-tag 29279 12 16) 29280 (list 29281 (kern-tag 'kc_pc 29282 (bind 29283 (kern-mk-obj t_portcullis 1 29284 ;; hooks 29285 (list 29286 ) 29287 ) 29288 (list 29289 #f 29290 '() 29291 #f 29292 '() 29293 ) 29294 ) ;; bind 29295 ) ;; kern-tag 29296 9 13) 29297 (list 29298 (bind 29299 (kern-mk-obj t_lever 1 29300 ;; hooks 29301 (list 29302 ) 29303 ) 29304 (list 29305 #f 29306 'kc_pb 29307 #f 29308 '() 29309 ) 29310 ) ;; bind 29311 4 2) 29312 (list 29313 (bind 29314 (kern-mk-obj t_lever 1 29315 ;; hooks 29316 (list 29317 ) 29318 ) 29319 (list 29320 #f 29321 'kc_pa 29322 #f 29323 '() 29324 ) 29325 ) ;; bind 29326 14 2) 29327 (list 29328 (bind 29329 (kern-mk-obj t_lever 1 29330 ;; hooks 29331 (list 29332 ) 29333 ) 29334 (list 29335 #f 29336 'kc_pc 29337 #f 29338 '() 29339 ) 29340 ) ;; bind 29341 17 1) 29342 (list 29343 (bind 29344 (kern-mk-obj t_corpse 1 29345 ;; hooks 29346 (list 29347 ) 29348 ) 29349 (list 29350 '() 29351 ) 29352 ) ;; bind 29353 1 9) 29354 (list 29355 (bind 29356 (kern-mk-obj t_corpse 1 29357 ;; hooks 29358 (list 29359 ) 29360 ) 29361 (list 29362 '() 29363 ) 29364 ) ;; bind 29365 2 9) 29366 (list 29367 (bind 29368 (kern-mk-obj t_corpse 1 29369 ;; hooks 29370 (list 29371 ) 29372 ) 29373 (list 29374 '() 29375 ) 29376 ) ;; bind 29377 4 9) 29378 (list 29379 (bind 29380 (kern-mk-obj t_corpse 1 29381 ;; hooks 29382 (list 29383 ) 29384 ) 29385 (list 29386 '() 29387 ) 29388 ) ;; bind 29389 5 9) 29390 (list 29391 (bind 29392 (kern-mk-obj t_corpse 1 29393 ;; hooks 29394 (list 29395 ) 29396 ) 29397 (list 29398 '() 29399 ) 29400 ) ;; bind 29401 13 9) 29402 (list 29403 (bind 29404 (kern-mk-obj t_corpse 1 29405 ;; hooks 29406 (list 29407 ) 29408 ) 29409 (list 29410 '() 29411 ) 29412 ) ;; bind 29413 14 9) 29414 (list 29415 (bind 29416 (kern-mk-obj t_corpse 1 29417 ;; hooks 29418 (list 29419 ) 29420 ) 29421 (list 29422 '() 29423 ) 29424 ) ;; bind 29425 16 9) 29426 (list 29427 (bind 29428 (kern-mk-obj t_corpse 1 29429 ;; hooks 29430 (list 29431 ) 29432 ) 29433 (list 29434 '() 29435 ) 29436 ) ;; bind 29437 17 9) 29438 (list 29439 (bind 29440 (kern-mk-obj t_corpse 1 29441 ;; hooks 29442 (list 29443 ) 29444 ) 29445 (list 29446 '() 29447 ) 29448 ) ;; bind 29449 1 10) 29450 (list 29451 (bind 29452 (kern-mk-obj t_corpse 1 29453 ;; hooks 29454 (list 29455 ) 29456 ) 29457 (list 29458 '() 29459 ) 29460 ) ;; bind 29461 2 10) 29462 (list 29463 (bind 29464 (kern-mk-obj t_corpse 1 29465 ;; hooks 29466 (list 29467 ) 29468 ) 29469 (list 29470 '() 29471 ) 29472 ) ;; bind 29473 4 10) 29474 (list 29475 (bind 29476 (kern-mk-obj t_corpse 1 29477 ;; hooks 29478 (list 29479 ) 29480 ) 29481 (list 29482 '() 29483 ) 29484 ) ;; bind 29485 5 10) 29486 (list 29487 (bind 29488 (kern-mk-obj t_corpse 1 29489 ;; hooks 29490 (list 29491 ) 29492 ) 29493 (list 29494 '() 29495 ) 29496 ) ;; bind 29497 13 10) 29498 (list 29499 (bind 29500 (kern-mk-obj t_corpse 1 29501 ;; hooks 29502 (list 29503 ) 29504 ) 29505 (list 29506 '() 29507 ) 29508 ) ;; bind 29509 14 10) 29510 (list 29511 (bind 29512 (kern-mk-obj t_corpse 1 29513 ;; hooks 29514 (list 29515 ) 29516 ) 29517 (list 29518 '() 29519 ) 29520 ) ;; bind 29521 16 10) 29522 (list 29523 (bind 29524 (kern-mk-obj t_corpse 1 29525 ;; hooks 29526 (list 29527 ) 29528 ) 29529 (list 29530 '() 29531 ) 29532 ) ;; bind 29533 17 10) 29534 (list 29535 (bind 29536 (kern-mk-obj t_corpse 1 29537 ;; hooks 29538 (list 29539 ) 29540 ) 29541 (list 29542 '() 29543 ) 29544 ) ;; bind 29545 1 11) 29546 (list 29547 (bind 29548 (kern-mk-obj t_corpse 1 29549 ;; hooks 29550 (list 29551 ) 29552 ) 29553 (list 29554 '() 29555 ) 29556 ) ;; bind 29557 2 11) 29558 (list 29559 (bind 29560 (kern-mk-obj t_corpse 1 29561 ;; hooks 29562 (list 29563 ) 29564 ) 29565 (list 29566 '() 29567 ) 29568 ) ;; bind 29569 4 11) 29570 (list 29571 (bind 29572 (kern-mk-obj t_corpse 1 29573 ;; hooks 29574 (list 29575 ) 29576 ) 29577 (list 29578 '() 29579 ) 29580 ) ;; bind 29581 5 11) 29582 (list 29583 (bind 29584 (kern-mk-obj t_corpse 1 29585 ;; hooks 29586 (list 29587 ) 29588 ) 29589 (list 29590 '() 29591 ) 29592 ) ;; bind 29593 13 11) 29594 (list 29595 (bind 29596 (kern-mk-obj t_corpse 1 29597 ;; hooks 29598 (list 29599 ) 29600 ) 29601 (list 29602 '() 29603 ) 29604 ) ;; bind 29605 14 11) 29606 (list 29607 (bind 29608 (kern-mk-obj t_corpse 1 29609 ;; hooks 29610 (list 29611 ) 29612 ) 29613 (list 29614 '() 29615 ) 29616 ) ;; bind 29617 16 11) 29618 (list 29619 (bind 29620 (kern-mk-obj t_corpse 1 29621 ;; hooks 29622 (list 29623 ) 29624 ) 29625 (list 29626 '() 29627 ) 29628 ) ;; bind 29629 17 11) 29630 (list 29631 (bind 29632 (kern-mk-obj t_corpse 1 29633 ;; hooks 29634 (list 29635 ) 29636 ) 29637 (list 29638 '() 29639 ) 29640 ) ;; bind 29641 1 12) 29642 (list 29643 (bind 29644 (kern-mk-obj t_corpse 1 29645 ;; hooks 29646 (list 29647 ) 29648 ) 29649 (list 29650 '() 29651 ) 29652 ) ;; bind 29653 2 12) 29654 (list 29655 (bind 29656 (kern-mk-obj t_corpse 1 29657 ;; hooks 29658 (list 29659 ) 29660 ) 29661 (list 29662 '() 29663 ) 29664 ) ;; bind 29665 4 12) 29666 (list 29667 (bind 29668 (kern-mk-obj t_corpse 1 29669 ;; hooks 29670 (list 29671 ) 29672 ) 29673 (list 29674 '() 29675 ) 29676 ) ;; bind 29677 5 12) 29678 (list 29679 (bind 29680 (kern-mk-obj t_corpse 1 29681 ;; hooks 29682 (list 29683 ) 29684 ) 29685 (list 29686 '() 29687 ) 29688 ) ;; bind 29689 13 12) 29690 (list 29691 (bind 29692 (kern-mk-obj t_corpse 1 29693 ;; hooks 29694 (list 29695 ) 29696 ) 29697 (list 29698 '() 29699 ) 29700 ) ;; bind 29701 14 12) 29702 (list 29703 (bind 29704 (kern-mk-obj t_corpse 1 29705 ;; hooks 29706 (list 29707 ) 29708 ) 29709 (list 29710 '() 29711 ) 29712 ) ;; bind 29713 16 12) 29714 (list 29715 (bind 29716 (kern-mk-obj t_corpse 1 29717 ;; hooks 29718 (list 29719 ) 29720 ) 29721 (list 29722 '() 29723 ) 29724 ) ;; bind 29725 17 12) 29726 (list 29727 (bind 29728 (kern-mk-obj t_corpse 1 29729 ;; hooks 29730 (list 29731 ) 29732 ) 29733 (list 29734 '() 29735 ) 29736 ) ;; bind 29737 1 13) 29738 (list 29739 (bind 29740 (kern-mk-obj t_corpse 1 29741 ;; hooks 29742 (list 29743 ) 29744 ) 29745 (list 29746 '() 29747 ) 29748 ) ;; bind 29749 2 13) 29750 (list 29751 (bind 29752 (kern-mk-obj t_corpse 1 29753 ;; hooks 29754 (list 29755 ) 29756 ) 29757 (list 29758 '() 29759 ) 29760 ) ;; bind 29761 4 13) 29762 (list 29763 (bind 29764 (kern-mk-obj t_corpse 1 29765 ;; hooks 29766 (list 29767 ) 29768 ) 29769 (list 29770 '() 29771 ) 29772 ) ;; bind 29773 5 13) 29774 (list 29775 (bind 29776 (kern-mk-obj t_corpse 1 29777 ;; hooks 29778 (list 29779 ) 29780 ) 29781 (list 29782 '() 29783 ) 29784 ) ;; bind 29785 13 13) 29786 (list 29787 (bind 29788 (kern-mk-obj t_corpse 1 29789 ;; hooks 29790 (list 29791 ) 29792 ) 29793 (list 29794 '() 29795 ) 29796 ) ;; bind 29797 14 13) 29798 (list 29799 (bind 29800 (kern-mk-obj t_corpse 1 29801 ;; hooks 29802 (list 29803 ) 29804 ) 29805 (list 29806 '() 29807 ) 29808 ) ;; bind 29809 16 13) 29810 (list 29811 (bind 29812 (kern-mk-obj t_corpse 1 29813 ;; hooks 29814 (list 29815 ) 29816 ) 29817 (list 29818 '() 29819 ) 29820 ) ;; bind 29821 17 13) 29822 (list 29823 (bind 29824 (kern-mk-obj t_corpse 1 29825 ;; hooks 29826 (list 29827 ) 29828 ) 29829 (list 29830 '() 29831 ) 29832 ) ;; bind 29833 1 14) 29834 (list 29835 (bind 29836 (kern-mk-obj t_corpse 1 29837 ;; hooks 29838 (list 29839 ) 29840 ) 29841 (list 29842 '() 29843 ) 29844 ) ;; bind 29845 2 14) 29846 (list 29847 (bind 29848 (kern-mk-obj t_corpse 1 29849 ;; hooks 29850 (list 29851 ) 29852 ) 29853 (list 29854 '() 29855 ) 29856 ) ;; bind 29857 4 14) 29858 (list 29859 (bind 29860 (kern-mk-obj t_corpse 1 29861 ;; hooks 29862 (list 29863 ) 29864 ) 29865 (list 29866 '() 29867 ) 29868 ) ;; bind 29869 5 14) 29870 (list 29871 (bind 29872 (kern-mk-obj t_corpse 1 29873 ;; hooks 29874 (list 29875 ) 29876 ) 29877 (list 29878 '() 29879 ) 29880 ) ;; bind 29881 13 14) 29882 (list 29883 (bind 29884 (kern-mk-obj t_corpse 1 29885 ;; hooks 29886 (list 29887 ) 29888 ) 29889 (list 29890 '() 29891 ) 29892 ) ;; bind 29893 14 14) 29894 (list 29895 (bind 29896 (kern-mk-obj t_corpse 1 29897 ;; hooks 29898 (list 29899 ) 29900 ) 29901 (list 29902 '() 29903 ) 29904 ) ;; bind 29905 16 14) 29906 (list 29907 (bind 29908 (kern-mk-obj t_corpse 1 29909 ;; hooks 29910 (list 29911 ) 29912 ) 29913 (list 29914 '() 29915 ) 29916 ) ;; bind 29917 17 14) 29918 (list 29919 (bind 29920 (kern-mk-obj t_corpse 1 29921 ;; hooks 29922 (list 29923 ) 29924 ) 29925 (list 29926 '() 29927 ) 29928 ) ;; bind 29929 1 15) 29930 (list 29931 (bind 29932 (kern-mk-obj t_corpse 1 29933 ;; hooks 29934 (list 29935 ) 29936 ) 29937 (list 29938 '() 29939 ) 29940 ) ;; bind 29941 2 15) 29942 (list 29943 (bind 29944 (kern-mk-obj t_corpse 1 29945 ;; hooks 29946 (list 29947 ) 29948 ) 29949 (list 29950 '() 29951 ) 29952 ) ;; bind 29953 4 15) 29954 (list 29955 (bind 29956 (kern-mk-obj t_corpse 1 29957 ;; hooks 29958 (list 29959 ) 29960 ) 29961 (list 29962 '() 29963 ) 29964 ) ;; bind 29965 5 15) 29966 (list 29967 (bind 29968 (kern-mk-obj t_corpse 1 29969 ;; hooks 29970 (list 29971 ) 29972 ) 29973 (list 29974 '() 29975 ) 29976 ) ;; bind 29977 13 15) 29978 (list 29979 (bind 29980 (kern-mk-obj t_corpse 1 29981 ;; hooks 29982 (list 29983 ) 29984 ) 29985 (list 29986 '() 29987 ) 29988 ) ;; bind 29989 14 15) 29990 (list 29991 (bind 29992 (kern-mk-obj t_corpse 1 29993 ;; hooks 29994 (list 29995 ) 29996 ) 29997 (list 29998 '() 29999 ) 30000 ) ;; bind 30001 16 15) 30002 (list 30003 (bind 30004 (kern-mk-obj t_corpse 1 30005 ;; hooks 30006 (list 30007 ) 30008 ) 30009 (list 30010 '() 30011 ) 30012 ) ;; bind 30013 17 15) 30014 (list 30015 (bind 30016 (kern-mk-obj t_corpse 1 30017 ;; hooks 30018 (list 30019 ) 30020 ) 30021 (list 30022 '() 30023 ) 30024 ) ;; bind 30025 1 16) 30026 (list 30027 (bind 30028 (kern-mk-obj t_corpse 1 30029 ;; hooks 30030 (list 30031 ) 30032 ) 30033 (list 30034 '() 30035 ) 30036 ) ;; bind 30037 2 16) 30038 (list 30039 (bind 30040 (kern-mk-obj t_corpse 1 30041 ;; hooks 30042 (list 30043 ) 30044 ) 30045 (list 30046 '() 30047 ) 30048 ) ;; bind 30049 16 16) 30050 (list 30051 (bind 30052 (kern-mk-obj t_corpse 1 30053 ;; hooks 30054 (list 30055 ) 30056 ) 30057 (list 30058 '() 30059 ) 30060 ) ;; bind 30061 17 16) 30062 (list 30063 (bind 30064 (kern-mk-obj t_corpse 1 30065 ;; hooks 30066 (list 30067 ) 30068 ) 30069 (list 30070 '() 30071 ) 30072 ) ;; bind 30073 1 17) 30074 (list 30075 (bind 30076 (kern-mk-obj t_corpse 1 30077 ;; hooks 30078 (list 30079 ) 30080 ) 30081 (list 30082 '() 30083 ) 30084 ) ;; bind 30085 2 17) 30086 (list 30087 (bind 30088 (kern-mk-obj t_corpse 1 30089 ;; hooks 30090 (list 30091 ) 30092 ) 30093 (list 30094 '() 30095 ) 30096 ) ;; bind 30097 3 17) 30098 (list 30099 (bind 30100 (kern-mk-obj t_corpse 1 30101 ;; hooks 30102 (list 30103 ) 30104 ) 30105 (list 30106 '() 30107 ) 30108 ) ;; bind 30109 4 17) 30110 (list 30111 (bind 30112 (kern-mk-obj t_corpse 1 30113 ;; hooks 30114 (list 30115 ) 30116 ) 30117 (list 30118 '() 30119 ) 30120 ) ;; bind 30121 5 17) 30122 (list 30123 (bind 30124 (kern-mk-obj t_corpse 1 30125 ;; hooks 30126 (list 30127 ) 30128 ) 30129 (list 30130 '() 30131 ) 30132 ) ;; bind 30133 13 17) 30134 (list 30135 (bind 30136 (kern-mk-obj t_corpse 1 30137 ;; hooks 30138 (list 30139 ) 30140 ) 30141 (list 30142 '() 30143 ) 30144 ) ;; bind 30145 14 17) 30146 (list 30147 (bind 30148 (kern-mk-obj t_corpse 1 30149 ;; hooks 30150 (list 30151 ) 30152 ) 30153 (list 30154 '() 30155 ) 30156 ) ;; bind 30157 15 17) 30158 (list 30159 (bind 30160 (kern-mk-obj t_corpse 1 30161 ;; hooks 30162 (list 30163 ) 30164 ) 30165 (list 30166 '() 30167 ) 30168 ) ;; bind 30169 16 17) 30170 (list 30171 (bind 30172 (kern-mk-obj t_corpse 1 30173 ;; hooks 30174 (list 30175 ) 30176 ) 30177 (list 30178 '() 30179 ) 30180 ) ;; bind 30181 17 17) 30182 (list 30183 (bind 30184 (kern-mk-obj t_monman 1 30185 ;; hooks 30186 (list 30187 ) 30188 ) 30189 (list 30190 'monman 30191 (list 30192 0 30193 0 30194 0 30195 -1 30196 6 30197 -1 30198 ) 30199 ) 30200 ) ;; bind 30201 0 0) 30202 (list 30203 (kern-tag 'kc_kcma 30204 (bind 30205 (kern-mk-obj t_kcm 1 30206 ;; hooks 30207 (list 30208 ) 30209 ) 30210 (list 30211 #f 30212 (list 30213 1 30214 9 30215 5 30216 9 30217 ) 30218 ) 30219 ) ;; bind 30220 ) ;; kern-tag 30221 0 0) 30222 (list 30223 (kern-tag 'kc_kcmb 30224 (bind 30225 (kern-mk-obj t_kcm 1 30226 ;; hooks 30227 (list 30228 ) 30229 ) 30230 (list 30231 #f 30232 (list 30233 13 30234 9 30235 5 30236 9 30237 ) 30238 ) 30239 ) ;; bind 30240 ) ;; kern-tag 30241 0 0) 30242 (list 30243 (bind 30244 (kern-mk-obj t_ladder_up 1 30245 ;; hooks 30246 (list 30247 ) 30248 ) 30249 (list 30250 'p_green_tower_lower 30251 17 30252 1 30253 ) 30254 ) ;; bind 30255 9 3) 30256 (list 30257 (bind 30258 (kern-mk-obj t_ladder_down 1 30259 ;; hooks 30260 (list 30261 ) 30262 ) 30263 (list 30264 'p_lich_tomb 30265 9 30266 16 30267 ) 30268 ) ;; bind 30269 9 10) 30270 (list 30271 (bind 30272 (kern-mk-obj t_door 1 30273 ;; hooks 30274 (list 30275 ) 30276 ) 30277 (list 30278 #f 30279 0 30280 '() 30281 #f 30282 #t 30283 #f 30284 (list 30285 (list 30286 's_closed_solid_wood_door_in_stone 30287 #t 30288 5 30289 ) 30290 (list 30291 's_open_door_in_stone 30292 #f 30293 0 30294 ) 30295 (list 30296 's_locked_solid_wood_door_in_stone 30297 #t 30298 5 30299 ) 30300 (list 30301 's_magically_locked_solid_wood_door_in_stone 30302 #t 30303 5 30304 ) 30305 ) 30306 ) 30307 ) ;; bind 30308 6 3) 30309 (list 30310 (bind 30311 (kern-mk-obj t_door 1 30312 ;; hooks 30313 (list 30314 ) 30315 ) 30316 (list 30317 #f 30318 0 30319 '() 30320 #f 30321 #f 30322 #t 30323 (list 30324 (list 30325 's_closed_solid_wood_door_in_stone 30326 #t 30327 5 30328 ) 30329 (list 30330 's_open_door_in_stone 30331 #f 30332 0 30333 ) 30334 (list 30335 's_locked_solid_wood_door_in_stone 30336 #t 30337 5 30338 ) 30339 (list 30340 's_magically_locked_solid_wood_door_in_stone 30341 #t 30342 5 30343 ) 30344 ) 30345 ) 30346 ) ;; bind 30347 12 3) 30348 (list 30349 (bind 30350 (kern-mk-obj t_door 1 30351 ;; hooks 30352 (list 30353 ) 30354 ) 30355 (list 30356 #f 30357 0 30358 '() 30359 #f 30360 #f 30361 #f 30362 (list 30363 (list 30364 's_closed_solid_wood_door_in_stone 30365 #t 30366 5 30367 ) 30368 (list 30369 's_open_door_in_stone 30370 #f 30371 0 30372 ) 30373 (list 30374 's_locked_solid_wood_door_in_stone 30375 #t 30376 5 30377 ) 30378 (list 30379 's_magically_locked_solid_wood_door_in_stone 30380 #t 30381 5 30382 ) 30383 ) 30384 ) 30385 ) ;; bind 30386 6 7) 30387 (list 30388 (bind 30389 (kern-mk-obj t_door 1 30390 ;; hooks 30391 (list 30392 ) 30393 ) 30394 (list 30395 #f 30396 0 30397 '() 30398 #f 30399 #f 30400 #f 30401 (list 30402 (list 30403 's_closed_solid_wood_door_in_stone 30404 #t 30405 5 30406 ) 30407 (list 30408 's_open_door_in_stone 30409 #f 30410 0 30411 ) 30412 (list 30413 's_locked_solid_wood_door_in_stone 30414 #t 30415 5 30416 ) 30417 (list 30418 's_magically_locked_solid_wood_door_in_stone 30419 #t 30420 5 30421 ) 30422 ) 30423 ) 30424 ) ;; bind 30425 12 7) 30426 (list 30427 (bind 30428 (kern-mk-obj t_door 1 30429 ;; hooks 30430 (list 30431 ) 30432 ) 30433 (list 30434 #f 30435 0 30436 '() 30437 #f 30438 #f 30439 #f 30440 (list 30441 (list 30442 's_closed_windowed_wood_door_in_rock 30443 #f 30444 5 30445 ) 30446 (list 30447 's_open_door_in_rock 30448 #f 30449 0 30450 ) 30451 (list 30452 's_locked_windowed_wood_door_in_rock 30453 #f 30454 5 30455 ) 30456 (list 30457 's_magically_locked_windowed_wood_door_in_rock 30458 #f 30459 5 30460 ) 30461 ) 30462 ) 30463 ) ;; bind 30464 15 8) 30465 ) ;; end of objects in p_crypt 30466 (list ;; on-entry-hooks 30467 'on-entry-to-dungeon-room 30468 ) 30469 (list ;; edge entrances 30470 (list 0 18 18) ;; Northwest 30471 (list 1 9 18) ;; North 30472 (list 2 0 18) ;; Northeast 30473 (list 3 18 9) ;; West 30474 (list 4 9 9) ;; Here 30475 (list 5 0 9) ;; East 30476 (list 6 18 0) ;; Southwest 30477 (list 7 9 0) ;; South 30478 (list 8 0 0) ;; SoutheastUp 30479 ) 30480) ;; end of place p_crypt 30481 30482(kern-mk-place 'p_ancient_derelict "Ancient Derelict" 30483 s_void_ship ;; sprite 30484 (kern-mk-map 30485 nil 19 19 pal_expanded 30486 (list 30487 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 30488 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 30489 "^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ ^^ ^^ " 30490 "^^ {{ {{ bb {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {3 {5 {{ {{ ^^ " 30491 "{{ {{ {{ {{ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {3 #> bb {5 {{ ^^ " 30492 "{{ {{ {{ {3 {1 {5 {{ {{ {{ ^^ ^^ ^^ {{ {2 ee .. {4 {{ ^^ " 30493 "{{ {{ {3 .. .. #> #> #> {{ ^^ ^^ #> {{ {2 .. ee #> {{ ^^ " 30494 "{1 {1 .. .. .. .. ee ee {{ {{ ^^ {{ {3 .. .. {4 {{ ^^ ^^ " 30495 ".. .. #> .. ee ee ee ee ee {{ {{ {{ ee ee .. #> ^^ ^^ ^^ " 30496 ".. .. bb ee ee ee ee ee ee ee {1 ee ee ee ee #> {1 {5 ^^ " 30497 ".. .. #> .. ee ee ee ee ee ee ee ee ee ee .. ee #> .. {1 " 30498 ".. .. .. .. .. ee ee ee ee ee ee .. .. #> #> .. #> .. .. " 30499 "{8 {8 bb .. #> #> #> #> #> .. #> #> .. .. .. .. .. bb .. " 30500 "{{ {{ {a .. .. .. .. .. .. bb .. .. .. .. .. .. .. .. .. " 30501 "{{ {{ {{ {a {8 {8 .. .. .. .. .. .. .. {8 {8 {8 bb .. .. " 30502 "^^ {{ bb {{ {{ {{ {a {8 .. .. .. .. {c {{ {{ {{ {{ {a {8 " 30503 "^^ ^^ {{ {{ {{ {{ {{ {{ {2 .. .. {c {{ {{ {{ {{ {{ {{ {{ " 30504 "^^ ^^ ^^ {{ ^^ ^^ ^^ {{ {2 .. {4 {{ ^^ ^^ ^^ {{ {{ {{ {{ " 30505 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {2 .. {4 {{ ^^ ^^ ^^ ^^ ^^ {{ {{ " 30506 ) 30507 ) 30508 #f #f #f #f 30509 ;; subplaces 30510 nil 30511 nil ;; neighbors 30512 (list ;; objects in p_ancient_derelict 30513 (list 30514 (bind 30515 (kern-mk-obj t_monman 1 30516 ;; hooks 30517 (list 30518 ) 30519 ) 30520 (list 30521 'monman 30522 (list 30523 0 30524 0 30525 0 30526 -1 30527 6 30528 -1 30529 ) 30530 ) 30531 ) ;; bind 30532 0 0) 30533 (list 30534 (bind 30535 (kern-mk-obj t_spawn_pt 1 30536 ;; hooks 30537 (list 30538 ) 30539 ) 30540 (list 30541 'spawn-pt 30542 'wisp 30543 ) 30544 ) ;; bind 30545 7 9) 30546 (list 30547 (bind 30548 (kern-mk-obj t_spawn_pt 1 30549 ;; hooks 30550 (list 30551 ) 30552 ) 30553 (list 30554 'spawn-pt 30555 'wisp 30556 ) 30557 ) ;; bind 30558 10 9) 30559 (list 30560 (kern-mk-obj t_power_core 1 30561 ;; hooks 30562 (list 30563 ) 30564 ) 30565 12 5) 30566 (list 30567 (bind 30568 (kern-mk-obj t_corpse 1 30569 ;; hooks 30570 (list 30571 ) 30572 ) 30573 (list 30574 (list 30575 (list 30576 1 30577 't_staff 30578 ) 30579 (list 30580 1 30581 't_vas_rel_por_scroll 30582 ) 30583 ) 30584 ) 30585 ) ;; bind 30586 9 10) 30587 ) ;; end of objects in p_ancient_derelict 30588 (list ;; on-entry-hooks 30589 'on-entry-to-dungeon-room 30590 ) 30591 (list ;; edge entrances 30592 (list 0 18 18) ;; Northwest 30593 (list 1 9 18) ;; North 30594 (list 2 0 18) ;; Northeast 30595 (list 3 18 9) ;; West 30596 (list 4 9 9) ;; Here 30597 (list 5 0 9) ;; East 30598 (list 6 18 0) ;; Southwest 30599 (list 7 9 0) ;; South 30600 (list 8 0 0) ;; SoutheastUp 30601 ) 30602) ;; end of place p_ancient_derelict 30603 30604(kern-load "joel.scm") 30605 30606(kern-load "r2a_mech.scm") 30607 30608(kern-mk-place 'p_road_to_absalot_3 "Passage to Absalot" 30609 nil ;; sprite 30610 (kern-mk-map 30611 nil 19 19 pal_expanded 30612 (list 30613 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 30614 "rr rr rr {C !! !! !c {{ {{ {{ {{ {{ !a !! !! {A rr rr rr " 30615 "rr rr {C !3 !! !c {# {{ {{ {{ {{ {{ {{ {% !! !5 {A rr rr " 30616 "rr {C !3 !! !c {# {{ {{ bb xx xx {{ {{ {{ !a !! !5 {A rr " 30617 "rr !! !! !c {# {{ {{ xx rr rr xx xx {{ {{ {% !a !! !! rr " 30618 "rr !! !! {# {{ {{ xx xx xx xx xx xx xx {{ {{ {% !! !! rr " 30619 "rr !! !! {{ {{ xx xx xx ,, ,, ,, bb rr xx {{ {{ !! !! rr " 30620 "rr !! !! {{ {{ rr xx xx ,, ,, ,, rr xx xx {{ {{ !! !! rr " 30621 "rr !! !! {{ {{ bb rr xx ,, ,, ,, xx xx xx {{ {{ !! !! rr " 30622 "rr !! !! {A {{ {{ xx xx xx ,, xx xx xx {{ {{ {C !! !! rr " 30623 "rr !! !! !5 {A {{ {{ xx xx ,, xx xx {{ {{ {C !3 !! !! rr " 30624 "rr !! !! !! !5 {A {{ {{ xx ,, xx {{ {{ {C !3 !! !! !! rr " 30625 "rr {% !! !! !! !5 {A {{ ,, ,, ,, {{ !3 !! !! !! !! {# ~r " 30626 "rr {{ !a !! !! !! !5 {{ {2 ,, ,, {{ !! !! !! !! !c {{ rr " 30627 "rr {{ {% !a !! !! !! {{ ,, ,, ,, {{ !! !! !! !c {# {{ rr " 30628 "rr {{ {{ {% !a !! xx rr ,, ,, .. xx xx !! !c {# {{ {{ rr " 30629 "rr rr {{ {{ {% !a xx ,, ,, ,, ,, ,, xx !c {# {{ {{ {{ rr " 30630 "rr rr rr {{ {{ {{ rr bb ,, ,, ,, ,, ?? {{ {{ {{ {{ rr rr " 30631 "rr rr rr rr rr xx xx xx ,, ,, ,, xx xx xx rr rr rr rr rr " 30632 ) 30633 ) 30634 #f #t #f #f 30635 ;; subplaces 30636 nil 30637 (list 30638 (list 30639 (kern-mk-place 'p_fire_bridge "Fire Bridge" 30640 nil ;; sprite 30641 (kern-mk-map 30642 nil 19 19 pal_expanded 30643 (list 30644 "xx xx xx rr rr xx xx xx ,, ,, ,, xx xx xx xx xx xx xx xx " 30645 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr " 30646 "xx ,, .. ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, bb rr " 30647 "rr ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, rr " 30648 "rr ,, ,, ,, ,, xx rr xx ,, w+ ,, xx xx xx ,, ,, ,, ,, xx " 30649 "xx ,, ,, ,, ,, xx !_ !_ ,, ,, !! !_ !_ xx ,, ,, ,, ,, xx " 30650 "xx ,, ,, ,, ,, w+ !! !_ !_ !_ !_ !_ !! w+ ,, ,, ,, ,, xx " 30651 "rr ,, ,, ,, ,, xx !! !! !_ !_ !_ !! !! rr ,, ,, ,, ,, xx " 30652 "xx ,, ,, ,, ,, xx xx !! !! !! !! !! xx xx ,, .. ,, ,, xx " 30653 "xx ,, ,, ,, ,, ,, w+ !! ,, ,, !! !! w+ ,, ,, ,, ,, ,, rr " 30654 "xx ,, ,, ,, ,, ,, w+ !! ,, ,, bb !! w+ ,, ,, ,, ,, ,, xx " 30655 "xx ,, ,, ,, ,, ,, w+ !! ,, ,, ,, !! w+ ,, ,, ,, ,, ,, xx " 30656 "xx xx ,, ,, ,, xx rr !! !! ,, ,, !! xx xx ,, ,, ,, xx xx " 30657 "!! xx bb w+ w+ xx !! !! ,, ,, ,, !! !! xx w+ w+ w+ xx !! " 30658 "!! !! ,, !! !! !! !! !! ,, ,, !! !! !! !! !! !! !! !! !! " 30659 "!! !! ,, !! !! !! !c {& ,, ,, {4 {% !a !! !! !! !! !! !! " 30660 "rr {{ {% !a !! !c {# {{ ,, ,, ,, {{ {% !a !! !c {# {{ rr " 30661 "rr {{ {{ {{ {{ {{ {{ {{ {2 ,, ,, {{ {{ {{ {{ {{ {{ rr rr " 30662 "rr rr rr rr rr rr rr rr ,, ,, ,, rr rr rr rr rr rr rr rr " 30663 ) 30664 ) 30665 #f #t #f #f 30666 ;; subplaces 30667 nil 30668 (list 30669 (list 30670 (kern-mk-place 'p_road_to_absalot_1 "Passage to Absalot" 30671 nil ;; sprite 30672 (kern-mk-map 30673 nil 19 19 pal_expanded 30674 (list 30675 "rr rr rr rr !! rr rr rr ,, ,, ,, rr rr rr rr !! rr rr rr " 30676 "rr rr rr rr !! rr rr {{ ,, .. ,, {{ {{ {{ rr !! rr rr rr " 30677 "rr rr rr {{ !! {A {{ {C ,, ,, ,, {{ !3 !! !! !! {{ rr rr " 30678 "rr {{ {{ {C !! !! !! !! ,, ,, ,, {{ !! bb {F !! {{ rr rr " 30679 "rr {{ !3 !! !! {& bb !! ,, ,, {4 {{ !! {# bb !! {{ rr rr " 30680 "rr {{ !! bb !! {{ {% !! ,, ,, ,, {{ !e {{ {% !! {{ rr rr " 30681 "rr {{ !e {& !! {{ {{ !e .. ,, ,, {A {{ {{ {{ !! {{ {{ ~r " 30682 "rr {{ {{ {{ !! {{ {{ pp ,, ,, ,, pp {{ {{ {C !! {A {{ rr " 30683 "rr rr {{ {C !! {A {C ,, ,, ,, ,, ,, {{ !3 !! !! !5 {{ rr " 30684 "rr rr {{ !3 !! !! !! ,, ,, ,, ,, ,, {{ !! bb bb !! {{ rr " 30685 "rr rr {{ !! bb bb !! ,, ,, ,, ,, ,, {{ !! bb {& !e {{ rr " 30686 "rr rr {{ !! {& bb !! pp {8 ,, ,, bb {{ !! {# {{ {{ {{ rr " 30687 "rr {{ {{ !! {{ {% !! {# {{ {{ {{ {{ {{ !! {{ {{ {{ {{ rr " 30688 "rr {{ {{ !! {{ {{ !e {{ {{ rr {{ {{ {{ !! {{ {{ {{ {{ rr " 30689 "rr {{ {{ !e {{ {{ {{ {{ rr rr {{ {{ {{ !! {{ {{ {{ {{ rr " 30690 "rr rr {{ {{ {{ rr {{ {{ rr rr rr {{ {{ !e {{ {{ rr bb rr " 30691 "rr rr rr {{ rr rr {{ rr rr rr rr rr {{ {{ {{ rr rr rr rr " 30692 "rr rr rr {{ rr rr rr rr rr rr rr rr rr {{ rr rr rr rr rr " 30693 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 30694 ) 30695 ) 30696 #f #t #f #f 30697 ;; subplaces 30698 nil 30699 nil ;; neighbors 30700 (list ;; objects in p_road_to_absalot_1 30701 (list 30702 (bind 30703 (kern-mk-obj t_trap_door 1 30704 ;; hooks 30705 (list 30706 ) 30707 ) 30708 (list 30709 'p_absalot_passage 30710 1 30711 38 30712 ) 30713 ) ;; bind 30714 18 6) 30715 (list 30716 (bind 30717 (kern-mk-obj t_spawn_pt 1 30718 ;; hooks 30719 (list 30720 ) 30721 ) 30722 (list 30723 'spawn-pt 30724 'troll 30725 ) 30726 ) ;; bind 30727 4 12) 30728 (list 30729 (bind 30730 (kern-mk-obj t_spawn_pt 1 30731 ;; hooks 30732 (list 30733 ) 30734 ) 30735 (list 30736 'spawn-pt 30737 'troll 30738 ) 30739 ) ;; bind 30740 13 4) 30741 (list 30742 (bind 30743 (kern-mk-obj t_spawn_pt 1 30744 ;; hooks 30745 (list 30746 ) 30747 ) 30748 (list 30749 'spawn-pt 30750 'headless 30751 ) 30752 ) ;; bind 30753 9 4) 30754 (list 30755 (bind 30756 (kern-mk-obj t_spawn_pt 1 30757 ;; hooks 30758 (list 30759 ) 30760 ) 30761 (list 30762 'spawn-pt 30763 'headless 30764 ) 30765 ) ;; bind 30766 5 4) 30767 (list 30768 (bind 30769 (kern-mk-obj t_spawn_pt 1 30770 ;; hooks 30771 (list 30772 ) 30773 ) 30774 (list 30775 'spawn-pt 30776 'gazer 30777 ) 30778 ) ;; bind 30779 3 17) 30780 (list 30781 (bind 30782 (kern-mk-obj t_monman 1 30783 ;; hooks 30784 (list 30785 ) 30786 ) 30787 (list 30788 'monman 30789 (list 30790 0 30791 0 30792 0 30793 -1 30794 6 30795 -1 30796 ) 30797 ) 30798 ) ;; bind 30799 0 0) 30800 (list 30801 (bind 30802 (kern-mk-obj t_ladder_up 1 30803 ;; hooks 30804 (list 30805 ) 30806 ) 30807 (list 30808 'p_gate_to_absalot 30809 9 30810 1 30811 ) 30812 ) ;; bind 30813 9 9) 30814 ) ;; end of objects in p_road_to_absalot_1 30815 (list ;; on-entry-hooks 30816 'on-entry-to-dungeon-room 30817 ) 30818 (list ;; edge entrances 30819 (list 0 18 18) ;; Northwest 30820 (list 1 9 18) ;; North 30821 (list 2 0 18) ;; Northeast 30822 (list 3 18 9) ;; West 30823 (list 4 9 9) ;; Here 30824 (list 5 0 9) ;; East 30825 (list 6 18 0) ;; Southwest 30826 (list 7 9 0) ;; South 30827 (list 8 0 0) ;; SoutheastUp 30828 ) 30829 ) ;; end of place p_road_to_absalot_1 30830 30831 7) 30832 ) ;; end neighbors of p_fire_bridge 30833 (list ;; objects in p_fire_bridge 30834 (list 30835 (bind 30836 (kern-mk-obj t_guard_pt 1 30837 ;; hooks 30838 (list 30839 ) 30840 ) 30841 (list 30842 'spawn-pt 30843 'ghast 30844 ) 30845 ) ;; bind 30846 14 9) 30847 (list 30848 (bind 30849 (kern-mk-obj t_guard_pt 1 30850 ;; hooks 30851 (list 30852 ) 30853 ) 30854 (list 30855 'spawn-pt 30856 'craven-archer 30857 ) 30858 ) ;; bind 30859 13 9) 30860 (list 30861 (bind 30862 (kern-mk-obj t_guard_pt 1 30863 ;; hooks 30864 (list 30865 ) 30866 ) 30867 (list 30868 'spawn-pt 30869 'death-knight 30870 ) 30871 ) ;; bind 30872 8 3) 30873 (list 30874 (bind 30875 (kern-mk-obj t_guard_pt 1 30876 ;; hooks 30877 (list 30878 ) 30879 ) 30880 (list 30881 'spawn-pt 30882 'death-knight 30883 ) 30884 ) ;; bind 30885 10 3) 30886 (list 30887 (bind 30888 (kern-mk-obj t_spawn_pt 1 30889 ;; hooks 30890 (list 30891 ) 30892 ) 30893 (list 30894 'spawn-pt 30895 'demon 30896 ) 30897 ) ;; bind 30898 16 2) 30899 (list 30900 (bind 30901 (kern-mk-obj t_monman 1 30902 ;; hooks 30903 (list 30904 ) 30905 ) 30906 (list 30907 'monman 30908 (list 30909 0 30910 0 30911 0 30912 -1 30913 6 30914 -1 30915 ) 30916 ) 30917 ) ;; bind 30918 0 0) 30919 (list 30920 (kern-tag 'fb-p2 30921 (bind 30922 (kern-mk-obj t_portcullis 1 30923 ;; hooks 30924 (list 30925 ) 30926 ) 30927 (list 30928 #f 30929 '() 30930 #f 30931 '() 30932 ) 30933 ) ;; bind 30934 ) ;; kern-tag 30935 8 4) 30936 (list 30937 (kern-tag 'fb-p1 30938 (bind 30939 (kern-mk-obj t_portcullis 1 30940 ;; hooks 30941 (list 30942 ) 30943 ) 30944 (list 30945 #f 30946 'fb-p2 30947 #f 30948 '() 30949 ) 30950 ) ;; bind 30951 ) ;; kern-tag 30952 10 4) 30953 (list 30954 (kern-tag 'fb-b1 30955 (bind 30956 (kern-mk-obj t_terrain_blitter 1 30957 ;; hooks 30958 (list 30959 ) 30960 ) 30961 (list 30962 'p_fire_bridge 30963 8 30964 6 30965 3 30966 3 30967 'm_deck_section 30968 ) 30969 ) ;; bind 30970 ) ;; kern-tag 30971 1 1) 30972 (list 30973 (bind 30974 (kern-mk-obj t_lever 1 30975 ;; hooks 30976 (list 30977 ) 30978 ) 30979 (list 30980 #f 30981 'fb-p1 30982 #f 30983 '() 30984 ) 30985 ) ;; bind 30986 3 10) 30987 (list 30988 (bind 30989 (kern-mk-obj t_lever 1 30990 ;; hooks 30991 (list 30992 ) 30993 ) 30994 (list 30995 #f 30996 'fb-b1 30997 #f 30998 '() 30999 ) 31000 ) ;; bind 31001 15 10) 31002 (list 31003 (bind 31004 (kern-mk-obj t_guard_pt 1 31005 ;; hooks 31006 (list 31007 ) 31008 ) 31009 (list 31010 'spawn-pt 31011 'craven-archer 31012 ) 31013 ) ;; bind 31014 5 10) 31015 (list 31016 (bind 31017 (kern-mk-obj t_guard_pt 1 31018 ;; hooks 31019 (list 31020 ) 31021 ) 31022 (list 31023 'spawn-pt 31024 'ghast 31025 ) 31026 ) ;; bind 31027 3 11) 31028 (list 31029 (bind 31030 (kern-mk-obj t_guard_pt 1 31031 ;; hooks 31032 (list 31033 ) 31034 ) 31035 (list 31036 'spawn-pt 31037 'skeletal-spear-thrower 31038 ) 31039 ) ;; bind 31040 5 9) 31041 (list 31042 (bind 31043 (kern-mk-obj t_guard_pt 1 31044 ;; hooks 31045 (list 31046 ) 31047 ) 31048 (list 31049 'spawn-pt 31050 'craven-archer 31051 ) 31052 ) ;; bind 31053 13 11) 31054 ) ;; end of objects in p_fire_bridge 31055 (list ;; on-entry-hooks 31056 'on-entry-to-dungeon-room 31057 ) 31058 (list ;; edge entrances 31059 (list 0 18 18) ;; Northwest 31060 (list 1 9 18) ;; North 31061 (list 2 0 18) ;; Northeast 31062 (list 3 18 9) ;; West 31063 (list 4 9 9) ;; Here 31064 (list 5 0 9) ;; East 31065 (list 6 18 0) ;; Southwest 31066 (list 7 9 0) ;; South 31067 (list 8 0 0) ;; SoutheastUp 31068 ) 31069 ) ;; end of place p_fire_bridge 31070 31071 7) 31072 ) ;; end neighbors of p_road_to_absalot_3 31073 (list ;; objects in p_road_to_absalot_3 31074 (list 31075 (bind 31076 (kern-mk-obj t_ladder_up 1 31077 ;; hooks 31078 (list 31079 ) 31080 ) 31081 (list 31082 'p_tower_of_absalot 31083 9 31084 9 31085 ) 31086 ) ;; bind 31087 9 7) 31088 (list 31089 (bind 31090 (kern-mk-obj t_trap_door 1 31091 ;; hooks 31092 (list 31093 ) 31094 ) 31095 (list 31096 'p_absalot_passage 31097 1 31098 2 31099 ) 31100 ) ;; bind 31101 18 12) 31102 (list 31103 (bind 31104 (kern-mk-obj t_guard_pt 1 31105 ;; hooks 31106 (list 31107 ) 31108 ) 31109 (list 31110 'spawn-pt 31111 'ghast 31112 ) 31113 ) ;; bind 31114 10 8) 31115 (list 31116 (bind 31117 (kern-mk-obj t_guard_pt 1 31118 ;; hooks 31119 (list 31120 ) 31121 ) 31122 (list 31123 'spawn-pt 31124 'death-knight 31125 ) 31126 ) ;; bind 31127 8 8) 31128 (list 31129 (bind 31130 (kern-mk-obj t_spawn_pt 1 31131 ;; hooks 31132 (list 31133 ) 31134 ) 31135 (list 31136 'spawn-pt 31137 'craven-archer 31138 ) 31139 ) ;; bind 31140 10 6) 31141 (list 31142 (bind 31143 (kern-mk-obj t_spawn_pt 1 31144 ;; hooks 31145 (list 31146 ) 31147 ) 31148 (list 31149 'spawn-pt 31150 'zorn 31151 ) 31152 ) ;; bind 31153 8 6) 31154 (list 31155 (bind 31156 (kern-mk-obj t_monman 1 31157 ;; hooks 31158 (list 31159 ) 31160 ) 31161 (list 31162 'monman 31163 (list 31164 0 31165 0 31166 0 31167 -1 31168 6 31169 -1 31170 ) 31171 ) 31172 ) ;; bind 31173 0 0) 31174 (list 31175 (bind 31176 (kern-mk-obj t_door 1 31177 ;; hooks 31178 (list 31179 ) 31180 ) 31181 (list 31182 #f 31183 0 31184 '() 31185 #f 31186 #f 31187 #t 31188 (list 31189 (list 31190 's_closed_solid_wood_door_in_stone 31191 #t 31192 5 31193 ) 31194 (list 31195 's_open_door_in_stone 31196 #f 31197 0 31198 ) 31199 (list 31200 's_locked_solid_wood_door_in_stone 31201 #t 31202 5 31203 ) 31204 (list 31205 's_magically_locked_solid_wood_door_in_stone 31206 #t 31207 5 31208 ) 31209 ) 31210 ) 31211 ) ;; bind 31212 9 10) 31213 ) ;; end of objects in p_road_to_absalot_3 31214 (list ;; on-entry-hooks 31215 'on-entry-to-dungeon-room 31216 ) 31217 (list ;; edge entrances 31218 (list 0 18 18) ;; Northwest 31219 (list 1 9 18) ;; North 31220 (list 2 0 18) ;; Northeast 31221 (list 3 18 9) ;; West 31222 (list 4 9 9) ;; Here 31223 (list 5 0 9) ;; East 31224 (list 6 18 0) ;; Southwest 31225 (list 7 9 0) ;; South 31226 (list 8 0 0) ;; SoutheastUp 31227 ) 31228) ;; end of place p_road_to_absalot_3 31229 31230p_fire_bridge 31231p_road_to_absalot_1 31232(kern-mk-place 'p_absalot_passage "Secret Passage" 31233 nil ;; sprite 31234 (kern-mk-map 31235 nil 19 40 pal_expanded 31236 (list 31237 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31238 "rr rr rr .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31239 ".. {8 .. .. {c {{ rr rr rr rr rr rr rr rr rr rr rr rr rr " 31240 "rr {{ {2 rr {{ {3 rr rr rr rr rr rr rr rr rr rr rr rr rr " 31241 "rr rr rr rr rr .. bb rr rr rr rr rr rr rr rr rr rr rr rr " 31242 "rr rr rr rr rr .. {c {{ rr rr rr rr rr rr rr rr *7 rr rr " 31243 "rr rr rr rr rr rr {{ {3 rr rr rr *7 rr rr rr *3 vv *5 rr " 31244 "rr rr rr rr rr rr rr .. rr rr rr vv *5 rr rr vv vv vv rr " 31245 "rr rr rr rr rr rr rr .. rr rr *3 vv vv vv vv vv vv vv vv " 31246 "rr rr rr rr rr rr {{ {2 rr rr *2 vv vv vv vv vv vv vv vv " 31247 "rr rr rr rr rr rr {1 bb rr rr vv vv vv vv vv vv vv vv vv " 31248 "rr rr rr rr rr rr .. rr rr *3 vv vv vv vv vv *c rr vv vv " 31249 "rr rr rr rr rr {{ .. rr *3 vv vv vv vv vv *c rr rr *2 vv " 31250 "rr rr rr rr rr .. *3 vv vv vv vv vv vv vv rr rr rr *2 vv " 31251 "rr !! !! !! rr .. *2 vv vv vv vv vv vv vv rr rr bb vv vv " 31252 "!! !! !! !! !! !! ** vv vv vv vv vv vv vv *5 rr *3 vv vv " 31253 "!! !_ !_ !_ !_ !_ *. vv vv vv vv vv vv vv vv vv vv vv vv " 31254 "!_ !_ !_ !_ +s !! ** vv vv vv vv vv vv vv vv vv vv vv vv " 31255 "!_ !_ !! !_ !_ !_ ** vv vv vv vv vv vv vv vv vv vv vv vv " 31256 "!! !! !! !! !! !! *. vv vv vv vv vv vv vv vv vv vv vv vv " 31257 "!! !! rr rr rr {c {h vv vv vv vv vv vv vv vv vv vv vv vv " 31258 "rr rr rr rr rr {{ .. *2 vv vv vv vv vv vv vv vv vv vv vv " 31259 "rr rr rr rr rr rr .. *2 vv vv vv vv vv *c rr vv vv vv vv " 31260 "rr rr rr rr rr {{ .l vv vv vv vv vv vv bb rr *a vv vv vv " 31261 "rr rr rr rr rr .. *3 vv vv vv vv vv vv rr rr rr vv vv vv " 31262 "rr rr rr rr rr .. *2 vv vv vv vv vv vv *5 rr *3 vv vv vv " 31263 "rr rr rr rr rr {{ *2 vv vv vv vv vv vv vv vv vv vv vv vv " 31264 "rr rr rr rr {{ .. *a vv vv vv vv vv vv vv vv vv vv vv vv " 31265 "rr rr rr rr {1 {8 rr rr *a vv vv vv vv vv vv vv vv vv vv " 31266 "rr rr rr {{ {6 {{ rr rr rr *a vv vv vv vv vv vv vv vv vv " 31267 "rr rr rr {{ {2 rr rr rr rr rr vv vv vv vv vv vv *c rr rr " 31268 "rr rr rr {1 {8 rr rr rr rr rr *2 vv *c rr vv *c rr rr rr " 31269 "rr rr rr {4 {{ rr rr rr rr rr *e rr rr rr *e rr rr rr rr " 31270 "rr rr rr bb {1 rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31271 "rr rr rr rr .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31272 "rr rr rr {{ {2 rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31273 "rr rr rr {{ {2 rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31274 "rr {4 {{ {3 rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31275 ".. .. rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31276 "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr " 31277 ) 31278 ) 31279 #f #t #f #f 31280 ;; subplaces 31281 nil 31282 nil ;; neighbors 31283 (list ;; objects in p_absalot_passage 31284 (list 31285 (bind 31286 (kern-mk-obj t_trap_door 1 31287 ;; hooks 31288 (list 31289 ) 31290 ) 31291 (list 31292 'p_road_to_absalot_3 31293 17 31294 12 31295 ) 31296 ) ;; bind 31297 0 2) 31298 (list 31299 (bind 31300 (kern-mk-obj t_trap_door 1 31301 ;; hooks 31302 (list 31303 ) 31304 ) 31305 (list 31306 'p_road_to_absalot_1 31307 17 31308 6 31309 ) 31310 ) ;; bind 31311 0 38) 31312 (list 31313 (bind 31314 (kern-mk-char 31315 'ch_r2a_statue 31316 "Statue" 31317 sp_statue 31318 nil 31319 s_statue 31320 2 31321 0 0 0 31322 0 0 31323 0 0 31324 189 0 31325 9 9 31326 #f ;; dead? 31327 'r2a-statue-conv 31328 nil 31329 'ankh-ai 31330 nil ;; inventory 31331 nil 31332 ;; hooks 31333 (list 31334 (list 31335 ef_permanent_invisibility 31336 '() 31337 2 31338 0 31339 ) 31340 ) 31341 ) 31342 '() 31343 ) ;; bind 31344 4 17) 31345 (list 31346 (bind 31347 (kern-mk-obj t_spawn_pt 1 31348 ;; hooks 31349 (list 31350 ) 31351 ) 31352 (list 31353 'spawn-pt 31354 'bat 31355 ) 31356 ) ;; bind 31357 15 22) 31358 (list 31359 (bind 31360 (kern-mk-obj t_spawn_pt 1 31361 ;; hooks 31362 (list 31363 ) 31364 ) 31365 (list 31366 'spawn-pt 31367 'bat 31368 ) 31369 ) ;; bind 31370 10 10) 31371 (list 31372 (bind 31373 (kern-mk-obj t_spawn_pt 1 31374 ;; hooks 31375 (list 31376 ) 31377 ) 31378 (list 31379 'spawn-pt 31380 'bat 31381 ) 31382 ) ;; bind 31383 10 30) 31384 (list 31385 (bind 31386 (kern-mk-obj t_spawn_pt 1 31387 ;; hooks 31388 (list 31389 ) 31390 ) 31391 (list 31392 'spawn-pt 31393 'bat 31394 ) 31395 ) ;; bind 31396 16 30) 31397 (list 31398 (bind 31399 (kern-mk-obj t_spawn_pt 1 31400 ;; hooks 31401 (list 31402 ) 31403 ) 31404 (list 31405 'spawn-pt 31406 'bat 31407 ) 31408 ) ;; bind 31409 16 15) 31410 (list 31411 (bind 31412 (kern-mk-obj t_monman 1 31413 ;; hooks 31414 (list 31415 ) 31416 ) 31417 (list 31418 'monman 31419 (list 31420 0 31421 0 31422 0 31423 -1 31424 6 31425 -1 31426 ) 31427 ) 31428 ) ;; bind 31429 0 0) 31430 ) ;; end of objects in p_absalot_passage 31431 (list ;; on-entry-hooks 31432 'fix-lava 31433 'on-entry-to-dungeon-room 31434 ) 31435 (list ;; edge entrances 31436 (list 0 18 39) ;; Northwest 31437 (list 1 9 39) ;; North 31438 (list 2 0 39) ;; Northeast 31439 (list 3 18 20) ;; West 31440 (list 4 9 20) ;; Here 31441 (list 5 0 20) ;; East 31442 (list 6 18 0) ;; Southwest 31443 (list 7 9 0) ;; South 31444 (list 8 0 0) ;; SoutheastUp 31445 ) 31446) ;; end of place p_absalot_passage 31447 31448(kern-mk-place 'p_gate_to_absalot "Gate To Absalot" 31449 s_keep ;; sprite 31450 (kern-mk-map 31451 nil 19 19 pal_expanded 31452 (list 31453 "^^ ^^ ^^ ^^ ^^ ^^ ^^ xx xx xx xx xx ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 31454 "^^ ^^ ^^ xx xx xx xx xx ,, ,, ,, xx xx xx xx rr ^^ ^^ ^^ " 31455 "^^ ^^ ^^ xx ,, ,, ,, xx .. ,, ,, xx ,, ,, ,, bb ^^ ^^ ^^ " 31456 "^^ ^^ ^^ xx bb ,, ,, ,, ,, ,, ,, ,, ,, .. ,, rr ^^ ^^ ^^ " 31457 "^^ ^^ ^^ xx ,, .. ,, xx ,, ,, ,, xx ,, ,, ,, xx ^^ ^^ ^^ " 31458 "^^ ^^ ^^ xx ,, ,, ,, xx xx bb xx rr ,, ,, bb xx ^^ ^^ ^^ " 31459 "^^ ^^ ^^ xx ,, ,, bb xx bb bb bb xx ,, ,, ,, xx ^^ ^^ ^^ " 31460 "^^ ^^ ^^ xx ,, ,, ,, w+ .. bb .. w+ ,, ,, ,, xx ^^ ^^ ^^ " 31461 "^^ ^^ ^^ xx ,, ,, ,, xx .. .. .. xx bb ,, ,, xx ^^ ^^ ^^ " 31462 "^^ ^^ ^^ xx xx w+ xx rr .. .. .. xx xx w+ xx xx ^^ ^^ ^^ " 31463 "^^ ^^ ^^ {{ {a .. .. .. .. .. .. .. .. .. {c {{ ^^ ^^ ^^ " 31464 "^^ ^^ ^^ {{ {{ {2 .. .. .. .. .. .. .. {4 {{ {{ ^^ ^^ ^^ " 31465 "^^ ^^ ^^ {{ {{ {2 .. .. .. && .. .. .. {4 {{ {{ ^^ ^^ ^^ " 31466 "^^ ^^ ^^ {{ {{ {a .. .. .. .. .. .. .. {c {{ {{ ^^ ^^ ^^ " 31467 "^^ ^^ ^^ ^^ {{ {{ {a .. .. .. .. .. {c {{ {{ ^^ ^^ ^^ ^^ " 31468 "^^ ^^ ^^ ^^ ^^ {{ {{ {2 .. .. .. {4 {{ {{ ^^ ^^ ^^ ^^ ^^ " 31469 "^^ ^^ ^^ ^^ ^^ {{ {{ {2 .. .. .. {4 {{ {{ ^^ ^^ ^^ ^^ ^^ " 31470 "^^ ^^ ^^ ^^ {{ {{ {3 .. .. .. .. .. {5 {{ {{ ^^ ^^ ^^ ^^ " 31471 "^^ ^^ ^^ {{ {{ {3 .. .. .. .. .. .. .. {5 {{ {{ ^^ ^^ ^^ " 31472 ) 31473 ) 31474 #f #f #f #f 31475 ;; subplaces 31476 nil 31477 nil ;; neighbors 31478 (list ;; objects in p_gate_to_absalot 31479 (list 31480 (bind 31481 (kern-mk-obj t_monman 1 31482 ;; hooks 31483 (list 31484 ) 31485 ) 31486 (list 31487 'monman 31488 (list 31489 0 31490 0 31491 0 31492 -1 31493 6 31494 -1 31495 ) 31496 ) 31497 ) ;; bind 31498 0 0) 31499 (list 31500 (bind 31501 (kern-mk-obj t_ladder_down 1 31502 ;; hooks 31503 (list 31504 ) 31505 ) 31506 (list 31507 'p_road_to_absalot_1 31508 9 31509 9 31510 ) 31511 ) ;; bind 31512 9 1) 31513 (list 31514 (bind 31515 (kern-mk-char 31516 'ch_joel 31517 "Joel" 31518 sp_human 31519 nil 31520 s_companion_shepherd 31521 2 31522 0 0 0 31523 0 0 31524 0 0 31525 13 0 31526 5 3 31527 #f ;; dead? 31528 'joel-conv 31529 sch_joel 31530 nil 31531 nil ;; inventory 31532 nil 31533 ;; hooks 31534 (list 31535 ) 31536 ) 31537 '() 31538 ) ;; bind 31539 8 9) 31540 (list 31541 (bind 31542 (kern-mk-char 31543 nil 31544 "bull" 31545 sp_bull 31546 nil 31547 s_bull 31548 0 31549 0 0 0 31550 0 0 31551 0 0 31552 28 1024 31553 4 4 31554 #f ;; dead? 31555 nil 31556 nil 31557 'animal-ai 31558 (kern-mk-container 31559 t_chest 31560 ;; trap 31561 nil 31562 ;; contents 31563 nil 31564 ;; hooks 31565 (list 31566 ) 31567 ) 31568 nil 31569 ;; hooks 31570 (list 31571 ) 31572 ) 31573 (list 31574 'npcg 31575 'bull 31576 #f 31577 #f 31578 '() 31579 ) 31580 ) ;; bind 31581 12 12) 31582 (list 31583 (bind 31584 (kern-mk-char 31585 nil 31586 "bull" 31587 sp_bull 31588 nil 31589 s_bull 31590 0 31591 0 0 0 31592 0 0 31593 0 0 31594 28 1024 31595 4 4 31596 #f ;; dead? 31597 nil 31598 nil 31599 'animal-ai 31600 (kern-mk-container 31601 t_chest 31602 ;; trap 31603 nil 31604 ;; contents 31605 nil 31606 ;; hooks 31607 (list 31608 ) 31609 ) 31610 nil 31611 ;; hooks 31612 (list 31613 ) 31614 ) 31615 (list 31616 'npcg 31617 'bull 31618 #f 31619 #f 31620 '() 31621 ) 31622 ) ;; bind 31623 10 15) 31624 ) ;; end of objects in p_gate_to_absalot 31625 (list ;; on-entry-hooks 31626 'on-entry-to-dungeon-room 31627 ) 31628 (list ;; edge entrances 31629 (list 0 18 18) ;; Northwest 31630 (list 1 9 18) ;; North 31631 (list 2 0 18) ;; Northeast 31632 (list 3 18 9) ;; West 31633 (list 4 9 9) ;; Here 31634 (list 5 0 9) ;; East 31635 (list 6 18 0) ;; Southwest 31636 (list 7 9 0) ;; South 31637 (list 8 0 0) ;; SoutheastUp 31638 ) 31639) ;; end of place p_gate_to_absalot 31640 31641(kern-mk-place 'p_tower_of_absalot "Tower of Absalot" 31642 s_keep ;; sprite 31643 (kern-mk-map 31644 nil 19 19 pal_expanded 31645 (list 31646 "^^ tt tt tc %% te bb %% .. .. ta tc bb ta tc %% %% %c ^^ " 31647 "^^ ta tt %b ~f %% %% %% %% =| %d bb %b %% %% %% ~f ^3 ^^ " 31648 "^^ ^5 tt t5 %e t7 bb %e .. .. .. %f bb t7 %a ~f ^b ^^ ^^ " 31649 "^^ ^^ tt tt tt tt td bb .. .. .. bb tb tt t5 %a ~f ^a ^^ " 31650 "^^ ^^ tt tt tc xx w+ xx rr .. xx xx bb xx ta tt tt t5 ^^ " 31651 "^^ ^^ tt tt xx xx ,, ,, w+ .. w+ ,, ,, xx xx tt tt tt ^^ " 31652 "^^ ^^ tt tt w+ ,, ,, ,, rr d, xx ,, ,, ,, w+ tt tt tt ^^ " 31653 "^^ ^^ ta tt xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx tt tt tc ^^ " 31654 "^^ ^^ ^5 tt xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx tt tt ^3 ^^ " 31655 "^^ ^^ ^^ tt bb .. ,, ,, ,, /c ,, ,, ,, ,, w+ tt tt ^^ ^^ " 31656 "^^ ^^ ^^ tt t5 .. ,, ,, ,, ,, ,, ,, ,, ,, rr tt tt ^^ ^^ " 31657 "^^ ^^ ^c tt tc .. .. ,, ,, ,, ,, ,, ,, ,, rr tt tt ^^ ^^ " 31658 "^^ ^^ t3 tt bb .. ,, ,, ,, ,, ,, ,, ,, ,, w+ tt tt ^^ ^^ " 31659 "^^ ^^ ta tt rr rr ,, ,, ,, ,, ,, ,, ,, xx xx tt tc ^^ ^^ " 31660 "^^ ^^ ^5 tt t5 rr w+ xx xx w+ xx xx w+ xx t3 tt ^3 ^^ ^^ " 31661 "^^ ^^ ^^ ta tt tt tt tt tt tt tt tt tt tt tt tc ^^ ^^ ^^ " 31662 "^^ ^^ ^^ ^^ ^5 ta tt tt tt tt tt tt tt tt tc ^3 ^^ ^^ ^^ " 31663 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 31664 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 31665 ) 31666 ) 31667 #f #f #f #f 31668 ;; subplaces 31669 nil 31670 nil ;; neighbors 31671 (list ;; objects in p_tower_of_absalot 31672 (list 31673 (bind 31674 (kern-mk-obj t_spawn_pt 1 31675 ;; hooks 31676 (list 31677 ) 31678 ) 31679 (list 31680 'spawn-pt 31681 'death-knight 31682 ) 31683 ) ;; bind 31684 6 7) 31685 (list 31686 (bind 31687 (kern-mk-obj t_spawn_pt 1 31688 ;; hooks 31689 (list 31690 ) 31691 ) 31692 (list 31693 'spawn-pt 31694 'ghast 31695 ) 31696 ) ;; bind 31697 12 11) 31698 (list 31699 (bind 31700 (kern-mk-obj t_monman 1 31701 ;; hooks 31702 (list 31703 ) 31704 ) 31705 (list 31706 'monman 31707 (list 31708 0 31709 0 31710 0 31711 -1 31712 6 31713 -1 31714 ) 31715 ) 31716 ) ;; bind 31717 0 0) 31718 (list 31719 (bind 31720 (kern-mk-obj t_ladder_down 1 31721 ;; hooks 31722 (list 31723 ) 31724 ) 31725 (list 31726 'p_road_to_absalot_3 31727 9 31728 7 31729 ) 31730 ) ;; bind 31731 9 9) 31732 ) ;; end of objects in p_tower_of_absalot 31733 (list ;; on-entry-hooks 31734 'on-entry-to-dungeon-room 31735 ) 31736 (list ;; edge entrances 31737 (list 0 18 18) ;; Northwest 31738 (list 1 9 18) ;; North 31739 (list 2 0 18) ;; Northeast 31740 (list 3 18 9) ;; West 31741 (list 4 9 9) ;; Here 31742 (list 5 0 9) ;; East 31743 (list 6 18 0) ;; Southwest 31744 (list 7 9 0) ;; South 31745 (list 8 0 0) ;; SoutheastUp 31746 ) 31747) ;; end of place p_tower_of_absalot 31748 31749(kern-load "mesmeme.scm") 31750 31751(kern-load "jake.scm") 31752 31753(kern-load "slywan.scm") 31754 31755(kern-load "tooth.scm") 31756 31757(kern-load "tetzl.scm") 31758 31759(kern-mk-place 'p_kun "Kun" 31760 s_town ;; sprite 31761 (kern-mk-map 31762 nil 19 19 pal_expanded 31763 (list 31764 "xx xx xx xx xx xx xx xx xx xx xx {{ {2 .. {4 {{ ^^ ^^ ^^ " 31765 "xx [[ .C .A .N .T .I .N .A ]] xx {{ {2 .. {4 {{ {{ ^^ ^^ " 31766 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx {{ {2 .. {4 {{ {{ {{ ^^ " 31767 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ws {{ {2 .. {4 {{ ^^ ^^ ^^ " 31768 "xx ,, ,, 00 00 00 00 00 ,, ,, xx {{ {2 .. {4 {{ ^^ ^^ {{ " 31769 "xx ,, ,, 00 ,, ,, ,, 00 ,, ,, xx {{ {2 .. {4 {{ {{ {{ {{ " 31770 "xx ,, ,, 00 00 00 00 00 ,, ,, xx {{ {2 .. .. {1 {1 {1 {1 " 31771 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ws {{ {2 .. .. .. .. .. .. " 31772 "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx {{ {2 .. .. .. {8 .. {8 " 31773 "xx xx ws xx xx ,, sT xx ws xx xx {{ {2 .. .. bb {{ bb {{ " 31774 ".. .. .. .. .. .. .. .. .. .. .. {1 .. .. {4 {{ {{ {{ ^^ " 31775 ".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. bb {{ ^^ ^^ " 31776 "{8 .. {8 .. .. .. .. {8 .. .. .. .. .. .. {4 {{ ^^ ^^ ^^ " 31777 "{{ bb {{ bb .. .. {4 {{ xx xx xx xx sE ,, xx xx xx xx xx " 31778 "{{ {{ {{ {{ {2 .. {4 {{ xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 31779 "^^ {{ {{ bb .. .. {4 {{ xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 31780 "^^ ^^ {{ {{ {2 .. {4 {{ xx ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 31781 "^^ ^^ ^^ {{ {2 .. {4 {{ xx .D .U .T .Y @@ .F .R .E .E xx " 31782 "^^ ^^ ^^ {{ {2 .. {4 {{ xx xx xx xx xx xx xx xx xx xx xx " 31783 ) 31784 ) 31785 #f #f #f #f 31786 ;; subplaces 31787 nil 31788 nil ;; neighbors 31789 (list ;; objects in p_kun 31790 (list 31791 (bind 31792 (kern-mk-char 31793 'ch_tooth 31794 "Tooth" 31795 sp_rat 31796 oc_wrogue 31797 s_rat 31798 2 31799 0 0 0 31800 0 0 31801 0 1 31802 8 256 31803 4 2 31804 #f ;; dead? 31805 'tooth-conv 31806 sch_tooth 31807 nil 31808 nil ;; inventory 31809 nil 31810 ;; hooks 31811 (list 31812 ) 31813 ) 31814 '() 31815 ) ;; bind 31816 6 7) 31817 (list 31818 (bind 31819 (kern-mk-char 31820 'ch_tetzl 31821 "Tetzl" 31822 sp_spider 31823 oc_wright 31824 s_spider 31825 2 31826 0 0 0 31827 0 0 31828 0 0 31829 10 256 31830 4 2 31831 #f ;; dead? 31832 nil 31833 sch_tetzl 31834 nil 31835 nil ;; inventory 31836 nil 31837 ;; hooks 31838 (list 31839 ) 31840 ) 31841 '() 31842 ) ;; bind 31843 3 3) 31844 (list 31845 (bind 31846 (kern-mk-obj t_door 1 31847 ;; hooks 31848 (list 31849 ) 31850 ) 31851 (list 31852 #f 31853 0 31854 '() 31855 #f 31856 #f 31857 #f 31858 (list 31859 (list 31860 's_closed_windowed_wood_door_in_rock 31861 #f 31862 5 31863 ) 31864 (list 31865 's_open_door_in_rock 31866 #f 31867 0 31868 ) 31869 (list 31870 's_locked_windowed_wood_door_in_rock 31871 #f 31872 5 31873 ) 31874 (list 31875 's_magically_locked_windowed_wood_door_in_rock 31876 #f 31877 5 31878 ) 31879 ) 31880 ) 31881 ) ;; bind 31882 5 9) 31883 (list 31884 (bind 31885 (kern-mk-obj t_door 1 31886 ;; hooks 31887 (list 31888 ) 31889 ) 31890 (list 31891 #f 31892 0 31893 '() 31894 #f 31895 #f 31896 #f 31897 (list 31898 (list 31899 's_closed_solid_wood_door_in_stone 31900 #t 31901 5 31902 ) 31903 (list 31904 's_open_door_in_stone 31905 #f 31906 0 31907 ) 31908 (list 31909 's_locked_solid_wood_door_in_stone 31910 #t 31911 5 31912 ) 31913 (list 31914 's_magically_locked_solid_wood_door_in_stone 31915 #t 31916 5 31917 ) 31918 ) 31919 ) 31920 ) ;; bind 31921 13 13) 31922 (list 31923 (bind 31924 (kern-mk-char 31925 'ch_mesmeme 31926 "Mesmeme" 31927 sp_gazer 31928 oc_wizard 31929 s_gazer 31930 2 31931 0 0 0 31932 12 2 31933 0 1 31934 28 256 31935 18 2 31936 #f ;; dead? 31937 'mesmeme-conv 31938 sch_mesmeme 31939 nil 31940 nil ;; inventory 31941 nil 31942 ;; hooks 31943 (list 31944 ) 31945 ) 31946 '() 31947 ) ;; bind 31948 8 4) 31949 (list 31950 (bind 31951 (kern-mk-char 31952 'ch_jake 31953 "Jake&Percival" 31954 sp_gint 31955 nil 31956 s_ettin 31957 2 31958 0 0 0 31959 0 0 31960 0 0 31961 60 256 31962 4 2 31963 #f ;; dead? 31964 'jake-conv 31965 sch_jake 31966 nil 31967 nil ;; inventory 31968 nil 31969 ;; hooks 31970 (list 31971 ) 31972 ) 31973 (list 31974 #t 31975 ) 31976 ) ;; bind 31977 4 5) 31978 (list 31979 (bind 31980 (kern-char-force-drop (kern-mk-char 31981 'ch_slywan 31982 "Slywan" 31983 sp_human 31984 oc_wrogue 31985 s_brigand 31986 2 31987 0 0 0 31988 0 0 31989 0 1 31990 12 256 31991 6 2 31992 #f ;; dead? 31993 'slywan-conv 31994 sch_slywan 31995 nil 31996 (kern-mk-container 31997 t_chest 31998 ;; trap 31999 nil 32000 ;; contents 32001 nil 32002 ;; hooks 32003 (list 32004 ) 32005 ) 32006 nil 32007 ;; hooks 32008 (list 32009 ) 32010 ) 32011 #t) ;; kern-char-force-drop 32012 '() 32013 ) ;; bind 32014 3 7) 32015 ) ;; end of objects in p_kun 32016 nil ;; on-entry-hook 32017 (list ;; edge entrances 32018 (list 0 18 18) ;; Northwest 32019 (list 1 5 18) ;; North 32020 (list 2 0 18) ;; Northeast 32021 (list 3 18 7) ;; West 32022 (list 4 9 9) ;; Here 32023 (list 5 0 11) ;; East 32024 (list 6 18 0) ;; Southwest 32025 (list 7 13 0) ;; South 32026 (list 8 0 0) ;; SoutheastUp 32027 ) 32028) ;; end of place p_kun 32029 32030(kern-load "raise-merciful-death.scm") 32031 32032(kern-mk-place 'p_shard "The Shard Surface" 32033 nil ;; sprite 32034 (kern-mk-composite-map 32035 nil 4 3 32036 (kern-mk-map nil 32 32 pal_expanded 32037 (list 32038 "*. *. *. *. ** ** *. *. ** *. *. *. *. ** *. ** ** ** *. *. *. ** ** *. *. ** *. *. ** ** ** ** " 32039 "** ** ** ** ** ** *. *. ** ** ** ** ** *. ** *. ** ** *. *. *. *. ** ** ** ** *. ** ** *. ** ** " 32040 "** *. *. *. *. *. *. *. *. *. *. ** ** ** ** *. ** ** ** ** ** ** ** ** ** ** *. ** *. *. ** ** " 32041 "*. ** *. *. *. ** ** ** *. ** *. ** ** ** ** *. ** *. ** ** ** *. *. ** *. ** ** ** *. *. *. *. " 32042 "*. *. *. ** ** *. *. *. *. ** ** ** ** ** ** *. ** ** ** ** *. ** ** *. ** *. *. ** ** ** *. ** " 32043 "** *. ** *. ** ** ** *. ** ** ** ** *. *8 *8 *8 *8 *8 *8 *8 *8 *8 *8 ** ** ** ** ** ** ** ** *. " 32044 "** *. *. ** ** ** *. *. ** *. *. *c ^g ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^h *a *. ** ** *. *. ** ** " 32045 "** *. ** ** ** *. ** ** *. ** ^g ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^h *a ** *. *. *. ** *. " 32046 "*. ** ** *. *. *. *. *. *. *4 ^^ ^^ ^^ .! ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^h *a *8 *. ** ** *. " 32047 "*. ** ** ** ** ** ** ** *. *c ^^ ^c tb tt td ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^h *a ** ** " 32048 "** ** ** *. ** ** *. *. ** ^g ^^ %b %5 tt %b %d ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^h *. ** " 32049 "*. *. ** ** *. *. ** *. *4 ^^ ^^ t7 %% ta tt tt tt t5 ^a ^^ ^^ ^^ ^^ ^^ ^c %3 %% %5 ^a ^^ *a ** " 32050 "*. ** *. ** *. ** ** *. *c ^^ ^^ tt %% %5 ta tt tt tt tt tt tt tt tt tt td %% -7 %% %5 ^^ ^h *a " 32051 "** *. *. ** ** *. ** *. ^g ^^ ^c te %% %c ^3 ^^ ^d tt tt tc %3 %% %5 te %3 -b -- -d %% ^^ ^^ ^^ " 32052 "*. *. *. *. ** ** ** *4 ^^ ^^ t7 %3 %c ^3 ^^ ^c %7 ta tt %3 %c ^7 %a %% %% %% -e %% %c ^^ ^^ ^^ " 32053 "*. ** *. *. *. ** ** *4 ^^ ^^ tt %% ^b ^^ ^c %3 %% %d tt %% ^b ^^ ^d %% t7 %a %% %c {B {{ ^^ tf " 32054 "** ** *. ** *. *. ** *4 ^^ ^^ te %a %% %% %% %% %% ^f tt %a %5 ^e %3 %c tt tt tt td %7 {E t7 {E " 32055 "*. *. ** *. ** ** ** *4 ^^ ^^ ^5 t7 ^f %% %% %% %% tb tt t5 %a %% %c t3 tt tt tt %3 %% %d tt %3 " 32056 "** *. ** *. ** ** ** ** ^j ^^ ^^ te %3 %c ^3 ^5 %% %5 ta tt tt tt tt tc t& tt tt %a %c t3 tt %% " 32057 "*. *. ** ** ** ** *. *. *5 ^^ ^^ ^5 %% ^b ^^ ^^ %% %% %5 t% ta tt tt %3 %5 ta tt tt tt tt tc %a " 32058 "*. ** ** ** ** ** ** *. *4 ^^ ^^ ^c %% %5 ^^ ^c %% %% %% ^7 t% tt tc %% %% %5 t% tt {# {{ {% t3 " 32059 "** *. *. ** *. ** ** *. *4 ^^ ^^ %3 %% %% ^^ %3 %% %% %c {1 tC tt %3 %c ^7 %a %5 tt {{ {{ {{ tt " 32060 "*. ** ** *. *. ** *. ** *4 ^^ ^^ %% ^f %% ^^ %a %% %% tb tt tt tt %% ^b ^^ ^d %% te {A {{ {C te " 32061 "** *. ** ** *. *. ** *. *4 ^^ ^^ %a %% %% ^^ ^5 %% %% %% %5 ta tt %a %d ^e %3 %% %5 tb tt td %3 " 32062 "** ** ** ** *. ** *. *. ** ^j ^^ ^5 %a %% ^a ^c %% %% -7 %% %5 tt tt t5 %b %% %% %% %5 te %3 %% " 32063 "*. ** *. *. *. *. *. *. *. *5 ^j ^^ ^5 %a %% %% %% -b -- -d %% tt ^f tt tt tt t5 %% %% %% %% -b " 32064 "*. ** *. ** *. ** *. *. *. *. *5 ^^ ^^ ^^ ^5 %a %% %% -e %% %c tt tt tt tt tt tt %% %c ^7 %a %% " 32065 "** *. ** ** ** ** *. *. *. *. *. ^j ^^ ^^ ^^ ^5 t7 %a %% %c t3 tc %3 %% %5 ta tt %e ^b ^^ ^d %a " 32066 "** ** *. *. *. ** *. *. *. ** *. ** *1 *5 ^^ ^^ ta tt tt tt tt %3 %% -7 %% %5 tt t5 %7 ^e %7 t3 " 32067 "** *. *. *. ** ** *. *. *. ** *. ** *. *4 ^^ ^^ {2 .. .. t% tt %% -b -- -d %% tt tt %a %% %c tt " 32068 "*. *. ** *. ** ** ** *. *. *. ** ** *. *4 ^^ ^^ {a .. .. .. tt %a %% -e %% %c tt tt tt tt tt tc " 32069 "** *. ** ** *. *. ** *. *. *. *. *. *. *4 ^^ ^^ {{ {a {8 .. ta t5 %a %% %c t3 tc t# {8 {8 .. .. " 32070 ) 32071 ) 32072 (kern-mk-map nil 32 32 pal_expanded 32073 (list 32074 "** *. ** ** ** ** ** *. *. ** ** ** *. *. ** *. *. *. ** ** ** *. ** *. *. *. *. ** *. *. *. *. " 32075 "** *. ** *. ** *. ** *. *. ** ** ** ** ** *. ** ** *. *. *. *. *. ** *. ** ** *. *. *. ** *. *. " 32076 "** ** *. *. *. *. ** *. *. ** ** *. *. ** ** ** *. *. *. *. *. ** *. ** ** ** ** *. ** *. *. *. " 32077 "** *. ** ** *. *. *. *. ** ** *. *. *. ** *. *. *. *8 *8 *8 ** ** ** *. *. *. ** *. ** ** ** ** " 32078 "** *. *. ** ** *. *. ** ** ** ** *. *. ** ** *c ^g ^^ .. ^^ ^h *a ** ** ** ** ** *. *. ** *. *. " 32079 "** ** ** *. *. *. *. *. ** ** ** ** *. *. ** ^g ^^ {{ {6 {{ ^^ ^h ** ** *. *. *. *. ** *. ** ** " 32080 "*. *. *. ** *. ** *. *. ** ** *. *. *. *. *4 ^^ {{ {3 .. {5 {{ ^^ *2 ** ** ** *. ** ** ** *. ** " 32081 "*. *. *. ** ** ** *. *. ** ** *. ** ** *. ** ^j {{ {a .. {c ^^ ^l *. ** *. ** ** *. *. ** *. *. " 32082 "*. ** ** *. *. *. *. ** *. *. ** *. ** ** *. *5 {j {{ {e ^^ ^l *3 *. *. *. ** *. ** ** ** ** ** " 32083 "** ** *. *. *. ** *. ** ** ** ** *. *. ** *. *. *5 {j {{ {l *3 *. *. *. ** ** ** *. *. *. *. *. " 32084 "*. *. *. ** *. *. ** ** *. *. *. *. ** *. *8 *. *. *. *1 ** ** *. *. *. ** *. ** *. ** *. ** ** " 32085 "** *. *8 *8 ** *. *. ** *. ** ** *. *c {g {{ {h *a *. ** ** *. *. ** ** ** ** *. *. ** *. *. *. " 32086 "*c ^g ^^ ^^ ^h *a *8 *. ** *. *. *. {g {{ ^^ {{ {h ** *. *. ** *. ** ** *. ** ** *. ** *. *. *. " 32087 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^h ** *. ** *c {{ ^^ ^^ ^^ {{ *2 ** ** ** *. ** *. *. ** *. *. ** *. ** ** " 32088 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ *2 *. *c {g {{ {{ ^^ {{ {l *. ** ** *. ** *. ** *. ** ** *. *. ** ** *. " 32089 "{{ {{ {C tf {A {{ ^^ ^^ *2 *. {g {{ ^^ {{ {{ {l *3 ** *. *. *. ** *8 *. *. ** *. ** ** *. *8 *c " 32090 "%3 -7 %% %5 t7 {{ ^^ ^^ *a *4 {{ ^^ ^^ ^^ {{ *3 ** *. ** *8 *c ^g ^^ ^h *a *. ** *. ** ^g ^^ ^^ " 32091 "-b -- -d %% tt {{ ^^ ^^ ^h *e {{ {{ ^^ {{ {l ** ** *c ^g ^^ ^^ ^^ ^^ ^^ ^h *a *. *. *4 ^^ ^^ ^^ " 32092 "%% -e %% %c te {{ ^^ ^^ ^^ {{ {{ {{ {{ {{ *3 ** *c ^g ^^ ^^ ^^ {{ ^^ ^^ ^^ ^h *. *. *4 ^^ ^^ ^^ " 32093 "%% %% %% tf {B {{ ^^ ^^ ^^ ^^ {{ {{ {{ {{ *a *c ^g ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ *a *. *4 ^^ ^^ ^^ " 32094 "td %% %% %5 tf {A ^^ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^h *e ^^ ^^ ^^ " 32095 "%3 %c ^7 %a %5 t7 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32096 "%% ^b ^^ ^d %% tt ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {3 {1 {1 {1 {5 {{ ^^ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32097 "%% %5 ^e %3 %c te ^^ ^^ ^^ ^^ ^^ ^^ {{ {3 tC t3 tt t5 tA {5 ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32098 "-7 %% %% %c tf ^3 ^^ ^^ ^^ ^^ ^^ {{ {3 .. t3 tt tt tt t5 {4 {{ ^^ ^^ {{ {{ {{ {{ {{ ^^ ^^ ^^ ^^ " 32099 "-- -d %% t7 ^3 ^^ ^^ ^^ ^^ ^^ ^^ {{ {a .. tt tt ~7 tt tt {4 {{ {{ ^^ {{ {{ ^^ {{ {{ ^^ ^^ ^^ ^^ " 32100 "-e %% %c te ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {2 ta tt ~6 tt tt tA {5 {{ {{ {{ ^^ ^^ ^^ {{ {{ ^^ ^^ ^^ " 32101 "%% %c t7 {# ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {2 t% tt ~6 ta tt t5 tA {5 {{ {{ {{ ^^ {{ {{ {{ {{ ^^ ^^ " 32102 "tt tt tc {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {2 .. tt ~a ~9 ~5 ta t5 tA {1 {1 {1 {1 {5 {{ {{ {{ {{ {{ " 32103 "/3 .. .. {5 {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ {3 .. tC tt tt t5 ~a ~5 tt tt tt tt tt t5 tA {1 {1 {1 {1 {1 " 32104 "/7 .. .. {4 {{ {{ ^^ ^^ ^^ ^^ ^^ {{ {2 .. t3 tt tt tt t5 ~6 te ~3 ~9 ~9 ~5 ta tt tt tt tt tt t5 " 32105 "/7 .. .. .. {5 {{ {{ ^^ ^^ ^^ ^^ {{ {2 .. ta tt tt tt tt ~2 ~9 ~c t3 t5 ~2 ~9 ~9 ~9 ~9 ~9 ~5 ta " 32106 ) 32107 ) 32108 (kern-mk-map nil 32 32 pal_expanded 32109 (list 32110 "*. *. *. ** ** ** ^j ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32111 "** ** ** ** *. *. *5 ^j ^^ ^^ ^^ ^l *3 *1 *1 *5 ^j ^^ ^^ ^^ ^l *3 *1 *1 *5 ^j ^^ ^^ ^^ ^^ ^c |# " 32112 "** ** ** ** ** ** *. *5 ^j ^^ ^l *3 ** ** ** ** *5 ^j ^^ ^l *3 *. ** ** ** *5 ^j ^^ ^^ ^^ || tt " 32113 "*. *. *. ** *. *. *. *. *5 ^^ *3 ** *c ^g ^h *a ** *5 ^^ *3 *. *c ^g ^h *a ** *5 ^^ ^^ *b *d tt " 32114 "** ** *. *. *. *. *. ** *4 ^^ *2 *. ^g ^^ ^^ ^h *. *4 ^^ *2 *. ^g ^^ ^^ ^h *. *4 ^^ tf .. .. {4 " 32115 "*. ** ** *. ** *. ** *. ** ^n ** *4 ^^ ^^ ^^ ^^ *a ** ^n *. *4 ^^ ^^ ^^ ^^ *a *c ^^ {2 .. *f tt " 32116 "** *. ** ** ** *. *. ** *. *. *. *c ^^ ^^ ^^ ^^ ^h *a *. *. *c ^^ ^^ ^^ ^^ tt .. ^^ {2 tb tt tt " 32117 "*. ** ** *. *. ** ^g ^h *a *8 *c ^g ^^ ^^ ^^ ^^ ^^ ^h *a *c ^g ^^ ^^ ^^ ^^ ^^ {2 {1 {4 ^^ ^5 |A " 32118 "*. ** *. *. ** *. ^j ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ tb tt td ^^ ^^ ^^ " 32119 "*. ** *. ** ** ** *5 ^j ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32120 "** ** *. *. ** ** *. *5 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32121 "** ** ** *. *. ** ** *c ^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ " 32122 "*. *. *. *. ** ** ** ^g ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ {{ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ " 32123 "** *. *. *. *. *. *4 ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ ^L -3 -1 -1 -1 -5 ^J {{ {{ {{ ^^ ^^ ^^ {{ {{ ^^ ^^ " 32124 "** *8 *8 *8 *. ** *c ^^ ^^ ^^ ^^ {{ {{ {{ ^L -3 -- -- -8 -- -- -5 {J {{ ^^ ^^ ^^ ^^ ^^ {{ ^^ {{ " 32125 "^g ^^ ^^ ^^ ^h *e ^g ^^ ^^ ^^ ^^ ^^ {{ {{ -3 -- -c ^G ^^ ^H -a -- -5 {{ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ " 32126 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ {{ {{ -2 -- ^G ^^ ^^ ^^ ^H -- -4 ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ " 32127 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ {{ -2 -4 ^^ ^^ ^^ ^^ ^^ -2 -4 ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ " 32128 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ ^^ ^L -- -4 {5 ^^ {7 ^^ {3 -2 -- ^J ^^ ^^ ^^ ^^ ^^ {{ {{ {{ " 32129 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {7 ^^ -3 -- -4 .. {1 /7 {1 .. -2 -- -5 ^^ {{ ^^ ^^ ^^ {{ {{ {3 " 32130 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {b .. {1 -a __ -c .. .. /7 .. .. -a __ -c {5 {{ {{ ^^ {{ {{ {3 .. " 32131 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ /0 /d /d == /d /d /d /9 /e /c /e __ /c /d /2 {A {{ {{ {3 .. .. " 32132 "^^ {{ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ {{ /7 t7 -3 __ -- -5 ~A .. ~C -3 -- __ -5 .. /8 /d /e /c /e {8 .. " 32133 "^^ {{ {{ ^^ {{ {{ {{ {{ {{ {{ {C /7 tt -2 __ __ -- -- -1 -- -- __ __ -4 .. {c {{ {{ {{ {{ {{ {a " 32134 "{{ {{ {{ {{ {{ {3 {1 {1 {1 {1 /0 /a tt -a -- __ __ __ __ __ __ __ -- -c {4 {{ {{ ^^ ^^ {{ {{ {{ " 32135 "{{ {{ {{ {3 {1 tC tb tt tt t5 /7 tb tt tH -a -- -- __ __ __ __ -- -c ~# {4 {{ ^^ ^^ ^^ ^^ ^^ {{ " 32136 "^^ {{ {{ {2 t3 td ~3 ~9 ~5 tt /8 /2 tt tt tt tH -a -- __ __ -- -- ~B .. {4 {{ {{ ^^ ^^ ^^ ^^ ^^ " 32137 "{{ {{ {3 .. tt ~3 ~c t7 ~6 ta t5 /7 ta tt || tt tM -- __ __ -- -- -- -5 ~A {1 {5 {{ {{ {{ ^^ ^^ " 32138 "{{ {3 .. tC tt ~6 t3 tt ~a ~5 tt /7 t% ta tt tt -3 -- __ __ -- __ __ -- -- -5 ~A {1 {5 {{ ^^ ^^ " 32139 "{1 .. tC t3 tc ~6 tt tt t5 ~6 tt /8 /2 .. tD tt -2 __ __ __ __ __ __ __ __ -- -- -5 {4 {{ {{ ^^ " 32140 "tE t3 tt tc ~3 ~c tt t& tt ~6 ta td /7 tb tt tc -- __ __ __ __ __ __ __ __ __ __ -- ~A {5 {{ ^^ " 32141 "tt tc ~3 ~9 ~c t3 tc .. tt ~a ~9 ~9 =| ~9 ~9 ~9 -- -- __ __ __ __ __ __ __ __ __ -- -5 {4 {{ ^^ " 32142 ) 32143 ) 32144 (kern-mk-map nil 32 32 pal_expanded 32145 (list 32146 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32147 "tt tt tt *f ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ " 32148 "tc t& ta tt || ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {7 {{ {{ ^^ ^^ ^^ ^^ ^^ " 32149 "^3 ^^ ^5 ta tt ^^ ^^ {{ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {3 .. {5 {{ {{ ^^ ^^ ^^ ^^ " 32150 "^^ .. ^^ tD tt ^^ {{ {{ {{ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {b .. .. .. {d {{ ^^ ^^ ^^ ^^ " 32151 "^^ ^~ ^^ tt *f ^^ {{ {{ {{ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {a .. {c {{ {{ ^^ ^^ ^^ ^^ " 32152 "t5 .. t3 tt || ^^ ^^ {{ ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {6 {{ {{ ^^ ^^ ^^ ^^ ^^ " 32153 "tt *f tt |C ^3 ^^ ^^ {{ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {6 {{ {{ ^^ ^^ ^^ ^^ ^^ " 32154 "^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {e ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32155 "^^ ^^ ^^ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ ^^ ^^ {{ {{ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32156 "^^ ^^ ^^ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ ^^ ^^ {7 ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32157 "^^ ^^ {{ {{ {{ {{ {3 {1 {1 {1 {1 {1 {1 {1 {1 {1 {1 {1 {1 {5 {{ {{ ^^ {{ /7 {{ ^^ ^^ ^^ ^^ ^^ ^^ " 32158 "^^ {{ {{ {{ {3 {1 .. .. .. .. .. .. .. .. .. .. .. .. .. .. {5 {{ {{ {{ /b {{ ^^ ^^ ^^ ^^ ^^ ^^ " 32159 "{{ {{ {{ {3 .. .. tC t3 tt tt tt tt tt tt tt tt tt tt t5 .. .. {5 {{ {{ {6 {{ {{ ^^ ^^ ^^ ^^ ^^ " 32160 "{{ {{ {{ {2 .. t3 tt tt tt tt tt tt tt tt tt tt tt tt tt tA .. .. {1 {1 /3 {1 {5 ^^ ^^ ^^ ^^ ^^ " 32161 "{{ {{ {3 .. .. tt tt tt || || || || || || || || || tt tt t5 .. .. .. .. /b .. .. {5 ^^ ^^ ^^ ^^ " 32162 "{{ {3 .. .. tC tt tt || || || || || || || || || || tt tt tL -3 -1 -5 .. .. /c /d /2 {1 {5 ^^ ^^ " 32163 "{3 .. .. tC t3 tt tt || || ~b ~9 ~9 ~9 ~9 ~5 || || || tt -3 -- -- -- ~A .. .. .. /b .. .. {5 ^^ " 32164 "{2 .. t3 tt tt tt tt || || || || || || |% ~6 |A || || tt -2 -- -- -- -5 .. .. .. /3 .. .. {4 ^^ " 32165 ".. .. tt tt tt || || || || || || || || || ~a ~5 |A || tL -- -- -- -- -- ~A .. .. /b .. .. {4 ^^ " 32166 ".. .. tt tt || || || || || || || || || || |% ~a ~5 tL -3 -- -- -- -- -- -- -5 ~A .. .. ~C _3 -- " 32167 ".. .. tt tt || || ~b ~9 ~9 ~9 ~9 ~9 ~5 |A || |D -- -- -- -- -- __ -- -- -- -- -- -1 -1 -- -- -- " 32168 ".. .. tt tt || || || || || || || |% ~a ~9 ~1 ~9 -8 -- -- -- -- __ __ __ -- -- -- -- -- -- -- -- " 32169 ".. .. tt tt tt || || || || || || || || |D ~6 |# || tH -- -- __ __ __ __ __ __ __ __ __ __ __ __ " 32170 "{2 .. ta tt tt || || || |C ~3 ~9 ~9 ~9 ~9 ~c || || || -2 -- __ __ __ __ __ __ __ __ __ __ __ __ " 32171 "{a .. t% tt tt || || ~b ~9 ~c |# || || || || || || tL -- -- __ __ __ __ __ __ __ __ __ __ __ __ " 32172 "{{ {a .. tt tt || || || || || || || || || || || || -3 -- __ __ __ __ __ __ __ __ __ __ __ __ __ " 32173 "{{ {{ {2 ta tt tt || || || || || || || tt tt tt tt -2 -- __ -- __ __ __ __ __ __ __ __ __ __ __ " 32174 "^^ {{ {2 t% ta tt tt tt tt tt tt tt tt tt tt tt tc -2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ " 32175 "^^ {{ {a .. .. t% ta tt tt tt tt tt tt tt tc t# .. -2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ " 32176 "^^ ^^ {{ {a {8 {8 {8 .. .. .. .. .. .. {8 {8 {8 {8 -2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ " 32177 "^^ {{ {{ {{ {{ {{ {{ {a {8 {8 {8 {8 {c {{ {{ {{ {{ -2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ " 32178 ) 32179 ) 32180 (kern-mk-map nil 32 32 pal_expanded 32181 (list 32182 "*. ** *. *. ** ** ** ** *. ** *. *. ** *c ^^ ^^ {{ {{ {{ {a t% ta tt tt tt tc t# {# {{ {{ {a /0 " 32183 "*. ** ** *. *. ** ** *. *. *. *. *. ^g ^^ ^^ ^^ {{ {{ {{ {{ {{ {{ {a {8 {8 {4 {{ {{ ^^ {{ {{ /7 " 32184 "** *. *. ** ** ** *. *. ** *. *. *. ^j ^^ ^^ ^^ ^^ {{ {{ {{ {{ {{ {{ {{ {{ {6 {{ ^^ ^^ ^^ {{ /7 " 32185 "*. *. *. ** *. *. *. *. ** ** ** ** *5 ^j ^^ ^^ ^^ ^^ {{ {{ {{ {{ {{ {{ {{ {6 {{ {{ ^^ {{ {C /7 " 32186 "** ** ** ** *. ** *. ** *. *. *. ** ** *5 ^j ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {a {5 {{ {{ {C /0 /a " 32187 "** ** ** ** *. *. *. ** *. *. *. *. *. *. *5 ^j ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {a {9 {9 /0 /a {# " 32188 "** ** *. ** ** ** *c .i *a *. ** *. *. *. ** *5 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ /7 {# {{ " 32189 "*. *. ** ** *. *. .k .. .m ** *. ** *. *. *. *4 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ /7 {{ {{ " 32190 "*. *. *. *. ** ** *5 .n *3 *. ** *. ** ** ** *4 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {{ /7 {1 {5 " 32191 "** ** ** ** ** *. ** *. ** *. *. ** ** *. ** *c ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {3 /7 .. .. " 32192 "** ** ** ** *. ** *. *. *. *. ** ** *. ** *c ^g ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {3 {1 .. /7 .. .. " 32193 "*. *. ** *. ** ** *. ** ** ** *. *. ** *c ^g ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {{ {2 .. .. /7 .. .. " 32194 "*. ** ** ** *. ** *. *. ** *. ** ** *. ^g ^^ ^^ ^^ ^^ {{ {{ ~7 {{ {{ {{ {{ {3 .. .. .. /7 .. .. " 32195 "*. *. ** *. *. ** ** *. *. ** ** *. *4 ^^ ^^ ^^ {{ {{ {{ {{ ~6 {1 t3 tt t5 .. .. .. .. /7 .. .. " 32196 "*. ** *. *. *. *. *. *. *. *. *. *. *c ^^ ^^ ^^ {{ {{ {{ {3 ~6 .. te ~7 te .. .. .. .. /7 .. .. " 32197 "** *. ** *. *. ** ** ** *. *. *. ** ^g ^^ ^^ ^^ {{ {{ ~b ~9 ~4 .. .. ~6 .. .. .. .. .. /7 .. .. " 32198 "*. *. ** *. *. *. *. *. *. ** ** *4 ^^ ^^ ^^ ^^ {{ {{ {{ {2 ~6 .. .. ~6 .. .. .. .. .. /7 .. .. " 32199 "** *. ** *. *. *. *. ** *. *. *. *4 ^^ ^^ ^^ ^^ {{ {{ {3 .. ~a ~9 ~9 ~4 .. .. .. .. .. /7 .. .. " 32200 "*. *. ** ** ** ** ** *. ** *. ** *4 ^^ ^^ ^^ ^^ {{ {{ {2 .. .. .. .. ~6 .. .. .. .. .. /7 .. .. " 32201 "*. *. *. *. *. *. *. ** ** *. ** *c ^^ ^^ ^^ ^^ {{ {3 /0 /d /d /d /d == /d /d /d /d /d /7 .. .. " 32202 "** ** ** ** *. *. ** *. *. *c ^g ^^ ^^ ^^ ^^ ^^ {{ {2 /7 .. .. .. .. ~6 .. .. .. .. .. /8 /d /d " 32203 "*. *. *. *. ** ** *. ** *c ^g ^^ ^^ ^^ ^^ ^^ {{ {{ {2 /7 .. .. .. .. ~a ~9 ~9 ~5 .. .. .. .. .. " 32204 "** ** *. ** ** *. ** ** ^g ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {a /7 .. t3 td .. .. .. .. ~6 .. .. .. .. ~3 " 32205 "*. ** *. ** ** *. *. *4 ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {{ /7 tC tt ~b ~5 .. .. .. ~6 .. .. .. .. ~6 " 32206 "** ** ** *. ** ** ** *4 ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ {{ {{ /7 t3 tt td ~6 .. .. .. ~a ~9 -1 -1 -- -4 " 32207 "*. *. ** *. ** ** ** *4 ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ {{ {{ /7 tt ~b ~9 ~8 ~5 .. .. .. ~C -- __ __ -4 " 32208 "** *. *. *. *. *. ** *4 ^^ ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ {{ /7 ta t5 tA .. ~a ~1 ~9 ~1 -- -- __ __ -4 " 32209 "*. ** *. *. ** ** *. *4 ^^ ^^ ^^ ^^ {{ {{ {{ ^^ {{ {{ /7 t% tt td .. .. ~6 .. -a -- __ __ -- -- " 32210 "*. *. *. *. *. ** ** *4 ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ {{ {3 /7 tC tt ~b ~5 .. ~6 .. ~% -- -- -- -- -- " 32211 "*. ** ** ** ** ** *. *4 ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ {{ {2 /7 t3 tt td ~~ ~9 ~c .. .. -2 -- tG tH ~a " 32212 "** *. ** ** ** *. *. *4 ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {2 /7 tt ~b ~9 ~c .. .. .. ~C -- -c tt tt tt " 32213 "** *. ** ** ** *. *. *. ^j ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {2 /7 ta td .. .. .. .. .. -3 -- tG tt tt tt " 32214 ) 32215 ) 32216 (kern-mk-map nil 32 32 pal_expanded 32217 (list 32218 "/a .. .. {8 .. {5 {{ {{ ^^ ^^ ^^ ^^ {2 .. t% tt tt tt tc ~6 t3 tt tt tt ~6 t3 tt tt tt t5 ~a ~9 " 32219 ".. .. {c {{ {a .. {5 {{ {{ ^^ ^^ ^^ {2 .. .. tt ~3 ~9 ~9 ~c tt t# tD tt ~6 tt t# {8 t% ta tt tt " 32220 ".. {c {{ {{ {{ {a {c {{ {{ ^^ ^^ ^^ {a .. .. tt ~6 t3 tt tt tc .. t3 tc ~6 tt {4 ^^ {a {8 {8 {8 " 32221 "{c {{ {{ {{ {{ {{ {{ {{ {{ {{ ^^ {{ {{ {2 tC tt ~6 tt t# {8 {8 .. tt ~3 ~c tt {4 ^^ ^^ ^^ {{ {{ " 32222 "{{ {{ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ {{ {{ {2 t3 tc ~6 tt {4 ^^ {{ {2 tt ~6 t3 tt tA {5 ^^ ^^ ^^ {{ " 32223 "{{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {3 tC tt ~3 ~c tt {4 ^^ ^^ {2 tt ~6 ta tt t5 {4 {{ ^^ ^^ ^^ " 32224 "{{ {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {b .. t3 tt ~6 t3 tt {4 {{ ^^ {2 tt ~a ~9 ~5 tt {4 {{ {{ ^^ ^^ " 32225 "{{ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {{ {2 tt tt ~e tt tt {c {{ {{ {2 ta tt t5 ~e tt {4 {{ {{ ^^ ^^ " 32226 "{{ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ {2 ta tt tt tt tc {{ ^^ ^^ {a {8 t% ta tt tc {4 {{ ^^ ^^ ^^ " 32227 "{1 {1 {5 {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {a t% ta tt tc t# {{ ^^ ^^ {{ {{ {a {8 {8 {8 {c ^^ ^^ ^^ ^^ " 32228 ".. .. t7 {A {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {a {8 {8 {c ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ " 32229 ".. .. tt ~7 t7 {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ " 32230 ".. .. te ~6 tt {A {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ {C tf {{ tf {A ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ " 32231 ".. .. .. ~6 tt td {5 {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ tf t# {1 t% tf {{ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ " 32232 ".. .. .. ~6 tt ~3 ~9 ~9 ~9 ~9 ~d ^^ ^^ ^^ ^^ ^^ {{ {{ {2 .. {4 {{ {{ ^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ " 32233 ".. .. .. ~6 te ~6 t7 {# {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ tf tA /3 tC tf {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32234 ".. .. .. ~a ~9 ~4 te {5 {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {% tf /7 tf {# ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {7 {{ " 32235 ".. .. .. .. .. ~~ ~9 ~9 ~5 tb td {A ^^ ^^ ^^ ^^ ^^ ^^ {% /7 {# ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {3 .. {5 " 32236 ".. ~3 ~9 ~9 ~9 ~c t3 t5 ~a ~1 ~d tf {{ ^^ ^^ ^^ ^^ ^^ ^^ /7 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {b .. .. .. " 32237 ".. ~6 .. .. .. .. ta tt td ~6 tf {# {3 {1 tf ^^ ^^ ^^ ^^ /7 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {a .. {c " 32238 "/d == /d /d /2 .. .. .. .. == .. {1 {8 {c {{ ^^ ^^ ^^ ^^ /7 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {e {{ " 32239 ".. ~6 .. .. /7 .. .. {8 tf ~6 tb td {A {{ {{ ^^ ^^ ^^ ^^ /7 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32240 "~9 ~c .. .. /7 .. {4 {{ {% ~a ~9 ~5 tf {{ ^^ ^^ ^^ ^^ ^^ /7 ^^ ^^ ^^ ^^ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ " 32241 ".. .. .. .. /7 .. {4 {{ ^^ ^^ ^5 ~a ~d ^^ ^^ ^^ ^^ ^^ ^^ /7 ^^ ^^ ^^ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32242 ".. .. .. .. /7 .. {4 {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ /7 ^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ {{ " 32243 ".. .. .. .. /7 .. .. {1 {5 {{ {{ ^^ ^^ ^^ ^^ {{ {{ {{ {C /7 {A {{ {{ {C t7 {A {{ {{ ^^ ^^ ^^ {{ " 32244 ".. .. .. .. /8 /d /d /d /d /2 {{ ^^ ^^ ^^ ^^ {{ t3 tt t5 /7 t3 tt tt tt tt tt tt t5 {{ ^^ {{ {C " 32245 "~A .. .. .. .. .. .. {c {% /7 {{ ^^ ^^ {{ {{ {{ ta tt tc /7 ta tt tt tt tt tt tt tc {A {{ {C tf " 32246 "~5 ~A .. .. .. .. {c {{ {{ /7 {A ^^ ^^ ^^ {{ {3 .. /0 /d /9 /d /d /d /d /d /d /d /d /d /d /d /d " 32247 "-- -- ~5 ~A .. {4 {{ {{ {{ /8 /d {{ ^^ {{ /d /d /d /a .. .. .. .. t3 tt tt tt tt tt tt tt tt tt " 32248 "tH ~a -- ~~ ~9 ~9 ~9 ~9 ~5 {A {{ ^^ ^^ ^^ {{ {a .. .. .. .. .. .. ta tt tt tt tt tt tt || || tt " 32249 "tt tH ~~ -c {# {{ {{ {% ~a ~5 {{ {{ ^^ ^^ {{ {{ {2 .. .. .. .. .. .. t% tt tt tt tt || || || || " 32250 ) 32251 ) 32252 (kern-mk-map nil 32 32 pal_expanded 32253 (list 32254 "~9 ~9 ~c t3 tt tc t# .. ta tt tt td /7 tb tt tt tH -- __ __ -- -- -- -- __ __ __ -- -4 {4 {{ ^^ " 32255 "tt tt tt tc t# {8 {8 .. .. .. .. .. /7 .. .. .. .. -a -8 -8 -c ~# ~% -- __ __ __ __ -4 {4 {{ {{ " 32256 "{8 {8 {8 {8 {c {{ {{ {a {8 .. /0 /d /a {8 .. .. .. .. {8 {8 {8 {8 {8 -a -- __ __ __ -- ~A {5 {{ " 32257 "{{ {{ ^^ ^^ ^^ ^^ {{ {{ {{ {a /7 {# {{ {{ {a {8 {8 {c {{ {{ {{ {{ {{ {H -- __ __ __ -- -- -1 -1 " 32258 "{{ {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ /7 {{ {{ {{ {{ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ -2 __ __ __ __ __ __ __ " 32259 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ /7 {{ ^^ ^^ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ -2 __ __ __ __ __ __ __ " 32260 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ /7 ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ -a -- __ __ __ __ __ __ " 32261 "^c |# || |% ^a ^^ ^^ ^^ ^^ ^^ /8 /2 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^H -a -8 -- -- __ __ __ " 32262 "|# || || || |% ^a ^^ ^^ ^^ ^^ ^d /7 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^c tf ^a ^^ ^^ ^^ ^H -a -- __ __ " 32263 "|| || || || || t5 ^a ^^ ^^ ^^ /0 /a ^^ ^^ ^^ ^c |& ^a ^^ tb tt td /7 t7 ^^ ^^ ^^ ^^ ^H -- -- __ " 32264 "|A || || || || tt t5 ^a ^^ ^c /7 ^3 ^^ ^^ ^^ |# || |% ^e /0 /d /d /a te ^^ ^^ ^^ ^^ ^^ -2 -- __ " 32265 "^5 |A || |C ^7 ta tt tt tt t5 /7 ^^ ^^ ^^ ^c || || || t5 /7 tb tt td ^3 ^^ ^^ ^^ ^^ ^^ -2 -- __ " 32266 "^^ ^^ ^^ ^^ ^^ ^^ ^5 ta tt tc /7 ^a ^^ ^^ t3 tt || tt tt /7 ^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^L -- -- __ " 32267 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^5 /0 /d /9 /2 ^a ^c ta tt tt tt tc /7 ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ -b -- -- -- " 32268 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ /7 t3 t5 /8 /d /d /d /d /d /d /d /a t7 ^a ^^ ^^ ^^ ^^ ^^ ^^ ~% -a -- -- " 32269 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ /7 tt tt tt tt tt tt tt tt tt tt tt tt t5 ^a ^^ ^^ ^^ ^^ ^^ {2 .. ~% -- " 32270 "^^ ^^ ^^ ^^ ^^ {{ {{ {C /7 tt || || || || || tt tt tt || || || tt tt t5 ^^ ^^ ^^ ^^ {a .. .. -a " 32271 "{{ {{ {{ {{ ^^ {{ /0 /d /a tt || || || || || tt tt tt tt || || || tt tt ^^ ^^ ^^ ^^ ^^ {a .. ~% " 32272 "{9 {9 {5 {{ {{ {C /7 t3 tt tt || || || || || || tt tt || || || || || tt ^^ ^^ ^^ ^^ ^^ ^^ {a {8 " 32273 "{{ {{ {a {5 {C tf /7 tt || || || || || || || tt tt tt || || || || || tt ^a ^^ ^^ ^^ ^^ ^^ ^^ ^^ " 32274 "^^ {{ {{ /0 /d /d /a tt || || || || || || || || tt tt || || || || || tt t5 ^^ ^^ ^^ ^^ ^^ ^^ ^c " 32275 "^^ ^^ {{ /7 t3 tt tt || || || || || || || || || tt tt tt || || || tt tt tt ^a ^^ ^^ ^^ ^^ ^^ t3 " 32276 "^^ {{ {C /7 tt || || || || || || || || || || || || tt tt || || || tt tt tt || |% ^a ^^ ^^ ^c tt " 32277 "{{ {C t7 /7 tt || || || || || || tt || || || || || tt tt tt || || || tt || || || || || || tt tt " 32278 "{C tb tc /7 tt || || || || tt tt tt || || || || || || tt tt || || || || || || || || || || tt tt " 32279 "/0 /d /d /a tt || || || tt tt tt tt tt || || || || || tt tt tt || || || || || |C ^7 |A || tt tt " 32280 "/7 t3 tt tt tt tt || || tt tt || tt tt tt || tt tt tt tt tt || || || || || || ^b ^^ ^5 tt tt tt " 32281 "/7 tt tt tt tt tt tt tt tt tt || || tt tt || tt || tt tt tt || || || || || || |% ^^ ^^ ta tt tt " 32282 "/a tt tt tt tt tt tt tt tt || || || tt tt tt tt tt tt tt || || || || || || || tt ^^ ^^ ^5 ta tt " 32283 "tt tt tt tt tt tt tt || || || || || || tt tt || || || || || || || || || || || tc ^^ ^^ ^^ ^5 ta " 32284 "|| || tt tt tt || || || || || || || || || || || || || || || || || || || || tt ^3 ^^ ^^ ^^ ^^ ^d " 32285 "|| || || tt tt || || || || || || || || || || || || || || || || || || || || tc ^^ ^^ ^^ ^^ ^^ t3 " 32286 ) 32287 ) 32288 (kern-mk-map nil 32 32 pal_expanded 32289 (list 32290 "^^ ^^ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {{ {L -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ " 32291 "^^ ^^ ^^ ^^ -7 {J {{ {{ {{ {{ {{ {{ {{ {{ {C ~C -3 -- __ __ __ __ __ __ __ __ __ ~~ ~~ ~~ __ __ " 32292 "^^ ^^ ^^ ^^ -2 -- _1 _1 _1 _1 _1 -1 -1 -1 -1 -- -- -- __ __ __ __ __ __ __ __ ~~ -- -- -- ~~ __ " 32293 "-1 -5 ^J ^L -- -- __ __ __ __ __ __ __ -- -- -- -- __ __ __ __ __ __ __ ~~ -- -- -c ^I -a -- __ " 32294 "-- -- -- -- -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ ~~ ~~ -- -- ^K ^^ ^M -- __ " 32295 "-- -- -- -- -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ ~~ -- -- -- -5 ^N -3 -- __ " 32296 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- -- -- -- -- -- __ __ " 32297 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ ~~ ~~ ~~ ~~ ~~ ~~ -- -- -- -- ~~ ~~ __ __ " 32298 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ ~~ -- -- -8 -8 -- -- -- -- -- -- -- -- __ __ " 32299 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -c {G {{ {{ ^H -a -- -- -- -- -- -- __ __ " 32300 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- {G {{ ^^ ^^ ^^ ^M -- -c ^I -a -- -- __ __ " 32301 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -4 {{ ^^ ^^ ^^ ^^ ~3 -- ^K ^^ ^M -- __ __ __ " 32302 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -4 {{ {{ ^^ ^^ ^^ ~a -- -5 ^N -3 -- -- __ -- " 32303 "-- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ ~~ -4 {{ {{ ^^ ^^ ^^ ^H ~a -- -- -- -- -- -- -- " 32304 "-- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -c {{ ^^ ^^ ^^ {{ ^^ ^^ ^^ -- -- -- ^I -a -- " 32305 "-- -- __ __ __ __ __ __ __ __ __ __ __ __ __ ~~ -- {G {{ ^^ !3 !5 {{ !3 !5 ^^ -a -- -4 ^^ ^M -- " 32306 "-- -- __ __ __ __ __ __ __ __ __ __ __ __ __ -- -c {{ ^^ ^^ !a !! =! !! !c ^^ ^H -a -c ^^ -3 -- " 32307 "-- -- __ __ __ __ __ __ __ __ __ __ __ __ __ -- {G {{ ^^ ^^ ^^ !e {{ !e ^^ ^^ ^^ {{ {{ ^^ -2 __ " 32308 "-2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ -4 {{ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ {{ {{ {{ ^^ -2 __ " 32309 "-2 -- -- __ __ __ __ __ __ __ __ __ __ __ __ -4 {{ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ {{ {{ {{ ^^ _2 __ " 32310 "-a -- -- -- -- __ __ __ __ __ __ __ __ __ __ -- {J {{ ^^ ^^ {{ {{ {{ {{ {{ {{ {{ {{ ^^ ^L __ __ " 32311 "tH -a -- -- -- -- __ __ __ __ __ __ __ __ __ -- -5 {{ ^^ ^^ ^^ {{ ^^ ^^ {{ {{ {{ ^^ ^L _3 __ __ " 32312 "tt tt tH -a -- -- __ __ __ __ __ __ __ __ __ __ -- {J {{ ^^ ^^ ^^ ^^ ^^ {{ {{ ^^ ^L _3 __ __ __ " 32313 "tt tt tt tH -- -- __ __ __ __ __ __ __ __ __ __ -- -- -5 ^J ^^ ^^ ^^ ^^ ^^ ^^ ^^ _3 __ __ __ __ " 32314 "tt tt tt tt -2 -- __ __ __ __ __ __ __ __ __ __ __ __ -- -- -5 ^J ^L -3 -5 ^J ^L __ __ __ __ __ " 32315 "tt tt tt tt -2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- -- -- -- -- __ __ __ __ __ __ " 32316 "tt tt tt tt -2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32317 "tt tt tt tL -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32318 "tt tt tt -3 -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- -- __ __ __ __ __ __ __ __ __ __ " 32319 "tt tt tL -- -- -- __ __ __ __ __ __ __ __ __ __ __ __ -- -c ^I -a -- __ __ __ __ __ __ __ __ __ " 32320 "tt tt -3 -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ -- ^K ^^ ^M -- __ __ __ __ __ __ __ __ __ " 32321 "tt tt -2 -- -- -- __ __ __ __ __ __ __ __ __ __ __ __ -- -5 ^N -3 -- __ __ __ __ __ __ __ __ __ " 32322 ) 32323 ) 32324 (kern-mk-map nil 32 32 pal_expanded 32325 (list 32326 "*. ** *. ** *. *. ** ** *. *5 ^^ ^^ ^^ ^^ ^^ {{ {3 .. /7 .. .. .. .. .. .. ~C -- -- tJ tt tt tt " 32327 "** *. ** ** *. ** ** ** ** *4 ^^ ^^ ^^ {{ {{ {3 .. .. /7 .. .. .. .. .. ~C ~3 -- -- -5 tJ tt tt " 32328 "** ** ** ** ** ** ** ** *. *c ^^ ^^ {{ {{ /0 /d /d /d /9 /d /d /2 .. .. -3 -- -- __ -- -5 tt tt " 32329 "*. ** ** *. ** *. ** ** *c ^g ^^ ^^ {{ {3 /7 {c {{ {{ {{ {{ {a /7 .. .. -2 -- __ __ __ -4 tt tt " 32330 "** *. *. *. ** *. ** *c ^g ^^ ^^ ^^ {{ {2 /7 {{ {{ ^^ ^^ {{ {{ /7 .. ~C -- -- -- __ -- -c tt tt " 32331 "*. *. *. *. *. *. *c ^g ^^ ^^ ^^ ^^ {{ {2 /7 {{ ^^ ^^ ^^ ^^ {{ /7 .. -3 -- -- -- -- -c tG tt tt " 32332 "*. ** *. ** *. *c {g {{ ^^ ^^ ^^ ^^ {{ {2 /7 {{ ^^ ^^ ^^ ^^ {{ /7 .. -2 -- -- -c tG tt tt tt tt " 32333 "** *8 *8 *c {g {{ {{ ^^ ^^ ^^ ^^ ^^ {{ {2 /7 {{ {{ ^^ ^^ {{ {C /7 .. -2 -- -- tG tt tt tt tt tt " 32334 "^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {3 .. /7 {5 {{ {{ {{ {C /0 /a ~C -- -- -- tJ tt tt {# {{ {{ " 32335 "^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ {{ {{ {3 /0 /d /9 /d /d /d /d /d /a ~C -3 -- -- -- -5 tJ tc {{ ^^ ^^ " 32336 "^^ ^^ ^^ {{ {{ ^^ ^^ ^^ {{ {{ {3 .. /7 .. .. .. .. .. .. .. .. -3 -- -- -- ~~ -- -- -5 ^^ ^^ ^^ " 32337 "^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ {{ {3 .. .. /7 .. .. .. .. .. .. .. ~C -- ~~ -- -- -- -- -- -c ^^ ^^ ^^ " 32338 "^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ {{ {2 .. .. /7 .. ~C _3 _1 _5 ~A ~C ~3 ~~ -- -- -- -- -- -- ^K ^^ ^^ ^^ " 32339 "^^ ^^ {{ {{ {{ ^^ ^^ ^^ {3 .. .. .. /7 ~C _3 __ __ __ __ __ __ __ __ -- -- -- -- -- -5 ^^ ^^ ^^ " 32340 "^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ {2 .. .. .. .. _3 __ __ __ __ __ __ __ __ __ __ -- __ __ __ -- ^J ^^ ^^ " 32341 "^^ ^^ ^^ ^^ ^^ {{ {{ {{ {2 .. .. .. .. _a __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -5 ^^ ^^ " 32342 "^^ ^^ ^^ ^^ {{ {L ~3 ~1 ~5 ~A .. .. .. ~% _a __ __ __ _c ~& _a __ __ __ __ __ __ __ __ -- ^J ^L " 32343 "^^ ^^ ^^ {{ {L ~3 ~~ ~~ ~~ ~~ ~5 .. .. .. ~% _a _8 _c ~# .. ~% -- __ __ __ __ __ __ __ -- -- -- " 32344 "^^ ^^ ^^ {{ ~3 ~~ -- ~~ ~~ ~~ ~~ ~A .. .. .. .. .. .. .. .. ~C -- __ __ __ __ __ __ __ __ __ __ " 32345 "^^ ^^ ^^ {{ ~2 -- -- -- -- -- ~~ ~5 ~A .. .. .. .. .. .. ~C -3 -- -- -- -- __ __ __ __ __ __ __ " 32346 "^^ ^^ ^^ {{ ~2 -- -- -- -- -- ~~ ~~ ~~ ~5 ~A .. .. ~C -3 -- -- ~~ ~~ ~~ -- -- __ __ __ __ __ __ " 32347 "^^ ^^ ^^ {{ ~a ~~ -- -- -- -- ~~ ~~ ~~ ~~ ~~ -1 -1 -- -- -- ~~ ~c ~& ~a ~~ -- __ __ __ __ __ __ " 32348 "^^ ^^ ^^ {{ {H ~a ~~ -- -- ~~ ~c ~& ~a ~~ ~~ ~~ ~~ ~~ ~~ -- ~~ ~B .. ~D ~~ -- __ -- -- -- -8 -- " 32349 "^^ ^^ ^^ ^^ {{ {H ~a ~~ ~~ ~~ ~B .. ~D ~~ -- -- -- -- -- -- ~~ ~5 ~E ~3 ~~ -- -- -- -c {G {{ {H " 32350 "^^ ^^ ^^ ^^ ^^ {{ {{ {H ~~ ~~ ~5 ~E ~3 ~~ -- -- -- -- -- -- -- ~~ ~~ ~~ -- -- -c {G {{ {{ ^^ {{ " 32351 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ ~a ~~ ~~ ~~ ~~ -- -- -- -- -- -- -- -- -- -- -- -- ~~ {G {{ ^^ ^^ ^^ ^^ " 32352 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {H ~a ~~ -- -- -- -- ~~ ~~ ~8 ~8 ~8 ~8 ~~ ~~ ~~ ~~ ~c {{ ^^ ^^ ^^ ^^ ^^ " 32353 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {H ~a ~8 ~8 ~8 ~8 ~c {G {{ {{ {{ {{ {H ~a ~c {G {{ {{ ^^ ^^ ^^ ^^ {{ " 32354 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {L " 32355 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ -b -- " 32356 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {H -- " 32357 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ -- " 32358 ) 32359 ) 32360 (kern-mk-map nil 32 32 pal_expanded 32361 (list 32362 "tt tt ~6 {# {{ ^^ {{ {{ {% ~6 {A {{ {{ ^^ ^^ {{ tb tt td .. .. .. .. .. tt tt tt || || || || || " 32363 "tt tt ~6 {{ ^^ ^^ ^^ ^^ {{ ~a ~d {{ ^^ ^^ ^^ {{ {{ {{ {{ {a {8 {8 .. tC tt || || || || || || || " 32364 "tt tt ~6 {{ ^^ ^^ ^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {{ {{ tb tt tt tt || || tt tt tt || " 32365 "tt tt ~6 {A {{ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {% ta tt tt tt tt tt tt tt " 32366 "tt tt ~a ~5 {A {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {% tt tt || tt tt tt || " 32367 "tt tt t5 ~a ~9 ~9 ~d {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ {{ tt tt || || || || || " 32368 "tt tt tt tt tt tt td {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {L ~7 {J {{ ^^ ^^ ^^ {{ tt tt tt tt tt tt tt " 32369 "tt tt tt tt tc {# {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ ~b -- ~d {{ ^^ ^^ ^^ {{ te {# {{ {{ {{ {% ta " 32370 "{{ {% te {# {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {% ~6 {# {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ " 32371 "^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ~6 ^^ ^^ ^^ ^^ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ " 32372 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^c ~6 ^^ ^^ ^^ {{ {C ~7 {J {{ ^^ ^^ ^^ ^^ ^^ " 32373 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ~3 ~c ^^ ~3 ~9 ~9 ~9 -- ~d {{ ^^ ^^ ^^ ^^ ^^ " 32374 "{{ ^^ ^^ ^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^c ~6 ^b ^c ~6 ^3 {{ {% ~e {G {{ ^^ ^^ {{ {{ {{ " 32375 "{{ ^^ {{ {{ {{ {{ {{ {7 {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ~3 ~8 ~9 ~9 ~4 ^^ ^^ {{ {{ {{ ^^ ^^ {{ {{ {{ {C " 32376 "{{ {{ {{ {{ {{ {{ {3 .. {5 {{ {{ ^^ ^^ ^^ ^^ ^c ~6 ^3 ^^ ^5 ~6 ^a ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ t3 " 32377 "{L -3 -5 {J {{ {3 .. .. .. {5 {{ ^^ ^^ ^^ ^c ~3 ~c ^^ ^^ ^^ ~a ~9 ~d ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ ta " 32378 "-3 -- -- -- -5 ~A .. .. .. {4 {{ {{ ^^ ^L -3 ~~ ^J ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {3 .. " 32379 "-- __ __ __ -- -5 ~A .. ~C -3 -1 -1 -1 -- -- -- -5 ^J ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ {{ {2 .. " 32380 "__ __ __ __ __ -- -- -1 -- -- __ __ __ __ __ __ -- -- -5 ^J ^^ ^L -3 -1 -5 {J {{ {{ {{ {3 .. .. " 32381 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- -1 -- -- __ -- -- _5 {J {{ {2 .. .. " 32382 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ _1 _1 _5 ~A " 32383 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ _5 " 32384 "-- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32385 "-a -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32386 "{H -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32387 "{{ -2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32388 "{{ -2 -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32389 "{L -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32390 "-3 -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32391 "-- -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32392 "-- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32393 "-- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32394 ) 32395 ) 32396 (kern-mk-map nil 32 32 pal_expanded 32397 (list 32398 "|| || || || tt || || || || || || || || || || || || || || || || || || || ^3 ^^ ^^ ^^ ^^ ^^ ^^ tt " 32399 "|| || || || tt tt || || || || tt || || || || || || || || || || || || || ^a ^^ ^^ ^^ ^^ ^^ ^^ tt " 32400 "tt tt tt || || tt || || tt tt tt || || || || || || || || || || || || || |% ^^ ^^ ^^ ^^ ^^ ^^ tt " 32401 "tt || tt || || tt tt tt tt || tt tt || || || || || || tt tt || || || || |C ^^ ^^ ^^ ^^ ^^ ^^ tt " 32402 "|| || tt tt tt tt tt || || || || tt || || || || || || tt tt tt || || || ^b ^^ ^^ ^^ ^^ ^^ ^c tt " 32403 "|| || || tt tt || || || || || tt tt || || || || || tt tt || tt tt tt tt t5 ^a ^^ ^^ ^^ ^c t3 tt " 32404 "|| || tt tt || || || || tt tt tt tt tc {# {{ {{ {% tt || || || tt tt tt tt t5 ^a ^^ ^c t3 tt tt " 32405 "tt tt tt tt || || tt tt tt tc {# {{ {{ {{ ^^ ^^ {{ tt tt || tt tt tt tt tt tt t5 ^e t3 tt tt tL " 32406 "{% ta tt || || || tt {# {{ {{ {{ ^^ ^^ ^^ ^^ ^^ {{ tt ~b ~9 ~9 ~9 ~9 ~5 tt tt tt tt tt tt tt -3 " 32407 "{{ {% tt tt || tt tc {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ ta tt tt tt tt t5 ~6 tt tt tt tt tt tt tL -- " 32408 "{{ {C tt tt tt tt {# {{ {{ ^^ ^^ ^^ ^^ ^^ {{ {{ tf {{ {{ {% ta tt tt ~6 ta tt tL -3 -1 -1 -- -- " 32409 "{{ t3 tt tt tt tc {{ {{ {{ {{ {{ {{ {{ ^^ ^^ {{ {{ ^^ ^^ {{ {% tt tt ~a ~1 ~9 ~~ ~~ -- -- -- -- " 32410 "{C tt tt tt t# .. {5 {{ {{ tb tt t5 {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ tt tt t5 ~6 t7 -a -- -- -- -- -- " 32411 "t3 tt tt tc .. .. .. {1 {1 .. t% te {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ {{ ta tt tt ~6 tt tM -- -- -- -- -8 " 32412 "tt t# .. .. .. .. .. .. .. .. .. .. {5 {{ {{ {{ ^^ ^^ ^^ ^^ {{ {% ta tc ~6 tL -3 -- -- -c tG tt " 32413 "tc .. .. .. .. .. .. .. .. .. ~C -3 -5 ~A {5 {{ {{ ^^ ^^ ^^ ^^ {{ {{ {% ~2 -- -- -- tG tt tt tt " 32414 ".. .. .. .. .. .. .. .. -b -1 -- -- -- -5 ~A {5 {{ ^^ ^^ ^^ ^^ ^^ {{ {{ -2 -- -- -- tJ tt tt tt " 32415 ".. .. .. .. .. .. .. .. ~% -- -- -- -- -- -5 ~A {{ ^^ ^^ ^^ ^^ {{ {{ {L -- -- -- -- -5 tJ tt tt " 32416 ".. .. .. .. .. .. .. .. ~C -- -- __ __ -- -- -5 {{ ^^ ^^ ^^ ^^ {{ {L -3 -- ~~ -- -- -- -5 tJ tL " 32417 ".. .. .. .. .. .. .. ~C -3 -- -- __ __ -- -- -- {J {{ {{ ^^ {{ -3 -- -- -- ~~ -- -- ~~ -- -- -- " 32418 ".. .. .. .. .. ~C -3 -- -- -- -- __ __ __ -- -- -- -5 {{ ^^ {{ -2 -- -- ~~ ~~ ~~ __ -- ~~ -- -- " 32419 "~A .. .. ~C -3 -- -- -- -- -- __ __ __ __ __ -- -- -- {J {{ {L -- -- __ __ ~~ __ __ __ __ ~~ ~~ " 32420 "__ _1 _1 -- -- -- -- -- __ __ __ __ __ __ __ __ -- -- -- -1 -- -- -- __ __ __ __ __ __ __ __ __ " 32421 "__ __ __ -- -- -- __ __ __ __ __ __ __ __ __ __ -- -- -- -- -- -- __ __ __ __ __ __ __ __ __ __ " 32422 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32423 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32424 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32425 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32426 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32427 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32428 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32429 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32430 ) 32431 ) 32432 (kern-mk-map nil 32 32 pal_expanded 32433 (list 32434 "tt tt -a -- -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- -- __ __ __ __ __ __ __ __ __ __ " 32435 "tt tt tt tH -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32436 "tt tt tt tL -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32437 "tt tt tt -3 -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32438 "tt tt tt -2 -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32439 "tt tt tL -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32440 "tt tL -3 -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32441 "-3 -- -- -- -- ~~ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32442 "-- -- -- -- ~~ ~~ ~~ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32443 "-- -c tI -- -- ~~ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32444 "-- tG tt -2 -- -- -8 -- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32445 "-- tJ tL -- -c tG tt tH -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32446 "-- -- -- -- tG tt tt tt -2 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32447 "-- -- -- -4 tt tt tt tL -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32448 "tH -- -- -- tJ tt tL -3 -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ " 32449 "tt -2 ~~ -- -- -1 -- -- ~~ __ __ __ __ __ __ __ __ __ __ __ __ -- -- -- __ __ __ __ __ __ __ __ " 32450 "tL -- -- ~~ ~~ ~~ ~~ ~~ -- __ __ __ __ __ __ __ __ __ __ __ -- -c ~& -a -- __ __ __ __ __ __ __ " 32451 "-3 -- ~~ -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -c ~# .. ~% -- __ __ __ __ __ __ __ " 32452 "-- -- ~~ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -c ~# tC t7 .. -2 __ __ __ __ __ __ __ " 32453 "-- ~~ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- ~# tC t3 tt .. -a -- __ __ __ __ __ __ " 32454 "~~ -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -c tC t3 |. tt tA ~% -a -- __ __ __ __ __ " 32455 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- ~# t3 |. |. |. tt td .. ~D ~~ __ __ __ __ " 32456 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -4 .. tt |. |. |. tc t# ~C -3 -- ~~ ~~ __ __ " 32457 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- ~A ta |. |. tc t# -3 -- -- -- -- ~~ __ __ " 32458 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -5 t% tt |. t# -3 -- __ __ -- -- ~~ __ __ " 32459 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- ~A ta tc {8 -2 -- __ __ -- -- ~~ __ __ " 32460 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -5 {# {{ {{ -a -- -- -- -- -- ~~ __ __ " 32461 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- {J ^^ ^^ {H -a -8 -c {G {M ~~ __ __ " 32462 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -5 {J {{ ^^ {{ {{ {{ {L -3 -- __ __ " 32463 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -5 {J ^^ ^^ ^^ {L -3 -- __ __ __ " 32464 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- -5 {J {L -3 -- __ __ __ __ " 32465 "__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- -- -- __ __ __ __ __ " 32466 ) 32467 ) 32468 ) 32469 #f #f #t #f 32470 ;; subplaces 32471 (list 32472 (list 32473 p_moongate_clearing 32474 51 46) ;; coords of p_moongate_clearing 32475 (list 32476 p_gregors_hut 32477 61 67) ;; coords of p_gregors_hut 32478 (list 32479 p_abandoned_farm 32480 43 51) ;; coords of p_abandoned_farm 32481 (list 32482 p_trigrave 32483 29 51) ;; coords of p_trigrave 32484 (list 32485 p_enchanters_tower 32486 29 21) ;; coords of p_enchanters_tower 32487 (list 32488 p_green_tower 32489 80 59) ;; coords of p_green_tower 32490 (list 32491 p_bole 32492 86 40) ;; coords of p_bole 32493 (list 32494 p_glasdrin 32495 82 18) ;; coords of p_glasdrin 32496 (list 32497 p_oparine 32498 12 78) ;; coords of p_oparine 32499 (list 32500 p_absalot 32501 120 4) ;; coords of p_absalot 32502 (list 32503 p_mans_hideout 32504 92 10) ;; coords of p_mans_hideout 32505 (list 32506 p_engineers_hut 32507 50 4) ;; coords of p_engineers_hut 32508 (list 32509 p_void_temple 32510 7 39) ;; coords of p_void_temple 32511 (list 32512 p_poor_house 32513 19 65) ;; coords of p_poor_house 32514 (list 32515 p_ankh_shrine 32516 97 4) ;; coords of p_ankh_shrine 32517 (list 32518 p_westpass 32519 45 61) ;; coords of p_westpass 32520 (list 32521 p_eastpass 32522 43 61) ;; coords of p_eastpass 32523 (list 32524 p_ancient_derelict 32525 43 17) ;; coords of p_ancient_derelict 32526 (list 32527 p_gate_to_absalot 32528 120 10) ;; coords of p_gate_to_absalot 32529 (list 32530 p_tower_of_absalot 32531 120 8) ;; coords of p_tower_of_absalot 32532 (list 32533 p_kun 32534 60 38) ;; coords of p_kun 32535 ) ; end of subplaces 32536 nil ;; neighbors 32537 (list ;; objects in p_shard 32538 (list 32539 (kern-tag 'mg-4 32540 (bind 32541 (kern-mk-obj t_moongate 1 32542 ;; hooks 32543 (list 32544 ) 32545 ) 32546 (list 32547 'ord 32548 #f 32549 '() 32550 #f 32551 #f 32552 10 32553 ) 32554 ) ;; bind 32555 ) ;; kern-tag 32556 21 19) 32557 (list 32558 (kern-tag 'mg-5 32559 (bind 32560 (kern-mk-obj t_moongate 1 32561 ;; hooks 32562 (list 32563 ) 32564 ) 32565 (list 32566 'ord 32567 #t 32568 '() 32569 #t 32570 #f 32571 10 32572 ) 32573 ) ;; bind 32574 ) ;; kern-tag 32575 56 27) 32576 (list 32577 (kern-tag 'mg-6 32578 (bind 32579 (kern-mk-obj t_moongate 1 32580 ;; hooks 32581 (list 32582 ) 32583 ) 32584 (list 32585 'ord 32586 #f 32587 '() 32588 #f 32589 #f 32590 10 32591 ) 32592 ) ;; bind 32593 ) ;; kern-tag 32594 90 26) 32595 (list 32596 (kern-tag 'mg-7 32597 (bind 32598 (kern-mk-obj t_moongate 1 32599 ;; hooks 32600 (list 32601 ) 32602 ) 32603 (list 32604 'ord 32605 #f 32606 '() 32607 #f 32608 #f 32609 10 32610 ) 32611 ) ;; bind 32612 ) ;; kern-tag 32613 125 18) 32614 (list 32615 (kern-tag 'mg-8 32616 (bind 32617 (kern-mk-obj t_moongate 1 32618 ;; hooks 32619 (list 32620 ) 32621 ) 32622 (list 32623 'ord 32624 #f 32625 '() 32626 #f 32627 #f 32628 10 32629 ) 32630 ) ;; bind 32631 ) ;; kern-tag 32632 50 7) 32633 (list 32634 (kern-mk-obj t_edge_spawn 1 32635 ;; hooks 32636 (list 32637 ) 32638 ) 32639 0 0) 32640 (list 32641 (bind 32642 (kern-mk-obj t_dungeon 1 32643 ;; hooks 32644 (list 32645 ) 32646 ) 32647 (list 32648 'p_kurpolis_entrance 32649 9 32650 10 32651 ) 32652 ) ;; bind 32653 53 18) 32654 (list 32655 (bind 32656 (kern-mk-obj t_dungeon 1 32657 ;; hooks 32658 (list 32659 ) 32660 ) 32661 (list 32662 'p_mushroom_cave 32663 7 32664 12 32665 ) 32666 ) ;; bind 32667 78 74) 32668 (list 32669 (bind 32670 (kern-mk-obj t_dungeon 1 32671 ;; hooks 32672 (list 32673 ) 32674 ) 32675 (list 32676 'p_lost_halls_1 32677 2 32678 2 32679 ) 32680 ) ;; bind 32681 39 75) 32682 (list 32683 (bind 32684 (kern-mk-obj t_dungeon 1 32685 ;; hooks 32686 (list 32687 ) 32688 ) 32689 (list 32690 'p_necromancers_lair 32691 9 32692 9 32693 ) 32694 ) ;; bind 32695 40 70) 32696 (list 32697 (bind 32698 (kern-mk-obj t_dungeon 1 32699 ;; hooks 32700 (list 32701 ) 32702 ) 32703 (list 32704 'p_smoldering_cave 32705 9 32706 9 32707 ) 32708 ) ;; bind 32709 118 46) 32710 (list 32711 (bind 32712 (kern-mk-obj t_dungeon 1 32713 ;; hooks 32714 (list 32715 ) 32716 ) 32717 (list 32718 'p_slimy_cavern 32719 8 32720 30 32721 ) 32722 ) ;; bind 32723 13 8) 32724 (list 32725 (bind 32726 (kern-mk-obj t_raise_listener 1 32727 ;; hooks 32728 (list 32729 ) 32730 ) 32731 (list 32732 'raise-merciful-death 32733 '() 32734 ) 32735 ) ;; bind 32736 121 87) 32737 (list 32738 (bind 32739 (kern-mk-obj t_step_trig 1 32740 ;; hooks 32741 (list 32742 (list 32743 ef_permanent_invisibility 32744 '() 32745 2 32746 0 32747 ) 32748 ) 32749 ) 32750 (list 32751 'mk-angriss-lair 32752 '() 32753 ) 32754 ) ;; bind 32755 89 70) 32756 (list 32757 (kern-tag 'mg-1 32758 (bind 32759 (kern-mk-obj t_moongate 1 32760 ;; hooks 32761 (list 32762 ) 32763 ) 32764 (list 32765 'ord 32766 #f 32767 '() 32768 #f 32769 #f 32770 10 32771 ) 32772 ) ;; bind 32773 ) ;; kern-tag 32774 62 50) 32775 (list 32776 (kern-tag 'mg-2 32777 (bind 32778 (kern-mk-obj t_moongate 1 32779 ;; hooks 32780 (list 32781 ) 32782 ) 32783 (list 32784 'ord 32785 #f 32786 '() 32787 #f 32788 #f 32789 10 32790 ) 32791 ) ;; bind 32792 ) ;; kern-tag 32793 34 56) 32794 (list 32795 (kern-tag 'mg-3 32796 (bind 32797 (kern-mk-obj t_moongate 1 32798 ;; hooks 32799 (list 32800 ) 32801 ) 32802 (list 32803 'ord 32804 #f 32805 '() 32806 #f 32807 #f 32808 10 32809 ) 32810 ) ;; bind 32811 ) ;; kern-tag 32812 19 82) 32813 ) ;; end of objects in p_shard 32814 nil ;; on-entry-hook 32815 (list ;; edge entrances 32816 (list 0 127 95) ;; Northwest 32817 (list 1 64 95) ;; North 32818 (list 2 0 95) ;; Northeast 32819 (list 3 127 48) ;; West 32820 (list 4 64 48) ;; Here 32821 (list 5 0 48) ;; East 32822 (list 6 127 0) ;; Southwest 32823 (list 7 64 0) ;; South 32824 (list 8 0 0) ;; SoutheastUp 32825 ) 32826) ;; end of place p_shard 32827 32828(kern-mk-player 32829 'player 32830 s_wanderer 32831 "Walk" 32832 sound-walking 32833 22 71 32834 651 ;; turns to next meal 32835 nil 32836 m_campsite 32837 nil 32838 nil ; player's vehicle 32839 (kern-mk-container 32840 nil 32841 ;; trap 32842 nil 32843 ;; contents 32844 (list 32845 (list 5 sulphorous_ash) 32846 (list 5 ginseng) 32847 (list 5 garlic) 32848 (list 6 spider_silk) 32849 (list 3 blood_moss) 32850 (list 3 black_pearl) 32851 (list 1 nightshade) 32852 (list 1 mandrake) 32853 (list 1 t_heal_potion) 32854 (list 1 t_cure_potion) 32855 (list 1 t_mana_potion) 32856 (list 4 t_torch) 32857 (list 4 t_picklock) 32858 (list 1 t_manual) 32859 (list 1 t_letter_from_enchanter) 32860 (list 3 t_arrow) 32861 ) 32862 ;; hooks 32863 (list 32864 ) 32865 ) 32866 (list 32867 ch_wanderer 32868 ch_amy 32869 ) 32870) 32871;;-------------- 32872;; Miscellaneous 32873;;-------------- 32874(kern-set-damage-sprite s_hit) 32875(kern-set-crosshair t_crosshair) 32876(kern-set-clock 0 0 0 0 21 23) 32877(kern-set-time-accel 1) 32878(kern-mk-dtable 32879 (list 2 0 -1 -1 -1 -2 -2 -2 0 -2 -2 0 ) 32880 (list 0 2 2 -2 -2 -2 -2 -2 -2 -2 -2 -2 ) 32881 (list -1 2 2 -2 -1 -2 -2 -2 -2 -2 -2 -2 ) 32882 (list -1 -2 -2 2 -1 -2 0 -2 -2 -1 -2 -2 ) 32883 (list -1 -2 -1 -1 2 -2 -1 -1 -2 -1 -2 -2 ) 32884 (list -2 -2 -2 -2 -2 2 -1 0 -2 0 -2 0 ) 32885 (list -2 -2 -2 0 -1 -1 2 -2 -2 -1 -2 -2 ) 32886 (list -2 -2 -2 -2 -1 0 -2 2 -2 -1 -2 0 ) 32887 (list 0 -2 -2 -2 -2 -2 -2 -2 2 -2 -2 -1 ) 32888 (list -2 -2 -2 -1 -1 0 -1 -1 -2 2 -2 -1 ) 32889 (list -2 -2 -2 -2 -2 -2 -2 -2 -2 -2 2 -2 ) 32890 (list 0 -2 -2 -2 -2 0 -2 0 -1 -1 -2 2 ) 32891) 32892;; --------- 32893;; Astronomy 32894;; --------- 32895(kern-mk-astral-body 32896 'sun ; tag 32897 "Fyer (the sun)" ; name 32898 1 ; distance 32899 1 ; minutes_per_phase 32900 4 ; minutes_per_degress 32901 0 ; initial_arc 32902 0 ; initial_phase 32903 nil ; gifc 32904 (list 32905 (list s_sun 255 "full") 32906 ) 32907) 32908(bind-astral-body 32909 (kern-mk-astral-body 32910 'lumis ; tag 32911 "Lumis" ; name 32912 0 ; distance 32913 300 ; minutes_per_phase 32914 10 ; minutes_per_degress 32915 22 ; initial_arc 32916 0 ; initial_phase 32917 'source-moon-ifc 32918 (list 32919 (list s_new_moon 0 "new") 32920 (list s_wax_quarter_moon 32 "1/4 waxing") 32921 (list s_wax_half_moon 64 "1/2 waxing") 32922 (list s_wax_three_quarter_moon 96 "3/4 waxing") 32923 (list s_full_moon 128 "full") 32924 (list s_wane_three_quarter_moon 96 "3/4 waning") 32925 (list s_wane_half_moon 64 "1/2 waning") 32926 (list s_wane_quarter_moon 32 "1/4 waning") 32927 ) 32928 ) 32929 (list 32930 'mg-1 32931 'mg-2 32932 'mg-3 32933 'mg-4 32934 'mg-5 32935 'mg-6 32936 'mg-7 32937 'mg-8 32938 ) 32939) ;; bind-astral-body 32940(bind-astral-body 32941 (kern-mk-astral-body 32942 'ord ; tag 32943 "Ord" ; name 32944 0 ; distance 32945 540 ; minutes_per_phase 32946 6 ; minutes_per_degress 32947 67 ; initial_arc 32948 7 ; initial_phase 32949 nil ; gifc 32950 (list 32951 (list s_new_moon 0 "new") 32952 (list s_wax_quarter_moon 32 "1/4 waxing") 32953 (list s_wax_half_moon 64 "1/2 waxing") 32954 (list s_wax_three_quarter_moon 96 "3/4 waxing") 32955 (list s_full_moon 128 "full") 32956 (list s_wane_three_quarter_moon 96 "3/4 waning") 32957 (list s_wane_half_moon 64 "1/2 waning") 32958 (list s_wane_quarter_moon 32 "1/4 waning") 32959 ) 32960 ) 32961 (list 32962 'mg-1 32963 'mg-2 32964 'mg-3 32965 'mg-4 32966 'mg-5 32967 'mg-6 32968 'mg-7 32969 'mg-8 32970 ) 32971) ;; bind-astral-body 32972(kern-set-wind 2 0) 32973(kern-add-reveal 0) 32974(kern-add-quicken 0) 32975(kern-add-time-stop 0) 32976(kern-add-magic-negated 0) 32977(kern-add-xray-vision 0) 32978