日本語版

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

;;----------------------------------------------------------------------------
;; Constants
;;----------------------------------------------------------------------------

;;----------------------------------------------------------------------------
;; Schedule
;;
;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_chant
               (list 0  0  trigrave-east-west-road   "drunk")
               (list 2  0  trigrave-chants-bed       "sleeping")
               (list 12 0  trigrave-tavern-hall      "working")
               (list 23 0  trigrave-east-west-road   "drunk")               
               )

;;----------------------------------------------------------------------------
;; Gob
;;
;; Quest flags, etc, go here.
;;----------------------------------------------------------------------------
(define (chant-mk) (list 0))
(define (chant-get-gold knpc) (car (kobj-gob-data knpc)))
(define (chant-has-gold? knpc) (> (chant-get-gold knpc) 0))
(define (chant-set-gold! knpc amount) 
  (if (>= amount 0)
      (set-car! (kobj-gob-data knpc) 
                amount)))
(define (chant-dec-gold! knpc) (chant-set-gold! knpc 
                                                (- (chant-get-gold knpc)
                                                   1)))

;; ----------------------------------------------------------------------------
;; ¥ª¥ó¥É¥ê
;;
;; ¥ª¥ó¥É¥ê¤Ïι¤Î¶ãÍ·»í¿Í¤Ç¿¤¯¤Î»þ´Ö¤ò¥È¥ê¥°¥ì¥¤¥Ö¤Ç²á¤´¤·¤Æ¤¤¤ë¡£Èà¤Ï¤ª¤ª¤é¤«
;; ¤Ê¼«¿®²È¤Ç¡¢À©»ß¤Ç¤­¤Ê¤¤·Ý¿Í¤Ç¤â¤¢¤ë¡£Èà¤Ë¤Ï¿¤¯¤ÎÃÏÍý¤ÎÃ챤¬¤¢¤ê¡¢¤¦¤ï¤µ¤È
;; ½¹Ê¹¤ò°¦¤·¤Æ¤¤¤Æ¡¢ÍÍ¡¹¤Ê¿Èʬ¤Îͧ¿Í(¿ÍÁ°¤Ë¸½¤ì¤Ê¤¤ËâÆ»»Õ¤ò´Þ¤à)¤¬¤¤¤ë¡£¤½¤·¤Æ
;; ¤â¤·¤«¤¹¤ë¤È¡Ö狼¤Î¡×¥¹¥Ñ¥¤¤«¤â¤·¤ì¤Ê¤¤¤¬¡¢¤½¤ì¤Ï¤ï¤«¤é¤Ê¤¤¡£
;; ----------------------------------------------------------------------------
(define (chant-song knpc kpc)
  (if (isdrunk? knpc)
      (say knpc "¤µ¤¢¤ß¤ó¤Ê¤Ç¡ª¢ö¤«¡Á¤â¡Á¤á¡Á¤Î¿åʼ¤µ¤ó¡ª¡Î¥Ò¥Ã¥Ò¥Ã¥Ò¡Ï")
      (begin
        (say knpc "Àé¤Î²Î¤¬Ëͤ䥤¤¤¿¹¢¤È¤¤¤¦Ý£¤Î¸þ¤³¤¦¤ÇÂԤäƤ¤¤ë¡ª"
             "¤â¤·¤«¤¹¤ë¤È¾¯¤·¤Î¶â²ß¤ÇÝ£¤ò²õ¤»¤ë¤«¤â¡©"
             "¡ÎÈà¤Ï´üÂÔ¤¹¤ë¤è¤¦¤Ë¤¢¤Ê¤¿¤ò¸«¤Æ¤¤¤ë¡£Èà¤Ë¤¤¤¯¤é¤«¤Î¶â²ß¤òÍ¿¤¨¤ë¡©¡Ï")
        (if (kern-conv-get-yes-no? kpc)
            ;; yes - give chant some gold
            (let ((amount (kern-conv-get-amount)))
              (display "amount=")(display amount)(newline)
              (cond ((= 0 amount) 
                     (say knpc "¸«¤¨¤Ê¤¤¶â²ß¤Ë¤Ïʹ¤³¤¨¤Ê¤¤²Î¤ò¡ª"
                          "¡ÎÈà¤Ï¥ê¥å¡¼¥È¤òÃƤ¯¤Þ¤Í¤ò¤·¤¿¡£¡Ï"))
                    ((< amount 2)
                     (say knpc "¤¢¤¢¡Ä¤ï¤«¤ê¤Þ¤·¤¿¡£¤¤¤­¤Þ¤¹¤è¡£\n"
                          "\n"
                          "¡¡¢ö ¤È¤Ã¤Æ¤â¥±¥Á¤Ê̤¤¿Í\n"
                          "¡¡¤ª¶â¤ò¤¤¤Ã¤Ñ¤¤Ãù¤á¤È¤­¤¿¤¤\n"
                          "¡¡°¥¤ì¤Ê¥ª¥ó¥É¥ê¤ò¤¢¤¶¾Ð¤Ã¤¿¤Î¤Ç\n"
                          "¡¡¤Ò¤É¤¤²»¤Ç¼ª¤ò¤¤¤Ã¤Ñ¤¤¤Ë¤·¤Æ¤ä¤ë¡ª\n"
                          "\n"
                          "¡ÎÈà¤Ï¹Ó¡¹¤·¤¯ÂçÀ¼¤Ç²Î¤¤¡¢¤ª¤¸¤®¤ò¤·¤¿¡£¡Ï"))
                    (else
                     (say knpc "Ëͤο´¤ÏËþ¤¿¤µ¤ì¤¿¡ª"
                          "¤µ¤¢¡¢¤É¤³¤¬¤¤¤¤¡©¾Â¡¢¿¹¡¢"
                          "¤½¤ì¤È¤â˺¤ì¤é¤ì¤¿¾ì½ê¡©")
                     (chant-set-gold! knpc amount))))
            ;; no -- don't give him some gold
            (say knpc "¥·¥é¥Õ¤Î»í¿Í¤Ïï¤Ë¤â²¿¤â¤·¤Ê¤¤¤Î¤µ¡ª")))))

