日本語版

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

;;----------------------------------------------------------------------------
;; Schedule
;;
;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_earl
               (list 0  0  trigrave-earls-bed        "sleeping")
               (list 5  0  trigrave-tavern-table-3a  "eating")
               (list 6  0  trigrave-earls-counter    "working")
               (list 12 0  trigrave-tavern-table-3a  "eating")
               (list 13 0  trigrave-earls-counter    "working")
               (list 18 0  trigrave-tavern-table-3a  "eating")
               (list 19 0  trigrave-tavern-hall      "idle")
               (list 20 0  trigrave-earls-room       "idle")
               (list 21 0  trigrave-earls-bed        "sleeping")
               )

;;----------------------------------------------------------------------------
;; Gob
;;
;; Quest flags, etc, go here.
;;----------------------------------------------------------------------------
(define (earl-mk) nil)

;;----------------------------------------------------------------------------
;; Conv
;;
;; ¥¤¥¢¥ë¤ÏŹ¼ç¤Ç¡¢»Å»ö¤ò¤·¤Æ¤¤¤ë»þ´Ö¤Ê¤é¤Ð¼è¤ê°ú¤­¤Ç¤­¤ë¡£
;;----------------------------------------------------------------------------
(define earl-merch-msgs
  (list "³«¤¤¤Æ¤ë¤È¤­¤ËŹ¤ËÍè¤È¤¯¤ì¡£²¶¤Î¾®´Öʪ²°¤ÏÆîÀ¾¤Î³Ñ¤Ë¤¢¤Ã¤Æ¡¢¸áÁ°6»þ¤«¤é¸á¸å6»þ¤Þ¤Ç¤ä¤Ã¤Æ¤ë¡£"
        "ÃÖ¤¤¤Æ¤ëʪ¤ò¸«¤»¤Æ¤ä¤í¤¦¡£"
        "¤¨¡¼¡¢¤¢¤¢¡¢Çä¤ê¤¿¤¤Êª¤ò¸«¤»¤È¤¯¤ì¡£"
        "¤³¤Ã¤Á¤ËÍè¤Æ¸«¤Æ¤¯¤ì¡£"
        "¥¤¥¢¥ë¤ÎŹ¤ÇÇã¤Ã¤¿¤â¤Î¤À¤Èͧã¤Ë¸À¤Ã¤È¤¤¤Æ¤¯¤ì¡£"
        "¸«¤ë¤À¤±¤«¤¤¡©¤Þ¤¢¤¤¤¤¤ä¡£"
        "ÃÖ¤¤¤È¤¤¤Æ¸å¤Ç¤­¤ì¤¤¤Ë¤¹¤ë¤è¡£"
        "Çä¤ê¤¿¤¤Êª¤¬¤¢¤Ã¤¿¤é¤Þ¤¿Íè¤È¤¯¤ì¡£"
        "¤â¤¦¤¤¤¤¤Î¤«¤¤¡©¤Þ¤¢¹¥¤­¤Ë¤·¤Ê¤è¡£"
        "¤Þ¤À²¿¤«¤¢¤Ã¤¿¤é¸À¤Ã¤È¤¯¤ì¡£"
   ))

