;;----------------------------------------------------------------------------
-;; gregor.scm - read-only data for Gregor the Charcoal Burner
+;; gregor.scm - ú¾Æ¤¿Í¤Î¥°¥ì¥´¡¼¥ë
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Schedule
;;
-;; At the shrine gate (moongate-clearing.scm)
-;; His home is Gregor's Hut (gregors-hut.scm).
+;; ·î¤ÎÌç¤Îº×ÃÅ (moongate-clearing.scm)
+;; ¥°¥ì¥´¡¼¥ë¤Î¾®²° (gregors-hut.scm).
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_gregor
(list 0 0 gh-gregors-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Gregor is an elderly charcoal burner, living near the Shrine Gate.
-;; He tends the grounds of the shrine, and takes care of his grandaughter Ilya.
+;; ¥°¥ì¥´¡¼¥ë¤Ïú¾Æ¤¿Í¤ÎÏ·¿Í¤Ç¡¢Ìç¤Îº×ÃŤζ᤯¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà¤Ïº×ÃŤζ᤯¤Ë¤è¤¯¤¤¤ë¡£¤½¤·¤Æ¹̼¤Î¥¤¥ê¥¢¤ÎÀ¤Ïäò¤·¤Æ¤¤¤ë¡£
;;
-;; Gregor is the first NPC which the player is likely to encounter,
-;; and has a variety of helpful responses for the starting character
-;; and the first-time player.
+;; ¥°¥ì¥´¡¼¥ë¤Ï¥×¥ì¥¤¥ä¡¼¤¬ºÇ½é¤Ë²ñ¤¦NPC¤Ç¤¢¤ë¡£¤½¤·¤Æ¡¢½é¤á¤Æ¥×¥ì¡¼¤¹¤ë¼Ô¤Ë¿
+;; ºÌ¤Ê½õ¤±¤Ë¤Ê¤ë±þÅú¤ò¤¹¤ë¡£
;;----------------------------------------------------------------------------
(define (gregor-kill-nate knpc kpc)
- (say knpc "[He points a trembling finger at Nate] I have something for you.")
- (aside kpc 'ch_nate "[Mumbling] What does this old fool want?")
+ (say knpc "¡Î¥°¥ì¥´¡¼¥ë¤Ï¿Ì¤¨¤ë»Ø¤ò¥Í¥¤¥È¤Ë¸þ¤±¤¿¡£¡Ï¤ªÁ°¤ËÅϤ¹¤â¤Î¤¬¤¢¤ë¡£")
+ (aside kpc 'ch_nate "¡Î¤Ä¤Ö¤ä¤¡Ï¤³¤ÎÏ·¤¤¤Ü¤ì¤Ï²¿¤ò¡Ä¡©")
(prompt-for-key)
- (say knpc "[He takes out a scroll] It cost me a lot. I can't read it, but she told me what it says when I bought it.")
- (aside kpc 'ch_nate "Wait... is that a...?")
+ (say knpc "¡ÎÈà¤Ï´¬Êª¤ò¼è¤ê½Ð¤·¤¿¡£¡Ï¤³¤ì¤Ë¤Ï¿¤¯¤ò»Ùʧ¤Ã¤¿¡£¥ï¥·¤Ë¤ÏÆɤá¤Ì¤¬¡¢¤É¤¦¸À¤¨¤Ð¤è¤¤¤«¤Ï¶µ¤ï¤Ã¤¿¡£")
+ (aside kpc 'ch_nate "ÂԤơĤ½¤ì¤Ï¡Ä¡©")
(prompt-for-key)
- (say knpc "XEN CORP!")
+ (say knpc "¥¼¥ó¡¦¥³¡¼¥×<Xen Corp>¡ª")
(cast-missile-proc knpc ch_nate t_deathball)
- (aside kpc 'ch_nate "Gack!")
+ (aside kpc 'ch_nate "¥°¥²¥§¥Ã¡ª")
(prompt-for-key)
(if (equal? kpc ch_nate)
(kern-conv-end)
- (say knpc "[He turns to you] You shouldn't travel with folks like that. People might get the wrong idea about you."))
+ (say knpc "¡ÎÈà¤Ï¿¶¤êÊ֤ä¿¡£¡Ï¤³¤Î¤è¤¦¤Ê¼Ô¤È¤¤¤ë¤Ù¤¤Ç¤Ï¤Ê¤«¤Ã¤¿¡£¿Í¡¹¤Ï¤¢¤Ê¤¿¤Ë¤Ä¤¤¤Æ¤è¤«¤é¤Ì¹Í¤¨¤òÊú¤¯¤À¤í¤¦¡£"))
)
(if (in-player-party? 'ch_nate)
(gregor-kill-nate knpc kpc)
(if (in-inventory? kpc t_letter_from_enchanter)
- (say knpc "I see you got your stuff, and that letter from the Enchanter. "
- "Don't forget to ready your weapons before leaving. "
- "It's dangerous out there!")
- (say knpc "[You meet a grizzled old peasant]"
- " Welcome, Wanderer. I've been watching for you."
- " There's some things that belong to you, over in yonder cave."
- " Go in where the chest is, open it, and get the things inside."
- " It's all for you."))
+ (say knpc "ʪ¤ò¼è¤Ã¤Æ¤¤¿¤è¤¦¤À¤Ê¡£¤½¤ÎÃæ¤ËËâÆ»»Õ¤«¤é¤Î¼ê»æ¤¬¤¢¤ë¡£"
+ "¤³¤³¤òµî¤ëÁ°¤ËÉð´ï¤òÁõÈ÷¤¹¤ë¤Î¤ò˺¤ì¤Æ¤Ï¤Ê¤é¤Ì¡£"
+ "³°¤Ï¤È¤Æ¤â´í¸±¤À¡ª")
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÇòȱ¤Þ¤¸¤ê¤ÎÇÀÉפÎÏ·¿Í¤È²ñ¤Ã¤¿¡£¡Ï\n"
+ "¤è¤¦¤³¤½¡¢Ì¤¤¿Í¤è¡£Íè¤ë¤È»×¤Ã¤Æ¤¤¤¿¡£"
+ "¤¢¤Ê¤¿¤Î»ý¤Áʪ¤Ï¡¢¤¢¤Îƶ·¢¤ÎÃæ¤Ë¤¢¤ë¡£"
+ "¹Ô¤Ã¤ÆÈ¢¤ò³«¤±¡¢Ãæ¤Îʪ¤ò¼è¤Ã¤Æ¤¯¤À¤µ¤ì¡£"
+ "Á´¤Æ¤¢¤Ê¤¿¤Î¤¿¤á¤Îʪ¤À¡£"))
))
;; Some prompting with initial commands:
;; Hmmm...perhaps it would be desirable to have game-UI promts
;; spoken out-of-character, so that the NPCs don't break the game fiction...
(define (gregor-open knpc kpc)
- (say knpc "Use the 'o' key to ^c+bopen^c- chests."))
+ (say knpc "È¢¤ò^c+b³«¤±¤ë^c-¤Î¤Ï'o'¥¡¼¤À¡£"))
(define (gregor-get knpc kpc)
- (say knpc "Use the 'g' key to ^c+bget^c- stuff that's on the ground."))
+ (say knpc "'g'¥¡¼¤ÇÃÖ¤«¤ì¤¿¤â¤Î¤ò^c+b¼è¤ë^c-¤³¤È¤¬¤Ç¤¤ë¡£"))
(define (gregor-read knpc kpc)
- (say knpc "Use the 'r' key to ^c+bready^c- weapons or armor. "
- "You can't use a weapon in combat until it's ready."))
+ (say knpc "Éð´ï¤äËɶñ¤Ï'r'¥¡¼¤Ç^c+bÁõÈ÷¤¹¤ë^c-¡£"
+ "Éð´ï¤ÏÁõÈ÷¤·¤Æ¤¤¤Ê¤±¤ì¤ÐÀ襤¤Ç»È¤¦¤³¤È¤¬¤Ç¤¤Ê¤¤¡£"))
(define (gregor-camp knpc kpc)
- (say knpc "Use the 'k' key to ^c+bkamp^c-, err...camp, in the wilderness and heal up."))
+ (say knpc "'k'¥¡¼¤Ç^c+bµÙ©^c-¡¢¹ÓÌî¤ÇÂÎÎϤò²óÉü¤Ç¤¤ë¡£"))
(define (gregor-dang knpc kpc)
- (say knpc "Very dangerous! If you need healing, a town inn is the safest place. "
- "You can camp in the wilderness but it's dangerous when you're alone and have no one to keep watch. "
- "Of course, there are spells and potions for healing, too."))
+ (say knpc "¤È¤Æ¤â´í¸±¤À¡ª¤â¤·²óÉü¤¬É¬Íפʤ顢Į¤Î½É¤¬°ÂÁ´¤Ê¾ì½ê¤À¡£"
+ "¹ÓÌî¤ÇµÙ©¤ò¼è¤ë¤³¤È¤â¤Ç¤¤ë¤¬¡¢°ì¿Í¤Ç¸«Ä¥¤ê¤òÃÖ¤«¤Ê¤¤¤Î¤Ï´í¸±¤À¡£"
+ "̵ÏÀ¡¢Ìô¤ä¼öʸ¤Ç²óÉü¤¹¤ë¤³¤È¤â¤Ç¤¤ë¡£"))
(define (gregor-dead knpc kpc)
- (say knpc "Aye, it's a shame. My daughter and her husband both - "
- "killed by trolls."))
+ (say knpc "¤½¤¦¡¢Èᤷ¤¤¤³¤È¤À¡£¥ï¥·¤Î̼¤È¤½¤ÎÉפ϶¦¤Ë¡Ä"
+ "¥È¥í¥ë¤É¤â¤Ë»¦¤µ¤ì¤¿¤Î¤À¡£"))
(define (gregor-charcoal knpc kpc)
- (say knpc "I take charcoal into town and sell it, "
- "and some folks come by my place to buy it."))
+ (say knpc "ú¤òÄ®¤Ø»ý¤Ã¤Æ¹Ô¤¡¢Çä¤ë¡£"
+ "¤½¤ì¤«¤é¼¤Î¼Ô¤¬¥ï¥·¤Î½ê¤ËÇ㤤¤ËÍè¤ë¡£"))
(define (gregor-hut knpc kpc)
- (say knpc "My hut's in the forest to the South and East. "
- "Just myself and my granddaughter living there now."))
+ (say knpc "¾®²°¤¬ÆîÅì¤Î¿¹¤Ë¤¢¤ë¡£"
+ "¤½¤³¤Ç¥ï¥·¤Ï¹̼¤È½»¤ó¤Ç¤ª¤ë¡£"))
(define (gregor-ench knpc kpc)
(quest-data-assign-once 'questentry-calltoarms)
- (say knpc "The Enchanter is one of the Wise. "
- "He told me to look out for a Wanderer like you. "
- "If I saw one I was to send him his way. You want directions? ")
+ (say knpc "ËâÆ»»Õ¤Ï¸¼Ô¤Î°ì¿Í¤À¡£"
+ "¥ï¥·¤Ë¤¢¤Ê¤¿¤Î¤è¤¦¤Ê̤¤¿Í¤òõ¤¹¤è¤¦¤Ë¸À¤Ã¤Æ¤¤¤¿¡£"
+ "ËâÆ»»Õ¤Î²¼¤ËƳ¤«¤Í¤Ð¤Ê¤é¤Ì¡£Æ»½ç¤òÃΤꤿ¤¤¤«¡©")
(quest-wise-subinit 'questentry-enchanter)
(quest-data-update 'questentry-enchanter 'common 1)
(cond ((yes? kpc)
(quest-data-update 'questentry-calltoarms 'directions 1)
(quest-data-update 'questentry-enchanter 'general-loc 1)
- (say knpc "He lives in a tower in a swamp, somewhere west over the mountains. "
- "Take the road south, then follow it west and ask the rangers at the keep.")
+ (say knpc "ËâÆ»»Õ¤ÏÀ¾¤Î»³¤Î¸þ¤³¤¦¤Ë¤¢¤ë¾Â¤ÎÅã¤Ë¤¤¤ë¡£"
+ "Æî¤Ø¿Ê¤ß¡¢À¾¤ÎÆ»¤ò¤¿¤É¤ê¡¢Åã¤Ë¤¤¤ë·ÙÈ÷Ââ°÷¤Ë¿Ò¤Í¤ë¤È¤è¤¤¤À¤í¤¦¡£")
+ )
(else
- (say knpc "As you wish. If you should want directions later, ask me of the Enchanter.")
- ))
+ (say knpc "¤½¤¦Ë¾¤à¤Ê¤é¡£¸å¤ÇÊý¸þ¤¬É¬Íפˤʤ俤顢¡ÖËâÆ»»Õ¡×¤È¿Ò¤Í¤Ê¤µ¤¤¡£")
+ )
))
(define (gregor-cave knpc kpc)
- (say knpc "There, that little trail that leads off the main path to the South and West. "
- "Follow it on in. Open the chest. Get the stuff. "
- "Come back and we'll talk again, if you have more questions."))
+ (say knpc "¤³¤ÎÆ»¤«¤éÆîÀ¾¤Ëʬ¤«¤ì¤¿ºÙ¤¤Æ»¤ò¤¿¤É¤Ã¤ÆÆþ¤ê¤Ê¤µ¤¤¡£"
+ "¤½¤³¤ÇÈ¢¤ò³«¤±¡¢Ãæ¤Îʪ¤ò¼è¤Ã¤Æ¤¯¤À¤µ¤ì¡£"
+ "¤Þ¤À²¿¤«Ê¹¤¤¿¤¤¤³¤È¤¬¤¢¤ì¤Ð¡¢Ìá¤Ã¤Æ¤«¤éÏ佤¦¡£"))
(define (gregor-ches knpc kpc)
- (say knpc "Go ahead and open it and get the stuff inside."))
+ (say knpc "¤½¤Î¤Þ¤Þ¿Ê¤ó¤Ç¡¢³«¤±¤ÆÃæ¤Îʪ¤ò¼è¤Ã¤Æ¤¯¤À¤µ¤ì¡£"))
(define (gregor-stuf knpc kpc)
- (say knpc "The common folk made offerings of such things, thinking one day a Wanderer might come again."))
+ (say knpc "¼¤Î¼Ô¤¬¶¡¤¨Êª¤ò¤·¤ËÍè¤ë¡£¤Þ¤¿¤¤¤Ä¤ÎÆü¤«Ì¤¤¿Í¤¬Íè¤ë¤È¹Í¤¨¤Æ¤Ê¡£"))
(define (gregor-leav knpc kpc)
- (say knpc "If you want to leave just follow the trail south and step off the map."))
+ (say knpc "¤³¤³¤òÎ¥¤ì¤¿¤¤¤Ê¤é¡¢¤³¤ÎÆ»¤òÆî¤Ø¿Ê¤á¤Ð¤è¤¤¡£"))
(define (gregor-band knpc kpc)
(let ((quest (gregor-quest (kobj-gob-data knpc))))
(cond ((quest-accepted? quest)
- (say knpc "Have you found the bandits?")
+ (say knpc "Åð±¤É¤â¤Î¤Í¤°¤é¤Ï¸«¤Ä¤«¤Ã¤¿¤«¡©")
(cond ((yes? kpc)
- (say knpc "The old gods be praised!")
+ (say knpc "¸Å¤¿À¡¹¤è¡¢´¶¼Õ¤·¤Þ¤¹¡ª")
(quest-done! quest #t)
)
(else
- (say knpc "Go to Green Tower and ask around about the bandits.")
+ (say knpc "ÎФÎÅã¤Ø¹Ô¤¡¢Åð±¤Ë¤Ä¤¤¤Æʹ¤¯¤È¤è¤¤¤À¤í¤¦¡£")
)))
(else
- (say knpc "Bandits are in the woods. "
- "They robbed me in my own hut. "
- "I tried to fight them, "
- "and now I walk with a limp and a cane.")
+ (say knpc "Åð±¤É¤â¤¬¿¹¤ÎÃæ¤Ë¤¤¤ë¤Î¤À¡£"
+ "¤ä¤Ä¤é¤Ï¤«¤Ä¤Æ¥ï¥·¤Î¾®²°¤ò¹Ó¤é¤·¤ËÍ褿¤³¤È¤¬¤¢¤ë¡£"
+ "¥ï¥·¤Ï¤ä¤Ä¤é¤ÈÀï¤Ã¤¿¤¬¡¢"
+ "¤½¤Î¤»¤¤¤Ç¤¬°¤¯¤Ê¤ê¾ó¤¬¤¤¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¡£")
(prompt-for-key)
- (say knpc "I have a granddaughter living with me now. "
- "She's just a little girl, but sometimes bad men don't care about that. "
- "I am afraid of what they will do the next time.")
+ (say knpc "º£¡¢¥ï¥·¤Ë¤Ï°ì½ï¤Ë½»¤ó¤Ç¤¤¤ë¹̼¤¬¤¤¤ë¡£"
+ "¤Þ¤À¾®¤µ¤Ê»Ò¶¡¤À¤¬¡¢¤½¤ó¤Ê¤³¤È¤Ï°¤¤¤ä¤Ä¤é¤Ï¤ª¹½¤¤¤Ê¤·¤¿¡£"
+ "¤ä¤Ä¤é¤¬¤Þ¤¿Íè¤ë¤³¤È¤ò¶²¤ì¤Æ¤¤¤ë¡£")
(prompt-for-key)
- (say knpc "I hate to ask, but they say Wanderers used to help folks. Will you help me now?")
+ (say knpc "¤³¤Î¤è¤¦¤Ê¤³¤È¤ÏÍê¤ß¤¿¤¯¤Ï¤Ê¤¤¡£¤À¤¬¡¢¤«¤Ä¤Æ̤¤¿Í¤Ï¼¤Î¼Ô¤ò½õ¤±¤¿¤Èʹ¤¯¡£¥ï¥·¤ò½õ¤±¤Æ¤¯¤ì¤ó¤À¤í¤¦¤«¡©")
(cond ((yes? kpc)
- (say knpc "Thank you. "
- "When you get your equipment, go to Green Tower. "
- "Ask there about bandits. "
- "Someone may know where to find them.")
+ (say knpc "¤¢¤ê¤¬¤È¤¦¡£"
+ "ÁõÈ÷¤ò¼è¤Ã¤¿¤Ê¤é¡¢ÎФÎÅã¤Ø¹Ô¤¯¤È¤è¤¤¤À¤í¤¦¡£"
+ "¤½¤³¤ÇÅð±¤Î¤³¤È¤ò¿Ò¤Í¤ì¤Ð"
+ "µï¾ì½ê¤¬Ê¬¤«¤ë¤«¤â¤·¤ì¤ó¡£")
(quest-data-assign-once 'questentry-bandits)
(quest-accepted! quest #t)
)
(else
- (say knpc "[He turns away sadly]")
+ (say knpc "¡ÎÈà¤ÏÈᤷ¤½¤¦¤Ëµî¤Ã¤¿¡£¡Ï")
(kern-conv-end)
))))))
(define (gregor-bye knpc kpc)
(let ((quest (gregor-quest (kobj-gob-data knpc))))
(cond ((quest-accepted? quest)
- (say knpc "Farewell, and be careful."))
+ (say knpc "µ¤¤ò¤Ä¤±¤ë¤Î¤À¤¾¡£"))
(else
- (say knpc "Wait! Before you go, I have a favor to ask you.")
+ (say knpc "ÂԤäƤ¯¤ì¡ªÍê¤ß¤¬¤¢¤ë¤Î¤À¡£")
(prompt-for-key)
(gregor-band knpc kpc)
))))
+(define (gregor-fore knpc kpc)
+ (say knpc "¿¹¤Î¿¼¤¤¤È¤³¤í¤Ë¹Ô¤Ã¤Æ¤Ï¤Ê¤é¤Ì¡£Å𱡢¥¯¥â¡¢¶²¤í¤·¤¤¤â¤Î¤É¤â¤¬¤ª¤ë¡£"))
+
(define gregor-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 "Can't help you there.")))
+ (method 'default (lambda (knpc kpc) (say knpc "¤½¤ì¤Ï¼ê½õ¤±¤Ç¤¤ó¤Ê¡£")))
(method 'hail gregor-hail)
- (method 'heal (lambda (knpc kpc) (say knpc "[cough] Well enough, my granddaughter helps take care of me.")))
+ ;;(method 'heal (lambda (knpc kpc) (say knpc "¡Î³±¤Ð¤é¤¤¡Ï¹̼¤Ï¤è¤¯¼êÅÁ¤Ã¤Æ¤¯¤ì¤Æ¤¤¤ë¡£")))
(method 'bye gregor-bye)
- (method 'job (lambda (knpc kpc) (say knpc "I'm a charcoal burner. I also care for this shrine.")))
- (method 'join (lambda (knpc kpc) (say knpc "Nope. Already got a job.")))
- (method 'name (lambda (knpc kpc) (say knpc "Gregor's my name.")))
+ (method 'job (lambda (knpc kpc) (say knpc "¥ï¥·¤Ïú¾Æ¤¿Í¤À¡£¤½¤·¤Æ¤³¤Îº×ÃŤδÉÍý¤â¤·¤Æ¤ª¤ë¡£")))
+ (method 'join (lambda (knpc kpc) (say knpc "¤¤¤¤¤ä¡¢¥ï¥·¤Ë¤ÏÊ̤λŻö¤¬¤¢¤ë¡£")))
+ (method 'name (lambda (knpc kpc) (say knpc "¥ï¥·¤Î̾¤Ï¥°¥ì¥´¡¼¥ë¤À¡£")))
(method 'open gregor-open)
(method 'get gregor-get)
(method 'char gregor-charcoal)
(method 'burn gregor-charcoal) ;; A synonym
- (method 'daug (lambda (knpc kpc) (say knpc "Aye, she was a near-witch like her mother. "
- "Had the knack, but not enough to be among the Wise.")))
+ (method 'daug (lambda (knpc kpc) (say knpc "¤½¤¦¡¢Ì¼¤Ï¤¢¤È¾¯¤·¤ÇÊì¿Æ¤Î¤è¤¦¤ÊËâ½÷¤Ë¤Ê¤ì¤¿¡£"
+ "ºÍǽ¤Ï¤¢¤Ã¤¿¤¬¡¢½½Ê¬¤Ë¸¼Ô¤È¤¤¤é¤ì¤Ê¤«¤Ã¤¿¡£")))
(method 'dead gregor-dead)
(method 'ench gregor-ench)
- (method 'folk (lambda (knpc kpc) (say knpc "There's homesteads scattered about in "
- "the woods and the foothills.")))
- (method 'fore (lambda (knpc kpc) (say knpc "Stay out of the deep woods. "
- "Bandits, spiders and worse live there.")))
- (method 'gate (lambda (knpc kpc) (say knpc "No one can predict when it will open, "
- "or if anything will come through if it does. "
- "I've heard of other gates in other parts of the land, "
- "and stories tell of others long forgotten now.")))
- (method 'gran (lambda (knpc kpc) (say knpc "I've a granddaughter name of Ilya.")))
- (method 'help (lambda (knpc kpc) (say knpc "There's always folks who need help. "
- "These are hard times in a hard land.")))
- (method 'hill (lambda (knpc kpc) (say knpc "Trolls are always a threat in the foothills, "
- "but more so of late.")))
- (method 'husb (lambda (knpc kpc) (say knpc "My son-in-law was a simple farmer. "
- "Why the trolls attacked I don't know. "
- "Maybe they were driven out of the hills "
- "by something else.")))
+ (method 'folk (lambda (knpc kpc) (say knpc "¿¹¤È»³¤ËÇÀ²È¤¬»¶¤é¤Ð¤Ã¤Æ¤ª¤ë¤Î¤À¡£")))
+ (method 'fore gregor-fore)
+ (method 'wood gregor-fore)
+ (method 'gate (lambda (knpc kpc) (say knpc "¤½¤ì¤¬¤¤¤Ä³«¤¯¤Î¤«¡¢"
+ "¤½¤·¤Æ¤½¤ÎÀè¤Ë²¿¤¬¤¢¤ë¤Î¤«¤Ï¡¢Ã¯¤âʬ¤«¤é¤Ì¡£"
+ "¤³¤ÎÀ¤³¦¤Ë¤ÏÊ̤ÎÌ礬¤¢¤ë¤Èʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¡£"
+ "¤À¤¬¡¢¤½¤ì¤é¤ÎÏäϱó¤¤ÀΤË˺¤ì¤é¤ì¤Æ¤·¤Þ¤Ã¤¿¡£")))
+ (method 'gran (lambda (knpc kpc) (say knpc "¥ï¥·¤Ë¤Ï¥¤¥ê¥¢¤È¤¤¤¦Ì¾¤Î¹̼¤¬¤¤¤ë¡£")))
+ (method 'help (lambda (knpc kpc) (say knpc "¼¤Ë¤Ï¤¤¤Ä¤â½õ¤±¤òµá¤á¤Æ¤¤¤ë¼Ô¤¬¤¤¤ë¡£"
+ "¤³¤³¤ÏÂçÊѤʾì½ê¤Ç¡¢º£¤ÏÂçÊѤʻþ´ü¤À¡£")))
+ (method 'hill (lambda (knpc kpc) (say knpc "¥È¥í¥ë¤É¤â¤Ï¾ï¤ËµÖ¤ò¶¼¤«¤·¤Æ¤¤¤¿¡£"
+ "¤³¤Î¤È¤³¤í¤ÏÆäˤ½¤¦¤À¡£")))
+ (method 'husb (lambda (knpc kpc) (say knpc "̼̻¤Ï¤¿¤À¤ÎÇÀÉפÀ¤Ã¤¿¡£"
+ "¤Ê¤¼¥È¥í¥ë¤É¤â¤Ë½±¤ï¤ì¤¿¤Î¤«¤Ïʬ¤«¤é¤ó¡£"
+ "¤â¤·¤«¤¹¤ë¤È¤ä¤Ä¤é¤Ï²¿¼Ô¤«¤ËµÖ¤òÄɤï¤ì¤¿¤Î¤«¤âÃΤì¤Ì¡£")))
(method 'hut gregor-hut)
- (method 'ilya (lambda (knpc kpc) (say knpc "Yep. She lives at my place now "
- "that her parents are dead.")))
+ (method 'ilya (lambda (knpc kpc) (say knpc "¤½¤¦¡£º£¤Ï°ì½ï¤Ë½»¤ó¤Ç¤¤¤ë¡£"
+ "¤¢¤Î»Ò¤Îξ¿Æ¤Ï»à¤ó¤Ç¤·¤Þ¤Ã¤¿¡£")))
;; SAM: I dont' see any reference to this lake anywhere, commenting this one out for now...
;; (method 'lake (lambda (knpc kpc) (say knpc "Exit this shrine and ye'll find yourself in a "
;; "hidden valley. Head south and you'll see the Gray Lake "
;; "to the west.")))
- (method 'offe (lambda (knpc kpc) (say knpc "There in the cave you'll find a chest. "
- "Take what's inside. Wanderers enter this world with little, "
- "and in the past some have done great good, "
- "so folks leave stuff in good will for the next one.")
+ (method 'offe (lambda (knpc kpc) (say knpc "¤½¤Îƶ·¢¤ÎÃæ¤ËÈ¢¤¬¤¢¤ë¡£"
+ "¤½¤ÎÃ椫¤é¼è¤Ã¤Æ¤¯¤À¤µ¤ì¡£Ì¤¤¿Í¤Ï¤Û¤È¤ó¤Éʪ¤ò»ý¤¿¤º¤Ë¤³¤ÎÀ¤³¦¤Ë¤¯¤ë¡£"
+ "¤½¤·¤Æ´ö¿Í¤«¤Ï¤¹¤Ð¤é¤·¤¤¹Ô¤¤¤ò¤·¤¿¡£"
+ ""
+ "¤À¤«¤é¼¤Î¼Ô¤¿¤Á¤Ï¼¡¤Î¤¿¤á¤Ëʪ¤òÃÖ¤¤¤Æ¤¤¤¯¤Î¤À¡£")
(quest-data-update 'questentry-whereami 'wanderer 2)
))
(method 'pare gregor-dead)
(method 'plac gregor-hut)
- (method 'shar (lambda (knpc kpc) (say knpc "The Shard? That's what we call this land, Wanderer.")
+ (method 'shar (lambda (knpc kpc) (say knpc "¥·¥ã¥ë¥É¡©¤³¤ÎÃϤò¥ï¥·¤é¤Ï¤½¤¦¸Æ¤ó¤Ç¤¤¤ë¡£Ì¤¤¿Í¤è¡£")
(quest-data-update 'questentry-whereami 'shard 1)
))
- (method 'shri (lambda (knpc kpc) (say knpc "This shrine is for those who come through the gate. "
- "Wanderers like yourself. "
- "Folks leave simple offerings here to help you on "
- "your journey.")
+ (method 'shri (lambda (knpc kpc) (say knpc "¤³¤Îº×ÃŤÏÌç¤òÄ̤äƤ¯¤ë¼Ô¤Î¤¿¤á¤Ë¤¢¤ë¡£"
+ "¤¢¤Ê¤¿¤Î¤è¤¦¤Ê̤¤¿Í¤Î¤¿¤á¤Ë¤À¡£"
+ "¼¤Î¼Ô¤¿¤Á¤Ï¡¢¤¢¤Ê¤¿¤Îι¤ËɬÍפÊʪ¤ò¶¡¤¨Êª¤È¤·¤ÆÃÖ¤¤¤Æ¤¤¤¯¤Î¤À¡£")
(quest-data-update 'questentry-whereami 'wanderer 1)
))
- (method 'spid (lambda (knpc kpc) (say knpc "Some of the spiders in the deep parts "
- "of the woods are monstrous -- "
- " as big as oxen! "
- "Children of Angriss, we call those.")))
- (method 'angr (lambda (knpc kpc) (say knpc "Just a legend. "
- "Mother of all wood spiders. "
- "Scares the kids, keeps them out o' the woods "
- "where they can get lost.")))
-
- (method 'town (lambda (knpc kpc) (say knpc "Trigrave is the closest town. "
- "Follow the road South and you can't miss it.")))
-
- (method 'trol (lambda (knpc kpc) (say knpc "Trolls eat folks. "
- "Even crack the bones and suck the marrow. "
- "Nothing left to bury.")))
-
- (method 'wand (lambda (knpc kpc) (say knpc "We call those who come through the gate Wanderers. "
- "No one knows where they come from or where they go. "
- "You are the first to come through in a long, long time.")
+ (method 'spid (lambda (knpc kpc) (say knpc "¿¹¤Î±ü¤Ë¤Ï²øʪ¤Î¤è¤¦¤Ê¥¯¥â¤¬¤¤¤ë¡£¡Äͺµí¤Û¤É¤ÎÂ礤µ¤À¡ª"
+ "¥¢¥ó¥°¥ê¥¹¤Î»Ò¶¡¤¿¤Á¡¢¥ï¥·¤é¤Ï¤½¤¦¸Æ¤ó¤Ç¤¤¤ë¡£")))
+ (method 'angr (lambda (knpc kpc) (say knpc "¤¿¤À¤Î¸À¤¤ÅÁ¤¨¤À¡£"
+ "¿¹¤ÎÁ´¤Æ¤Î¥¯¥â¤ÎÊì¡¢"
+ "»Ò¶¡¤é¤òÉݤ¬¤é¤»¡¢»Ò¶¡¤¬¿¹¤ËÆþ¤é¤Ê¤¤Íͤˤ¹¤ë¤¿¤á¤Î¤â¤Î¤À¡£")))
+
+ (method 'town (lambda (knpc kpc) (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤¬°ìÈֶᤤĮ¤À¡£"
+ "Æî¤ÎÆ»¤Ë±è¤Ã¤Æ¤¤¤±¤Ð̤¦¤³¤È¤Ï¤Ê¤¤¤À¤í¤¦¡£")))
+
+ (method 'trol (lambda (knpc kpc) (say knpc "¥È¥í¥ë¤Ï¼¤Î¼Ô¤ò¿©¤¦¡£"
+ "¹ü¤ò³ä¤ê¡¢Ãæ¤Î¿ñ¤Þ¤Ç¿©¤Ã¤Æ¤·¤Þ¤¦¤Î¤À¡£"
+ "¸å¤Ë¤Ï²¿¤â»Ä¤µ¤ì¤Æ¤¤¤Ê¤«¤Ã¤¿¡£")))
+
+ (method 'wand (lambda (knpc kpc) (say knpc "¥ï¥·¤é¤ÏÌç¤òÄ̤äÆÍè¤ë¼Ô¤ò̤¤¿Í¤È¸Æ¤ó¤Ç¤ª¤ë¡£"
+ "¤½¤Î¼Ô¤¿¤Á¤¬¤É¤³¤«¤éÍè¤Æ¡¢¤É¤³¤Ø¹Ô¤¯¤Î¤«¤Ïï¤âÃΤé¤Ì¡£"
+ "¤¢¤Ê¤¿¤Ï¤½¤ÎŤ¤¡¢Ä¹¤¤Æ»¤Î¤ê¤Î½é¤á¤Ë¤¤¤ë¤Î¤À¡£")
(quest-data-update 'questentry-whereami 'wanderer 1)
))
- (method 'wise (lambda (knpc kpc) (say knpc "The Wise are both strong and -mostly- good. "
- "They help the land, as they can, "
- "and keep the Accursed at bay.")))
+ (method 'wise (lambda (knpc kpc) (say knpc "¸¼Ô¤Ï¶¯¤¯¡¢¤½¤·¤Æ¤Û¤È¤ó¤É¤ÏÁ±¤¤¼Ô¤À¡£"
+ "Èà¤é¤Ï¤Ç¤¤¦¤ë¸Â¤ê¤³¤ÎÃϤò½õ¤±¡¢"
+ "¤½¤·¤Æ¼ö¤ï¤ì¤¿¼Ô¤¿¤Á¤«¤é¼é¤Ã¤Æ¤¤¤ë¡£")))
(method 'accu (lambda (knpc kpc)
- (say knpc "The Accursed? Rumour has it they trade their souls for power. "
- "If not for the Wise they would overrun the Shard.")))
+ (say knpc "¼ö¤ï¤ì¤¿¼Ô¡©¤¦¤ï¤µ¤Ç¤ÏÎϤΤ¿¤á¤Ëº²¤òÇä¤Ã¤¿¤é¤·¤¤¡£"
+ "¤â¤·¸¼Ô¤¬¤¤¤Ê¤±¤ì¤Ð¡¢¤³¤Î¥·¥ã¥ë¥É¤Ï¤ä¤Ä¤é¤ËƧ¤ß¤Ë¤¸¤é¤ì¤ë¤Ë°ã¤¤¤Ê¤¤¡£")))
- (method 'witc (lambda (knpc kpc) (say knpc "Don't know of any witches in these parts any more.")))
+ (method 'witc (lambda (knpc kpc) (say knpc "º£¤Ç¤Ï¤³¤ÎÉÕ¶á¤Ç¤ÏËâ½÷¤Ï¤¤¤Ê¤¤¤è¤¦¤À¡£")))
))
;;----------------------------------------------------------------------------
(define (mk-gregor)
(bind
(kern-mk-char 'ch_gregor ; tag
- "Gregor" ; name
+ "¥°¥ì¥´¡¼¥ë" ; name
sp_human ; species
nil ; occ
s_old_townsman ; sprite