(define (chant-fen knpc kpc)
  (if (isdrunk? knpc)
      (say knpc "±ø¤Í¤¨¤È¤³¤í¡ª¡Î¥Ò¥Ã¥¯¡Ï")
      (if (not (chant-has-gold? knpc))
          (chant-song knpc kpc)
          (begin
            (chant-dec-gold! knpc)
            (say knpc 
                 "¼¾ÃÏÂÓ\n"
                 "\n"
                 "¡¡¢ö ¤â¤·¤â¤¢¤Ê¤¿¤¬¤ª¹¥¤­¤Ê¤é\n"
                 "¡¡·ì¤òµÛ¤¦Ã¡¡½­¤¤¾Â¤¬\n"
                 "¡¡Í«Ýµ¤Ê¶õ¤¬¡¡¿Í¤°¤é¤¤¤Î¥«¥¨¥ë¤¬\n"
                 "¡¡°­Ëâ¤Îº×ÃŤ¬¡¡Å¥¤¬µÍ¤Þ¤Ã¤¿·¤¤¬\n"
                 "¡¡Ëº¤ì¤é¤ì¤¿·ÙÈ÷Â⤬(¤è¤½¼Ô¤ò·Ù²ü¤·¤Æ¤¤¤ë)\n"
                 "¡¡Æ»¤Ê¤­¹ÓÃϤ¬\n"
                 "¡¡¥ê¥Ã¥Á¤¬¡¡Í©Î\n"
                 "¡¡³¼¹ü¤ÎÀï»Î¤¬¡Ä\n"
                 "¡¡¤½¤¦¤Ê¤é¤Ð¡¡Í§¤è\n"
                 "¡¡Ë̤ξÂÃϤعԤ¯¤¬¤¤¤¤¡ª\n"
                 "¡¡¤½¤³¤Ï¤¢¤Ê¤¿¤Î¾ì½ê¤À")))))