(define earl-catalog
  (list
   (list t_torch               5 "̵ܤαü¤Ç¾¾ÌÀ¤òÀڤ餻¤¿¤¯¤Ê¤¤¤À¤í¤¦¡©")
   (list t_sling              50 "ÅêÀÐɳ¤ÏÃƤòÇ㤤¤¿¤¯¤Ê¤¤¥±¥Á¤ÊÅۤˤԤ俤ê¤À¡£")
   (list t_staff              25 "¾ó¤Î¤Ê¤¤ËâË¡»È¤¤¤ÏËʤ¨¤Ê¤¤¸¤¤ß¤¿¤¤¤Ê¤â¤ó¤À¡£")
   
   (list t_heal_potion        22 "±þµÞÍѤȤ·¤Æ¤¿¤¯¤µ¤ó¤¤¤ë¤Ï¤º¤À¡£")
   (list t_cure_potion        22 "Ë̤ظþ¤«¤¦¡©¼¾ÃÏÂӤ˹Ԥ¯¤È¤­¤Ï¤¤¤¯¤Ä¤«»ý¤Ã¤Æ¤ª¤¤¤¿¤Û¤¦¤¬¤¤¤¤¡£")
   (list t_mana_potion        22 "ËâÎϤò»È¤¤²Ì¤¿¤·¤ÆµÙ·Æ¤â¤Ç¤­¤Ê¤¤¤È¤­¤Ï¤³¤ì¤À¡£")
   
   (list t_arrow               1 "µÝ¤ò»ý¤Ã¤Æ¤¤¤ì¤Ð¡¢Ìð¤¬Â¿¤¹¤®¤ë¤È¤¤¤¦¤³¤È¤Ï¤Ê¤¤¡£")
   (list t_bolt                1 "¤³¤Î¤¢¤¿¤ê¤Ç°ìÈְ¤¤¥¯¥í¥¹¥Ü¥¦¤ÎÌð¤À¡£")
   (list t_smoke_bomb          3 "¤³¤Î±ìËëÃƤòŨ¤Î¼Í¼ê¤ËÅꤲ¤ì¤Ð¡¢Áê¼ê¤Ï¤³¤Á¤é¤¬¸«¤¨¤Ê¤¯¤Ê¤ë¤À¤í¤¦¡£")
   
   (list t_shovel             50 "Ëä¤â¤ì¤¿Êõ¤ò¸«¤Ä¤±¤¿¤é¤³¤Î¥·¥ã¥Ù¥ë¤¬¤¤¤ë¤À¤í¤¦¡£")
   (list t_pick               50 "¤Ä¤ë¤Ï¤·¤ÏÆ»¤òºÉ¤°´ä¤ò²õ¤¹¤¿¤á¤Ë¤ÏÀäÂФËɬÍפÀ¡£")
   
   (list t_sextant           500 "ÈëÌô¤ä´¬Êª¤Ê¤·¤Ç¹ÓÌî¤Ç¤Îµï¾ì½ê¤¬¤ï¤«¤ë¡£")
   (list t_chrono            300 "¤³¤Î¾®¤µ¤Ê»þ·×¤¬¤¢¤ì¤Ð¡¢Ãì»þ·×¤¬¤Ê¤¤½ê¤Ç¤â»þ¹ï¤¬¤ï¤«¤ë¡£")
   (list t_grease             23 "¤Ê¤é¤º¼Ô¤Ï¤³¤ì¤¬¹¥¤­¤À¡£¤Ê¤¼¤«¤Ïʹ¤¯¤Ê¡£")
   ))

(define (earl-trade knpc kpc) (conv-trade knpc kpc "trade" earl-merch-msgs earl-catalog))

