;;----------------------------------------------------------------------------
;; Schedule
;;
-;; The schedule below is for the place "Trigrave"
+;; ¥È¥ê¥°¥ì¥¤¥Ö
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_gwen
(list 0 0 trigrave-gwens-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Gwen is the innkeeper for Trigrave. She is a gracious, mysterious woman.
+;; ¥°¥Ù¥ó¤Ï½É²°¤Î¼ç¿Í¤Ç¡¢Í¥²í¤ÇÆæ¤Î¿¤¤½÷À¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
(define (gwen-trade knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "Come by my shop when I'm open. "
- "It's the Gray Dove Inn in the northwest corner of town. "
- "I open at 9:00AM and close the counter at midnight.")
+ (say knpc "»ä¤ÎŹ¤¬³«¤¤¤Æ¤¤¤ë¤È¤¤ËÍè¤Æ¤¯¤À¤µ¤¤¡£"
+ "½É²°¡Ö³¥¿§¤ÎÈ·¡×¤Ï¤³¤ÎÄ®¤ÎËÌÀ¾¤Ë¤¢¤ê¤Þ¤¹¡£"
+ "¸áÁ°9»þ¤Ë³«¤¤¤Æ¡¢¿¼Ìë¤ËÊÄŹ¤·¤Þ¤¹¡£")
(let ((door (eval 'trigrave-inn-room-1-door)))
;; is the room still open?
(if (not (door-locked? (kobj-gob door)))
;; yes - remind player
- (say knpc "Your room is still open!")
+ (say knpc "¤¢¤Ê¤¿¤Î¤ªÉô²°¤Ï¤â¤¦³«¤¤¤Æ¤¤¤Þ¤¹¡ª")
;; 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
- "It will be " trigrave-inn-room-price " gold, "
- "and you may use the room as "
- "long as you are in town. Agreed?")
+ "ÎÁ¶â¤Ï¶â²ß" trigrave-inn-room-price "Ëç¡¢"
+ "¤³¤ÎÄ®¤Ë¤¤¤ë´Ö¡¢²¿Å٤Ǥâ½ÐÆþ¤ê¤Ç¤¤Þ¤¹¡£"
+ "¤è¤í¤·¤¤¤Ç¤¹¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
(kern-player-set-gold
(- gold
trigrave-inn-room-price))
- (say knpc "You're in room 1. Enjoy your stay!")
+ (say knpc "1¹æ¼¼¤Ç¤¹¡£¤´¤æ¤Ã¤¯¤ê¤É¤¦¤¾¡ª")
(send-signal knpc door 'unlock)
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Sorry, but you need more gold!")))
+ (say knpc "»ÄÇ°¤Ç¤¹¤¬¤ª¶â¤¬Â¤ê¤Þ¤»¤ó¡ª")))
;; no - player does not agree to the price
(say knpc
- "You won't find a better deal in the Peninsula!")))
+ "¤³¤³¤è¤êÎɤ¤½É¤Ï¡¢¤³¤ÎȾÅç¤Ë¤Ï¤¢¤ê¤Þ¤»¤ó¤è¡ª")))
;; no - player does not want a room
- (say knpc "Perhaps another time.")))))))
+ (say knpc "¤Þ¤¿¤Îµ¡²ñ¤Ë¤É¤¦¤¾¡£")))))))
(define (gwen-thie knpc kpc)
- (say knpc "Some recent travelers from Green Tower met a man in great haste heading east through the pass. You might try asking around in Green Tower.")
+ (say knpc "ÎФÎÅ㤫¤éºÇ¶áÍ褿µÒ¤¬¡¢Åì¤Î»³Æ»¤Ç¤È¤Æ¤âµÞ¤¤¤Ç¤¤¤ë¿Í¤ò¸«¤¿¤½¤¦¤Ç¤¹¤è¡£ÎФÎÅã¤Î¤¢¤¿¤ê¤Çʹ¤¤¤Æ¤ß¤ì¤Ð¤è¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£")
(quest-data-update-with 'questentry-thiefrune 'tower 1 (quest-notify (grant-party-xp-fn 10)))
)
+(define (gwen-news knpc kpc)
+ (say knpc "ËâÆ»»Õ¤¬²¿¤«½ÅÍפʤâ¤Î¤ò¤Ê¤¯¤·¤¿¤½¤¦¤Ç¤¹¤è¡£"))
+
(define gwen-conv
(ifc basic-conv
;; default if the only "keyword" which may (indeed must!) be longer than
;; truncating all player queries to the first four characters. Default,
;; on the other hand, is a feature of the ifc mechanism (see ifc.scm).
(method 'default (lambda (knpc kpc)
- (say knpc "I cannot help you with that")))
+ (say knpc "»ÄÇ°¤Ê¤¬¤é¤ª¼êÅÁ¤¤¤Ç¤¤Þ¤»¤ó¡£")))
(method 'hail
(lambda (knpc kpc)
- (kern-print "[You see an enchanting woman dressed in "
- "gray. Belted to her waist is a long, thin "
- "sword.]")
- (say knpc "Welcome, traveler.")))
- (method 'bye (lambda (knpc kpc) (say knpc "Goodbye.")))
+ (kern-print "¡Î¤¢¤Ê¤¿¤Ï³¥¿§¤ÎÉþ¤òÃ夿̥ÎÏŪ¤Ê½÷À¤È²ñ¤Ã¤¿¡£"
+ "¹ø¤Î¥Ù¥ë¥È¤Ë¤ÏºÙ¤¯Ä¹¤¤^c+m·õ^c-¤¬¸«¤¨¤ë¡£¡Ï\n")
+ (say knpc "¤è¤¦¤³¤½¡£Î¹¤ÎÊý¡£")))
+ (method 'bye (lambda (knpc kpc) (say knpc "¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£")))
(method 'job
(lambda (knpc kpc)
- (say knpc "I'm the innkeeper of Trigrave.")
+ (say knpc "¥È¥ê¥°¥ì¥¤¥Ö¤Î½É²°¤ò¤·¤Æ¤ª¤ê¤Þ¤¹¡£")
(gwen-trade knpc kpc)))
- (method 'name (lambda (knpc kpc) (say knpc "I am Gwen.")))
+ (method 'name (lambda (knpc kpc) (say knpc "»ä¤Ï¥°¥Ù¥ó¤Ç¤¹¡£")))
(method 'trad gwen-trade)
(method 'join
(lambda (knpc kpc)
- (say knpc "My journeys are over, "
- "but thank you for the offer.")))
+ (say knpc "»ä¤Îι¤Ï¤â¤¦½ª¤ï¤ê¤Þ¤·¤¿¡£"
+ "¤Ç¤â¡¢¤ªÍ¶¤¤¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£")))
(method 'chan
(lambda (knpc kpc)
- (say knpc "That rapscallion is usually at the tavern. He "
- "stumbles back to his room here late at night, drunk as a sailor.")))
+ (say knpc "¤¢¤Î¤ªÄ´»Ò¼Ô¤ÏÉáÃʤϼò¾ì¤Ë¤¤¤Þ¤¹¡£"
+ "ÌëÃÙ¤¯¤Ê¤ë¤ÈÁ¥¾è¤ê¤ß¤¿¤¤¤Ë¿ì¤Ã¤ÆÉô²°¤ËÌá¤Ã¤Æ¤¤Þ¤¹¡£")))
(method 'civi
(lambda (knpc kpc)
- (say knpc "There is not much civilization to speak of around here.")))
+ (say knpc "¤³¤Î¤¢¤¿¤ê¤Î¤³¤È¤òÏä¹ÅԻԤοͤϤ¢¤Þ¤ê¤¤¤Þ¤»¤ó¡£")))
(method 'earl
(lambda (knpc kpc)
- (say knpc "A sweet but befuddled old man. He keeps the shop "
- "south of my Inn.")))
+ (say knpc "ÁÇŨ¤Ê¡¢¤Ç¤âʪ˺¤ì¤Î·ã¤·¤¤¤´Ï·¿Í¤Ç¤¹¡£"
+ "Èà¤Ï»ä¤Î½É¤ÎÆî¤ÇŹ¤òÀÚ¤êÀ¹¤ê¤·¤Æ¤Þ¤¹¡£")))
(method 'enem
- (lambda (knpc kpc) (say knpc "That is not your business.")))
+ (lambda (knpc kpc) (say knpc "¤¢¤Ê¤¿¤Ë¤Ï´Ø·¸¤Î¤Ê¤¤¤³¤È¤Ç¤¹¡£")))
(method 'esca
(lambda (knpc kpc)
- (say knpc "If one wishes to hide from an enemy or a "
- "shameful act there is no place better than this "
- "forgotten corner of the Shard.")))
+ (say knpc "¤â¤·¡¢Å¨¤äÃѤ¸¤ë¤Ù¤¹Ô¤¤¤«¤é¿È¤ò±£¤·¤¿¤¤¤Ê¤é¡¢"
+ "¤³¤Î¥·¥ã¥ë¥É¤Î˺¤ì¤é¤ì¤¿ÃϤè¤êÎɤ¤¾ì½ê¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¡£")))
(method 'inn
(lambda (knpc kpc)
- (say knpc "I enjoy running the Inn because I get to hear "
- "news from travelers.")))
+ (say knpc "½É²°¤Ï³Ú¤·¤¤»Å»ö¤Ç¤¹¡£"
+ "ι¿Í¤«¤é¿§¡¹¤ÊÏäòʹ¤±¤Þ¤¹¤«¤é¡£")))
(method 'jim
(lambda (knpc kpc)
- (say knpc "Handsome, but rather grim. He owns the "
- "blacksmith shop on the east end.")))
- (method 'news (lambda (knpc kpc)
- (say knpc "I've heard the Enchanter is missing something valuable.")))
+ (say knpc "¥Ï¥ó¥µ¥à¤Ê¡¢¤Ç¤â¾¯¤·¹Ó¤Ã¤Ý¤¤¿Í¤Ç¤¹¡£"
+ "Èà¤ÏÅì¤Îü¤ÇÃÃÌê²°¤ò±Ä¤ó¤Ç¤Þ¤¹¡£")))
+ (method 'news gwen-news)
+ (method 'stor gwen-news)
(method 'room gwen-trade)
(method 'sham
- (lambda (knpc kpc) (say knpc "That is not your business.")))
+ (lambda (knpc kpc) (say knpc "¤¢¤Ê¤¿¤Ë¤Ï´Ø·¸¤Î¤Ê¤¤¤³¤È¤Ç¤¹¡£")))
(method 'swor
(lambda (knpc kpc)
- (say knpc "It was a gift from a friend.")))
+ (say knpc "ͧ¿Í¤«¤é¾ù¤ê¼õ¤±¤¿¤â¤Î¤Ç¤¹¡£")))
(method 'tave
(lambda (knpc kpc)
- (say knpc "The Lusty Juggs is in the south part of town.")))
+ (say knpc "¡ÖÍÛµ¤¤ÊÇաפϤ³¤ÎÄ®¤ÎÆˤ¢¤ê¤Þ¤¹¡£")))
(method 'thie gwen-thie)
(method 'trig
(lambda (knpc kpc)
- (say knpc "This is a small town, far from civilization. "
- "Many come here to escape.")))
+ (say knpc "¤³¤³¤ÏÅÔ»Ô¤«¤éÎ¥¤ì¤¿¾®¤µ¤ÊÄ®¤Ç¤¹¡£"
+ "¤¿¤¯¤µ¤ó¤Î¿Í¤¬Æ¨¤ì¤ë¤¿¤á¤Ë¤³¤³¤Ë¤¤¤Þ¤¹¡£")))
))