worlds/haxima-1.002/merciful-death.scm

   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)