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