(define (chant-forest knpc kpc)
  (if (isdrunk? knpc)
      (say knpc "Áö¤ì¡Á¡¢¿¹¤ò¡Á¡¢Áö¤ì¡Á¡Î¥Ò¥Ã¥Ò¥Ã¥Ò¡Ï")
      (if (not (chant-has-gold? knpc))
          (chant-song knpc kpc)
          (begin
            (chant-dec-gold! knpc)
            (say knpc 
                 "Åì¤Î¿¹\n"
                 "\n"
                 "¡¡¢ö ¿¹¤ÏÁÇŨ¤Ê¤È¤³¤í¡¡°Å¤¯¤Æ¿¼¤¯¤Æ\n"
                 "¡¡¤¤¤Ä¤Ç¤âµ²¤¨¤Æ¤¤¤ë¡ª\n"
                 "¡¡Î¹¿Í¤ò¤¿¤¯¤µ¤ó¿©¤Ù¤Æ\n"
                 "¡¡¤½¤·¤Æ²¦Íͤâ°û¤ß¹þ¤ó¤À\n"
                 "\n"
                 "¡¡¥´¥Ö¥ê¥ó¤Î½»¤ß²È¤ÈÅð±¤Î±£¤ì²È\n"
                 "¡¡¤½¤·¤ÆµðÂ祯¥â¤ÎÁã\n"
                 "¡¡¿¹¤Ë¹Ô¤¯¤È¤­¤Ï˺¤ì¤ë¤Ê\n"
                 "¡¡¥Î¥í¥Þ¤Ê¥Ð¥«¤òÏ¢¤ì¤Æ¹Ô¤¯¤Î¤ò¡ª\n"
                 )))))

(define (chant-forgotten knpc kpc)
  (if (isdrunk? knpc)
      (say knpc "˺¤ì¤¿¡ª¡ÎÈà¤Ïµã¤­¤Ê¤¬¤é¾Ð¤Ã¤¿¡£¡Ï")
      (if (not (chant-has-gold? knpc))
          (chant-song knpc kpc)
          (begin
            (chant-dec-gold! knpc)
            (say knpc 
                 "¼º¤ï¤ì¤¿ÅÂƲ \n"
                 "\n "
                 "¡¡¢ö ¿¼¤¯¿¼¤¤¤È¤³¤í¤Ç\n"
                 "¡¡¸Å¤­¼Ô¤¬Ìܤò³Ð¤Þ¤¹\n"
                 "¡¡¤³¤Îʪ¸ì¤òÃΤäƤ뤫\n"
                 "¡¡(ʪ¸ì¤Ï¸ì¤é¤ì¤Ê¤«¤Ã¤¿¡£)\n"
                 "¡¡Ë°¤­¤â¤»¤ºËͤϸì¤ë¡ª\n"
                 "\n "
                 "¡Î±éÁÕ¤ò»ß¤á¤¿¡£¡ÏÄ´¤Ù¤Ë¹Ô¤«¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¯¤Ê¤Ã¤¿¤é¡¢"
                 "Æî¤Î±è´ß¤Ø¹Ô¤±¤Ð¤¤¤¤¡£")
                 (if (null? (quest-data-getvalue 'questentry-rune-l 'know-hall))
                        (quest-data-update-with 'questentry-rune-l 'approx-hall 1 (quest-notify nil))
                )
                 ))))

(define (chant-thie knpc kpc)
  (if (isdrunk? knpc)
      (say knpc 
           "¡¡¥Ø¥¤¡¢¤à¤º¤¤¤Ê¤¾¤Ê¤¾\n"
           "¡¡·¯¤Ï¤Þ¤ó¤Ê¤«¤Ë¤¤¤ë¡ª\n"
           "¡¡¥«¥ë¥·¥Õ¥¡¥¯¥¹¤¬·î¤Ë¸þ¤«¤Ã¤ÆÈô¤ÓÄ·¤Í¤ë\n"
           "¡¡¤½¤ì¸«¤Æ»àÎî½Ñ»Õ¤¬¾Ð¤¦\n"
           "¡¡¤½¤·¤ÆÅ¥ËÀ¤ÏÀÐÈǤòÅð¤ó¤ÇÁö¤ê½Ð¤¹¡ª")
      (say knpc "¤Þ¡¼¤Á¤ã¤ó¤Ï·¯¤Ëõ¤µ¤»¤¿¡©Å¥ËÀ¤Ï¤³¤ÎÄ®¤òÈò¤±¤Æ¤¤¤Ã¤¿¤Ï¤º¤À¡£"
           "¤Ç¤â¡¢Î¹¿Í¤Ï¸«¤¿¤«¤â¤·¤ì¤Ê¤¤¡£¥°¥Ù¥ó¤Ëʹ¤¤¤Æ¤ß¤Ê¤è¡£")))

