1;;---------------------------------------------------------------------------- 2;; Map 3;;---------------------------------------------------------------------------- 4(kern-mk-map 5 'm_necromancers_lair 19 19 pal_expanded 6 (list 7 "xx xx xx xx xx xx xx xx xx && xx xx xx xx xx x! xx xx xx " 8 "xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 9 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 10 "xx ,, ,, x! ,, ,, ,, ,, [[ @@ ]] ,, xx ,, ,, ,, ,, ,, xx " 11 "xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx ,, ,, ,, ,, ,, xx " 12 "xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 13 "xx xx xx xx xx xx xx xx x! ,, x! xx xx xx x! ,, x! xx xx " 14 "xx xx .. .. .. xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 15 "xx .. .. .. ,, .. xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 16 "xx .. ,, ,, .. .. xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx " 17 "xx .. .. ,, .. .. xx ,, ,, ,, ,, ,, x! ,, ,, ,, ,, ,, xx " 18 "xx xx .. .. .. xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 19 "xx xx xx ,, xx xx xx xx x! ,, x! xx xx xx x! ,, x! xx xx " 20 "xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx " 21 "xx ,, ,, ,, ,, ,, x! ,, ~~ ee ~~ ~~ xx 00 ,, ,, ,, 00 xx " 22 "xx ,, ,, ,, ,, ,, ,, ,, ee ee ~~ ~~ xx 00 ,, ,, ,, 00 xx " 23 "xx ,, ,, ,, ,, ,, x! ,, ~~ ~~ ~~ ~~ xx 00 ,, ,, ,, 00 xx " 24 "xx x! [[ @@ ]] x! xx xx ~~ ~~ ~~ xx xx x! 00 00 00 x! xx " 25 "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx " 26)) 27 28;;---------------------------------------------------------------------------- 29;; NPC's 30;;---------------------------------------------------------------------------- 31(kern-load "luximene.scm") 32(kern-load "necromancer.scm") 33 34;;---------------------------------------------------------------------------- 35;; Place 36;;---------------------------------------------------------------------------- 37(kern-mk-place 38 'p_necromancers_lair ; tag 39 "Necromancers Lair" ; name 40 nil ; sprite 41 m_necromancers_lair ; map 42 #f ; wraps 43 #t ; underground 44 #f ; large-scale (wilderness) 45 #f ; tmp combat place 46 nil ; subplaces 47 nil ; neighbors 48 49 (list ; objects 50 51 (put (mk-ladder-up 'p_shard 40 70) 9 9) 52 53 ;; npc's 54 (put (mk-necromancer) 9 9) 55 56 ;; bedroom 57 (put (mk-bed) 15 3) 58 (put (mk-door) 15 6) 59 60 ;; galley 61 (put (mk-chest 62 nil 63 '((5 t_food))) 10 1) 64 65 ;; library 66 (put (mk-door) 15 12) 67 68 (put (kern-mk-obj t_spell_book_white_magick_1 1) 13 14) 69 (put (kern-mk-obj t_spell_book_white_magick_2 1) 13 15) 70 (put (kern-mk-obj t_spell_book_white_magick_3 1) 13 16) 71 72 (put (kern-mk-obj t_spell_book_necromancy 1) 15 17) 73 (put (kern-mk-obj t_spell_book_enchantment_wards 1) 16 17) 74 75 (put (kern-mk-obj t_spell_book_summoning 1) 17 14) 76 (put (kern-mk-obj t_spell_book_gate_magick 1) 17 15) 77 (put (kern-mk-obj t_spell_book_divination 1) 17 16) 78 79 ;; center 80 (put (mk-door) 9 12) 81 (put (mk-door) 9 6) 82 (put (mk-door) 12 9) 83 84 ;; lab 85 (put (mk-door) 6 15) 86 (put (mk-locked-door) 3 12) 87 88 ;; morgue 89 (put (mk-corpse) 2 7) 90 (put (mk-corpse) 3 7) 91 (put (mk-corpse) 4 7) 92 (put (mk-corpse) 1 8) 93 (put (mk-corpse) 2 8) 94 (put (mk-corpse) 5 8) 95 (put (mk-corpse) 1 10) 96 (put (mk-corpse) 5 9) 97 98 ;; potion room 99 (put (mk-magic-locked-door) 6 3) 100 (put (kern-mk-obj mandrake 6) 2 1) 101 (put (kern-mk-obj nightshade 4) 3 1) 102 (put (kern-mk-obj blood_moss 12) 4 1) 103 (put (kern-mk-obj black_pearl 14) 2 5) 104 (put (kern-mk-obj spider_silk 21) 3 5) 105 (put (kern-mk-obj garlic 18) 4 5) 106 (put (kern-mk-obj ginseng 17) 1 4) 107 (put (kern-mk-obj sulphorous_ash 26) 1 3) 108 (put (kern-mk-obj t_mana_potion 8) 1 2) 109 ) 110 111 nil ; hooks 112 (list ;; edge entrances 113 (list east 0 9) 114 (list south 9 0) 115 (list north 9 18) 116 (list west 18 9) 117 ) 118 ) 119 120 121(mk-place-music p_necromancers_lair 'ml-creepy-area) 122 123