日本語版

[nazghul-jp/nazghul-jp.git] / worlds / haxima-1.002 / luximene.scm

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------
(define lux-lvl 7)
(define lux-species sp_ghast)
(define lux-occ oc_wizard)

;;----------------------------------------------------------------------------
;; Schedule
;;
;; ÎФÎÅã¤ÎÊè
;;----------------------------------------------------------------------------

;;----------------------------------------------------------------------------
;; Gob
;;----------------------------------------------------------------------------
(define (lux-mk) nil)

;;----------------------------------------------------------------------------
;; Conv
;; 
;; ¥é¥¯¥·¥Þ¥Ë¤Ï¥ê¥Ã¥Á(¸å¤ËÈà¤ÎƬ³¸¹ü¤«¤é±Æ¤¬¸Æ¤Ó½Ð¤µ¤ì¤ë)¤Ç¡¢¥¯¥í¥Ý¥ê¥¹¤Î°äÀ×
;; ¤Ë¤¢¤ëÊõʪ¸Ë¤ò»ÙÇÛ¤·¤Æ¤¤¤ë¡£Èà¤Ï¥·¥ã¥ë¥É¤òÀ¬Éþ¡¢Åý°ì¤·¤¿°ÎÂç¤Ê²¦¤À¤Ã¤¿¡£¤½
;; ¤·¤ÆºÇ¸å¤Ë¤Ï¸­¼Ô¤È¤·¤ÆÃΤé¤ì¤ë¤è¤¦¤Ë¤Ê¤ë¼Ô¤¿¤Á¤Ë¤è¤Ã¤ÆÅݤµ¤ì¤¿¡£
;;----------------------------------------------------------------------------

;; Basics...
(define (lux-hail knpc kpc)
  (say knpc "¡Î¤¢¤Ê¤¿¤Ï»¦°Õ¤Ëdz¤¨¤ë±Æ¤È²ñ¤Ã¤¿¡£¡Ï²¿¤¬Ë¾¤ß¤À¡©"
       "»à¤¹¤Ù¤­¼Ô¤è¡£"))

(define (lux-default knpc kpc)
  (say knpc "²æ¤Î»þ´Ö¤ò̵Â̤ˤ¹¤ë¤Ê¡£"))

(define (lux-name knpc kpc)
  (say knpc "²æ¤Ï°ÎÂç¤Ê¥é¥¯¥·¥Þ¥Ë¡¢¤³¤ÎÃæ±û°è¤Î²¦¤Ç¤¢¤ë¡£"))

(define (lux-rune knpc kpc)
  (say knpc "¡ÎÈà¤ÏÆÍÁ³¤«¤­Í𤵤줿¤è¤¦¤Ë¸«¤¨¤¿¡£¡Ï"
       "¤½¤ì¤Ï°­Ëâ¤ÎÌç¤òÉõ°õ¤¹¤ë¤¿¤á¡¢¸­¼Ô¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿È¬¤Ä¤Î¸°¤Î°ì¤Ä¤À¡£"))

