;;----------------------------------------------------------------------------
;; Conv
;;
-;; Angela is a female innkeeper, who runs the Palisades Inn in Glasdrin.
-;; She is a gracious, mysterious woman.
+;; ¥¨¥ó¥¸¥§¥é¤Ï½É²°¡Ö¾ëÊɡפμç¤Î½÷À¤Ç¡¢¾ëºÉÅÔ»Ô¥°¥é¥¹¥É¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
+;; Èà½÷¤Ï¾åÉʤÀ¤¬Ææ¤Î¿¤¤½÷À¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (ange-hail knpc kpc)
- (say knpc "[You meet a charming lady] Welcome, traveler."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤ÏÌ¥ÎÏŪ¤Ê½÷À¤È²ñ¤Ã¤¿¡£¡Ï¤è¤¦¤³¤½¤¤¤é¤Ã¤·¤ã¤¤¤Þ¤·¤¿¡£Î¹¤ÎÊý¡£"))
(define (ange-default knpc kpc)
- (say knpc "I'm afraid I don't know."))
+ (say knpc "»ÄÇ°¤Ç¤¹¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£"))
(define (ange-name knpc kpc)
- (say knpc "I am Angela. And you are?")
+ (say knpc "»ä¤Ï¥¨¥ó¥¸¥§¥é¤Ç¤¹¡£¤¢¤Ê¤¿¤Ï¡©")
(let ((name (kern-conv-get-string kpc)))
- (say knpc "I am most pleased to meet you, " name
- ". I hope you enjoy your stay in Glasdrin.")))
+ (say knpc "²ñ¤¨¤Æ¤¦¤ì¤·¤¤¤Ç¤¹¡¢" name
+ "ÍÍ¡£¥°¥é¥¹¥É¥ê¥ó¤ÎÂںߤò³Ú¤·¤ó¤Ç¤¯¤À¤µ¤¤¡£")))
(define (ange-join knpc kpc)
- (say knpc "You flatter me! It's been years since I've had a good adventure, "
- "but I must decline."))
+ (say knpc "¤ªÀ¤¼¤Ï¤è¤·¤Æ¤¯¤À¤µ¤¤¡ª²¿Ç¯¤âÁ°¤Ï¤è¤ËÁ¸±¼Ô¤Ç¤·¤¿¤¬¡¢"
+ "¤â¤¦¼¤á¤¿¤Î¤Ç¤¹¡£"))
(define (ange-job knpc kpc)
- (say knpc "I'm the Innkeeper of Glasdrin. "
- "If you'd like a room just ask!"))
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î½É²°¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£"
+ "Éô²°¤¬É¬Íפʤ餪¿½¤·ÉÕ¤±¤¯¤À¤µ¤¤¡ª"))
(define (ange-bye knpc kpc)
- (say knpc "Farewell, traveler, I do hope you come back soon!"))
+ (say knpc "¤µ¤è¤¦¤Ê¤é¡¢Î¹¤ÎÊý¡£¤Þ¤¿¤¤¤é¤·¤Æ¤¯¤À¤µ¤¤¡ª"))
;; Trade...
(define (ange-trade knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "Oh, do please stop by when I'm at my counter! "
- "The Palisades is open from 7:00AM to 11:00PM. "
- "I hope to see you then!")
+ (say knpc "¤¢¤¢¡¢»ä¤¬½É¤Ë¤¤¤ë¤È¤¤ËÇñ¤Þ¤ê¤ËÍè¤Æ¤¯¤À¤µ¤¤¡ª"
+ "¡Ö¾ëÊɡפϸáÁ°7»þ¤«¤é¸á¸å11»þ¤Þ¤Ç³«¤¤¤Æ¤¤¤Þ¤¹¡£"
+ "¤Þ¤¿¸å¤Ç²ñ¤¤¤Þ¤·¤ç¤¦¡ª")
(let ((door (eval 'glasdrin-inn-room-1-door)))
;; is the room still open?
(if (not (door-locked? (kobj-gob door)))
;; yes - remind player
- (say knpc "Room 1 is yours until you leave town!")
+ (say knpc "1¹æ¼¼¤ÏÄ®¤òÎ¥¤ì¤ë¤Þ¤Ç¤Ï¤¢¤Ê¤¿¤ÎÉô²°¤Ç¤¹¡ª")
;; no - ask if player needs a room
(begin
- (say knpc "Do you need a room?")
+ (say knpc "¤ªÉô²°¤¬É¬ÍפǤ¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player wants a room
(begin
(say knpc
- "That will be " glasdrin-inn-room-price " gold. "
- "The room is yours until you leave town. "
- "Is this to your liking?")
+ "¶â²ß" glasdrin-inn-room-price "Ëç¤Ç¤¹¡£"
+ "Ä®¤ò½Ð¤ë¤Þ¤Ç¤Ï¤¢¤Ê¤¿¤ÎÉô²°¤Ç¤¹¡£"
+ "¤è¤í¤·¤¤¤Ç¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
(if (>= gold glasdrin-inn-room-price)
;; yes - player has enough gold
(begin
- (say knpc "Wonderful! You're in room 1, "
- "our very best! Enjoy your stay.")
+ (say knpc "¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª¤ªÉô²°¤Ï1¹æ¼¼¤Ç¤¹¡£"
+ "¤´¤æ¤Ã¤¯¤ê¤É¤¦¤¾¡£")
(kern-player-set-gold
(- gold
glasdrin-inn-room-price))
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Oh dear, I'm afraid you don't have "
- "enough gold! I do hope when your fortunes "
- "improve you'll come back and stay." )))
+ (say knpc "¤¢¤¢¡¢»ÄÇ°¤Ç¤¹¤¬ÎÁ¶â¤¬Â¤ê¤Þ¤»¤ó¡ª"
+ "¤ª¶â¤ò²Ô¤¤¤À¤é¤¼¤Ò¤ª¤³¤·¤¯¤À¤µ¤¤¡£" )))
;; no - player does not agree to the price
- (say knpc "I do wish you would stay, "
- "I rarely get such intriguing guests!")))
+ (say knpc "Çñ¤Þ¤Ã¤Æ¤¤¤¿¤À¤±¤ë¤È¤¦¤ì¤·¤¤¤Î¤Ç¤¹¤¬¡£"
+ "ÄÁ¤·¤¤¤ªµÒÍͤǤ¹¤Í¡ª")))
;; no - player does not want a room
- (say knpc "Oh, I am so disappointed, "
- "you seem like a very interesting guest! "
- "Perhaps another time.")))))))
+ (say knpc "¤¢¤¢¡¢»ÄÇ°¤Ç¤¹¡£"
+ "ÊѤï¤Ã¤¿¤ªµÒÍͤǤ¹¤Í¡ª"
+ "¤Þ¤¿¤Îµ¡²ñ¤Ë¤É¤¦¤¾¡£")))))))
;; Inn...
(define (ange-inn knpc kpc)
- (say knpc "The Palisades is a very fine inn, if I say so myself."))
+ (say knpc "¾ëÊɤϤ¹¤Ð¤é¤·¤¤½É¤È»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£"))
(define (ange-adve knpc kpc)
- (say knpc "As you may know, all citizens of Glasdrin must serve a tour of "
- "duty. I was a quartermaster, and once I even went with the paladins "
- "on patrol."))
+ (say knpc "ÃΤäƤ¤¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢Á´¤Æ¤Î¥°¥é¥¹¥É¥ê¥ó»Ô̱¤Ë¤ÏʼÌò¤ÎµÁ̳¤¬¤¢¤ê¤Þ¤¹¡£"
+ "»ä¤Ï¤«¤Ä¤ÆÊäµëÉôÂâ¤Ë½ê°¤·¤Æ¤¤¤Æ¡¢·ÙÈ÷¤ÎÀ»µ³»Î¤ÈƱ¹Ô¤·¤Æ¤¤¤Þ¤·¤¿¡£"))
(define (ange-patr knpc kpc)
- (say knpc "It was a lovely walk, and camping under the stars was grand. "
- "But then gints attacked and ruined the whole mood."))
+ (say knpc "¤è¤¤Ç¤Ì³¤Ç¤·¤¿¡£À±¤Î²¼¤Î¿Ø¤Ï¤¹¤Ð¤é¤·¤¤¤â¤Î¤Ç¤·¤¿¡£"
+ "¤Ç¤â¡¢µð¿Í¤Î½±·â¤ÇÁ´¤Æ¤¬Âæ̵¤·¤Ë¤µ¤ì¤Þ¤·¤¿¡£"))
(define (ange-gint knpc kpc)
- (say knpc "Gints are like stocky men but enormous and two-headed. "
- "They once were common in the mountains, but the vigilance of Glasdrin "
- "has driven them into caves. They are most fearsome brutes. "
- "I've seen them hurl grown, heavily armored men like missiles at their "
- "own comrades!"))
+ (say knpc "µð¿Í¤Ï»Ñ¤Ï¿Í´Ö¤È»÷¤Æ¤¤¤Þ¤¹¤¬¡¢µðÂç¤ÇƬ¤¬Æó¤Ä¤¢¤ê¤Þ¤¹¡£"
+ "¤«¤Ä¤Æ»³¤Ë¤ÏÉáÄ̤ˤ¤¤Þ¤·¤¿¤¬¡¢¥°¥é¥¹¥É¥ê¥ó¤Î·ÙÈ÷¤Î¤ª¤«¤²¤Çƶ·¢¤ËÄɤ¤¤ä¤ë¤³¤È¤¬¤Ç¤¤Þ¤·¤¿¡£"
+ "Èà¤é¤ÏºÇ¤â¶§Ë½¤Ç¶²¤ë¤Ù¤Â¸ºß¤Ç¤¹¡£"
+ "µð¿Í¤¬½ÅÁõÈ÷¤ÎÀï»Î¤òÀФ³¤í¤Î¤è¤¦¤ËÅꤲ¤Ä¤±¤ë¤Î¤ò¸«¤¿¤³¤È¤¬¤¢¤ê¤Þ¤¹¡ª"))
;; Townspeople...
(define (ange-glas knpc kpc)
- (say knpc "Glasdrin is a fair city, do you not think so?")
+ (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Ï¤¹¤Ð¤é¤·¤¤Ä®¤Ç¤¹¡£¤½¤¦»×¤¤¤Þ¤»¤ó¤«¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "Indeed.")
- (say knpc "No doubt you have seen magnificent cities in your travels. "
- "I suppose I love it because it is home.")))
+ (say knpc "¤Þ¤Ã¤¿¤¯¤Ç¤¹¡£")
+ (say knpc "ι¤ÎÃæ¤Ç¤¹¤Ð¤é¤·¤¤Ä®¤ò¤¤¤¯¤Ä¤â¸«¤Æ¤¤¿¤Î¤Ç¤·¤ç¤¦¤Í¡£"
+ "»ä¤Ï¤³¤ÎÄ®¤ò°¦¤·¤Æ¤¤¤Þ¤¹¡£¤³¤³¤Ï»ä¤Î²È¤Ç¤¹¡£")))
(define (ange-patc knpc kpc)
- (say knpc "Patch is the best healer around. "
- "He can even call back the recently deceased, "
- "if their wounds are not too grievous."))
+ (say knpc "´ãÂÓÀèÀ¸¤Ï¤³¤Î¤¢¤¿¤ê¤ÇºÇ¤âÍ¥¤ì¤¿°å»Õ¤Ç¤¹¡£"
+ "½ý¤¬¤Ò¤É¤¯¤Ê¤±¤ì¤Ð¡¢ºÇ¶áË´¤¯¤Ê¤Ã¤¿¿Í¤òÁÉÀ¸¤¹¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£"))
(define ange-conv
(ifc glasdrin-conv
(define (mk-angela)
(bind
(kern-mk-char 'ch_angela ; tag
- "Angela" ; name
+ "¥¨¥ó¥¸¥§¥é" ; name
sp_human ; species
nil ; occ
s_townswoman ; sprite
OSDN Git Service