(define (chant-man knpc kpc)
  (if (isdrunk? knpc)
      (begin
        (say knpc "¤Ê¤¢¡ªÈëÌ©¤ò¼é¤ì¤ë¤«¤¡¡©")
        (if (yes? knpc)
            (begin
              (say knpc "¤Ë¤ó¤²¤ó¤ÏÈëÌ©¤Îƶ·¢¤Ë¤¤¤ë¡£¤É¤³¤«ÃΤäƤ뤫¤¡¡©")
              (if (yes? kpc)
                  (say knpc "²¶Íͤâ¤À¤¡¡ª¡Î¥Ò¥Ã¥Ò¥Ã¥Ò¡ª¡Ï")
                  (say knpc "[" 
                       (loc-x the-mans-hideout-loc) "," 
                       (loc-y the-mans-hideout-loc) 
                       "]¤Î»³¤ÏËÜÅö¤Î»³¤¸¤ã¤Í¤¨¡ª¹Ô¤Ã¤Æ¤Ó¤Ó¤é¤»¤Æ¤ä¤ì¡ª")))
            (say knpc "²¶Íͤâ¤Ç¤­¤Í¤§¡ª¡ÎÈà¤ÏÉ¡¤òÌĤ餷¤¿¡£¡Ï")))
      (say knpc "¤Ë¤ó¤²¤ó¡©¤Ë¤ó¤²¤ó¤Î¤³¤È¤ÏÃΤé¤Ê¤¤¤Ê¤¢¡£¤Ê¤¼ËͤËʹ¤¯¤Î¡©")))

