1(kern-mk-map
2 'm_merciful_death 19 19 pal_expanded
3	(list
4		".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
5		".. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. "
6		".. ~C ~3 ~1 ~1 ~1 ~5 ~A .. .. .. ~C ~3 ~1 ~1 ~1 ~5 ~A .. "
7		"~~ ~~ ~~ bb -- -- ~~ ~~ ~1 ee ~1 ~~ ~~ -- -- -- ~~ ~5 ~A "
8		"-- -- -- ~~ -- -- -- -- -- ee -- -- -- -- -- bb -- ~~ ~~ "
9		"-- #e #a #a #a #a #a #a #a ee #a #a #f -- -- ~~ -- -- -- "
10		"-- #b ee ee ee ee ee ee ee ee ee ee #F #a #a #f -- -- -- "
11		"-- #b ee ee ee ee ee ee ee ee ee ee ee ee ee #F #f -- -- "
12		"-- #b ee ee ee ee ee ee ee ee ee ee ee ee ee ee #F #f -- "
13		"-- #b ee ee oo ee ee ee ee oo ee ee ee WW ee ee ee #c -- "
14		"-- #b ee ee ee ee ee ee ee ee ee ee ee ee ee ee #H #h -- "
15		"-- #b ee ee ee ee ee ee ee ee ee ee ee ee ~~ ~~ ~~ ~~ -- "
16		"-- #b ee ~~ ~~ ~~ ee ee ~~ ~~ ee ee #H #d #d ~~ ~~ ~~ -- "
17		"-- ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ bb -- "
18		"-- ~~ ~~ ~~ ~~ ~~ ~~ ~~ ~~ bb ~~ ~~ ~~ ~~ -- -- bb ~~ -- "
19		"-- -- bb -- -- -- -- -- -- ~~ -- -- -- -- -- -- ~~ -- -- "
20		"-- -- ~~ -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "
21		"-- -- -- -- __ __ __ __ -- -- -- -- __ __ __ -- -- -- -- "
22		"-- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- "
23	)
24  )
25;;----------------------------------------------------------------------------
26;; Characters
27;;----------------------------------------------------------------------------
28
29;;----------------------------------------------------------------------------
30;; Special Objects
31;;----------------------------------------------------------------------------
32
33;;----------------------------------------------------------------------------
34;; Place
35;;----------------------------------------------------------------------------
36(kern-mk-place
37 'p_merciful_death ; tag
38 "Wreck of the Merciful Death (abovedecks)"   ; name
39 s_ship              ; sprite
40 m_merciful_death  ; map
41 #f               ; wraps
42 #f                     ; underground
43 #f                     ; large-scale (wilderness)
44 #f                     ; tmp combat place
45 nil                    ; subplaces
46
47 ;; neighbors
48 (list
49  )
50
51 ;; objects
52 (list
53  (put (mk-monman) 0 0)
54  (put (mk-ladder-down 'p_merciful_death_l2 6 9) 6 9)
55  (put (spawn-pt 'skeletal-warrior) 7 9)
56  (put (spawn-pt 'skeletal-spear-thrower) 10 9)
57  )
58
59 (list 'on-entry-to-dungeon-room) ; hooks
60 nil ; edge entrances
61 )
62
63(mk-place-music p_merciful_death 'ml-dungeon-adventure)
64
65;; ----------------------------------------------------------------------------
66;; Map
67;; ----------------------------------------------------------------------------
68  (kern-mk-map
69    'm_merciful_death_l2 19 19 pal_expanded
70    (list
71      "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
72      "rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr rr "
73      "rr rr -- -- -- -- -- rr rr rr rr rr -- -- -- -- -- rr rr "
74      "-- -- -- bb -- -- -- -- -- -- -- -- -- -- -- -- -- -- rr "
75      "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- bb -- -- -- "
76      "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "
77      "-- -- #I #r #r #r #r #r #r #r #r #J -- -- -- -- -- -- -- "
78      "-- -- #s ee ee ee ee ee ee ee ee #K #r #r #J -- -- -- -- "
79      "-- -- #s ee ee ee ee ee ee ee ee ee ee ee #K #J -- -- -- "
80      "-- -- #s ee ee ee ee ee ee ee ee ee ee ee ee #s -- -- -- "
81      "-- -- #s ee ee ee ee ee ee ee ee ee ee ee #I #L -- -- -- "
82      "-- -- #s ee ee ee ee ee ee ee ee #I #r #r #L -- -- -- -- "
83      "-- -- #K #r #r #r #r #r #r #r #r #L -- -- -- -- -- -- -- "
84      "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- bb -- "
85      "-- -- -- -- -- -- -- -- -- bb -- -- -- -- -- -- bb -- -- "
86      "-- -- bb -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "
87      "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "
88      "-- -- -- -- __ __ __ __ -- -- -- -- __ __ __ -- -- -- -- "
89      "-- -- __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ -- -- "
90    )
91  )
92;;----------------------------------------------------------------------------
93;; Characters
94;;----------------------------------------------------------------------------
95
96;;----------------------------------------------------------------------------
97;; Special Objects
98;;----------------------------------------------------------------------------
99
100;;----------------------------------------------------------------------------
101;; Place
102;;----------------------------------------------------------------------------
103(kern-mk-place
104 'p_merciful_death_l2 ; tag
105 "Wreck of the Merciful Death (belowdecks)"   ; name
106 nil              ; sprite
107 m_merciful_death_l2  ; map
108 #f               ; wraps
109 #t                     ; underground
110 #f                     ; large-scale (wilderness)
111 #f                     ; tmp combat place
112 nil                    ; subplaces
113
114 ;; neighbors
115 (list
116  )
117
118 ;; objects
119 (list
120  (put (mk-monman) 0 0)
121  (put (mk-ladder-up 'p_merciful_death 6 9) 6 9)
122  (put (mk-chest
123        'poison-trap
124        '((1   t_rune_c)
125                     (342 t_gold_coins)
126                     (4   t_gem)
127                     (1 t_sextant)
128                     ))
129       14 9)
130  (put (spawn-pt 'skeletal-warrior) 7 9)
131  (put (spawn-pt 'skeletal-spear-thrower) 10 9)
132  )
133
134 (list 'on-entry-to-dungeon-room) ; hooks
135 nil ; edge entrances
136 )
137
138(mk-place-music p_merciful_death 'ml-dungeon-adventure)
139