;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Green Tower
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(define abe-bed gt-abe-bed)
(define abe-mealplace gt-ws-tbl2)
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Abe is a scholar who knows much of the runes.
-;; He fled from Absalot with the Alchemist, and now lives in Green Tower.
+;; ¥¨¥¤¥Ö¤ÏÀÐÈǤΤ³¤È¤ò¤è¤¯ÃΤë³Ø¼Ô¤Ç¤¢¤ë¡£
+;; Èà¤ÏÏ£¶â½Ñ»Õ¤È¤È¤â¤Ë¥¢¥Ö¥µ¥í¥Ã¥È¤«¤éƨ¤ì¡¢º£¤ÏÎФÎÅã¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (abe-hail knpc kpc)
- (kern-print "You meet a young, bookish-looking fellow.\n")
+ (kern-print "¤¢¤Ê¤¿¤Ï¼ã¤¤³Ø¼ÔÉ÷¤ÎÃˤȲñ¤Ã¤¿¡£\n")
(if (abe-met? (gob knpc))
- (say knpc "Hello again.")
+ (say knpc "¤Þ¤¿²ñ¤¤¤Þ¤·¤¿¤Í¡£")
(begin
(abe-met! (gob knpc))
- (say knpc "Hello. Say, aren't you a Wanderer?")
+ (say knpc "¤³¤ó¤Ë¤Á¤Ï¡£¤¢¤Î¡¢¤â¤·¤«¤·¤Æ̤¤¿Í¡©")
(if (yes? kpc)
- (say knpc "I am most honored! I can't believe my good fortune. "
- "I have so many questions for you. When you get the time. "
- "If you don't mind.")
- (say knpc "Oh, of course not. Sorry. I just thought... never mind.")))))
+ (say knpc "¤¢¤¨¤Æ¸÷±É¤Ç¤¹¡ª¼«Ê¬¤Î¹¬±¿¤¬¿®¤¸¤é¤ì¤Ê¤¤¡ª"
+ "¤¿¤¯¤µ¤óʹ¤¤¿¤¤¤³¤È¤¬¤¢¤ë¤ó¤Ç¤¹¡£"
+ "¤â¤·¤è¤«¤Ã¤¿¤é»þ´Ö¤¬¤¢¤ë¤È¤¤Ëʹ¤«¤»¤Æ¤¯¤À¤µ¤¤¡£")
+ (say knpc "¤¢¤¢¡¢¤½¤ì¤Ï¤½¤¦¤À¡£¤¹¤ß¤Þ¤»¤ó¡£¤Ä¤¤¡Äµ¤¤Ë¤·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£")))))
(define (abe-default knpc kpc)
- (say knpc "I'll look that up in the archives when I get a chance."))
+ (say knpc "µ¡²ñ¤¬¤¢¤Ã¤¿¤éÄ´¤Ù¤Æ¤ª¤¤Þ¤¹¡£"))
(define (abe-name knpc kpc)
- (say knpc "Oh. Yes. I'm Abe."))
+ (say knpc "¤¢¤¢¡¢¤½¤¦¡¢Ëͤϥ¨¥¤¥Ö¡£"))
(define (abe-join knpc kpc)
- (say knpc "Oh, no, I couldn't possibly... I'm not really that sort of person."))
+ (say knpc "¤¢¡¢¤¤¤ä¡¢¤½¤ì¤Ï¤Ç¤¤Þ¤»¤ó¡ÄËͤϤ½¤¦¤¤¤¦¿Í¤Ç¤Ï¤Ê¤¤¤Î¤Ç¡£"))
(define (abe-job knpc kpc)
- (say knpc "I'm a scholar. I'm studying the ruins here in Green Tower. Have you examined them?")
+ (say knpc "ËͤϳؼԤǤ¹¡£ÎФÎÅã¤Ë¤¢¤ë°äÀפòÄ´¤Ù¤Æ¤¤¤Þ¤¹¡£¤â¤¦¸«¤Þ¤·¤¿¤«¡©")
(if (no? kpc)
- (say knpc "They're in the southwest corner of town. Fascinating.")
+ (say knpc "°äÀפÏÄ®¤ÎÆîÀ¾¤Ë¤¢¤ê¤Þ¤¹¡£¶½Ì£¿¼¤¤¤â¤Î¤Ç¤¹¡£")
(begin
- (say knpc "Did you know there are more below the surface?")
+ (say knpc "Ãϲ¼¤Ë¤Ï¤â¤Ã¤È¤¢¤ë¤³¤È¤òÃΤäƤ¤¤Þ¤¹¤«¡©")
(yes? kpc)
- (say knpc "Yes, just like Absalot!"))))
+ (say knpc "¤½¤¦¡¢¥¢¥Ö¥µ¥í¥Ã¥È¤Î¤è¤¦¤Ë¡ª"))))
(define (abe-absa knpc kpc)
- (say knpc "Not many know that beneath Absalot is an older city. "
- "The ruins beneath Absalot are very similar to the ruins here in Green Tower. "
- "I am certain they were built by the same civilization!"))
+ (say knpc "¿¤¯¤Î¿Í¤Ï¥¢¥Ö¥µ¥í¥Ã¥È¤Î²¼¤Ë¸Å¤¤Ä®¤¬¤¢¤ë¤³¤È¤òÃΤê¤Þ¤»¤ó¡£"
+ "¥¢¥Ö¥µ¥í¥Ã¥È¤ÎÃϲ¼¤Î°äÀפϡ¢¤³¤ÎÎФÎÅã¤Î°äÀפȤȤƤâ¤è¤¯»÷¤Æ¤¤¤Þ¤¹¡£"
+ "ËͤÏƱ¤¸Ê¸ÌÀ¤Î¿Í¡¹¤¬·ú¤Æ¤¿¤Ë°ã¤¤¤Ê¤¤¤È³Î¿®¤·¤Æ¤¤¤Þ¤¹¡ª"))
(define (abe-rune knpc kpc)
(if (any-in-inventory? kpc rune-types)
(begin
- (say knpc "\n[He whistles softly]\n"
- "You have some of the Eight Keys to the Demon Gate?\n"
- "I shall examine them for you!")
+ (say knpc "¡ÎÈà¤ÏÀŤ«¤Ë¤µ¤µ¤ä¤¤¤¿¡£¡Ï"
+ "°Ëâ¤ÎÌç¤ÎȬ¤Ä¤Î¸°¤ò»ý¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤«¡©"
+ "Ä´¤Ù¤µ¤»¤Æ¤¯¤À¤µ¤¤¡ª")
(quest-data-update 'questentry-runeinfo 'abe 1)
(quest-data-update-with 'questentry-runeinfo 'keys 1 (quest-notify (grant-party-xp-fn 20)))
(if (any-in-inventory? kpc (list t_rune_k))
- (say knpc "[He examines a rune] This is the Rune of Knowledge!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏÃ챤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_p))
- (say knpc "[He examines a rune] This is the Rune of Power!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏÎϤÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_s))
- (say knpc "[He examines a rune] This is the Rune of Skill!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤Ïµ»Ç½¤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_c))
- (say knpc "[He examines a rune] This is the Rune of Curiousity!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤Ï»×θ¤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_f))
- (say knpc "[He examines a rune] This is the Rune of Freedom!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤Ï¼«Í³¤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_w))
- (say knpc "[He examines a rune] This is the Rune of Wisdom!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏÍýÀ¤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_d))
- (say knpc "[He examines a rune] This is the Rune of Discretion!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏʬÊ̤ÎÀÐÈǤǤ¹¡ª")
)
(if (any-in-inventory? kpc (list t_rune_l))
- (say knpc "[He examines a rune] This is the Rune of Leadership!")
+ (say knpc "¡ÎÈà¤ÏÀÐÈǤòÄ´¤Ù¤¿¡£¡Ï¤³¤ì¤ÏÅýÀ©¤ÎÀÐÈǤǤ¹¡ª")
)
(if (has-all-runes? kpc)
- (say knpc "This is incredible!\n"
- "You have all of the Eight Keys to the Demon Gate!!!\n"
- "What do you intend to do with them?")
+ (say knpc "¿®¤¸¤é¤ì¤Ê¤¤¡ª"
+ "Ȭ¤Ä¤Î°Ëâ¤ÎÌç¤Î¸°¤¬Á´¤Æ·¤Ã¤Æ¤¤¤Þ¤¹¡ª"
+ "¤³¤ì¤ò°ìÂΤɤ¦¤¹¤ë¤Ä¤â¤ê¤Ç¤¹¤«¡©")
)
)
- (say knpc "There are many runes. Perhaps if you brought me an example...?")))
+ (say knpc "¤¿¤¯¤µ¤ó¤ÎÀÐÈǤ¬¤¢¤ë¤½¤¦¤Ç¤¹¡£¼ÂºÝ¤Ë¸«¤ë¤³¤È¤¬¤Ç¤¤ì¤Ð¡Ä¡£")))
(define (abe-demo knpc kpc)
- (say knpc "The Demon Gate was sealed shut by the Wise long ago. "
- "Its location was blotted from all records, but legend puts it somewhere to the north. ")
+ (say knpc "°Ëâ¤ÎÌç¤Ï±ó¤¤ÀΡ¢¸¼Ô¤Ë¤è¤Ã¤ÆÉõ°õ¤µ¤ì¤Þ¤·¤¿¡£"
+ "¤½¤Î¾ì½ê¤Ï¤¢¤é¤æ¤ëµÏ¿¤«¤é¾Ã¤µ¤ì¤Þ¤·¤¿¡£¤·¤«¤·¡¢¸À¤¤ÅÁ¤¨¤Ç¤Ï¤É¤³¤«Ë̤Τۤ¦¤Ë¤¢¤ë¤½¤¦¤Ç¤¹¡£")
(quest-data-update 'questentry-runeinfo 'abe 1)
(quest-data-update 'questentry-runeinfo 'keys 1)
(quest-data-update-with 'questentry-runeinfo 'gate 1 (quest-notify (grant-party-xp-fn 30)))
)
(define (abe-keys knpc kpc)
- (say knpc "Yes, the Demon Gate was locked with eight locks and the keys separated. "
- "Each takes the form of a powerful rune. "
- "They've been lost or hidden since then."))
+ (say knpc "¤Ï¤¤¡£°Ëâ¤ÎÌç¤ÏÉõ°õ¤µ¤ì¡¢¸°¤ÏȬ¤Ä¤Ëʬ¤±¤é¤ì¤Þ¤·¤¿¡£"
+ "¤½¤ì¤¾¤ì¤¬ÎϤòÈë¤á¤¿ÀÐÈǤǤ¹¡£"
+ "¤½¤Î¸å¤½¤ì¤é¤Ï¼º¤ï¤ì¤¿¤«¡¢±£¤µ¤ì¤Þ¤·¤¿¡£"))
(define (abe-eigh knpc kpc)
- (say knpc "Legend says that there are eight runes in all, are you seeking the others?")
+ (say knpc "¸À¤¤ÅÁ¤¨¤Ç¤ÏÀÐÈǤÏȬ¤Ä¤¢¤ë¤½¤¦¤Ç¤¹¡£Â¾¤ÎÀÐÈǤâõ¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤«¡©")
(if (yes? kpc)
- (say knpc "The old stories speak of some, such as King Clovis' charm, or the void temple.")
- (say knpc "Just idle curiosity? Believe me, I understand.")))
+ (say knpc "¸Å¤¤ÏäǤϡ¢¥¯¥í¡¼¥Ó¥¹²¦¤Î¸îÉä¤Ç¤¢¤Ã¤¿¤À¤È¤«¡¢µõ¶õ¤Î»û±¡¤Ë¤¢¤ë¤Ê¤É¤È¸À¤ï¤ì¤Æ¤¤¤Þ¤¹¡£")
+ (say knpc "¹¥´ñ¿´¤Ï¤Ê¤¤¤Î¤Ç¤¹¤«¡©¿®¤¸¤Æ¤¯¤À¤µ¤¤¡£»ä¤ÏÃΤäƤ¤¤Þ¤¹¡£")))
(define (abe-clov knpc kpc)
- (say knpc "There's a legend that King Clovis carried one as a charm. "
- "He fell in battle during the goblin wars, but it was never found on his body. "
- "Perhaps someone (perhaps a ^c+mgoblin^c-!) looted his corpse and took it.")
+ (say knpc "ÅÁÀâ¤Ç¤Ï¥¯¥í¡¼¥Ó¥¹²¦¤¬¸îÉä¤È¤·¤Æ»ý¤Ã¤Æ¤¤¤¿¤½¤¦¤Ç¤¹¡£"
+ "Èà¤Ï¥´¥Ö¥ê¥ó¤È¤ÎÀïÁè¤ÇÌ¿¤òÍî¤È¤·¤Þ¤·¤¿¡£¤·¤«¤·¡¢¤½¤ÎË´³¼¤«¤é¤Ï¸«¤Ä¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£"
+ "狼¤¬(¤â¤·¤«¤¹¤ë¤È^c+m¥´¥Ö¥ê¥ó¤¬^c-¡ª)Ã¥¤Ã¤¿¤Î¤«¤â¤·¤ì¤Þ¤»¤ó¡£")
(quest-data-assign-once 'questentry-rune-f)
)
(define (abe-temp knpc kpc)
- (say knpc "Northwest of Oparine, there is a temple floating in the void. No one can reach it,"
- " but legends say that a rune was sealed up there by the ancients.")
+ (say knpc "¥ª¥Ñ¡¼¥ê¥ó¤ÎËÌÀ¾¤Ç¤½¤Î»û±¡¤Ïµõ¶õ¤ÎÃæ¤ËÉ⤫¤ó¤Ç¤¤¤Þ¤¹¡£Ã¯¤â¤¿¤É¤êÃ夯¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¤¬¡¢"
+ "ÅÁÀâ¤Ç¤Ï¤º¤Ã¤ÈÀΡ¢ÀÐÈǤ¬Éõ°õ¤µ¤ì¤¿¤È¤µ¤ì¤Æ¤¤¤Þ¤¹¡£")
(quest-data-assign-once 'questentry-rune-d)
)
(define (abe-void knpc kpc)
- (say knpc "The Shard, the moons and the stars all habitate a great void. "
- "The ancients could sail across the void in ships, the way we sail across a sea!")
+ (say knpc "¤³¤Î¥·¥ã¥ë¥É¡¢·î¡¢À±¡¹¤ÏÁ´¤Æ¹Âç¤Êµõ¶õ¤ÎÃæ¤Ë¤¢¤ë¤Î¤Ç¤¹¡£"
+ "¤«¤Ä¤Æµõ¶õ¤ò¹Ò¹Ô¤¹¤ëÁ¥¤¬¤¢¤ê¡¢³¤¤òÅϤë¤è¤¦¤Ëµõ¶õ¤òÅϤ俤½¤¦¤Ç¤¹¡ª")
(quest-data-update 'questentry-whereami 'shard 2)
)
(define (abe-ship knpc kpc)
- (say knpc "I know of the void ships, but not how they worked. "
- "Even the Master Wrights have lost the technique for making them."
+ (say knpc "µõ¶õÁ¥¤Î¤³¤È¤Ïʹ¤¤¤¿¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£¤·¤«¤·¡¢¾Ü¤·¤¤¤³¤È¤Ï¤ï¤«¤ê¤Þ¤»¤ó¡£"
+ "¿¦¿Í¤ÎĺÅÀ¤Ê¤é¤½¤Î¼º¤ï¤ì¤¿Â¤¤êÊý¤¬¤ï¤«¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¡£")
(quest-data-update 'questentry-whereami 'shard 2)
- ))
+ )
(define (abe-wrig knpc kpc)
- (say knpc "Wrights specialize in the making of things. "
- "The Engineer is the greatest living Wright."))
+ (say knpc "¿¦¿Í¤Ïʪ¤òºî¤ë¤³¤È¤ËŤ±¤¿¼Ô¤¿¤Á¤Ç¤¹¡£"
+ "µ»»Õ¤Ïº£Æü¤ÇºÇ¤â°ÎÂç¤Ê¿¦¿Í¤Ç¤¹¡£"))
(define (abe-quee knpc kpc)
- (say knpc "I'm not sure what you're insinuating."))
+ (say knpc "²¿¤Î¤³¤È¤«¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£"))
(define (abe-civi knpc kpc)
- (say knpc "I don't know much about the civilization that built the ruins, but clues indicate it was quite wicked by our standards! Do you know what I mean?")
+ (say knpc "¤³¤Î°äÀפò·ú¤Æ¤¿Ê¸ÌÀ¤Î¤³¤È¤Ï¤è¤¯¤ï¤«¤ê¤Þ¤»¤ó¡£¤Ç¤â¤½¤Î¼ê¤¬¤«¤ê¤Ï¡¢¤½¤ì¤¬»ä¤¿¤Á¤Î´ð½à¤Ç¸«¤Æ¤È¤Æ¤â½¹¤¤¤³¤È¤Ë¤¢¤ê¤Þ¤¹¡£²¿¤ò°ÕÌ£¤¹¤ë¤«¤ï¤«¤ê¤Þ¤¹¤«¡©")
(if (yes? kpc)
- (say knpc "Then I won't mention it!")
- (say knpc "Human sacrifice, cannibalism, demon worship. Accursed practices!")))
+ (say knpc "¤Ê¤é¤Ð¸À¤ï¤Ê¤¤¤Ç¤ª¤¤Þ¤·¤ç¤¦¡ª")
+ (say knpc "¿Í¤ÎÀ¸ìÓ¡¢¿ÍÆù¿©¤¤¡¢°¤·¤¼Ô¤Ø¤Î¿òÇÒ¡£¼ö¤ï¤ì¤¿¼Ô¤Î½¬´·¤Ç¤¹¡ª")))
(define (abe-accu knpc kpc)
- (say knpc "Yes, the Accursed have a long history. They may be a convenient political bogeyman, "
- "but there is enough evidence to suggest they do, or did, exist."))
+ (say knpc "¤Ï¤¤¡£¼ö¤ï¤ì¤¿¼Ô¤Ë¤ÏŤ¤Îò»Ë¤¬¤¢¤ê¤Þ¤¹¡£Èà¤é¤ÏÊØÍø¤ÊÀ¯¼£Åª¤Ê°Ìò¤«¤â¤·¤ì¤Þ¤»¤ó¡£"
+ "¤·¤«¤·¡¢Èà¤é¤¬¹Ô¤¤¤ä¹Ô¤Ã¤¿¤³¤È¡¢¤¢¤ë¤¤¤Ï¸ºß¤Î¾Úµò¤Ï½½Ê¬¤Ë¤¢¤ê¤Þ¤¹¡£"))
(define (abe-bye knpc kpc)
- (say knpc "Let me know if you find any more ruins!"))
+ (say knpc "°äÀפˤĤ¤¤Æ²¿¤«¤ï¤«¤Ã¤¿¤é¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡ª"))
(define (abe-alch knpc kpc)
- (say knpc "Ah, how is the secretive old rascal? I haven't seen him since we were neighbors."))
+ (say knpc "¤¢¤¢¡¢¤¢¤Î¸Å¥À¥Ì¥¤Ç¤¹¤«¡©ÎÙ¿ÍƱ»Î¤Ç¤·¤¿¤¬ºÇ¶á¤Ï²ñ¤Ã¤Æ¤¤¤Þ¤»¤ó¡£"))
(define (abe-neig knpc kpc)
- (say knpc "In Absalot. Before we had to flee."))
+ (say knpc "¥¢¥Ö¥µ¥í¥Ã¥È¤Ç¡£Æ¨¤²¤ëÁ°¤Ï¤½¤³¤Ë¤¤¤Þ¤·¤¿¡£"))
(define (abe-flee knpc kpc)
- (say knpc "[He sighs] It's a long story. Ask around. It doesn't matter anymore."))
+ (say knpc "¡Î¤¿¤á©¡ÏÏ乤ÈŤ¯¤Ê¤ê¤Þ¤¹¡£¼þ¤ê¤Î¿Í¤Ëʹ¤¤¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤â¤¦¤É¤¦¤Ç¤â¤¤¤¤¤³¤È¤Ç¤¹¡£"))
(define (abe-gobl knpc kpc)
- (say knpc "Ask Deric or Gen about goblins, they have a lot of experience with them."))
+ (say knpc "¥Ç¥ê¥Ã¥¯Â⍫¥¸¥§¥ó¤Ëʹ¤¤¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£Èà¤é¤Ï¿¤¯¤Î¤³¤È¤òÃΤäƤ¤¤Þ¤¹¡£"))
(define abe-conv
(ifc green-tower-conv
(method 'alch abe-alch)
(method 'neig abe-neig)
(method 'flee abe-flee)
+ (method 'esca abe-flee)
(method 'gobl abe-gobl)
))
(bind
(kern-mk-char
'ch_abe ; tag
- "Abe" ; name
+ "¥¨¥¤¥Ö" ; name
abe-species ; species
abe-occ ; occ
s_companion_wizard ; sprite
OSDN Git Service
