日本語版

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

;;----------------------------------------------------------------------------
;; Schedule
;;
;; ¥°¥ì¥´¡¼¥ë¤Î¾®²°
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_ilya
               (list 0  0  gh-ilyas-bed   "sleeping")
               (list 6  0  gh-stable      "working")
               (list 7  0  gh-kitchen     "working")
               (list 12 0  gh-table-1     "eating")
               (list 13 0  gh-pasture     "working")
               (list 15 0  gh-all         "idle")
               (list 17 0  gh-table-1     "eating")
               (list 18 0  gh-living-room "idle")
               (list 20 0  gh-ilyas-bed   "sleeping"))

;;----------------------------------------------------------------------------
;; Gob
;;
;; ¥¤¥ê¥¢¤Ë´Ø¤¹¤ëËÁ¸±¤Ï¡¢Èà½÷¤Î²È²¤ò»¦¤·¤¿¥È¥í¥ë¤«¤éƨ¤²¤¿¤È¤­¡¢²È¤ËÃÖ¤­Ëº¤ì
;; ¤¿ÇϤΤ̤¤¤°¤ë¤ß¤òõ¤¹¤³¤È¤Ç¤¢¤ë¡£ËÁ¸±¤Î¥Õ¥é¥°¤ÏÈà½÷¤Îgob¤Ë³ÊǼ¤µ¤ì¤ë¡£
;;----------------------------------------------------------------------------
(define (ilya-mk gave-quest? finished-quest?) 
  (list gave-quest? finished-quest?))