(define (lux-gate knpc kpc)
  (say knpc "¤½¤ì¤¾¤ì¤Î¸°¤Ë¤Ï¼é¸î¼Ô¤¬¤ª¤ê¡¢¸ß¤¤¤Ë²ñ¤¦¤³¤È¤ò¶Ø»ß¤µ¤ì¤Æ¤¤¤¿¡£"
       "¤½¤·¤Æ¤½¤ÎÅÁÅý¤Ï°ú¤­·Ñ¤¬¤ì¤Æ¤­¤¿¡£Æò¤Ï¼é¸î¼Ô¤«¡©")
  (if (yes? kpc)
      (begin
        (say knpc "¤Ê¤é¤Ð¤Ê¤¼Æò¤Ï¤³¤ÎÀÐÈǤΤ³¤È¤ò²æ¤Ëʹ¤¯¤Î¤À¡©Æò¤Î¼ç¤Ï²¿¤â¸À¤ï¤Ê¤«¤Ã¤¿¤Î¤«¡©")
        (if (yes? kpc)
            (say knpc "¡ÎÈà¤Ï°­°Õ¤ò¤³¤á¤Æ¾Ð¤Ã¤¿¡£¡ÏÆò¤Ï²æ¤ò¶ò¤«¤À¤È»×¤Ã¤Æ¤¤¤ë¤Î¤«¡£"
                 "¤½¤¦»×¤Ã¤Æ¤¤¤ë¼Ô¤¬¶ò¤«¤Ê¤Î¤À¡£¤³¤ÎÀÐÈǤÏÆò¤ÎÇËÌǤθµ¡¢¤³¤Î»þÂå¤ÎÇËÌǤθµ¤Ç¤¢¤ë¡ª")
            (say knpc "ÇËÌǤϿͤ¬¤½¤ÎÀÀ¤¤¤ò˺¤ì¤¿»þÂ夫¤é»Ï¤Þ¤ë¡£")))
      (begin
        (say knpc "Åð¿Í¤«¡©")
        (if (yes? kpc)
            (say knpc "¤³¤Î»à¤¹¤Ù¤­»þÂå¤Ç¤ÏÅð¿Í¤µ¤¨¤â¼«¤é¤¬Åð¤ó¤À¤â¤Î¤Î²ÁÃͤòÃΤé¤Ê¤¤¡£")
            (say knpc "¤Ê¤é¤ÐÆò¤Ï¶öÁ³ÀÐÈǤò¼ê¤Ë¤·¤¿¤È¤¤¤¦¤Î¤«¡£"
                 "Æò¤é¤Î»þÂå¤Î½ª¤ï¤ê¤Ï¶á¤¤¤À¤í¤¦¡£")))))

(define (lux-age knpc kpc)
  (say knpc "°­Ëâ¤ÎÌ礬Éõ°õ¤µ¤ì¤¿¤È¤­¡¢Ëâ½Ñ»Õ¤¿¤Á¤Î»þÂå¤Ï½ª¤ï¤Ã¤¿¡£"
       "¤½¤ì¤¬²æ¡¢¤³¤Î¥·¥ã¥ë¥É¤òÀ¬Éþ¤·Åý°ì¤·¤¿¼Ô¡¢¥é¥¯¥·¥Þ¥Ë¤Î»þÂå¤Î»Ï¤Þ¤ê¤À¤Ã¤¿¡£"
       "²æ¤Î¸å¤Î»ÙÇÛ¼Ô¤ÏÀ¤Âå¤ò±Û¤¹¤´¤È¤Ë°­¤¯¤Ê¤ê¡¢¤Ä¤¤¤Ë²æ¤ÎÄë¹ñ¤ÏÇÑÔҤȤʤä¿¡£"
       "¤½¤·¤Æ¼º¤ï¤ì¤¿»þÂå¡¢¤³¤Îº£¤¬»Ï¤Þ¤Ã¤¿¡£"
       "Â礤¤Ê¤ëÈëÌ©¤òÃΤꤿ¤¤¤«¡©")
  (if (yes? kpc)
      (say knpc "¤Ê¤é¤ÐÅÁ¤¨¤è¤¦¡£ºÇ¸å¤Î¼é¸î¼Ô¤è¡£")
      (say knpc "\n¡ÎÉô²°¤Ë¶²¤í¤·¤¤¾Ð¤¤À¼¤¬¶Á¤¤¤¿¡£¡Ï\n"
           "¤À¤¬¡¢Æò¤ÏÃΤë¤Ç¤¢¤í¤¦¡£ºÇ¸å¤Î¼é¸î¼Ô¤è¡ª"))
  (say knpc "°­Ëâ¤ÎÌ礬³«¤«¤ì¤¿¤È¤­¡¢¼º¤ï¤ì¤¿»þÂå¤Ï½ª¤ï¤ë¤Ç¤¢¤í¤¦¡£"))