(define earl-conv
  (ifc trigrave-conv
       ;; default if the only "keyword" which may (indeed must!) be longer than
       ;; 4 characters. The 4-char limit arises from the kernel's practice of
       ;; truncating all player queries to the first four characters. Default,
       ;; on the other hand, is a feature of the ifc mechanism (see ifc.scm).
       (method 'default (lambda (knpc kpc) (say knpc "˺¤ì¤¿¤Ê¤¢¡£")))
       (method 'hail (lambda (knpc kpc) (say knpc "¤¤¤é¤Ã¤·¤ã¤¤¡¢¸«ÃΤé¤ÌÊý¡£")))
       (method 'bye (lambda (knpc kpc) (say knpc "¤¢¤¢¡¢¤¢¤ó¤¿¤ÈÏ䷤Ƥ¿¤ó¤À¤Ã¤±¡©")))
       (method 'job (lambda (knpc kpc) (say knpc "¤³¤ÎŹ¤ò¤ä¤Ã¤Æ¤ë¡£²¿¤«¤¤¤ë¤«¤¤¡©")
                            (if (kern-conv-get-yes-no? kpc)
                                (earl-trade knpc kpc)
                                (say knpc "¤½¤¦¡£"))))
       (method 'name (lambda (knpc kpc) (say knpc "¡ÎÈà¤Ï¤·¤Ð¤é¤¯¹Í¤¨¹þ¤ó¤À¡£¡Ï¥¤¥¢¥ë¡ª¤½¤¦¡ª")))
       (method 'buy (lambda (knpc kpc) (conv-trade knpc kpc "buy"  earl-merch-msgs earl-catalog)))
       (method 'sell (lambda (knpc kpc) (conv-trade knpc kpc "sell"  earl-merch-msgs earl-catalog)))
       (method 'trad earl-trade)
       (method 'join (lambda (knpc kpc) (say knpc "ÃÙ¤¹¤®¤ë¤è¡ª¼öʸ¤Ï¤ß¤ó¤Ê˺¤ì¤Á¤Þ¤Ã¤¿¡£")))

       (method 'batt
               (lambda (knpc kpc)
                 (say knpc "¤½¤¦¤À¡£¥ª¥ì¤Ï¥«¥ë¥ô¥£¥ó²¦¤È°ì½ï¤Ë¥´¥Ö¥ê¥ó¤É¤â¤Î·²¤ì¤ÈÀï¤Ã¤¿¤Î¤µ¡ª")))
       (method 'calv
               (lambda (knpc kpc)
                 (say knpc "¤«¤Ä¤Æ¤ÎÉð¾­¡ª"
                      "¥«¥ë¥ô¥£¥ó¤Ï³¥¿§¤Î³¤¤«¤éË̤Îü¤Þ¤ÇÁ´¤Æ¤òÀ¬Éþ¤·¤¿¤ó¤À¡ª")))
       (method 'hord
               (lambda (knpc kpc)
                 (say knpc "¤¢¤Î¤³¤í¥´¥Ö¥ê¥ó¤É¤â¤Ï°ì¿Í¤Î¼óĹ¤Î²¼¤Ç·ë«¤·¤Æ¤¤¤¿¡£"
                      "¤½¤·¤Æ¡¢¤³¤ÎȾÅç¤Ç˽¤ì¤Æ¤¤¤¿¡ª"
                      "¥«¥ë¥ô¥£¥ó²¦¤¬¥ä¥Ä¤é¤òÅݤ·¤Æ¤«¤é¤Ï¥Ð¥é¥Ð¥é¤Ë¤Ê¤ê¡¢µÖ¤Ë±£¤ì¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£"
                      "Îò»Ë¤Ë¤Ï»Ä¤Ã¤Æ¤Ê¤¤¤¬¤Ê¡ª")))
       (method 'mage
               (lambda (knpc kpc)
                 (say knpc "ËâË¡¤Ï¤ß¤ó¤Ê˺¤ì¤¿¡£¾ó¤â¤Ê¤¯¤·¤¿¡ª"
                      "ÀΤϷ³Ââ¤ò´Ý¤´¤ÈÅݤ»¤ë¼öʸ¤òÃΤäƤ¿¤µ¡£")))
       (method 'spel
               (lambda (knpc kpc) 
                 (say knpc "ËâË¡»È¤¤¤È¤·¤ÆÀï¤Ã¤Æ¤¿¤ó¤À¤è¡£ÂçÀΤµ¡£")))
       (method 'thie
               (lambda (knpc kpc)
                 (say knpc "²ø¤·¤¤¥ä¥Ä¤¬À¾¤Øƨ¤²¤Æ¤Ã¤¿¡ª¤¤¤ä¡¢Æî¤À¡ª¤¤¤ä¡Ä¡¢¤¢¤¢¡¢¥¯¥½¥Ã¡¢»×¤¤½Ð¤»¤Í¤¨¡£")))
       ))