;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Green Tower.
+;; ÎФÎÅã
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_doris
(list 0 0 doris-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Doris is the female innkeeper of the White Stag Lodge in Green Tower.
+;; ¥É¥ê¥¹¤ÏÎФÎÅã¤Ë¤¢¤ëÇò¤²´¼¯Áñ¤Î½÷¼ç¿Í¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
(define (doris-name kdoris kplayer)
- (say kdoris "Hi, I'm Doris, innkeeper of the White Stag Lodge."))
+ (say kdoris "»ä¤Ï¥É¥ê¥¹¡¢¤³¤ÎÇò¤²´¼¯Áñ¤Î¼ç¿Í¤è¡£"))
(define (doris-default)
- (say kdoris "Let me think... nope, can't help you there."))
+ (say kdoris "¤Á¤ç¤Ã¤ÈÂԤäơĤ¤¤¨¡¢¤É¤¦¤¹¤ë¤³¤È¤â¤Ç¤¤Ê¤¤¤ï¡£"))
(define (doris-join kdoris kplayer)
- (say kdoris "[laughing] No thanks! I've got my hands full with the lodge."))
+ (say kdoris "¡Î¾Ð¤¤¡Ï¤ªÃǤê¤è¡ª½É¤Î¤³¤È¤ÇÀº°ìÇÕ¤À¤ï¡£"))
(define (doris-doris knpc kpc)
- (say knpc "Yep. That's me."))
+ (say knpc "¤¨¤¨¡£»ä¤Î¤³¤È¤è¡£"))
(define (doris-trade knpc kpc)
(let ((door (eval 'white-stag-door))
;; is the room still open?
(if (not (door-locked? (kobj-gob door)))
;; yes - remind player
- (say knpc "Your room is still open, silly! You can use it as long as "
- "you're in town.")
+ (say knpc "¥Ð¥«¤Í¤¨¡¢Éô²°¤Ï¤â¤¦³«¤¤¤Æ¤¤¤ë¤ï¡ª"
+ "Ä®¤òµî¤ë¤Þ¤Ç½ÐÆþ¤ê¤Ç¤¤ë¤Î¤è¡£")
;; no - ask if player needs a room
(begin
- (say knpc "My room is " price " gold. I'll unlock the door and you "
- "can use it for as long as you are in town. Agreed?")
+ (say knpc "Éô²°¤Ï¶â²ß" price "Ëç¡¢¤³¤ÎÄ®¤ò½Ð¤ë¤Þ¤Ç²¿Å٤Ǥâ½ÐÆþ¤ê¤Ç¤¤Þ¤¹¡£"
+ "¤è¤í¤·¤¤¤Ç¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
;; yes - player has enough gold
(begin
(kern-player-set-gold (- gold price))
- (say knpc "Very well. Take the west passage. First room "
- "at the end of the hall.")
+ (say knpc "¾µÃΤ·¤Þ¤·¤¿¡£À¾Â¦¤Îϲ¼¤ò¿Ê¤ó¤Ç¤¯¤À¤µ¤¤¡£"
+ "¹´Ö¤Îü¤ÎºÇ½é¤ÎÉô²°¤è¡£")
(send-signal knpc door 'unlock)
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Seems you're short of funds. Why don't you "
- "walk around and kill things until you loot enough "
- "corpses? Or whatever you bold adventurers do. [She "
- "smiles a bit too sweetly]")))
+ (say knpc "¤ª¶â¤¬Â¤ê¤Ê¤¤¤è¤¦¤Í¡£"
+ "¤ê¤ë¤Þ¤Ç¤³¤Î¤¢¤¿¤ê¤òÊ⤲ó¤Ã¤Æ¡¢Ã¯¤«¤ò»¦¤·¤Æ»àÂΤò¤¢¤µ¤Ã¤Æ¤¤Æ¤Ï¡©"
+ "ͦ´º¤ÊËÁ¸±¼Ô¤Ï³§¤½¤¦¤·¤Æ¤¤¤Þ¤¹¤è¡£"
+ "¡ÎÈà½÷¤ÏÌ¥ÎÏŪ¤ËÈù¾Ð¤ó¤À¡£¡Ï")))
;; no - player does not want the room
- (say knpc "Maybe some other time, then"))))))
+ (say knpc "¤Ç¤Ï¤Þ¤¿¤Îµ¡²ñ¤Ë¡£"))))))
(define (doris-lodge knpc kpc)
- (say knpc "Yep. It's all mine. It used to belong to my Daddy, God rest his "
- "soul. Most of my customers are local folk, woodsman or travellers "
- "wandering through."))
+ (say knpc "¤¨¤¨¡£»ä¤ÎÁ´¤Æ¤è¡£¤«¤Ä¤Æ¤ÏÉã¤Î¤â¤Î¤À¤Ã¤¿¤±¤É¡¢Å·¤Ë¾¤¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£"
+ "¤ªµÒ¤Î¤Û¤È¤ó¤É¤Ï¤³¤Î¤¢¤¿¤ê¤Î¿¹¿Í¤äι¿Í¤è¡£"))
(define (doris-daddy knpc kpc)
- (say knpc "Daddy hunted and trapped his way to a small fortune then he "
- "built this lodge. When he died, I got the lodge."))
+ (say knpc "Éã¤Ï¼í¤ê¤ÇÆÀ¤¿¾¯¤·¤ÎÉ٤Ǥ³¤Î½É¤òΩ¤Æ¤Þ¤·¤¿¡£É㤬»à¤ó¤Ç¤«¤é¤Ï»ä¤¬°ú¤·Ñ¤¤¤À¤Î¤Ç¤¹¡£"))
(define (doris-local knpc kpc)
- (say knpc "The people here are varied, odd and secretive. They are also "
- "trustworthy, competent and interesting. You will not find better "
- "friends or worse enemies then the ones you make here."))
+ (say knpc "¤³¤Î¤¢¤¿¤ê¤Ë¤Ï¡¢ÊѤï¤ê¼Ô¤«¤éÈëÌ©¤Î¤¢¤ê¤½¤¦¤Ê¿Í¤Þ¤Ç¿§¡¹¤¤¤ë¤ï¡£"
+ "³§¡¢¿®ÍѤǤ¤ëÍǽ¤ÇÌÌÇò¤¤¿Í¤Ç¤â¤¢¤ë¤±¤ì¤É¡£"
+ "¤¢¤Ê¤¿¤Ï¡¢¤³¤³¤Î¿Íã¤è¤êÎɤ¤Í§¤â¡¢°¤¤Å¨¤â¸«¤Ä¤±¤ë¤³¤È¤Ï¤Ç¤¤Ê¤¤¤Ç¤·¤ç¤¦¤Í¡£"))
(define (doris-woodsman knpc kpc)
- (say knpc "Hunters, lumberjacks and foragers usually pass through here if "
- "they are in the area. Wealthier sport hunters from the city take "
- "lodging here, but usually those who work in the woods camp in the "
- "woods. They come here for a bit of drink, company and a decent meal."))
+ (say knpc "¼í¿Í¡¢ÌÚ¤³¤ê¡¢¿©ÎÁ¤òºÎ¼è¤¹¤ë¿Íã¤Ï¡¢¤³¤Î¤¢¤¿¤ê¤ËÍè¤Æ¤âÉáÄ̤³¤³¤òÄ̤ê²á¤®¤Æ¹Ô¤¤Þ¤¹¡£"
+ "Ä®¤Î¤ª¶â»ý¤Á¤Ï¼í¤ê¤ÇÍ·¤Ó¤ËÍè¤ì¤Ð¤³¤³¤ËÇñ¤Þ¤ê¤Þ¤¹¡£"
+ "¤Ç¤â¡¢¤³¤Î¿¹¤ÇƯ¤¯¼Ô¤ÏÉáÄ̤Ͽ¹¤ÎÃæ¤Ç¥¥ã¥ó¥×¤·¤Þ¤¹¡£"
+ "¤³¤³¤ËÍè¤ë¤Î¤Ï¾¯¤·°û¤à¡¢½¸²ñ¡¢¤Á¤ã¤ó¤È¤·¤¿¿©»ö¤Î¤¿¤á¤Ç¤¹¡£"))
(define (doris-travelers knpc kpc)
- (say knpc "Yes, folk like yourself."))
+ (say knpc "¤½¤¦¡£¤¢¤Ê¤¿¤Î¤è¤¦¤Ê¿Í¤è¡£"))
(define (doris-gen knpc kpc)
- (say knpc "An old goblin-fighter. Something of a local legend. You can "
- "find him pottering around in the woods, and he usually stops in at "
- "night for a drink."))
+ (say knpc "ÀΤΥ´¥Ö¥ê¥óÀïÁè¤ÎÀï»Î¡¢¤³¤Î¤¢¤¿¤ê¤Ç¤ÏÅÁÀâ¤ß¤¿¤¤¤Ê¿Í¤è¡£"
+ "ÌÚ¡¹¤Î´Ö¤Ç¤¦¤í¤¦¤í¤·¤Æ¤¤¤ë¤Î¤¬¸«¤Ä¤«¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤Í¡£Ìë¤Ï¤è¤¯°û¤ß¤ËÍè¤Æ¤¤¤Þ¤¹¤è¡£"))
(define (doris-deric knpc kpc)
- (say knpc "Yes, Deric. Well, if you've met Deric then you know Deric. He's "
- "competent enough but doesn't want to spend his life in the obscurity "
- "of a frontier post."))
+ (say knpc "¤¨¤¨¡¢¥Ç¥ê¥Ã¥¯¡Ä¡Ä¡£²ñ¤¨¤Ð¤É¤ó¤Ê¿Í¤«¤ï¤«¤ë¤ï¡£"
+ "Èà¤ÏΩÇɤÀ¤±¤É¡¢¤³¤ÎÊÕ¶¤ÎÃϰ̤˿ÍÀ¸¤òÈñ¤ä¤¹¤Ä¤â¤ê¤Ï¤Ê¤¤¤è¤¦¤Í¡£"))
(define (doris-shroom knpc kpc)
- (say knpc "Some say she is a witch, and that she knows some goblin magic. "
- "She certainly is handy when anyone falls ill. She often takes her "
- "meals here."))
+ (say knpc "Èà½÷¤ÏËâ½÷¤Ç¡¢¥´¥Ö¥ê¥ó¤ÎËâ½Ñ¤âÃΤäƤ¤¤ë¤È¸À¤¦¼Ô¤â¤¤¤Þ¤¹¡£"
+ "Èà½÷¤Ï狼¤¬Éµ¤¤Ë¤Ê¤Ã¤¿¤È¤¤ÏËÜÅö¤ËÍê¤ê¤Ë¤Ê¤ë¤Î¤è¡£"
+ "¤³¤³¤Ë¤â¤è¤¯¿©¤Ù¤ËÍè¤Þ¤¹¤è¡£"))
(define (doris-abe knpc kpc)
- (say knpc "Some kind of scholar from Glasdrin. He spends all his time "
- "studying the ruins. Bookish fellow."))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î³Ø¼Ô¤Î¤è¤¦¤Í¡£°äÀפÎÄ´ºº¤Ë¤Û¤È¤ó¤É¤Î»þ´Ö¤òÈñ¤ä¤·¤Æ¤¤¤ë¤ï¡£"
+ "ËܤÎÃî¤ß¤¿¤¤¤Ê¿Í¤è¡£"))
(define (doris-abigail knpc kpc)
- (say knpc "She was orphaned, so I adopted her. I always wanted a child, "
- "but that was not to be. I worry about her future... I know she "
- "belongs among her own kind but I can't bear the thought of losing "
- "her."))
+ (say knpc "Èà½÷¤Ï¸É»ù¤Ê¤Î¡£¤½¤ì¤Ç»ä¤¬ÍܻҤˤ·¤¿¤Î¤è¡£¤º¤Ã¤È¼«Ê¬¤Î»Ò¶¡¤¬Íߤ·¤«¤Ã¤¿¤±¤É¡¢"
+ "¤Ç¤¤Ê¤«¤Ã¤¿¡£¤¢¤Î»Ò¤Î¾Í褬É԰¡ġ£"
+ "»ä¤Ë¤Ï¤¢¤Î»Ò¤¬¼º¤Ã¤¿¤â¤Î¤ÎÂå¤ï¤ê¤Ï¤Ç¤¤Ê¤¤¤ï¡£"))
(define (doris-goblins knpc kpc)
- (say knpc "They trade with the townsfolk, I even have one as a customer "
- "from time-to-time. But they are forbidden by law to enter cities in "
- "large numbers, so they're always outnumbered. Most of them are hasty "
- "to conclude their business and get back into the woods."))
+ (say knpc "Èà¤é¤ÏÄ®¤Î¿Í¤È¸ò°×¤ò¤·¤Æ¤¤¤ë¤ï¡£"
+ "»ä¤â»þ¡¹Èà¤é¤«¤éÇ㤤¤Þ¤¹¡£"
+ "¤Ç¤â¡¢Èà¤é¤Ï¤¤¤Ä¤â·²¤ì¤Æ¤¤¤ë¤«¤é¡¢ÂçÀª¤ÇÄ®¤ËÆþ¤ë¤³¤È¤ÏË¡¤Ç¶Ø»ß¤µ¤ì¤Æ¤¤¤ë¤Î¡£"
+ "Èà¤é¤Î¤Û¤È¤ó¤É¤Ï¾¦Çä¤ò¤¹¤°¤ËÀÚ¤ê¾å¤²¤Æ¡¢¿¹¤Ø¤ÈÌá¤Ã¤Æ¹Ô¤¯¤ï¡£"))
(define (doris-orphaned knpc kpc)
- (say knpc "Shroom brought her to me when she was just a baby. Said she "
- "found her in the woods besides her dead parents. I don't know what - "
- "or who - killed them, Shroom wouldn't say. Perhaps I don't want to "
- "know."))
+ (say knpc "¥·¥å¥ë¡¼¥à¤¬»ä¤Î¤È¤³¤í¤Ë¤¢¤Î»Ò¤òÏ¢¤ì¤Æ¤¤¿¤È¤¡¢¤Þ¤ÀÀÖ¤Á¤ã¤ó¤À¤Ã¤¿¡£"
+ "¿¹¤ÎÃæ¤Ç¸«¤Ä¤±¤¿¤È¤¡¢Â¦¤Ë¤¤¤¿Î¾¿Æ¤Ï»à¤ó¤Ç¤¤¤¿¤È¸À¤Ã¤Æ¤¿¡£"
+ "¤Ê¤¼»à¤ó¤Ç¤¤¤¿¤Î¤«¡¢¤½¤ì¤È¤â»¦¤µ¤ì¤¿¤Î¤«¡£¥·¥å¥ë¡¼¥à¤Ï²¿¤â¸À¤ï¤Ê¤«¤Ã¤¿¡£"
+ "¤â¤·¤«¤·¤¿¤é»ä¤¬ÃΤꤿ¤¯¤Ê¤¤¤Î¤«¤â¤·¤ì¤Ê¤¤¡£"))
(define (doris-hail knpc kpc)
- (say knpc "Welcome to the White Stag"))
+ (say knpc "Çò¤²´¼¯Áñ¤Ø¤è¤¦¤³¤½¡£"))
(define (doris-bye knpc kpc)
- (say knpc "Come back anytime"))
+ (say knpc "¤Þ¤¿¤É¤¦¤¾¡£"))
(define (doris-default knpc kpc)
- (say knpc "Can't help you there"))
+ (say knpc "¤É¤¦¤¹¤ë¤³¤È¤â¤Ç¤¤Ê¤¤¤ï¡£"))
(define (doris-thie knpc kpc)
- (say knpc "I haven't had any odd guests lately. Check with Deric, who gets "
- "reports from ranger patrols. And Gen may have seen something in his "
- "wanderings, too."))
+ (say knpc "ºÇ¶á¤Ï²ø¤·¤¤¿Í¤Ï¸«¤Æ¤ª¤ê¤Þ¤»¤ó¡£¥Ç¥ê¥Ã¥¯Â⍬·ÙÈ÷Ââ°÷¤ÎÊó¹ð¤òʹ¤¤¤Æ¤¤¤ë¤«¤âÃΤì¤Þ¤»¤ó¡£"
+ "¥¸¥§¥ó¤â³°¤Ç²¿¤«¸«¤Æ¤¤¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤Í¡£"))
(define (doris-band knpc kpc)
- (say knpc "Travelers have been complaining about them! "
- "I wish Deric would do something, they're bad for business!"))
+ (say knpc "ι¿Í¤Ï¤ß¤ó¤Êº¤¤Ã¤Æ¤¤¤ë¡ª"
+ "¥Ç¥ê¥Ã¥¯¤Ë¤É¤¦¤Ë¤«¤·¤ÆÍߤ·¤¤¡£¤³¤Î¤Þ¤Þ¤Ç¤Ï¾¦Çä¤Ë¤Ê¤ê¤Þ¤»¤ó¡ª"))
(define doris-conv
(ifc green-tower-conv
(define (mk-doris tag)
(bind
(kern-mk-char tag ; tag
- "Doris" ; name
+ "¥É¥ê¥¹" ; name
sp_human ; species
nil ; occ
s_townswoman ; sprite