(define chant-conv
  (ifc basic-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) 
                 (if (isdrunk? knpc)
                     (say knpc "¿ì¤Ã¤Æ¤¤¤ë¤ó¤À¤¡¡Ä¡Î¥Ò¥Ã¥¯¡Ï")
                     (say knpc "º¤¤Ã¤¿¤Ê¤¢¡£"))))
       (method 'hail 
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "¡Î¿ì¤Ã¤Ñ¤é¤¤¤Ê¤¬¤é¡Ï¾Ð¤Ã¤Æ¡¢¥Á¡Á¥º¡ª")
                     (say knpc "¤è¤¦¤³¤½¡¢¤ï¤¬Í§¤è¡ª"))))
       (method 'bye 
               (lambda (knpc kpc) 
                 (if (isdrunk? knpc)
                 (say knpc "¥Ð¥Ð¥Ð¥Ð¥¤¥Ð¥¤¡Î¾Ð¤¤¤Ê¤¬¤é¡Ï")
                 (say knpc "Æ»¤¬·¯¤Î­¤Ë¥­¥¹¤·¤Þ¤¹¤è¤¦¤Ë¡ª"))))
       (method 'job 
               (lambda (knpc kpc) 
                 (if (isdrunk? knpc)
                     (say knpc "¡Î¤ª¤ª¤²¤µ¤Ê¿È¿¶¤ê¤Ç¡¢Èà¤Ï¼«Ê¬¤ÎÌܤò»Øº¹¤·¡¢"
                          "¼ª¤ò»Øº¹¤·¡¢¤½¤·¤Æ¸ý¤òºÉ¤°Æ°ºî¤ò¤·¤Æ¡¢"
                          "¤¹¤Þ¤·´é¤Ç¤¦¤Ê¤º¤­¡¢¥¦¥£¥ó¥¯¤·¤¿¡£¡Ï")
                     (say knpc "ÃηäȲΤα¿¤Ó¼ê¤µ¡ª"))))
       (method 'name 
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "¥ª¥ó¥É¥ê¡ª¡Î¤ª¤¸¤®¤ò¤·¤è¤¦¤È¤·¤ÆÅݤ줿¡£¡Ï")
                     (say knpc "¶ãÍ·»í¿Í¤Î¥ª¥ó¥É¥ê¡¢¤Ê¤ó¤Ç¤â¤É¤¦¤¾¡£"
                          "¡Î¤ª¤¸¤®¤ò¤·¤¿¤¢¤ÈÉñ¤Ã¤¿¡£¡Ï"))))
       (method 'join 
               (lambda (knpc kpc) 
                 (if (isdrunk? knpc)
                     (say knpc "°û¤ßÃç´Ö¤«¤¡¡©"
                          "ÂԤäƤޤ·¤¿¤¡¡ª")
                     (say knpc "ι¤ò¤¹¤ë»í¿Í¤¬¤¤¤ì¤Ð¡¢Çî³Ø¤Ê¼Ô¤â¤¤¤ë¡£"
                          "Ëͤϸå¤ÎÊý¤Ê¤Î¤µ¡£"))))

       (method 'chan
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "¡Î¥Ò¥Ã¥¯¡ª¡Ï¢öµã¤­¤¸¤ç¤¦¤´¤Î¡¢°û¤ó¤À¤¯¤ì¤Î¡¢¥Ð¥«ÌîϺ¤Ï¤À¤¢¤ì¤À¤¡\n"
                          "郎½Ã¤Î»Ò¤òË«¤á¤ë¤â¤Î¤«¡Ä")
                     (say knpc "\n"
                          "\n"
                          "¡¡¢ö ¤«¤·¤³¤¤¡¢¤¹¤Æ¤­¤Ê»í¿Í¤Ï¤À¤¢¤ì¡©\n"
                          "¡¡²Î¤¦¤è¤Ë¥ê¥å¡¼¥È¤òÃƤ¯¤Î¤Ï¤À¤¢¤ì¡©\n"
                          "¡¡Èà½÷¤Î±¿Ì¿¤Î¤ªÏäòÏ乤À¤í¤¦¤«¡¢\n"
                          "¡¡»à¤¹¤Ù¤­±¿Ì¿¤¬¾å¼ê¤Ê±³¤Ê¤é¡©"))))
       (method 'earl
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "¤¢¤ó¤Ê¥Ü¥±¤¿Åۤϸ«¤¿¤³¤È¤Í¤§¡ª")
                     (say knpc 
                          "Ëͤé¤Î¤¹¤Ð¤é¤·¤¤Å¹¼ç¡Ä\n"
                          "\n"
                          "¡¡¢ö ÀΤϱê¤Î¼ç¤À¤Ã¤¿ \n"
                          "¡¡Àï¤Ç̾¤ò¾å¤²¤¿ \n"
                          "¡¡¤Ç¤â¡¢¸«¤Æ¤ÎÄ̤ê \n"
                          "¡¡°­¤¤ËâË¡¤Ë¼ê¤ò½Ð¤·¤Æ \n"
                          "¡¡º£¤¸¤ã̾Á°¤â»×¤¤½Ð¤»¤Ê¤¤¡ª"
                          ))))

       (method 'ench
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "¤Þ¡¼¤Á¤ã¤ó¡ªÅã¤ÎÃæ¤ÇºÂ¤Ã¤Æ¡¢"
                          "ËâË¡¿Ø¤òÉÁ¤­¤Ê¤¬¤éÌ¿Îᤷ¤Æ¤¤¤¿¤Ê¤¡¡ª")
                     (say knpc 
                          "ËâÆ»»Õ¤ÎÅã¤Ëι¤¹¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¤è¡£"))))
       (method 'gwen
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤Ë¤â¤¿¤ì¤«¤«¤ê¡¢ÂçÀ¼¤Ç¸À¤Ã¤¿¡£¡Ï"
                          "²¿¤ÇËâ½÷¤Ï·õ¤ò»ý¤Ã¤Æ¤ë¤ó¤À¤í¤¦¤Í¤§¡©")
                     (say knpc
                          "¤¢¤¢¡¢Æ濤­½É²°¤Î½÷¼ç¿Í¡Ä\n"
                          "\n"
                          "¡¡¢ö ³¥¿§¤ÎÈ·¤¬ÎÞ¤òή¤¹¤È¤­\n"
                          "¡¡À¤³¦¤¬¤ß¤Ê̲¤ë\n"
                          "¡¡³¤¤«¤é̸¤Î¤è¤¦¤ËË´Î¸½¤ì¤ë¤È¤­\n"
                          "¡¡¥Õ¥¯¥í¥¦¤Ï·îÌÀ¤«¤ê¤ÎÃæ\n"
                          "¡¡ÀŤ«¤ÊÌë¤Ë¿Ò¤Í¤è\n"
                          "¡¡Åú¤¨¤ÏÈà½÷¤¬ÃΤäƤ¤¤ë¡ª"))))
       (method 'fen chant-fen)
       (method 'fore chant-forest)
       (method 'wood chant-forest)
       (method 'forg chant-forgotten)
       (method 'jim
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "µ³»Î¤Î΢ÊÖ¤·¤µ¤¡¡ª¡Î¥²¥Ã¥×¡ª¡Ï")
                     (say knpc
                          "¤ª¤Ã¤È¡ª¤³¤ó¤Ê¤¦¤ï¤µ¤â¤¢¤ê¤Þ¤¹¤è¡ª\n"
                          "\n"
                          "¡¡¢ö »ÄµÔ¤ÈàØÌÔ\n"
                          "¡¡¤½¤ì¤¬¤¹¤Ð¤é¤·¤­¥¸¥à\n"
                          "¡¡³»¤Ï·ì¤ÇǨ¤ì¤Æ¤¤¤ë\n"
                          "¡¡¸Ê¤¬¼ç¤òÂǤÁÅݤ·\n"
                          "¡¡½â¤ÎÌæ¾Ï¤ò¤«¤­¾Ã¤¹\n"
                          "¡¡¤½¤·¤Æ¼ö¤ï¤ì¤¿Å¹¤Ë¾Ã¤¨¤¦¤»¤ë\n"
                          ))))
       (method 'roun
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "¤½¤¦¡ª²¶Íͤϸ«Ä¥¤Ã¤Æ¤¤¤¿¡£"
                          "¤¢¤¤¤Ä¤é¤Ëµ¤¤ò¤Ä¤±¤í¡Ä")
                     (say knpc "²¿¤Ç¤½¤ó¤Ê¤³¤È¤òʹ¤¯¤Î¡ª¡©"))))
       (method 'song chant-song)
       (method 'them
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "¡Î¤µ¤µ¤ä¤­¡Ï¤¢¤¤¤Ä¤é¡ª¸­¼Ô¤ÎŨ¤µ¤¡¡ª¥·¡¼¥Ã¡ª")
                     (say knpc "¡Îµ¿¤¦¤è¤¦¤Ë¤¢¤Ê¤¿¤ò¸«¤¿¡£¡Ï"
                          "¤À¤¤¤¸¤ç¤¦¤Ö¤«¤¤¡©"))))
       (method 'thie chant-thie)
       
       (method 'towe
               (lambda (knpc kpc)
                 (if (isdrunk? knpc)
                     (say knpc "Í«¤¦¤Ä¤Ê¤È¤³¤í¤µ¤¡¡ª")
                     (say knpc
                          "Ë̤μ¾ÃÏÂӤǸ«¤é¤ì¤Þ¤¹¤è¡£"
                          "¤Ç¤â¤½¤³¤Ø¹Ô¤­¤¿¤¤¤Î¤Ê¤é¡¢"
                          "ËâÆ»»Õ¤ÏÍèµÒ¤ò¹¥¤Þ¤Ê¤¤¤³¤È¤ò³Ð¤¨¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¡ª"))))

       (method 'wit
               (lambda (knpc kpc)
                 (say knpc "¤¦¡¼¤ó¡¢ËÜÅö¤Ï¤¿¤À¤Î¤¦¤ï¤µÏ䵡£"
                      "̾Á°¤ò¸À¤¨¤Ð¡¢¤½¤Î¿Í¤Î¤¦¤ï¤µ¤òʹ¤«¤»¤Þ¤¹¤è¡£")))
       (method 'lost
               (lambda (knpc kpc)
                 (say knpc "¤¨¤¨¡¢¤³¤ÎÅÁÀâŪ¤Ê¼º¤ï¤ì¤¿ÅÂƲ¤Î²Î¤òÃΤé¤Ê¤±¤ì¤Ð¡¢Ëͤ϶ãÍ·»í¿Í¤Ë¤Ï¤Ê¤é¤Ê¤«¤Ã¤¿¤Ç¤·¤ç¤¦¤Í¡ª")))
       (method 'man chant-man)
       (method 'wrog chant-man)
       ))