worlds/haxima-1.002/ancient-derelict.scm

   1 (kern-mk-map
   2  'm_ancient_derelict 19 19 pal_expanded
   3         (list
   4                         "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
   5                         "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ "
   6                         "^^ ^^ {{ {{ {{ {{ ^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {{ {{ {{ ^^ ^^ "
   7                         "^^ {{ {{ bb {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {{ {3 {5 {{ {{ ^^ "
   8                         "{{ {{ {{ {{ {{ {{ {{ {{ ^^ ^^ ^^ ^^ {{ {3 #A bb {5 {{ ^^ "
   9                         "{{ {{ {{ {3 {1 {5 {{ {{ {{ ^^ ^^ ^^ {{ {2 ee .. {4 {{ ^^ "
  10                         "{{ {{ {3 .. .. #A #r #E {{ ^^ ^^ #A {{ {2 .. ee #C {{ ^^ "
  11                         "{1 {1 .. .. .. .. ee ee {{ {{ ^^ {{ {3 .. .. {4 {{ ^^ ^^ "
  12                         ".. .. #E .. ee ee ee ee ee {{ {{ {{ ee ee .. #C ^^ ^^ ^^ "
  13                         ".. .. bb ee ee ee ee ee ee ee {1 ee ee ee ee #F {1 {5 ^^ "
  14                         ".. .. #B .. ee ee ee ee ee ee ee ee ee ee .. ee #C .. {1 "
  15                         ".. .. .. .. .. ee ee ee ee ee ee .. .. #D #r .. #C .. .. "
  16                         "{8 {8 bb .. #D #r #G #H #D .. #r #r .. .. .. .. .. bb .. "
  17                         "{{ {{ {a .. .. .. .. .. .. bb .. .. .. .. .. .. .. .. .. "
  18                         "{{ {{ {{ {a {8 {8 .. .. .. .. .. .. .. {8 {8 {8 bb .. .. "
  19                         "^^ {{ bb {{ {{ {{ {a {8 .. .. .. .. {c {{ {{ {{ {{ {a {8 "
  20                         "^^ ^^ {{ {{ {{ {{ {{ {{ {2 .. .. {c {{ {{ {{ {{ {{ {{ {{ "
  21                         "^^ ^^ ^^ {{ ^^ ^^ ^^ {{ {2 .. {4 {{ ^^ ^^ ^^ {{ {{ {{ {{ "
  22                         "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ {2 .. {4 {{ ^^ ^^ ^^ ^^ ^^ {{ {{ "
  23         )
  24  )
  25
  26 ;;----------------------------------------------------------------------------
  27 ;; Place
  28 ;;----------------------------------------------------------------------------
  29 (kern-mk-place
  30  'p_ancient_derelict ; tag
  31  "¸ÅÂå¤Î°ä´þÁ¥"   ; name
  32  s_void_ship          ; sprite
  33  m_ancient_derelict  ; map
  34  #f               ; wraps
  35  #f                     ; underground
  36  #f                     ; large-scale (wilderness)
  37  #f                     ; tmp combat place
  38  nil                    ; subplaces
  39
  40  ;; neighbors
  41  (list
  42   )
  43
  44  ;; objects
  45  (list
  46   (put (mk-monman) 0 0)
  47   (put (spawn-pt 'wisp) 7 9)
  48   (put (spawn-pt 'wisp) 10 9)
  49   (put (kern-mk-obj t_power_core 1) 12 5)
  50   (put (mk-corpse2
  51         '(
  52          (1 t_staff)
  53          (1 t_vas_rel_por_scroll)
  54          )) 9 10)
  55
  56   )
  57
  58  (list 'on-entry-to-dungeon-room) ; hooks
  59  (list ; edge entrances
  60         (list southeast 0 4)
  61         (list northeast 0 14)
  62  )
  63  )
  64
  65 (mk-place-music p_ancient_derelict 'ml-outdoor-adventure)