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