1;; ----------------------------------------------------------------------------
2;; Map
3;; ----------------------------------------------------------------------------
4  (kern-mk-map
5    'm_mans_hideout 19 19 pal_expanded
6	(list
7		"xx xx xx x! xx xx xx rn rn rn rn rn xx xx xx xx xx xx xx "
8		"xx pp cc cc cc pp xx xx xx rn rn rn xx .T .O .O .L .S xx "
9		"xx cc ,, ,, ,, cc ,, ,, xx xx xx xx xx ,, ,, ,, ,, ,, xx "
10		"x! cc ,, ,, ,, cc x! ,, ?? ,, ?? ?? ?? ,, ,, ,, ,, ,, xx "
11		"xx cc ,, ,, ,, cc xx xx xx x! ?? xx xx ,, ,, ,, ,, ,, xx "
12		"xx pp cc cc cc pp xx xx ,, ,, ,, xx xx xx x! ,, x! xx xx "
13		"xx xx xx ,, xx xx x! cc ,, ,, ,, cc x! xx xx ,, xx rn rn "
14		"rn rn xx ,, xx xx cc pp cc ,, cc pp cc xx xx ,, xx rn rn "
15		"rn rn xx ,, xx ,, ,, cc ,, ,, ,, cc ,, ,, xx ,, xx rn rn "
16		"rn rn x! ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, ,, x! rn r8 "
17		"rn rn xx ,, xx ,, ,, cc ,, ,, ,, cc ,, ,, xx ,, xx ~~ ~~ "
18		"rn rn xx ,, xx xx cc pp cc ,, cc pp cc xx xx ,, xx ~~ r3 "
19		"rn xx x! ,, x! xx x! cc ,, ,, ,, cc x! xx ~~ ,, ~~ ~c r2 "
20		"xx xx ,, ,, ,, xx xx xx ,, ,, ,, xx xx xx ~~ ee ~~ r3 rn "
21		"xx ,, ,, ,, ,, ,, r2 rn r9 r9 r9 rn r4 ~~ ~~ ~8 ~c r2 rn "
22		"x! ,, ,, 00 ,, ,, r2 rc .. .. .. ra r4 ~2 r3 r9 r9 rn rn "
23		"xx ,, ,, ,, ,, ,, r6 .. .. .. .. .. re ~4 r6 ,, ,, r2 rn "
24		"xx xx xx && xx xx r4 .. .. .. .. ~3 ~~ ~c r6 ,, ,, r2 rn "
25		"rn rn xx xx xx rn rn r5 .. .. .. ~~ r3 r1 rn r1 r1 rn rn "
26	)
27  )
28
29;;----------------------------------------------------------------------------
30;; Characters
31;;----------------------------------------------------------------------------
32(kern-load "the-man.scm")
33
34;;----------------------------------------------------------------------------
35;; Place
36;;----------------------------------------------------------------------------
37(kern-mk-place
38 'p_mans_hideout ; tag
39 "The MAN's Hideout"   ; name
40 s_dungeon      ; sprite
41 m_mans_hideout  ; map
42 #f               ; wraps
43 #t                     ; underground
44 #f                     ; large-scale (wilderness)
45 #f                     ; tmp combat place
46 nil                    ; subplaces
47 nil ;; neighbors
48 ;; objects
49 (list
50
51  (put (mk-the-man) 9 9)
52
53  ;; kitchen
54  (put (mk-chest
55        nil
56        '(
57         (10 t_food))) 5 16)
58
59  ;; bedroom
60  (put (mk-bed) 3 3)
61  (put (mk-chest
62        'bomb-trap
63        '(
64         (100 t_gold_coins))) 7 3)
65
66  ;; closet
67  (put (mk-door) 6 2)
68
69  ;; secret wall mech
70  (put (mk-disg-lvr 'mh-b1 's_wall_rock) 7 18)
71  (put (mk-hidden-mech) 7 18)
72  (put (kern-tag 'mh-b1
73                 (mk-tblitter 'p_mans_hideout
74                              8 14
75                              3 1
76                              'm_hall_section))
77       0
78       0)
79
80  ;; tool room
81  (put (mk-magic-locked-door) 15 5)
82  ;; tools...
83  (put (mk-chest
84        'bomb-trap
85        '(
86			 (10 t_gem)
87			 (10 t_torch)
88			 (10 t_picklock)
89			 (1  t_spell_book_illusion_1)
90         )) 13 2)
91  ;; arms...
92  (put (mk-chest
93        'bomb-trap
94        '(
95			 (1 t_sling_4)
96			 (1 t_dagger_4)
97			 (1 t_leather_helm_4)
98			 (1 t_armor_leather_4)
99         )) 13 3)
100  ;; potions 1...
101  (put (mk-chest
102        'bomb-trap
103        '(
104			 (10 t_cure_potion)
105			 (10 t_poison_immunity_potion)
106			 (10 t_invisibility_potion)
107			 (1  t_spell_book_force_magick_mechanismus)
108         )) 13 4)
109  ;; potions 2...
110  (put (mk-chest
111        'bomb-trap
112        '(
113			 (10 t_heal_potion)
114			 (10 t_mana_potion)
115         )) 17 2)
116  ;; scrolls 1...
117  (put (mk-chest
118        'bomb-trap
119        '(
120			 (10 t_in_ex_por_scroll)
121			 (10 t_wis_quas_scroll)
122			 (10 t_vas_mani_scroll)
123         )) 17 3)
124  ;; scrolls 2...
125  (put (mk-chest
126        'bomb-trap
127        '(
128			 (10 t_an_tym_scroll)
129			 (10 t_sanct_lor_scroll)
130			 (10 t_in_quas_xen_scroll)
131			 (10 t_an_xen_ex_scroll)
132         )) 17 4)
133
134  (put (mk-ladder-down 'p_forsaken_prison 2 16) 9 3)
135  )
136 nil ; hooks
137 nil ; edge entrances
138 )
139
140(mk-place-music p_mans_hideout 'ml-dungeon-adventure)
141