(define (lux-keep knpc kpc)
  (say knpc "Æò¤ÏºÇ¸å¤Î¼é¸î¼Ô¤À¡£ÀÐÈǤò¼ê¤Ë¤·¡¢¤½¤Î°ÕÌ£¤òÃΤ롣"
       "¤µ¤¢Á´¤Æ¤ÎÀÐÈǤÏÆò¤¬¼é¸î¤¹¤Ù¤­¤â¤Î¤À¡£Á´¤Æ¤½¤Î¼ê¤ÎÃæ¤Ë¤¢¤ë¤«¡©")
  (if (yes? kpc)
      (say knpc "¤½¤¦¤Ê¤Î¤À¤Ê¡£Á´¤Æ·¤ï¤Ê¤±¤ì¤ÐÌç¤Ï³«¤«¤Ê¤¤¡£")
      (say knpc "õ¤·½Ð¤»¡£°ì¿Í¤Î̾ÍÀ¤¢¤ë¼Ô¤¬ÃÑ¿«¤«¤é»þÂå¤òµß¤¦¡£"
           "¤â¤Á¤í¤óÈ༫¿È¤ò¡¢¤Ç¤Ï¤Ê¤¤¡£")))

(define (lux-wise knpc kpc)
  (say knpc "¸­¼Ô¡©¡ÎÈà¤Ï¾Ð¤Ã¤¿¡£¡Ï\n"
       "»þÂå¤Î»ÙÇÛ¼Ô¤ËÈ¿µÕ¤¹¤ë¼Ô¤¿¤Á¤è¡ª\n"
       "\n"
       "Àï»Î¤Î¥¢¡¼¥¬¥¹¡¢\n"
       "¡¡¤³¤Î¼Ô¤Ï²æ¤Î·³¤òÂǤÁÉ餫¤·\n"
       "¡¡¤½¤·¤Æ¼«¤é¤Î·³¤òΨ¤¤¤¿\n"
       "Ëâ½Ñ»Õ¤Î¥«¥¤¥ì¥Õ¡¢\n"
       "¡¡¤³¤Î¼Ô¤ÏÈ¿µÕ¼Ô¤ò»Ø´ø¤·\n"
       "¡¡¤½¤·¤Æ²æ¤ÎÍŽѻդ¿¤Á¤Ë»õ¸þ¤«¤Ã¤¿\n"
       "¤Ê¤é¤º¼Ô¤Î¥Ê¡¼¥È¥Ï¥Ã¥¯¥¹¡¢\n"
       "¡¡¤³¤Î¼Ô¤ÎÅð¿Í¤Ï¤ï¤¬Å¨¤ÈÄ̤¸\n"
       "¡¡¤½¤·¤ÆÈëÌ©¤ÎÄÌÏ©¤ò¸«¤Ä¤±½Ð¤·¤¿\n"
       "¿¦¿Í¤Î¥¦¥§¥¤¥ì¥ó¥É¡¢\n"
       "¡¡¤³¤Î¼Ô¤Ï¤ï¤¬ºÖ¤òÁܺ÷¤¹¤ë¼Ô¤Î\n"
       "¡¡ÁõÈ÷¤òÀ°¤¨¤¿\n"
       "\n"
       "²æ¤ÎÇÔË̤ˤâ´Ø¤ï¤é¤º¡¢Èà¤é¤Ï»à¤¹¤Ù¤­Äê¤á¤Ë¤¢¤Ã¤¿¡ª"
       "\n")
  (say knpc "\n¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò´üÂÔ¤ÎÌܤǸ«¤¿¡£¡Ï\n"
       "²¿¡©Èà¤é¤Î̾¤òÃΤé¤Ì¤«¡©")
  (if (yes? kpc)
      (say knpc "¤Ê¤é¤Ð¶Ãò¤»¤è¡£¤ï¤¬ÅÁÀâ¤ò¡ª")
      (begin
        (say knpc
             "\n¡ÎÈà¤ÎÎ䤿¤¤ÌܤÏÅܤê¤Çµ±¤¤¤¿¡£¡Ï\n"
             "¤¢¤¢¡¢¤³¤Î»þÂå¤Î¸­¼Ô¤È¸Æ¤Ð¤ì¤ë¼Ô¤¿¤Á¤ò»Ù»ý¤¹¤ëÊý¤ò¼è¤ë¤Î¤À¤Ê¡£\n"
             "¤³¤Î¤è¤¦¤Ê¤Ä¤Þ¤é¤Ì¼Ô¤ÏÃΤé¤Ì¡£\n"
             "µî¤ì¡¢»à¤¹¤Ù¤­¤â¤Î¤è¡ª")
        (kern-conv-end)
        ))
  )

