;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Gregor's Hut".
+;; ¥°¥ì¥´¡¼¥ë¤Î¾®²°
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_ilya
(list 0 0 gh-ilyas-bed "sleeping")
;;----------------------------------------------------------------------------
;; Gob
;;
-;; Ilya's quest is to find her stuffed horse, which she left behind at the
-;; homestead when she fled the trolls that killed her family. The quest flags
-;; are stored in her gob.
+;; ¥¤¥ê¥¢¤Ë´Ø¤¹¤ëËÁ¸±¤Ï¡¢Èà½÷¤Î²È²¤ò»¦¤·¤¿¥È¥í¥ë¤«¤éƨ¤²¤¿¤È¤¡¢²È¤ËÃ֤˺¤ì
+;; ¤¿ÇϤΤ̤¤¤°¤ë¤ß¤òõ¤¹¤³¤È¤Ç¤¢¤ë¡£ËÁ¸±¤Î¥Õ¥é¥°¤ÏÈà½÷¤Îgob¤Ë³ÊǼ¤µ¤ì¤ë¡£
;;----------------------------------------------------------------------------
(define (ilya-mk gave-quest? finished-quest?)
(list gave-quest? finished-quest?))
(define (ilya-finish-quest ilya) (set-car! (cdr ilya) #t))
;;----------------------------------------------------------------------------
-;; Puska
+;; ¥Ñ¥¹¥«
;;
;; 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
(define puska-ifc
(ifc '()
(method 'get (lambda (kobj getter)
- (kern-log-msg "Some child probably misses this toy!")
+ (kern-log-msg "»Ò¶¡¤¬¤Ê¤¯¤·¤¿¤â¤Î¤Ë°ã¤¤¤Ê¤¤¡ª")
(kobj-get kobj getter)))))
-(mk-obj-type 't_puska "stuffed toy horse" s_toy_horse layer-item puska-ifc)
+(mk-obj-type 't_puska "ÇϤΤ̤¤¤°¤ë¤ß" s_toy_horse layer-item puska-ifc)
;;----------------------------------------------------------------------------
;; Quest
;; yes - gave quest already
(if (ilya-quest-done? ilya)
- (say knpc "Puska is happy now!")
+ (say knpc "¥Ñ¥¹¥«¤Ïº£¤È¤Ã¤Æ¤â¹¬¤»¡ª")
(begin
- (say knpc "Did you find Puska yet?")
+ (say knpc "¥Ñ¥¹¥«¤Ï¸«¤Ä¤«¤Ã¤¿¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - puska found
(begin
- (say knpc "May I have her please?")
+ (say knpc "ÊÖ¤·¤Æ¤¯¤ì¤ë¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - ilya may have puska
;; yes - player has puska
(begin
(kern-obj-remove-from-inventory kpc t_puska 1)
- (say knpc "There, there, puska. "
- "You're safe with me. [She turns to you] Thank you so much! I wish I could pay you. "
- "Wait, take these, Mommy said wizards use them, so I pick them whenever I can.")
+ (say knpc "¤³¤³¡¢¤³¤³¤è¡¢¥Ñ¥¹¥«¡£"
+ "¤â¤¦°Â¿´¤è¡£¡ÎÈà½÷¤Ï¿¶¤êÊ֤ä¿¡£¡Ï¤¢¤ê¤¬¤È¤¦¡ª¤ªÎ餬¤Ç¤¤ì¤Ð¤¤¤¤¤±¤ì¤É¡£"
+ "ÂԤäơ¢¤³¤ì¤ò»ý¤Ã¤Æ¤¤¤Ã¤Æ¡£ËâË¡»È¤¤¤¬»È¤¦¤â¤Î¤À¤Ã¤Æ¡¢¤ªÊ줵¤ó¤¬¸À¤Ã¤Æ¤¿¡£¸«¤Ä¤±¤¿¤È¤¤Ï¤¤¤Ä¤â¼è¤Ã¤Æ¤¤¤¿¤Î¡£")
(ilya-finish-quest ilya)
(kern-obj-add-to-inventory kpc nightshade 23)
)
;; no - puska not in player inventory
(begin
- (say knpc "[Sob] You don't have her!")
+ (say knpc "¡Îµã¤¤Ê¤¬¤é¡Ï¤¤¤Ê¤¤¤¸¤ã¤Ê¤¤¡ª")
(kern-conv-end)))
;; no - ilya can't have puska
(begin
- (say knpc "When I grow up I'll be a sorceress! "
- "And I'LL BURN YOU TO A CRISP!")
+ (say knpc "Âç¿Í¤Ë¤Ê¤Ã¤¿¤éËâË¡»È¤¤¤Ë¤Ê¤ë¡ª"
+ "¤½¤·¤Æ¤¢¤Ê¤¿¤ò¾Ã¤·Ãº¤Ë¤·¤Æ¤ä¤ë¤Î¡ª")
(kern-conv-end))))
;; no - didn't find her yet
(begin
- (say knpc "Do you remember where our farm was?")
+ (say knpc "ÇÀ¾ì¤Î¾ì½ê¤Ï¤ª¤Ü¤¨¤Æ¤ë¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "She must be there somewhere!")
- (say knpc "West through the pass, then north against the hills."))))))
+ (say knpc "¤¤Ã¤È¤½¤³¤Ë¤¤¤ë¤Î¡ª")
+ (say knpc "À¾¤Ø¹Ô¤Ã¤Æ»³Æ»¤òÄ̤ꡢË̤˵֤˹Ԥ±¤Ð¤¢¤ë¤Î¡£"))))))
;; no - didn't give quest yet
(begin
- (say knpc "Puska is my stuffed horse. But I lost her! "
- "If you find her will you tell me?")
+ (say knpc "¥Ñ¥¹¥«¤Ï»ä¤ÎÇϤΤ̤¤¤°¤ë¤ß¤Ê¤Î¡£¤Ç¤â¤Ê¤¯¤·¤Æ¤·¤Þ¤Ã¤¿¡ª"
+ "¸«¤Ä¤±¤¿¤é¶µ¤¨¤Æ¤¯¤ì¤ë¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Our farm was west through the pass, then north against the hills. "
- "Watch out for the trolls!")
+ (say knpc "ÇÀ¾ì¤ÏÀ¾Â¦¤Ø¤ÎÆ»¤ÎË̤ε֤ˤ¢¤ë¤ï¡£"
+ "¥È¥í¥ë¤Ëµ¤¤ò¤Ä¤±¤Æ¡ª")
(ilya-give-quest ilya))
(begin
- (say knpc "If you keep her I will find you when I grow up.")
+ (say knpc "¥Ñ¥¹¥«¤ò¼è¤Ã¤¿¤ê¤·¤¿¤é¡¢Âç¿Í¤Ë¤Ê¤Ã¤¿¤È¤¡¢¤¢¤Ê¤¿¤ò¸«¤Ä¤±¤ë¤ï¡£")
(kern-conv-end)))))))
(define (ilya-join knpc kpc)
- (say knpc "I'm just a little girl, silly!")
+ (say knpc "»ä»Ò¶¡¤Ê¤Î¤Ë¡£ÊѤʤΡª")
)
;;----------------------------------------------------------------------------
-;; Animals
+;; ưʪ
;;
;; 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
;; child - I'm not sure how I want to play that one out yet.
;;----------------------------------------------------------------------------
(define (ilya-animals knpc kpc)
- (say knpc "We have some sheep, and Charm the cat, and some chickens. "
- "Do you like animals?")
+ (say knpc "ÍӤȡ¢Ç¤Î¥Á¥ã¡¼¥à¤È¡¢·Ü¤ò»ô¤Ã¤Æ¤¤¤ë¤Î¡£"
+ "ưʪ¤Ï¹¥¤¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - the player likes animals
(begin
- (say knpc "What's your favorite animal?")
- (let ((fav (kern-conv-get-reply kpc)))
- (if (eq? fav 'spid)
+ (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 "Mine too! I know how to make them harmless. "
- "Want me to teach you?")
+ (say knpc "»ä¤â¡ª¤É¤¦¤¹¤ì¤Ð½±¤ï¤ì¤Ê¤¤¤«ÃΤäƤ¤¤ë¤Î¡£"
+ "¶µ¤¨¤ÆÍߤ·¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - the player wants to learn the spider ward
- (say knpc "It's easy! Mix spider silk and garlic, "
- "and chant An Xen Bet.")
+ (say knpc "´Êñ¡ªÃØéá¤Î»å¤ÈÂçÉǤòº®¤¼¤Æ¡¢"
+ "¥¢¥ó¡¦¥¼¥ó¡¦¥Ù¥Ã¥È<An Xen Bet>¤È¾§¤¨¤ë¤Î¡£")
;; no - the player does not want to learn the spider ward
- (say knpc "Ok, but they sometimes attack people.")))
+ (say knpc "¤½¤¦¡£¤Ç¤â»þ¡¹¿Í¤ò½±¤¦¤³¤È¤â¤¢¤ë¤Î¤è¡£")))
;; no - the player's favorite animal is NOT spiders
- (say knpc "Spiders are my favorite!"))))
+ (say knpc "»ä¤Ï¥¯¥â¤¬¹¥¤¡ª"))))
;; no - the player does not like animals
- (say knpc "Well don't hurt them!")))
+ (say knpc "Éݤ¯¤Ê¤¤¤è¡ª")))
(define (ilya-fire knpc kpc)
- (say knpc "Making fire is easy. Just mix black pearl and sulphos..."
- "surephous... that ashy stuff you know? "
- "And say Vas Flam!"))
+ (say knpc "²Ð¤ò¤ª¤³¤¹¤Î¤Ï´Êñ¤Ê¤Î¡£¹õ¿¿¼î¤Èⲫ¤òº®¤¼¤Æ¡Ä"
+ "ⲫ¡Ä³¥¤Ï¤É¤³¡©"
+ "¤½¤·¤Æ¥ô¥¡¥¹¡¦¥Õ¥é¥à<Vas Flam>¤È¸À¤¦¤Î¡ª"))
+
+(define (ilya-died knpc kpc)
+ (say knpc "¥È¥í¥ë¤¬ÇÀ¾ì¤ò½±¤Ã¤¿¤Î¡ª"
+ "¤ªÊ줵¤ó¤Ï»ä¤òÃϲ¼¼¼¤Ë±£¤·¤¿¡£"
+ "¤½¤·¤Æ¥È¥í¥ë¤¬¿²¤Æ¤¤¤ë´Ö¤ËÈ´¤±½Ð¤·¤¿¡£"
+ "¤Ç¤â¡¢¥Ñ¥¹¥«¤ò˺¤ì¤Æ¤·¤Þ¤Ã¤¿¡Ä¡£"))
;;----------------------------------------------------------------------------
;; Conv
;; 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 "I don't know.")))
- (method 'hail (lambda (knpc kpc) (say knpc "Hi.")))
- (method 'bye (lambda (knpc kpc) (say knpc "Bye-bye.")))
- (method 'job (lambda (knpc kpc) (say knpc "I help Grandpa with chores.")))
- (method 'name (lambda (knpc kpc) (say knpc "I'm Ilya.")))
- (method 'age (lambda (knpc kpc) (say knpc "I'm eight.")))
- (method 'chor (lambda (knpc kpc) (say knpc "I feed the animals, and keep the fire, and help cook.")))
+ (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 "I live with Grandpa now because Mommy and Daddy died.")))
- (method 'died (lambda (knpc kpc) (say knpc "Trolls attacked our farm! "
- "Mommy hid me in the cellar, "
- "and I snuck out when the trolls were sleeping. "
- "But I lost my Puska...")))
- (method 'trol (lambda (knpc kpc) (say knpc "I hate them! When I grow up I want to kill them all.")))
- (method 'hate (lambda (knpc kpc) (say knpc "I will be a sorceress some day and I will kill anyone I hate! "
- "I won't be afraid of anything ever again!")))
- (method 'afra (lambda (knpc kpc) (say knpc "I was afraid in the cellar. "
- "I heard Mommy and Daddy crying when the trolls ate them... "
- "[sniffling] I thought they would find me and eat me too...")))
- (method 'momm (lambda (knpc kpc) (say knpc "I miss my Mommy. She taught me to make fire with my mind. "
- "She burned up one of the trolls when they attacked!")))
- (method 'dadd (lambda (knpc kpc) (say knpc "I miss daddy. He tried to fight the trolls but "
- "he was just a farmer.")))
+ (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 "Our farm was north and south through the woods.")))
- (method 'spid (lambda (knpc kpc) (say knpc "There are lots of spiders in the woods around here.")))
- (method 'wood (lambda (knpc kpc) (say knpc "Grandpa says to stay out of the woods.")))
+ (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 "He's my grandpa.")))
+ (method 'greg (lambda (knpc kpc) (say knpc "»ä¤Î¤ª¤¸¤¤¤µ¤ó¤è¡£")))
(method 'join ilya-join)
))
OSDN Git Service
