worlds/haxima-1.002/moongate-clearing.scm

   1 (kern-load "gregor.scm")
   2
   3 ;;-----------------------------------------------------------------------------
   4 ;; ¥×¥ì¥¤¥ä¡¼¤ÎºÇ½é¤Î»ý¤ÁÊª¤¬Æþ¤Ã¤Æ¤¤¤ëÈ¢¤¬¤¢¤ë¡£
   5 ;; ¤½¤ì¤ÏÆîÀ¾¤Îº×ÃÅ¤Ë¤¢¤ë¡£
   6 ;;-----------------------------------------------------------------------------
   7 (define supplies_chest
   8   (mk-chest
   9    nil ;; trap
  10
  11    '(
  12
  13     ;; Food
  14     (10 t_food)
  15
  16     ;; Gold
  17     (10 t_gold_coins)
  18
  19     ;; Reagents
  20     (10 sulphorous_ash)
  21     (10 ginseng)
  22     (10 garlic)
  23     (10 spider_silk)
  24     (6 blood_moss)
  25     (6 black_pearl)
  26     (3 nightshade)
  27     (3 mandrake)
  28
  29     ;; Items
  30     (2 t_heal_potion)
  31     (2 t_cure_potion)
  32     (2 t_mana_potion)
  33     (6 t_torch)
  34     (3 t_picklock)
  35
  36     ;; Arms
  37     (1  t_sword)
  38     (1  t_shield)
  39     (1  t_staff)
  40
  41     (1  t_sling)
  42     (1  t_self_bow)
  43     (20 t_arrow)
  44
  45     ;; Hints/instructions
  46     (1 t_manual)
  47     (1 t_letter_from_enchanter)
  48     (1 t_spell_book_white_magick_1   )
  49     (1 t_spell_book_force_magick_12 )
  50     )
  51    ))
  52
  53
  54
  55 ;;----------------------------------------------------------------------------
  56 ;; ·î¤ÎÌç¤Îº×ÃÅ
  57 ;;
  58 ;; ¤³¤³¤¬»Ï¤Þ¤ê¤Î¾ì½ê¤Ç¤¢¤ë¡£
  59 ;;----------------------------------------------------------------------------
  60 (kern-mk-place 'p_moongate_clearing "·î¤ÎÌç¤Îº×ÃÅ"
  61   s_shrine ;; sprite
  62   (kern-mk-map 'm_moongate_clearing 23 28 pal_expanded
  63     (list
  64                 "^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^d t3 tt tt tt td ^3 ^^ ^^ ^^ ^^ ^^ ^^ ^^ ^5 "
  65                 "^^ {{ {{ {{ ^^ ^^ ^^ ^c t3 tt tt || || ^b ^^ ^^ {{ {{ {{ ^^ {{ {{ ^^ "
  66                 "^^ {{ {{ {{ {{ ^^ t3 tt tt || tt tt || |% ^a ^^ {C t7 {{ ^^ ^^ {{ ^^ "
  67                 "^^ {{ {{ {{ {{ {C tt || || || || tt || || |% ^e t3 tt {A {{ ^^ {{ ^^ "
  68                 "^^ ^^ {{ {{ {C t3 || || || || tt tt tt || || tt tt tt t5 {A {{ {{ ^^ "
  69                 "^^ ^^ ^^ ^^ t3 tt || || || tt tt tt tt tt tt tt tt tt tt td {{ ^^ ^^ "
  70                 "^^ ^^ ^^ ^^ || || || || tt tt tc bb ta tt tt tt tt tt || ^b ^^ ^^ ^c "
  71                 "^^ ^^ ^^ ^^ || || || tt tt bb .. .. .. bb tt tt tt || || |% ^a ^c |& "
  72                 "^^ ^^ ^^ ^c || || tt tt tt td .. .. .. tb tt tt tt tt || || || || || "
  73                 "^^ ^c |# || || || tt tt bb .. .. .. .. .. bb tt tt tt tt tt tt tt tt "
  74                 "^^ |# || || || || tt tc .. .. .. .. .. .. .. ta tt tt tt tt tt tt tc "
  75                 "{{ |A || || || || tt bb .. .. .. .. .. .. .. bb tt tt tt tt tt tc {& "
  76                 "{{ {% |A || || tt tt t5 .. .. .. .. .. .. .. t3 tt tc {# {% te {# {{ "
  77                 "^^ {{ {{ {{ {% ta tt tt bb .. .. .. .. .. bb tt tc {# {{ {{ {{ {{ {{ "
  78                 "^^ ^^ ^^ {{ {{ {% ta tt tt td .. .. .. tb tt tt {# ^^ ^^ {{ {{ ^^ ^^ "
  79                 "^^ ^^ ^^ ^^ {{ {{ {% ta tt bb .. .. .. bb tt tt {A ^^ ^^ ^^ {{ {{ ^^ "
  80                 "^^ ^^ {7 ^^ ^^ ^^ {{ {% tt td .. .. .. tb tt tt td {{ ^^ ^^ {{ {{ ^^ "
  81                 "^^ {3 .. {1 {5 ^^ {{ {{ tt bb .. .. .. bb tt tt {B {{ {{ {{ {{ ^^ ^^ "
  82                 "^^ {2 .. .. {4 ^^ {{ {{ tt td .. .. .. tb tt tt tt tt t5 {A ^^ ^^ ^^ "
  83                 "^^ {a .. {8 {c ^^ {{ {{ tt bb .. .. .. bb te bb te bb tt t5 ^^ ^^ ^^ "
  84                 "^^ ^^ {e ^^ ^^ ^^ {{ {{ tt td .. .. .. .. .. .. .. .. ta tt ^^ ^^ ^^ "
  85                 "^^ ^^ ^^ ^^ ^^ ^^ ^^ {{ tt bb .. .. .. .. .. .. .. .. bb tt ^^ ^^ ^^ "
  86                 "^^ ^^ ,H ,A ,I ,L ^^ ^^ tt t5 .. .. .. .. .. .. .. .. tb tt ^a ^^ ^^ "
  87                 "^^ {3 .. .. .. .. {5 ^^ ta tc bb .. bb t7 bb .. .. .. bb tt t5 ^a ^^ "
  88                 "^^ {2 .. .. .. .. .. {9 .. .. .. tC t3 tt td .. .. .. tb tt tt t5 ^e "
  89                 "^^ {2 .. .. .. .. {4 ^^ t3 || tt tt tt tt bb .. .. .. bb tt tt tt t5 "
  90                 "^^ ,S ,E ,E ,K ,E ,R ^^ || || || tt tt tc .. .. .. .. .. ta tt tt tt "
  91                 "^^ ^^ ^^ ^^ ^^ ^^ ^^ ^^ ta || tt tt tc bb .. .. .. .. .. bb ta tt tc "
  92      )
  93     )
  94   #f #f #f #f
  95   ;; subplaces
  96   nil
  97   ;; neighbors
  98   nil
  99
 100   ;; *** contents of the place ***
 101   (list
 102    (list (kern-tag 'black-gate (mk-moongate nil)) 11 11)
 103    (list (mk-gregor) 1 23)
 104    (list supplies_chest   1 24)
 105    )
 106
 107   nil ;; hooks
 108   (list  ;; edge entrances
 109    (list north 16 27)
 110    (list east   0 11)
 111    (list west  22 10)
 112    (list northeast 8 27)
 113    (list southeast   9 0)
 114    (list southwest  22 7)
 115    )
 116 ) ;; end of place p_moongate_clearing
 117
 118 (mk-place-music p_moongate_clearing 'ml-small-town)