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