;;----------------------------------------------------------------------------
;; Schedule
;;
-;; Kalcifax travels (notionally by the moon gates)
-;; to many places, carrying messages and such.
+;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ï¿¤¯¤Î¾ì½ê¤ò(·î¤ÎÌç¤ò»È¤Ã¤Æ)ι¤·¡¢ÅÁ¸À¤Ê¤É¤ò±¿¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
(define kalc-bed cheerful-bed-2)
(define kalc-mealplace )
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Kalcifax is a female wizard with considerable knowledge of the moon gates.
-;; She travels to many places (notionally by use of the gates),
-;; carrying messages and such.
-;; Kalcifax is a potential party member.
+;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ï½÷À¤ÎËâ½Ñ»Õ¤Ç¡¢Â¿¤¯¤Î·î¤ÎÌç¤ÎÃ챤¬¤¢¤ë¡£
+;; Èà½÷¤Ï¿¤¯¤Î¾ì½ê¤ò(·î¤ÎÌç¤ò»È¤Ã¤Æ)ι¤·¡¢ÅÁ¸À¤Ê¤É¤ò±¿¤ó¤Ç¤¤¤ë¡£
+;; ¥«¥ë¥·¥Õ¥¡¥¯¥¹¤ÏÃç´Ö¤Ë¤Ê¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (kalc-hail knpc kpc)
- (meet "You meet a cute wizard.")
- (say knpc "Well met, fellow traveler.")
+ (meet "¡Î¤¢¤Ê¤¿¤Ï¤«¤ï¤¤¤é¤·¤¤Ëâ½Ñ»Õ¤È²ñ¤Ã¤¿¡£¡Ï")
+ (say knpc "¤³¤ó¤Ë¤Á¤Ï¡¢Î¹¿Í¤µ¤ó¡£")
)
(define (kalc-name knpc kpc)
- (say knpc "I'm Kalcifax. And you are...?")
+ (say knpc "¥«¥ë¥·¥Õ¥¡¥¯¥¹¤Ç¤¹¤ï¡£¤¢¤Ê¤¿¤Ï¡Ä¡©")
(kern-conv-get-reply kpc)
- (say knpc "It's nice to meet you.")
+ (say knpc "²ñ¤¨¤Æ¤¦¤ì¤·¤¤¤Ç¤¹¤ï¡£")
)
(define (kalc-join knpc kpc)
(if (is-player-party-member? knpc)
- (say knpc "I've already joined you!")
+ (say knpc "¤â¤¦Ãç´Ö¤Ç¤¹¤ï¡ª")
(begin
- (say knpc "Ok, this will be fun!")
+ (say knpc "¤¤¤¤¤Ç¤¹¤ï¡£³Ú¤·¤½¤¦¡ª")
(join-player knpc)
(kern-conv-end)
)
))
(define (kalc-job knpc kpc)
- (say knpc "I travel the gates, running errands for people.")
+ (say knpc "Ìç¤Çι¤ò¤·¤Æ¡¢¿Í¡¹¤Î´Ö¤òÁö¤ê²ó¤ë¤³¤È¤Ç¤¹¤ï¡£")
)
(define (kalc-bye knpc kpc)
- (say knpc "I'm sure we'll meet again!")
+ (say knpc "¤Þ¤¿²ñ¤¨¤ëµ¤¤¬¤·¤Þ¤¹¤ï¡ª")
)
(define (kalc-gate knpc kpc)
- (say knpc "The moongates! Do you know how they work?")
+ (say knpc "·î¤ÎÌç¤Ç¤¹¤ï¡£¤É¤¦¤Ê¤Ã¤Æ¤¤¤ë¤«¤´Â¸ÃΤ«¤·¤é¡©")
(if (yes? kpc)
- (say knpc "I don't know why more people don't do it.")
- (say knpc "The phase of Lumis decides where you can enter, "
- "the phase of Ord decides where you emerge!")))
+ (say knpc "¤É¤¦¤·¤Æ³§ÍͤâƱ¤¸¤è¤¦¤Ë¤·¤Ê¤¤¤Î¤«¤·¤é¡£")
+ (say knpc "¥ë¥ß¥¹¤ÎÁ꤬Æþ¤ê¸ý¤ò·è¤á¤Æ¡¢¥ª¡¼¥É¤ÎÁ꤬½Ð¸ý¤Î·è¤á¤ë¤Î¤Ç¤¹¤Î¤è¡ª")))
(define (kalc-lumi knpc kpc)
- (say knpc "Lumis is the yellow slow-moving moon."))
+ (say knpc "¥ë¥ß¥¹¤Ï²«¿§¤¯¤æ¤Ã¤¯¤êÆ°¤¯Êý¤Î·î¤Î¤³¤È¤Ç¤¹¤ï¡£"))
(define (kalc-ord knpc kpc)
- (say knpc "Ord is the blue fast-moving moon."))
+ (say knpc "¥ª¡¼¥É¤ÏÀĤ¯Â®¤¯Æ°¤¯Êý¤Î·î¤Ç¤¹¤ï¡£"))
(define (kalc-engi knpc kpc)
- (say knpc "I'm one of the only people who ever visits the Engineer! "
- "You have to use a moongate to get to his place. "
- "Enter when Ord has waxed almost full."))
+ (say knpc "»ä¤Ïµ»»Õ¤òˬÌ䤷¤¿¿ô¾¯¤Ê¤¤¼Ô¤Î°ì¿Í¤Ç¤¹¤ï¡ª"
+ "·î¤ÎÌç¤ò»È¤ï¤Ê¤±¤ì¤ÐÈà¤Î¾ì½ê¤Ë¤Ï¹Ô¤±¤Þ¤»¤ó¤Î¡£"
+ "¥ª¡¼¥É¤¬Ëþ·î¤Ë¶á¤¤¤È¤¤ËÆþ¤ì¤Ð¤è¤¤¤Î¤Ç¤¹¤ï¡£"))
(define (kalc-peop knpc kpc)
- (say knpc "I deliver messages and packages for the Engineer, the Enchanter, city officials. "
- "Anyone who needs something delivered safely and fast, and is willing to pay!"))
+ (say knpc "ËâÆ»»Õ¤äµ»»Õ¡¢Ä®¤ÎÌò¿Í¤ÎÅÁ¸À¤òÅÁ¤¨¤Æ¤¤¤Þ¤¹¤Î¡£"
+ "°ÂÁ´¤ÇÁ᤯²¿¤«¤ò±¿¤ÖɬÍפ¬¤¢¤ë¡¢Âå¶â¤ò»Ùʧ¤Ã¤Æ¤¯¤ì¤ëÊý¤Ê¤éï¤Ç¤â¤Ç¤¹¤ï¡ª"))
(define (kalc-pay knpc kpc)
- (say knpc "I do pretty good."))
+ (say knpc "¤Ê¤«¤Ê¤«¤Î²Ô¤®¤Ë¤Ê¤ê¤Þ¤¹¤ï¡£"))
(define kalc-conv
(ifc basic-conv
;; basics
+ (method 'default (lambda (knpc kpc) (say knpc "¤É¤¦¤«¤·¤é¡£")))
(method 'hail kalc-hail)
(method 'bye kalc-bye)
(method 'job kalc-job)
(bind
(kern-mk-char
'ch_kalc ; tag
- "Kalcifax" ; name
+ "¥«¥ë¥·¥Õ¥¡¥¯¥¹" ; name
kalc-species ; species
kalc-occ ; occ
s_blue_wizard