1;; ----------------------------------------------------------------------------
2;; Map
3;; ----------------------------------------------------------------------------
4  (kern-mk-map
5    'm_thiefs_den 19 19 pal_expanded
6    (list
7      "xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx xx "
8      "xx && ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
9      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
10      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
11      "xx ,, ,, ,, pp ,, ,, ,, ,, pp ,, ,, ,, ,, pp ,, ,, ,, xx "
12      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
13      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
14      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
15      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
16      "xx ,, ,, ,, pp ,, ,, ,, ,, ,, ,, ,, ,, ,, pp ,, ,, ,, xx "
17      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
18      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
19      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
20      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
21      "xx ,, ,, ,, pp ,, ,, ,, ,, pp ,, ,, ,, ,, pp ,, ,, ,, xx "
22      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
23      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, xx "
24      "xx ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, 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;; Characters
30;;----------------------------------------------------------------------------
31(kern-load "mouse.scm")
32(mk-mouse)
33
34;;----------------------------------------------------------------------------
35;; Special Objects
36;;----------------------------------------------------------------------------
37;(kern-load "thiefs_den_mechs.scm")
38
39;;----------------------------------------------------------------------------
40;; Other dungeon rooms
41;;----------------------------------------------------------------------------
42
43;;----------------------------------------------------------------------------
44;; Place
45;;----------------------------------------------------------------------------
46(kern-mk-place
47 'p_thiefs_den ; tag
48 "Thief's Den"   ; name
49 nil              ; sprite
50 m_thiefs_den  ; map
51 #f               ; wraps
52 #t                     ; underground
53 #f                     ; large-scale (wilderness)
54 #f                     ; tmp combat place
55 nil                    ; subplaces
56 nil ;; neighbors
57 ;; objects
58 (list
59
60  (put ch_mouse 3 3)
61  (put (mk-ladder-up 'p_traps_4 9 7) 9 9)
62
63  ;; foods
64  (put (kern-mk-obj t_food 10) 4 1)
65  (put (kern-mk-obj t_wine 1) 4 2)
66
67  ;; potions
68  (put (kern-mk-obj t_cure_potion 1) 3 4)
69  (put (kern-mk-obj t_mana_potion 1) 4 5)
70  (put (kern-mk-obj t_heal_potion 1) 5 5)
71  (put (kern-mk-obj t_poison_immunity_potion 1) 6 5)
72  (put (kern-mk-obj t_invisibility_potion 1) 7 5)
73
74  ;; tools
75  (put (kern-mk-obj t_torch 1) 8 5)
76  (put (kern-mk-obj t_picklock 1) 8 6)
77  (put (kern-mk-obj t_gem      1) 8 7)
78
79  ;; scrolls
80  (put (kern-mk-obj t_an_tym_scroll 1) 9 7)
81  (put (kern-mk-obj t_in_mani_corp_scroll 1) 10 7)
82  (put (kern-mk-obj t_vas_rel_por_scroll 1) 10 8)
83  (put (kern-mk-obj t_sanct_lor_scroll 1) 10 10)
84  (put (kern-mk-obj t_in_quas_xen_scroll 1) 9 10)
85  (put (kern-mk-obj t_an_xen_ex_scroll 1) 8 9)
86  (put (kern-mk-obj t_in_an_scroll 1) 7 9)
87  (put (kern-mk-obj t_in_ex_por_scroll 1) 6 9)
88  (put (kern-mk-obj t_vas_mani_scroll 1) 6 8)
89  (put (kern-mk-obj t_wis_quas_scroll 1) 6 7)
90
91 ;; spellbooks
92(put (kern-mk-obj t_spell_book_illusion_1          1)  3  1)
93(put (kern-mk-obj t_spell_book_force_magick_fields 1)  2 12)
94(put (kern-mk-obj t_spell_book_force_magick_matter 1) 16 17)
95
96  ;; lucre
97  (put (kern-mk-obj t_gold_coins 74) 6 2)
98  (put (kern-mk-obj t_gold_coins 112) 2 9)
99  (put (kern-mk-obj t_gold_coins 243) 1 17)
100  (put (kern-mk-obj t_gold_coins 30) 7 3)
101
102  ;; door
103  (put (mk-bed) 3 1)
104
105  )
106 (list 'quest-thiefrune-den5) ; hooks
107 nil ; edge entrances
108 )
109
110(mk-place-music p_thiefs_den 'ml-dungeon-adventure)
111