(define (ilya-gave-quest? ilya) (car ilya))
(define (ilya-quest-done? ilya) (cadr ilya))
(define (ilya-give-quest ilya) (set-car! ilya #t))
(define (ilya-finish-quest ilya) (set-car! (cdr ilya) #t))

;;----------------------------------------------------------------------------
;; ¥Ñ¥¹¥«
;;
;; Puska -- ilya's stuffed horse toy -- is a quest item. Nothing special about
;; it really but it is unique and needs its own object type. The object itself
;; is declared in the p_abandoned_cellar constructor. But the type declaration
;; needs to be in a file that is reloaded, so here is as good a place as any.
;;----------------------------------------------------------------------------
(define puska-ifc
  (ifc '()
       (method 'get (lambda (kobj getter)
                      (kern-log-msg "»Ò¶¡¤¬¤Ê¤¯¤·¤¿¤â¤Î¤Ë°ã¤¤¤Ê¤¤¡ª")
                      (kobj-get kobj getter)))))

(mk-obj-type 't_puska "ÇϤΤ̤¤¤°¤ë¤ß" s_toy_horse layer-item puska-ifc)

;;----------------------------------------------------------------------------
;; Quest
;;
;; This is a single response in Ilya's conversation. I've called it our here
;; separately to make it obvious.
;;----------------------------------------------------------------------------
(define (ilya-quest knpc kpc)
  (let ((ilya (kobj-gob-data knpc)))
    (display ilya)(newline)
    (if (ilya-gave-quest? ilya)

        ;; yes - gave quest already
        (if (ilya-quest-done? ilya)
            (say knpc "¥Ñ¥¹¥«¤Ïº£¤È¤Ã¤Æ¤â¹¬¤»¡ª")
            (begin
              (say knpc "¥Ñ¥¹¥«¤Ï¸«¤Ä¤«¤Ã¤¿¡©")
              (if (kern-conv-get-yes-no? kpc)

                  ;; yes - puska found
                  (begin 
                    (say knpc "ÊÖ¤·¤Æ¤¯¤ì¤ë¡©")
                    (if (kern-conv-get-yes-no? kpc)

                        ;; yes - ilya may have puska
                        (if (kern-obj-has? kpc t_puska)

                            ;; yes - player has puska
                            (begin
                              (kern-obj-remove-from-inventory kpc t_puska 1)
                              (say knpc "¤³¤³¡¢¤³¤³¤è¡¢¥Ñ¥¹¥«¡£"
                                   "¤â¤¦°Â¿´¤è¡£¡ÎÈà½÷¤Ï¿¶¤êÊ֤ä¿¡£¡Ï¤¢¤ê¤¬¤È¤¦¡ª¤ªÎ餬¤Ç¤­¤ì¤Ð¤¤¤¤¤±¤ì¤É¡£"
                                   "ÂԤäơ¢¤³¤ì¤ò»ý¤Ã¤Æ¤¤¤Ã¤Æ¡£ËâË¡»È¤¤¤¬»È¤¦¤â¤Î¤À¤Ã¤Æ¡¢¤ªÊ줵¤ó¤¬¸À¤Ã¤Æ¤¿¡£¸«¤Ä¤±¤¿¤È¤­¤Ï¤¤¤Ä¤â¼è¤Ã¤Æ¤¤¤¿¤Î¡£")
                              (ilya-finish-quest ilya)
                              (kern-obj-add-to-inventory kpc nightshade 23)
                              )

                            ;; no - puska not in player inventory
                            (begin
                              (say knpc "¡Îµã¤­¤Ê¤¬¤é¡Ï¤¤¤Ê¤¤¤¸¤ã¤Ê¤¤¡ª")
                              (kern-conv-end)))

                        ;; no - ilya can't have puska
                        (begin
                          (say knpc "Âç¿Í¤Ë¤Ê¤Ã¤¿¤éËâË¡»È¤¤¤Ë¤Ê¤ë¡ª"
                               "¤½¤·¤Æ¤¢¤Ê¤¿¤ò¾Ã¤·Ãº¤Ë¤·¤Æ¤ä¤ë¤Î¡ª")
                          (kern-conv-end))))

                  ;; no - didn't find her yet
                  (begin
                    (say knpc "ÇÀ¾ì¤Î¾ì½ê¤Ï¤ª¤Ü¤¨¤Æ¤ë¡©")
                    (if (kern-conv-get-yes-no? kpc)
                        (say knpc "¤­¤Ã¤È¤½¤³¤Ë¤¤¤ë¤Î¡ª")
                        (say knpc "À¾¤Ø¹Ô¤Ã¤Æ»³Æ»¤òÄ̤ꡢË̤˵֤˹Ԥ±¤Ð¤¢¤ë¤Î¡£"))))))

        ;; no - didn't give quest yet
        (begin
          (say knpc "¥Ñ¥¹¥«¤Ï»ä¤ÎÇϤΤ̤¤¤°¤ë¤ß¤Ê¤Î¡£¤Ç¤â¤Ê¤¯¤·¤Æ¤·¤Þ¤Ã¤¿¡ª"
               "¸«¤Ä¤±¤¿¤é¶µ¤¨¤Æ¤¯¤ì¤ë¡©")
          (if (kern-conv-get-yes-no? kpc)
              (begin
                (say knpc "ÇÀ¾ì¤ÏÀ¾Â¦¤Ø¤ÎÆ»¤ÎË̤ε֤ˤ¢¤ë¤ï¡£"
                     "¥È¥í¥ë¤Ëµ¤¤ò¤Ä¤±¤Æ¡ª")
                (ilya-give-quest ilya))
              (begin
                (say knpc "¥Ñ¥¹¥«¤ò¼è¤Ã¤¿¤ê¤·¤¿¤é¡¢Âç¿Í¤Ë¤Ê¤Ã¤¿¤È¤­¡¢¤¢¤Ê¤¿¤ò¸«¤Ä¤±¤ë¤ï¡£")
                (kern-conv-end)))))))

(define (ilya-join knpc kpc)
  (say knpc "»ä»Ò¶¡¤Ê¤Î¤Ë¡£ÊѤʤΡª")
  )

;;----------------------------------------------------------------------------
;; ưʪ
;;
;; Ilya has an odd relationship with spiders. She'll teach the player a spell
;; to ward off spiders if he plays along. Spiders will dominate the woods
;; around the Abandoned Farm (Ilya's old home). In fact, I intend to have them
;; locked in a battle with the trolls the first time the player enters the
;; Abandoned Farm. I'm planning on having a "great mother" spider known around
;; these parts as Angril or Angriss, perhaps she was one of Ilya's pets as a
;; child - I'm not sure how I want to play that one out yet.
;;----------------------------------------------------------------------------
(define (ilya-animals knpc kpc)
  (say knpc "ÍӤȡ¢Ç­¤Î¥Á¥ã¡¼¥à¤È¡¢·Ü¤ò»ô¤Ã¤Æ¤¤¤ë¤Î¡£"
       "ưʪ¤Ï¹¥¤­¡©")
  (if (kern-conv-get-yes-no? kpc)

      ;; yes - the player likes animals
      (begin
        (say knpc "¤É¤Îưʪ¤¬¹¥¤­¡©")
        (let ((fav (kern-conv-get-string kpc)))
          (if (or (string=? fav "spider") (string=? fav "¥¯¥â"))

              ;; yes - the player's favorite animal is spiders
              (begin
                (say knpc "»ä¤â¡ª¤É¤¦¤¹¤ì¤Ð½±¤ï¤ì¤Ê¤¤¤«ÃΤäƤ¤¤ë¤Î¡£"
                     "¶µ¤¨¤ÆÍߤ·¤¤¡©")
                (if (kern-conv-get-yes-no? kpc)

                    ;; yes - the player wants to learn the spider ward
                    (say knpc "´Êñ¡ªÃØéá¤Î»å¤ÈÂçÉǤòº®¤¼¤Æ¡¢"
                         "¥¢¥ó¡¦¥¼¥ó¡¦¥Ù¥Ã¥È<An Xen Bet>¤È¾§¤¨¤ë¤Î¡£")

                    ;; no - the player does not want to learn the spider ward
                    (say knpc "¤½¤¦¡£¤Ç¤â»þ¡¹¿Í¤ò½±¤¦¤³¤È¤â¤¢¤ë¤Î¤è¡£")))
                    

              ;; no - the player's favorite animal is NOT spiders
              (say knpc "»ä¤Ï¥¯¥â¤¬¹¥¤­¡ª"))))

      ;; no - the player does not like animals
      (say knpc "Éݤ¯¤Ê¤¤¤è¡ª")))

(define (ilya-fire knpc kpc)
  (say knpc "²Ð¤ò¤ª¤³¤¹¤Î¤Ï´Êñ¤Ê¤Î¡£¹õ¿¿¼î¤Èⲫ¤òº®¤¼¤Æ¡Ä"
       "ⲫ¡Ä³¥¤Ï¤É¤³¡©"
       "¤½¤·¤Æ¥ô¥¡¥¹¡¦¥Õ¥é¥à<Vas Flam>¤È¸À¤¦¤Î¡ª"))

(define (ilya-died knpc kpc)
  (say knpc "¥È¥í¥ë¤¬ÇÀ¾ì¤ò½±¤Ã¤¿¤Î¡ª"
       "¤ªÊ줵¤ó¤Ï»ä¤òÃϲ¼¼¼¤Ë±£¤·¤¿¡£"
       "¤½¤·¤Æ¥È¥í¥ë¤¬¿²¤Æ¤¤¤ë´Ö¤ËÈ´¤±½Ð¤·¤¿¡£"
       "¤Ç¤â¡¢¥Ñ¥¹¥«¤ò˺¤ì¤Æ¤·¤Þ¤Ã¤¿¡Ä¡£"))

;;----------------------------------------------------------------------------
;; Conv
;;----------------------------------------------------------------------------
(define ilya-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) (say knpc "ÃΤé¤Ê¤¤¡£")))
       (method 'hail (lambda (knpc kpc) (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£")))
       (method 'bye (lambda (knpc kpc) (say knpc "¥Ð¥¤¥Ð¥¤¡£")))
       (method 'job (lambda (knpc kpc) (say knpc "¤ª¤¸¤¤¤µ¤ó¤Î¼êÅÁ¤¤¤ò¤·¤Æ¤¤¤ë¤Î¡£")))
       (method 'name (lambda (knpc kpc) (say knpc "¥¤¥ê¥¢¡£")))
       (method 'age (lambda (knpc kpc) (say knpc "8ºÐ¡£")))
       (method 'chor (lambda (knpc kpc) (say knpc "ưʪ¤ÎÀ¤Ïäò¤·¤¿¤ê¡¢²Ð¤ò¤ª¤³¤·¤¿¤ê¡¢ÎÁÍý¤·¤¿¤ê¤¹¤ë¤Î¡£")))
       (method 'anim ilya-animals)
       (method 'gran (lambda (knpc kpc) (say knpc "¤ªÉ㤵¤ó¤È¤ªÊ줵¤ó¤¬»à¤ó¤Ç¤·¤Þ¤Ã¤¿¤«¤é¡¢¤ª¤¸¤¤¤µ¤ó¤È½»¤ó¤Ç¤¤¤ë¤Î¡£")))
       (method 'died ilya-died)
       (method 'dead ilya-died)
       (method 'trol (lambda (knpc kpc) (say knpc "¥È¥í¥ë¤ÏÂç·ù¤¤¡ªÂç¿Í¤Ë¤Ê¤Ã¤¿¤é¤ß¤ó¤Ê»¦¤·¤Æ¤·¤Þ¤¤¤¿¤¤¡£")))
       (method 'hate (lambda (knpc kpc) (say knpc "¤¤¤Ä¤«ËâË¡»È¤¤¤Ë¤Ê¤Ã¤Æ¡¢Âç·ù¤¤¤Ê¤¢¤¤¤Ä¤é¤ò»¦¤·¤Æ¤·¤Þ¤¤¤¿¤¤¡ª"
                                              "¤Þ¤¿Æ±¤¸¤³¤È¤¬µ¯¤³¤Ã¤Æ¤âÉݤ¬¤é¤Ê¤¤¤ï¡ª")))
       (method 'afra (lambda (knpc kpc) (say knpc "Ãϲ¼¼¼¤Ë¤¤¤ë¤È¤­Éݤ«¤Ã¤¿¡£"
                                                "¤ªÉ㤵¤ó¤È¤ªÊ줵¤ó¤¬¥È¥í¥ë¤Ë¿©¤Ù¤é¤ì¤¿¤È¤­¡¢¶«¤ÓÀ¼¤¬Ê¹¤³¤¨¤¿¡Ä"
                                                "¡ÎÎÞ¤°¤ó¤Ç¡Ï¤â¤·¸«¤Ä¤«¤Ã¤Æ¤¿¤é¡¢¤­¤Ã¤ÈƱ¤¸¤è¤¦¤Ë¿©¤Ù¤é¤ì¤Æ¤¤¤¿¡Ä¡£")))
       (method 'momm (lambda (knpc kpc) (say knpc "¤ªÊ줵¤ó¤Ï¤â¤¦¤¤¤Ê¤¤¡£²Ð¤Î¤ª¤³¤·Êý¤ò¶µ¤¨¤Æ¤¯¤ì¤¿¤³¤È¤ò»×¤¤½Ð¤¹¡£"
                                               "¥È¥í¥ë¤¬½±¤Ã¤Æ¤­¤¿¤È¤­¡¢°ìɤ¤òdz¤ä¤·¤Æ¤¤¤¿¤ï¡ª")))
       (method 'dadd (lambda (knpc kpc) (say knpc "¤ªÉ㤵¤ó¤Ï¤â¤¦¤¤¤Ê¤¤¡£"
                                               "¥È¥í¥ë¤ÈÀï¤Ã¤¿¤±¤É¡¢¤É¤¦¤¹¤ë¤³¤È¤â¤Ç¤­¤Ê¤«¤Ã¤¿¡£")))
       (method 'pusk ilya-quest)
       (method 'home (lambda (knpc kpc) (say knpc "»äã¤ÎÇÀ¾ì¤ÎË̤ÈÆî¤Ë¤Ï¿¹¤¬¤¢¤Ã¤¿¤Î¡£")))
       (method 'spid (lambda (knpc kpc) (say knpc "¤³¤Î¤¢¤¿¤ê¤Î¿¹¤Ë¤Ï¥¯¥â¤¬¤¿¤¯¤µ¤ó¤¤¤ë¤Ã¤Æ¡¢¤ª¤¸¤¤¤µ¤ó¤¬¸À¤Ã¤Æ¤¿¡£")))
       (method 'wood (lambda (knpc kpc) (say knpc "¿¹¤ËÆþ¤ë¤Ê¤Ã¤Æ¡¢¤ª¤¸¤¤¤µ¤ó¤¬¸À¤Ã¤Æ¤¿¡£")))
       
       (method 'fire ilya-fire)
       (method 'hi ilya-fire)
       (method 'vas ilya-fire)
       (method 'flam ilya-fire)
       (method 'greg (lambda (knpc kpc) (say knpc "»ä¤Î¤ª¤¸¤¤¤µ¤ó¤è¡£")))
       (method 'join ilya-join)
       ))