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