;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Oparine.
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_bart
(list 0 0 black-barts-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Bart is a hard-drinking goblin shipwright who dwells in Oparine.
+;; ¥Ð¡¼¥È¤Ï°û¤ó¤À¤¯¤ì¤Î¥´¥Ö¥ê¥ó¤Î¤Á¥¿¦¿Í¤Ç¡¢¥ª¥Ñ¡¼¥ê¥ó¤Ë½»¤ó¤Ç¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (bart-hail knpc kpc)
- (say knpc "[You meet a taciturn goblin who smells of whiskey] "
- "Unh."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï¸ý¿ô¤Î¾¯¤Ê¤½¤¦¤Ê¡¢¥¦¥£¥¹¥¡¼¤Î½¤¤¤Î¤¹¤ë¥´¥Ö¥ê¥ó¤È²ñ¤Ã¤¿¡£¡Ï"
+ "¥¦¥ó¡£"))
(define (bart-default knpc kpc)
- (say knpc "Eh?"))
+ (say knpc "¥¨¡¼¡©"))
(define (bart-name knpc kpc)
- (say knpc "Bart."))
+ (say knpc "¥Ð¡¼¥È¡£"))
(define (bart-join knpc kpc)
- (say knpc "[He looks at you oddly and shakes his head]"))
+ (say knpc "¡ÎÈà¤Ï¤¢¤Ê¤¿¤ò´ñ̯¤½¤¦¤Ë¤ß¤Æ¡¢Æ¬¤ò¿¶¤Ã¤¿¡£¡Ï"))
(define (bart-job knpc kpc)
- (say knpc "Bart make ship. Good ship."))
+ (say knpc "¥Ð¡¼¥È¤ÏÁ¥¤òºî¤ë¡£¤è¤¤Á¥¡£"))
(define (bart-bye knpc kpc)
- (say knpc "Ja."))
+ (say knpc "¥¸¥ã¡£"))
;; Trade...
(define (bart-trade knpc kpc)
(town-loc (kern-place-get-location town))
(ship-loc (loc-offset town-loc east)))
(if (ship-at? ship-loc)
- (say knpc "Hunh. No room at dock. Somebody need move ship first.")
+ (say knpc "¥à¡£Á¥Ãå¾ì¡¢¾ì½ê¤Ê¤¤¡£¤Þ¤ºÁ¥Æ°¤«¤»¡£")
(begin
(kern-obj-relocate (mk-ship) ship-loc nil)
(take-player-gold oparine-ship-price)
- (say knpc "Ship ready ready outside town.")
+ (say knpc "Á¥¡¢³°¤Ë¤¢¤ë¡£")
))))
(define (sell-ship)
(ship-loc (loc-offset town-loc east))
(kship (kern-place-get-vehicle ship-loc)))
(if (null? kship)
- (say knpc "Bart no see ship. Park at dock, come back.")
+ (say knpc "¥Ð¡¼¥ÈÁ¥¸«¤¨¤Ê¤¤¡£Á¥Ãå¾ì»ß¤á¤í¡£¤Þ¤¿Í褤¡£")
(begin
- (say knpc "You want sell that junk ship? Bart give "
+ (say knpc "¤³¤Î¥Ü¥íÁ¥Çä¤ë¡©¥Ð¡¼¥È¶â²ß"
oparine-ship-tradein-price
- ". Ok?")
+ "ËçÅϤ¹¡£¤¤¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
(begin
- (say knpc "Bart too generous, you lucky.")
+ (say knpc "¥Ð¡¼¥Èµ¤Á°¤¤¤¤¡£¤¢¤ó¤¿±¿¤¤¤¤¡£")
(kern-obj-remove kship)
(give-player-gold oparine-ship-tradein-price))
- (say knpc "Hunh. That ship sink soon."))))))
+ (say knpc "¥à¡£Á¥¤¹¤°ÄÀ¤à¡£"))))))
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "Not work now. Now drink!")
+ (say knpc "º£Æ¯¤«¤Ê¤¤¡£º£°û¤à¡ª")
(begin
- (say knpc "You want buy ship?")
+ (say knpc "Á¥¡¢Ç㤦¡©")
(if (yes? kpc)
(begin
- (say knpc "Ship " oparine-ship-price " gold. Want ship?")
+ (say knpc "Á¥¡¢¶â²ß" oparine-ship-price "Ëç¡£Á¥Íߤ·¤¤¡©")
(if (kern-conv-get-yes-no? kpc)
(if (player-has-gold? oparine-ship-price)
(buy-ship)
(begin
- (say knpc "You not have gold! You try cheat Bart? "
- "[He spits on the ground]")
+ (say knpc "¶â²ß¤ê¤Ê¤¤¡£¥Ð¡¼¥È¤À¤Þ¤¹¡©"
+ "¡ÎÈà¤ÏÃÏÌ̤ËÂäòÅǤ¤¤¿¡£¡Ï")
(kern-conv-end)))
- (say knpc "Fine. You swim.")))
+ (say knpc "¤¤¤¤¡£±Ë¤²¡£")))
(begin
- (say knpc "You want sell ship?")
+ (say knpc "Á¥¡¢Çä¤ë¡©")
(if (yes? kpc)
(sell-ship)
(begin
- (say knpc "Then what hell you bother Bart for?")
+ (say knpc "¤Ê¤é¤Ð¡¢¥Ð¡¼¥È²¿¤¹¤ë¡©")
(kern-conv-end))))))))
;; Drink...
(define (bart-drink knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "Let's drink!")
- (say knpc "Work now. Drink later.")))
+ (say knpc "°û¤à¡ª")
+ (say knpc "º£Æ¯¤¯¡£¸å°û¤à¡£")))
;; Townspeople...
(define (bart-opar knpc kpc)
- (say knpc "Smells like fish."))
+ (say knpc "µû¤Î½¤¤¤¹¤ë¡£"))
(define (bart-gher knpc kpc)
- (say knpc "Tu-gu. Bad ghost.[He makes a strange sign in the air]"))
+ (say knpc "¥Ä¡¦¥°¡£°¤¤º²¡£¡ÎÈà¤Ï¶õÃæ¤Ë´ñ̯¤Ê¿Þ·Á¤òÉÁ¤¤¤¿¡£¡Ï"))
(define (bart-alch knpc kpc)
- (say knpc "Hi-lu-to. He take low road from burning city. "
- "Goblins cousins remember."))
+ (say knpc "¥Ò¡¦¥ê¥å¡¦¥È¡£Ç³¤¨¤ëÄ®¤«¤éÍ褿¡£"
+ "°ì²¤ª¤Ü¤¨¤Æ¤ë¡£"))
(define (bart-seaw knpc kpc)
- (say knpc "She smell like fish."))
+ (say knpc "µû¤Î½¤¤¤¹¤ë¡£"))
(define (bart-osca knpc kpc)
- (say knpc "Tu-to. Bart not know man-words."))
+ (say knpc "¥Ä¡¦¥È¡£¥Ð¡¼¥È¤è¤¤ÏÃÃΤé¤Ê¤¤¡£"))
(define (bart-henr knpc kpc)
- (say knpc "Bart friend. Make good drink! Bart love drink."))
+ (say knpc "¥Ð¡¼¥Èͧ¤À¤Á¡£¤è¤¤¼òºî¤ë¡ª¥Ð¡¼¥È°û¤à¹¥¤¡£"))
(define bart-conv
(ifc basic-conv
(method 'alch bart-alch)
(method 'gher bart-gher)
(method 'witc bart-seaw)
+ (method 'lia bart-seaw)
(method 'osca bart-osca)
(method 'henr bart-henr)
(method 'ja bart-bye)
(define (mk-bart)
(bind
(kern-mk-char 'ch_bart ; tag
- "Bart" ; name
+ "¥Ð¡¼¥È" ; name
sp_forest_goblin ; species
nil ; occ
s_fgob_civilian ; sprite