;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In a prison cell in the dungeons below Green Tower.
+;; ÎФÎÅã¤ÎÃϲ¼¤ÎÆÈ˼
;;----------------------------------------------------------------------------
(define kama-cell gtl-cell1)
(kern-mk-sched 'sch_kama
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Kama is a male Forest Goblin ranger, currently imprisoned below Green Tower.
-;; A friend of Gen, Kama was enroute to a meeting, and detained due to
-;; some misadventure.
-;; Kama is a potential party member,
-;; if the player can learn a bit of the Goblin language.
+;; ¥«¥Þ¤Ï¿¹¥´¥Ö¥ê¥ó¤Î¼í¿Í¤ÎÃËÀ¤Ç¡¢º£¤ÏÎФÎÅã¤ÎÃϲ¼¤Ë¼ýÍƤµ¤ì¤Æ¤¤¤ë¡£
+;; ¥¸¥§¥ó¤Îͧ¿Í¤Ç¡¢¥«¥Þ¤Ï²ñ¤¤¤ËÍè¤ëÅÓÃæ¤ËÉÔ±¿¤Ë¤â¹´Â«¤µ¤ì¤¿¡£
+;; ¥´¥Ö¥ê¥ó¸ì¤¬¾¯¤·¤ï¤«¤ì¤Ð¡¢¥«¥Þ¤ÏÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (kama-default knpc kpc)
- (say knpc "[no response]"))
+ (say knpc "¡ÎÈ¿±þ¤¬¤Ê¤¤¡£¡Ï"))
(define (kama-hail knpc kpc)
- (meet "You meet a calm goblin who regards you with a fearless, calculating gaze.")
+ (meet "¡Î¤¢¤Ê¤¿¤ÏÍî¤ÁÃ夤¤¿ÍͻҤΥ´¥Ö¥ê¥ó¤È²ñ¤Ã¤¿¡£¶²¤ì¤ëÍͻҤϤʤ¯¡¢¹Í¤¨¹þ¤ó¤Ç¤¤¤ë¤è¤¦¤ÊÌܤǤ³¤Á¤é¤ò¸«¤Æ¤¤¤ë¡£¡Ï")
(if (kama-gave-food? (gob knpc))
- (say knpc "Bonaha.")
- (say knpc "Nuki?")
+ (say knpc "¥Ü¥Ê¥Ï¡£")
+ (say knpc "¥Ì¥¡©")
))
(define (kama-bye knpc kpc)
- (say knpc "[his expression never changes]"))
+ (say knpc "¡ÎÈà¤Îɽ¾ð¤ÏÊѤï¤é¤Ê¤«¤Ã¤¿¡£¡Ï"))
;; No == Name
(define (kama-no knpc kpc)
(if (kama-gave-food? (gob knpc))
- (say knpc "[He points to himself] Kama.")
+ (say knpc "¡ÎÈà¤Ï¼«Ê¬¤ò»Øº¹¤·¤¿¡£¡Ï¥«¥Þ¡£")
(kama-default knpc kpc)))
;; Me == Job
(if (not (kama-gave-food? (gob knpc)))
(kama-default knpc kpc)
(begin
- (say knpc "Ninto. [He points to you] Zuto?")
+ (say knpc "¥Ë¥ó¥È¡£¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò»Øº¹¤·¤¿¡£¡Ï¥º¥È¡©")
(if (yes? kpc)
- (say knpc "[He nods]")
- (say knpc "[He chuckles as if he disbelieves you]")))))
+ (say knpc "¡ÎÈà¤Ï¤¦¤Ê¤º¤¤¤¿¡£¡Ï")
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤òµ¿¤¦¤è¤¦¤ÊÌܤǾФä¿¡£¡Ï")))))
;; Jo == Join
(define (kama-jo knpc kpc)
(or (door-locked? gob)
(door-magic-locked? gob)))))))
(define (rejoin)
- (say knpc "Ha! Iki!")
+ (say knpc "¥Ï¡ª¥¤¥¡ª")
(join-player knpc)
(kern-conv-end)
)
- (define (join-first-time)
- (say knpc "Hajo! Bona ka ruka!")
- (say knpc "[On the ground, he scratches what looks to be a map of the Great Forest area. Where the southern edge of the forest meets the eastern mountains, he marks an X several times for emphasis.]")
- (quest-data-update-with 'questentry-rune-f 'angriss 1 (quest-notify nil))
+ (define (join-first-time)
+ (say knpc "¥Ï¥¸¥ç¡ª¥Ü¥Ê¡¡¥«¡¡¥ë¥«¡ª")
+ (say knpc "¡Î¾²¤Î¾å¤Ë¿¹¤ÎÊÕ¤ê¤ÎÃϿޤΤ褦¤Ê¤â¤Î¤òÉÁ¤¡¢¤½¤·¤Æ¿¹¤ÎÆîü¤¬Åì¤Î»³Ì®¤ÈÀܤ¹¤ë½ê¤ËÎϤò¹þ¤á¤Æ²¿ÅÙ¤â¥Ð¥Ä°õ¤òÉÁ¤¤¤¿¡£¡Ï")
+ (quest-data-update-with 'questentry-rune-f 'angriss 1 (quest-notify nil))
(kama-joined-once! (gob knpc))
(join-player knpc)
;; Improve the player's relations with forest goblins
(kern-conv-end)
)
(if (is-player-party-member? knpc)
- (say knpc "[He looks confused] Ha...")
+ (say knpc "¡ÎÈà¤Ïº¤ÏǤ·¤¿ÍͻҤÀ¡£¡Ï¥Ï¡Ä¡£")
(if (kama-joined-once? (gob knpc))
(rejoin)
(if (not (kama-gave-food? (gob knpc)))
(kama-default knpc kpc)
(if (door-still-locked?)
- (say knpc "[He points to the cell door and shrugs, maybe if you opened it...]")
+ (say knpc "¡ÎÈà¤ÏÆÈ˼¤ÎÈâ¤ò»Øº¹¤·¡¢¸ª¤ò¤¹¤¯¤á¤¿¡£¡Ï")
(join-first-time)
)))))
(define (kama-food knpc kpc)
- (kern-log-msg "[Do you give him some food?]")
+ (kern-log-msg "¡ÎÈà¤Ë¿©ÎÁ¤òÍ¿¤¨¤ë¡©¡Ï")
(define (no-food)
- (say knpc "[He grunts and turns away]")
+ (say knpc "¡ÎÈà¤Ï¤¦¤Ê¤êÀ¼¤ò¤¢¤²´é¤òÇؤ±¤¿¡£¡Ï")
(kern-conv-end))
(define (yes-food)
(kama-gave-food! (gob knpc))
- (say knpc "[He gobbles it down hungrily and smacks his lips] "
- "Ha nuki! [He points to you] Bonaha."))
+ (say knpc "¡ÎÈà¤Ï¤½¤ì¤ò¥¬¥Ä¥¬¥Ä¤È¿©¤Ù¤¿¡£¡Ï"
+ "¥Ï¡¡¥Ì¥¡ª¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò»Øº¹¤·¤¿¡£¡Ï¥Ü¥Ê¥Ï¡£"))
(if (yes? kpc)
(if (> (get-food-donation knpc kpc) 0)
(yes-food)
(if (not (kama-gave-food? (gob knpc)))
(kama-default knpc kpc)
(if (any-in-inventory? kpc rune-types)
- (say knpc "[You show him a Rune. He nods uneasily] Ruka.")
- (say knpc "[He looks confused as you try to describe a Rune]"))))
+ (say knpc "¡Î¤¢¤Ê¤¿¤¬ÀÐÈǤò¸«¤»¤ë¤È¡¢Èà¤ÏÉ԰¤²¤Ë¤¦¤Ê¤º¤¤¤¿¡£¡Ï¥ë¥«¡£")
+ (say knpc "¡ÎÀÐÈǤˤĤ¤¤ÆÀâÌÀ¤·¤è¤¦¤È¤·¤¿¤¬¡¢Èà¤Ïº¤ÏǤ·¤Æ¤¤¤ë¤è¤¦¤À¡£¡Ï"))))
;; Ruka == Rune
;; Having a goblin spout out *sextant coordinates* is just daft. Changing to something descriptive
(define (kama-ruka knpc kpc)
(if (kama-joined-once? (gob knpc))
(begin
- (say knpc "Iki ruka.")
- (say knpc "[On the ground, he scratches what looks to be a map of the Great Forest area. Where the southern edge of the forest meets the eastern mountains, he marks an X several times for emphasis.]")
+ (say knpc "¥¤¥¡¡¥ë¥«¡£")
+ (say knpc "¡Î¾²¤Î¾å¤Ë¿¹¤ÎÊÕ¤ê¤ÎÃϿޤΤ褦¤Ê¤â¤Î¤òÉÁ¤¡¢¤½¤·¤Æ¿¹¤ÎÆîü¤¬Åì¤Î»³Ì®¤ÈÀܤ¹¤ë½ê¤ËÎϤò¹þ¤á¤Æ²¿ÅÙ¤â¥Ð¥Ä°õ¤òÉÁ¤¤¤¿¡£¡Ï")
(quest-data-update-with 'questentry-rune-f 'angriss 1 (quest-notify nil))
)
(begin
- (say knpc "[In the dust on the cell floor he draws a circle with jointed legs. A spider. He then points to you, himself, and then he scuffs out the spider.]")
+ (say knpc "¡ÎÈà¤ÏÆÈ˼¤Î¾²¤Î¤Û¤³¤ê¤Ë´Ý¤È¡¢¤½¤ì¤Ë¤Ä¤Ê¤¬¤Ã¤¿Àþ¤òÉÁ¤¤¤¿¡£¤½¤ì¤Ï¥¯¥â¤Î¤è¤¦¤À¤Ã¤¿¡£¤½¤ì¤«¤éÈà¤Ï¤¢¤Ê¤¿¤È¼«Ê¬¤ò»Øº¹¤·¡¢¥¯¥â¤Î³¨¤ò¾Ã¤·¤¿¡£¡Ï")
(prompt-for-key)
- (say knpc "[You get the impression he is proposing an alliance with you against the spider, or whatever it is.]"))))
+ (say knpc "¡Î¤É¤¦¤ä¤éÈà¤Ï¤¢¤Ê¤¿¤Ë²Ã¤ï¤ê¥¯¥â¤ÈÀ臘¤³¤È¤òÄó°Æ¤·¤Æ¤¤¤ë¤è¤¦¤À¡£¡Ï"))))
;; King Clovis (leader of the human forces in the war against the Goblins, one generation ago.
(define (kama-clov knpc kpc)
(if (not (kama-gave-food? (gob knpc)))
(kama-default knpc kpc)
- (say knpc "[He looks puzzled at first, but then nods] Ruka ka choto.")))
+ (say knpc "¡ÎÈà¤ÏºÇ½é¤Ï¤ï¤«¤é¤Ê¤¤¤è¤¦¤À¤Ã¤¿¡£¤À¤¬¡¢Èà¤Ï¤¦¤Ê¤º¤¤¤Æ¸À¤Ã¤¿¡£¡Ï¥ë¥«¡¡¥«¡¡¥Á¥ç¥È¡£")))
(define (kama-leav knpc kpc)
(if (is-player-party-member? knpc)
(begin
- (say knpc "Kama tujo?")
+ (say knpc "¥«¥Þ¡¡¥Ä¥¸¥ç¡©")
(if (yes? kpc)
(begin
(if (kern-char-leave-player knpc)
(begin
- (say knpc "Kama iki")
+ (say knpc "¥«¥Þ¡¡¥¤¥¡£")
(kern-conv-end))
- (say knpc "Kama tu iki")))
- (kern-log-msg "[He looks relieved]")))
- (kern-log-msg "[He looks confused]")))
+ (say knpc "¥«¥Þ¡¡¥Ä¡¡¥¤¥¡£")))
+ (kern-log-msg "¡ÎÈà¤Ï°Â¿´¤·¤¿¤è¤¦¤À¡£¡Ï")))
+ (kern-log-msg "¡ÎÈà¤Ïº®Í𤷤Ƥ¤¤ë¤è¤¦¤À¡£¡Ï")))
;; Shakespeare
(define (kama-zukakiguru knpc kpc)
(begin
- (say knpc "Ha! Zukakiguru!")
- (aside kpc 'ch_gen "We share a common interest, you see.")
- (say knpc "[He looks at your puzzled expression, and tries again, speaking slowly.] Zu-Ka Ki-Gi-Ru, Choguha Zuluma: Nu Hameluto!")
- (aside kpc 'ch_gen "Imagine my astonishment, when I learned of the true author!")
+ (say knpc "¥Ï¡ª¥º¥«¥¥°¥ë¡ª")
+ (aside kpc 'ch_gen "¤½¤¦¡¢»ä¤¿¤Á¤Î¶¦Ä̤δؿ´¤´¤È¤Ç¤¹¡£")
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤Îº¤¤Ã¤¿´é¤Ä¤¤ò¸«¤Æ¡¢¤æ¤Ã¤¯¤ê¤È¸À¤¤Ä¾¤·¤¿¡£¡Ï¥º¡¦¥«¡¡¥¡¦¥°¡¦¥ë¡¢¥Á¥ç¥°¥Ï¡¡¥º¥ê¥å¥Þ¡§¥Ì¡¡¥Ï¥á¥ê¥å¥È¡ª")
+ (aside kpc 'ch_gen "ËÜÅö¤Îºî¼Ô¤òÃΤ俤Ȥ¤Î¶Ã¤¤òÁÛÁü¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡ª")
))
;; Hameluto == Good/yes/skillful, Destiny change individual (Prince Hamlet)
(define (kama-hameluto knpc kpc)
(begin
- (say knpc "Hameluto? Ha! [Kama changes expression, and then again addresses you, with a serious aspect.]")
- (aside kpc 'ch_gen "You are in for a treat, to hear it in the original! [Gen watches with devoted interest.]")
+ (say knpc "¥Ï¥á¥ê¥å¥È¡©¥Ï¡ª¡Î¥«¥Þ¤Î¸À¤¤Êý¤¬ÊѤï¤Ã¤¿¡£¤½¤·¤Æ¿¿·õ¤Ê´é¤Ä¤¤ÇºÆ¤Ó¤¢¤Ê¤¿¤ÎÊý¤ò¸þ¤¤¤¿¡£¡Ï")
+ (aside kpc 'ch_gen "¤¢¤Ê¤¿¤Ëʹ¤«¤»¤Æ¤¯¤ì¤ë¤½¤¦¤Ç¤¹¤è¡ª¡Î¥¸¥§¥ó¤Ï¶½Ì£¿¼¤½¤¦¤Ë¸«¤Æ¤¤¤ë¡£¡Ï")
+ (prompt-for-key)
+ (say knpc "¥Ì¥Ü¥À¡©¥Ä¥Ü¥À¡©¥¨¡¼¥°¥ê¥å¡ª")
+ (aside kpc 'ch_gen "À¸¤¤ë¤Ù¤¤«¡¢»à¤Ì¤Ù¤¤«¡£¤½¤ì¤¬ÌäÂê¤À¡ª")
- (say knpc "Nuboda? Tuboda? Ehgulu!")
- (aside kpc 'ch_gen "To be, or not to be. That is the question!")
+ (say knpc "¥Ü¥°¡¡¥Ï¥Ò¥á¡¢¥Ê¥Ä¥À¡¢¥«¥Þ¥Ê¡¢¥ë¥ê¥å¥Þ¥À¡©")
+ (aside kpc 'ch_gen "¤É¤Á¤é¤¬µ¤¹â¤¤¤Ç¤¢¤í¤¦¤«¡©ÈóÆ»¤Ê±¿Ì¿¤Î¤Ä¤Ö¤Æ¤ÈÌð¤ËÂѤ¨¤ë¤«¡¢")
- (say knpc "Bogu Hahime, Natuda, Kamana, Rulumada?")
- (aside kpc 'ch_gen "Whether 'tis nobler in the mind, to suffer the slings and arrows of outrageous fortune?")
+ (say knpc "¥¨¡¼¡¢¥Ü¥á¥«¡¢¥¤¥¥«¥Á¥ç¡¢¥«¥Ä¥Á¥ç¡ª")
+ (aside kpc 'ch_gen "·õ¤ò¼è¤êº¤Æñ¤Î³¤¤ËΩ¤Á¸þ¤«¤¤¤³¤ì¤ò½ª¤¨¤ë¤«¡£")
- (say knpc "Eh, Bomeka Darutu, Ikikacho, Katucho!")
- (aside kpc 'ch_gen "Or to take arms against a sea of troubles, and by opposing end them?")
-
- (say knpc "[He seems prepared to go on at some length, do you wish to listen to the entire recital?]")
+ (say knpc "¡ÎÈà¤Ï¤½¤Î¤Þ¤ÞŤ¤´Ö¸ì¤ë¤Ä¤â¤ê¤Î¤è¤¦¤À¡£Ï¯ÆɤòºÇ¸å¤Þ¤Çʹ¤¯¤«¡©¡Ï")
(if (yes? kpc)
- (say knpc "[You listen in amazement, for quite some time.]")
- (say knpc "Bona iki? Ha! [He ceases, seemingly content to wait for a more opportune moment.]")
+ (say knpc "¡Î¤½¤Î¸å¡¢¶Ã¤¯¤Û¤ÉŤ¤´Ö¸ì¤ê³¤±¤¿¡£¡Ï")
+ (say knpc "¥Ü¥Ê¡¡¥¤¥¡©¥Ï¡ª¡ÎÈà¤Ï»ß¤á¤¿¤¬¡¢¤â¤Ã¤È¸ì¤ê¤¿¤¤¤è¤¦¤À¤Ã¤¿¡£¡Ï")
)
- (aside kpc 'ch_gen "The essence of the play comes through more clearly in the original, don't you think?")
+ (aside kpc 'ch_gen "¤³¤Î·à¤Î³Ë¿´¤ÎÉôʬ¤Ï¡¢¸µ¤è¤ê¤âÌÀÎƤˤʤäƤ¤¤ë¤È»×¤¤¤Þ¤»¤ó¤«¡©")
))
(define kama-conv
(bind
(kern-mk-char
'ch_kama ; tag
- "Kama" ; name
+ "¥«¥Þ" ; name
kama-species ; species
kama-occ ; occ
s_fgob_civilian ; sprite