X-Git-Url: http://git.osdn.net/view?p=nazghul-jp%2Fnazghul-jp.git;a=blobdiff_plain;f=worlds%2Fhaxima-1.002%2Fgregor.scm;h=684d4f284d127694fec6abb8d53624bbdfb06388;hp=1e4af4a6a134e0b20680a98223b134d1092bfb12;hb=b7c03f64054728fbc44912f23072e2dc581a1dcc;hpb=b7e0472e04898913774c2bd1e74589292933bdf8 diff --git a/worlds/haxima-1.002/gregor.scm b/worlds/haxima-1.002/gregor.scm index 1e4af4a..684d4f2 100644 --- a/worlds/haxima-1.002/gregor.scm +++ b/worlds/haxima-1.002/gregor.scm @@ -1,11 +1,11 @@ ;;---------------------------------------------------------------------------- -;; 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") @@ -27,28 +27,27 @@ ;;---------------------------------------------------------------------------- ;; 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 "¥¼¥ó¡¦¥³¡¼¥×¡ª") (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 "¡ÎÈà¤Ï¿¶¤êÊ֤ä¿¡£¡Ï¤³¤Î¤è¤¦¤Ê¼Ô¤È¤¤¤ë¤Ù¤­¤Ç¤Ï¤Ê¤«¤Ã¤¿¡£¿Í¡¹¤Ï¤¢¤Ê¤¿¤Ë¤Ä¤¤¤Æ¤è¤«¤é¤Ì¹Í¤¨¤òÊú¤¯¤À¤í¤¦¡£")) ) @@ -56,14 +55,14 @@ (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: @@ -71,125 +70,129 @@ ;; 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) @@ -219,86 +222,81 @@ (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 "º£¤Ç¤Ï¤³¤ÎÉÕ¶á¤Ç¤ÏËâ½÷¤Ï¤¤¤Ê¤¤¤è¤¦¤À¡£"))) )) ;;---------------------------------------------------------------------------- @@ -306,7 +304,7 @@ (define (mk-gregor) (bind (kern-mk-char 'ch_gregor ; tag - "Gregor" ; name + "¥°¥ì¥´¡¼¥ë" ; name sp_human ; species nil ; occ s_old_townsman ; sprite