worlds/haxima-1.002/thiefs_den.scm

   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)