(define (lux-accu knpc kpc)
  (say knpc "¼ö¤ï¤ì¤¿¼Ô¡©\n"
       "¤½¤ì¤¾¤ì¤Î»þÂå¤Ë¤Ï¡¢¤½¤Î¤è¤¦¤ÊÎϤòµá¤á¤ë¼Ô¡¢"
       "¤½¤Î¤è¤¦¤Ê·Ù¶ç¤äÆ»ÆÁ¤è¤Ã¤ÆÏǤ蘆¤ì¤Ê¤¤¼Ô¤¬¤¤¤ë¡£\n"
       "\n"
       "¤¢¤ë¼Ô¤ÏÌǤܤµ¤ì¡¢"
       "¤Þ¤¿¤¢¤ë¼Ô¤Ï¿¿¤ÎÎϤòÆÀ¤Æ¾¤òÅÛÎì¤Ë¤¹¤ë¡£\n"
       "\n"
       "¤½¤ì¤Ï¤Þ¤µ¤Ë´óÀ¸Ãî¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤¢¤ë¡£")
  )


(define lux-conv
  (ifc basic-conv

       ;; basics
       (method 'default lux-default)
       (method 'hail lux-hail)
       (method 'name lux-name)

       (method 'rune lux-rune)
       (method 'key  lux-rune) ;; A synonym

       (method 'demo lux-gate) ;; A synonym
       (method 'gate lux-gate)

       (method 'wise lux-wise)
       (method 'accu lux-accu)

       (method 'age  lux-age)
       (method 'keep lux-keep)

       ))

(define (mk-luximene)
  (bind 
   (kern-mk-char 
    'ch_lux           ; tag
    "¥é¥¯¥·¥Þ¥Ë"          ; name
    lux-species         ; species
    lux-occ              ; occ
    s_ghost     ; sprite
    faction-men      ; starting alignment
    0 0 0            ; str/int/dex
    0 0              ; hp mod/mult
    0 0              ; mp mod/mult
    max-health ; hp
    -1                   ; xp
    max-health ; mp
    0
    lux-lvl
    #f               ; dead
    'lux-conv         ; conv
    nil           ; sched
    nil              ; special ai
    nil              ; container
    nil              ; readied
    )
   (lux-mk)))

(define (mk-lich-king)
  (let ((kchar 
         (bind 
          (kern-char-force-drop
           (kern-mk-char 
            'ch_lich_king           ; tag
            "¥ê¥Ã¥Á¤Î²¦" ; name
            sp_lich         ; species
            oc_wizard              ; occ
            s_lich     ; sprite
            faction-monster      ; starting alignment
            10 10 10            ; str/int/dex
            10 1              ; hp mod/mult
            0  0              ; mp mod/mult
            max-health ; hp
            -1                   ; xp
            max-health ; mp
            0
            8
            #f               ; dead
            nil              ; conv
            nil             ; sched
            'lich-ai        ; special ai
            (mk-inventory
             (list (list 1 t_morning_star)
                   (list 1 t_armor_chain_4)
                   (list 1 t_chain_coif_4)
                   (list 100 t_gold_coins)
                   (list 3 t_mana_potion)
                   (list 3 t_heal_potion)
                   (list 1 t_lich_skull)
                   (list 1 t_lichs_blood)
                   ))
            nil              ; readied
            )
           #t)
          (lux-mk))))
    (map (lambda (eff) (kern-obj-add-effect kchar eff nil))
         undead-effects)
    kchar))