worlds/haxima-1.002/mans-hideout.scm

   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)