;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Glasdrin
+;; ¥°¥é¥¹¥É¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_patch
(list 0 0 gdp-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; An old wizard living in Glasdrin, who works as a healer.
-;; He wears an eyepatch, and is known as "Doc Patch".
+;; ¥°¥é¥¹¥É¥ê¥ó¤Ë½»¤àÏ·¿Í¤ÎËâ½Ñ»Õ¤Ç¡¢°å»Õ¤È¤·¤ÆƯ¤¤¤Æ¤¤¤ë¡£
+;; Èà¤Ï´ãÂÓ¤ò¤·¤Æ¤¤¤Æ¡¢¡Ö´ãÂÓ¤ÎÀèÀ¸¡×¤È¤·¤ÆÃΤé¤ì¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (patch-hail knpc kpc)
- (say knpc "[You meet a sprightly old wizard with an eyepatch] "
- "Hail, traveler."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï´ãÂÓ¤ò¤·¤¿¸µµ¤¤ÊËâ½Ñ»Õ¤ÎÏ·¿Í¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¤³¤ó¤Ë¤Á¤Ï¡¢Î¹¤ÎÊý¡£"))
(define (patch-default knpc kpc)
- (say knpc "I can't help you with that."))
+ (say knpc "¤½¤ì¤Ï¼ê½õ¤±¤Ç¤¤Ê¤¤¤Ê¡£"))
(define (patch-name knpc kpc)
- (say knpc "People call me Doc Patch."))
+ (say knpc "¿Í¡¹¤Ï»ä¤ò´ãÂÓ¤ÎÀèÀ¸¤È¸Æ¤ó¤Ç¤¤¤ë¡£"))
(define (patch-join knpc kpc)
- (say knpc "No, my duty is here, Wanderer."))
+ (say knpc "¤¤¤¤¤ä¡£¤³¤³¤Ë¤¤¤ë¤Î¤¬»ä¤Î̳¤á¤À¡¢Ì¤¤¿Í¤è¡£"))
(define (patch-job knpc kpc)
- (say knpc "I run the hospital. Do you need healing?")
+ (say knpc "¤³¤Îɱ¡¤ÇƯ¤¤¤Æ¤¤¤ë¡£¼£ÎŤ¬É¬Íפ«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(patch-trade knpc kpc)
- (say knpc "Well if you ever do, I can fix you up.")))
+ (say knpc "ɬÍפʤȤ¤Ë¼£ÎŤ·¤è¤¦¡£")))
(define (patch-bye knpc kpc)
- (say knpc "Keep well!"))
+ (say knpc "¤ª¤À¤¤¤¸¤Ë¡ª"))
;; Trade...
(define (patch-trade knpc kpc)
(if (trade-services knpc kpc
(list
- (svc-mk "Heal" 30 heal-service)
- (svc-mk "Cure" 30 cure-service)
- (svc-mk "Resurrect" 100 resurrect-service)))
+ (svc-mk "²óÉü" 30 heal-service)
+ (svc-mk "¼£Ìþ" 30 cure-service)
+ (svc-mk "ÁÉÀ¸" 100 resurrect-service)))
(begin
- (say knpc "What else can I do for you?")
+ (say knpc "¾¤Ë²¿¤«¤¹¤ë¤³¤È¤¬¤¢¤ë¤«¤Í¡©")
(patch-trade knpc kpc))
(begin
- (say knpc "Will there be anything else?")
+ (say knpc "¾¤Ë²¿¤«¤¢¤ë¤«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(patch-trade knpc kpc)
- (say knpc "Very well.")))))
+ (say knpc "¤è¤í¤·¤¤¡£")))))
;; Patch...
(define (patch-patc knpc kpc)
- (say knpc "I lost my eye in Kurpolis. It's so dark there I didn't really "
- "need it. [He winks. With his good eye.]"))
+ (say knpc "¥¯¥í¥Ý¥ê¥¹¤ÇÊÒÌܤò¼º¤Ã¤¿¡£¤½¤³¤Ï¤È¤Æ¤â°Å¤¤¤Î¤ÇËÜÅö¤ÏɬÍפʤ«¤Ã¤¿¤Î¤À¡£"
+ "¡ÎÈà¤Ï¸«¤¨¤ë¤Û¤¦¤ÎÌܤò¥¦¥£¥ó¥¯¤·¤¿¡£¡Ï"))
(define (patch-kurp knpc kpc)
- (say knpc "The paladins keep an outpost in the dungeon, and "
- "I did a tour of duty down there in my youth."))
+ (say knpc "À»µ³»Î¤Ï̵ܤÎÁ°Àþ¤ò¼é¤Ã¤Æ¤¤¤ë¡£"
+ "¤½¤·¤Æ¡¢¼ã¤¤¤³¤íʼÌò¤Ë½¢¤¤¤Æ¤¤¤¿¤È¤¤Ï¡¢¤½¤³¤Ë¤¤¤¿¤Î¤À¡£"))
(define (patch-tour knpc kpc)
- (say knpc "All citizens of Glasdrin are required to serve a tour of duty. "
- "I was a medik."))
+ (say knpc "Á´¤Æ¤Î¥°¥é¥¹¥É¥ê¥ó¤Î»Ô̱¤ÏʼÌò¤ÎµÁ̳¤¬¤¢¤ë¡£"
+ "»ä¤Ï°å»Õ¤À¤Ã¤¿¡£"))
(define (patch-medi knpc kpc)
- (say knpc "A medik is a mage that specializes in healing arts. Paladin "
- "squads are all assigned a medik to support them in battle. "
- "We get some basic combat training, but I only had to use my dagger "
- "once."))
+ (say knpc "°å»Õ¤Ï¼£ÎŤε»½Ñ¤ËŤ±¤¿Ëâ½Ñ»Õ¤À¡£"
+ "Á´¤Æ¤ÎÀ»µ³»Î¤ÎÉôÂâ¤Ë¤ÏÀ襤¤ò»Ù±ç¤¹¤ë¤¿¤á°å»Õ¤¬²Ã¤ï¤Ã¤Æ¤¤¤ë¡£"
+ "ÀïÆ®¤Î´ðÁ÷±Îý¤â¼õ¤±¤ë¡£¤·¤«¤·»ä¤Ïû·õ¤ò°ìÅٻȤ俤À¤±¤À¡£"))
(define (patch-dagg knpc kpc)
- (say knpc "Yep, I carried that dagger for six months and finally got to use "
- "it... peeling potatoes for kitchen duty."))
+ (say knpc "¤½¤¦¤À¡£Ã»·õ¤òÏ»¥ö·î»ý¤ÁÊ⤡¢¤Ä¤¤¤Ë¤½¤ì¤ò»È¤Ã¤¿¡Ä¡£"
+ "¿æ»ö¤ÎÈ֤ǥ¤¥â¤ÎÈé¤òÇí¤¤¤¿¤Î¤À¡£"))
(define (patch-dung knpc kpc)
- (say knpc "Monsters breed in the deeps, and it's better to stop them there "
- "before they can get to the surface. Don't you agree?")
+ (say knpc "²øʪ¤¿¤Á¤Ï¿¼Ê¥¤ÇÀ¸¤Þ¤ì¤ë¡£Åۤ餬ÃϾå¤ËÍè¤ëÁ°¤Ë»ß¤á¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£"
+ "¤½¤¦»×¤¦¤À¤í¤¦¡©")
(if (kern-conv-get-yes-no? kpc)
- (say knpc "You're damned tootin'! So the paladins keep a company there "
- "to patrol the middle levels. If you ever find yourself in need "
- "of help down there, seek them out. They'll have a medik.")
- (say knpc "Harumph! I suppose you'd rather let them run amok over "
- "the countryside!")))
+ (say knpc "¤½¤ÎÄ̤ꡪ¤À¤«¤éÀ»µ³»Î¤Ï¤½¤³¤ËÉôÂâ¤òÃÖ¤¡¢Ãæ´Ö¤ò·ÙÈ÷¤·¤Æ¤¤¤ë¤Î¤À¡£"
+ "̵ܤǽõ¤±¤¬É¬ÍפʤéÈà¤é¤òõ¤·¤Ê¤µ¤¤¡£ÉôÂâ¤Ë¤Ï°å»Õ¤¬¤¤¤ë¡£")
+ (say knpc "¥´¥Û¥ó¡ªÈà¤é¤¬ÅܤêÅļˤ˵¢¤Ã¤Æ¤·¤Þ¤¦¤¾¡ª")))
(define (patch-doc knpc kpc)
- (say knpc "I'm a medik. Are you in need of healing?")
+ (say knpc "»ä¤Ï°å»Õ¤À¡£¼£ÎŤ¬É¬Íפ«¤Í¡©")
(if (kern-conv-get-yes-no? kpc)
(patch-trade knpc kpc)
- (say knpc "Ok. Come by the hospital if you ever need assistance. "
- "I know how you adventurers get torn up in fights!")))
+ (say knpc "¤è¤í¤·¤¤¡£½õ¤±¤¬É¬Íפˤʤ俤餳¤Îɱ¡¤ËÍè¤Ê¤µ¤¤¡£"
+ "·¯¤Î¤è¤¦¤ÊËÁ¸±¼Ô¤ÏÀ襤¤Ç¤É¤ì¤À¤±¥Ü¥í¥Ü¥í¤Ë¤Ê¤ë¤«¡¢»ä¤ÏÃΤäƤ¤¤ë¡ª")))
(define (patch-hosp knpc kpc)
- (say knpc "Yep. The paladins of Glasdrin are always getting in scraps. "
- "I get the odd adventurer and sick villager in, too."))
+ (say knpc "¤½¤¦¤À¡£¥°¥é¥¹¥É¥ê¥ó¤ÎÀ»µ³»Î¤Ï¾ï¤ËÀï¤Ã¤Æ¤¤¤ë¡£"
+ "ÆÍÁ³Íè¤ëËÁ¸±¼Ô¤ä¼¤Îɵ¤¤Î¼Ô¤â¿Ç¤ë¡£"))
;; Townspeople...
(define (mk-patch)
(bind
(kern-mk-char 'ch_patch ; tag
- "Patch" ; name
+ "´ãÂÓ" ; name
sp_human ; species
oc_wizard ; occ
s_companion_wizard ; sprite