;;----------------------------------------------------------------------------
;; Schedule
;;
-;; In Oparine
+;; ¥ª¥Ñ¡¼¥ê¥ó
;;----------------------------------------------------------------------------
(kern-mk-sched 'sch_oscar
(list 0 0 oparine-innkeepers-bed "sleeping")
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Oscar is the innkeeper in Oparine. He is a glum fellow, with a wooden leg.
+;; ¥ª¥¹¥«¡¼¤Ï¥ª¥Ñ¡¼¥ê¥ó¤Î½É²°¤Ç¤¢¤ë¡£Èà¤Ï±¢µ¤¤ÇÌڤεÁ¤ò¤·¤Æ¤¤¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (oscar-hail knpc kpc)
- (say knpc "[You meet a glum man with a wooden leg] Hello."))
+ (say knpc "¡Î¤¢¤Ê¤¿¤Ï±¢µ¤¤Ê¡¢ÌڤεÁ¤ÎÃˤȲñ¤Ã¤¿¡£¡Ï¤¤¤é¤Ã¤·¤ã¤¤¡Ä¡£"))
(define (oscar-default knpc kpc)
- (say knpc "I don't know."))
+ (say knpc "ÃΤê¤Þ¤»¤ó¤Í¡£"))
(define (oscar-name knpc kpc)
- (say knpc "I'm Oscar the Innkeeper."))
+ (say knpc "½É²°¤Î¥ª¥¹¥«¡¼¤À¡£"))
(define (oscar-join knpc kpc)
- (say knpc "I would just get in the way."))
+ (say knpc "»ä¤¬¤¤¤Æ¤â¤¸¤ã¤Þ¤Ë¤Ê¤ë¤À¤±¤À¤è¡Ä¡£"))
(define (oscar-job knpc kpc)
- (say knpc "I'm the Innkeeper. "
- "I doubt you want to rent a room, "
- "but if you do let me know."))
+ (say knpc "½É²°¤À¡£"
+ "Éô²°¤¬Íפë¤è¤¦¤Ë¤Ï¸«¤¨¤Ê¤¤¤¬¡¢"
+ "¤â¤·Íפë¤Ê¤é¸À¤Ã¤Æ¤¯¤ì¡£"))
(define (oscar-bye knpc kpc)
- (say knpc "Bye"))
+ (say knpc "¤É¤¦¤â¡£"))
;; Trade...
(define (oscar-trade knpc kpc)
(if (not (string=? "working" (kern-obj-get-activity knpc)))
- (say knpc "The inn is open from 9 to 9, and I do have to eat sometime, "
- "so try me later.")
+ (say knpc "½É²°¡ÖÌû²÷¤ÊƱµï¿Í¡×¤Ï¸áÁ°9»þ¤«¤é¸á¸å9»þ¤Þ¤Ç³«¤¤¤Æ¤¤¤ë¡£»þ¡¹¿©»ö¤Ç¤¤¤Ê¤¤¤¬¡¢"
+ "¤½¤Î¤È¤¤Ï¸å¤ÇÍè¤Æ¤¯¤ì¡£")
(let ((door (eval 'oparine-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
- "That will be " oparine-inn-room-price " gold. "
- "You can have the room as long as you're in town. "
- "Do you still want it?")
+ "¶â²ß" oparine-inn-room-price "Ëç¤À¡£"
+ "¤³¤ÎÄ®¤Ë¤¤¤ë¸Â¤ê¡¢²¿Å٤Ǥâ½ÐÆþ¤ê¤Ç¤¤ë¡£"
+ "¤½¤ì¤Ç¤¤¤¤¤«¡©")
(if (kern-conv-get-yes-no? kpc)
;; yes - player agrees to the price
(let ((gold (kern-player-get-gold)))
(if (>= gold oparine-inn-room-price)
;; yes - player has enough gold
(begin
- (say knpc "Ok, you're in room 1, "
- "but you won't like it. "
- "Don't complain to me because I told you "
- "so.")
+ (say knpc "1¹æ¼¼¤À¡£"
+ "¤Ç¤âµ¤¤ËÆþ¤é¤Ê¤¤¤À¤í¤¦¤Í¡£"
+ "¤¢¤é¤«¤¸¤á¸À¤Ã¤Æ¤ª¤¤¤¿¤ó¤À¡£"
+ "ʸ¶ç¤Ï¸À¤ï¤Ê¤¤¤Ç¤¯¤ì¤è¡£")
(kern-player-set-gold
(- gold
oparine-inn-room-price))
(kern-conv-end)
)
;; no - player does not have enouvh gold)
- (say knpc "Sorry, but you don't have the gold. "
- "This isn't a poorhouse, you know." )))
+ (say knpc "»ÄÇ°¤À¤¬¶â²ß¤¬Â¤ê¤Ê¤¤¤Ê¡£"
+ "ÃΤäƤÎÄ̤ꡢ¤³¤³¤ÏµßÉϱ¡¤Ç¤Ï¤Ê¤¤¡£" )))
;; no - player does not agree to the price
(say knpc
- "I knew you wouldn't.")))
+ "¤ï¤«¤Ã¤Æ¤¿¤è¡£")))
;; no - player does not want a room
- (say knpc "I didn't think so. "
- "I was just being polite.")))))))
+ (say knpc "¤½¤¦¤À¤í¤¦¤Í¡£"
+ "¼Ò¸ò¼Îá¤Çʹ¤¤¤Æ¤ß¤¿¤À¤±¤À¡£")))))))
;; Inn...
(define (oscar-inn knpc kpc)
- (say knpc "The former owner gave it the name. "
- "I didn't feel like changing it. Besides, that would be bad luck."))
+ (say knpc "Á°¤ÎÅÛ¤¬¤³¤Î̾Á°¤Ë¤·¤¿¤ó¤À¡£"
+ "ÊѤ¨¤¿¤¤¤È¤Ï»×¤ï¤Ê¤¤¡£¤·¤«¤·¡¢¤½¤ì¤Ë¤·¤Æ¤â±¿¤¬°¤¤¡£"))
(define (oscar-luck knpc kpc)
- (say knpc "The ghost in room 3 likes the name. I don't want the ghost of "
- "a wicked pirate mad at me.")
+ (say knpc "¤³¤Î½É¤Î̾Á°¤Î¤è¤¦¤ÊË´Î3¹æ¼¼¤Ë¤¤¤ë¤ó¤À¡£"
+ "¶²¤í¤·¤¤³¤Â±¤ÎË´Îî¤òÅܤ餻¤¿¤¯¤Ê¤¤¡£")
(quest-data-assign-once 'questentry-ghertie)
(quest-data-update 'questentry-ghertie 'ghertieloc 1))
(define (oscar-ghost knpc kpc)
- (say knpc "Ghastly Ghertie was murdered by her crew in room 3. "
- "She still haunts it so I don't rent it out. "
- "I wish she would pay her bill.")
+ (say knpc "¥¬¡¼¥Æ¥£¡¼¤È¤¤¤¦µÒ¤¬3¹æ¼¼¤Ç¼«Ê¬¤Î¼ê²¼¤Ë»¦¤µ¤ì¤¿¡£"
+ "¤½¤ÎË´Î¤Þ¤À¤¤¤ë¤«¤é3¹æ¼¼¤ÏÂߤ·½Ð¤»¤Ê¤¤¤ó¤À¡£"
+ "½ÉÂå¤òʧ¤Ã¤ÆÍߤ·¤¤¤Í¡£")
(quest-data-update 'questentry-ghertie 'ghertieid 1)
(quest-data-update 'questentry-ghertie 'ghertieloc 1)
(quest-data-assign-once 'questentry-ghertie))
;; Leg...
(define (oscar-leg knpc kpc)
- (say knpc "I tried to be a sailor but nobody would take me. "
- "So I cut off my leg to make myself look like a sailor. "
- "They still wouldn't take me. I miss that leg."))
+ (say knpc "Á¥¾è¤ê¤Ë¤Ê¤ê¤¿¤«¤Ã¤¿¤ó¤À¡£¤Ç¤âï¤â¸Û¤Ã¤Æ¤¯¤ì¤Ê¤«¤Ã¤¿¡£"
+ "¤À¤«¤éÁ¥¾è¤ê¤é¤·¤¯¸«¤¨¤ë¤è¤¦¤Ë¡¢¼«Ê¬¤Ç¤òÀÚ¤êÍî¤È¤·¤¿¤ó¤À¡£"
+ "¤Ç¤â¸Û¤Ã¤Æ¤¯¤ì¤Ê¤«¤Ã¤¿¡£¤¿¤À¤ò¼º¤Ã¤¿¤À¤±¤À¡£"))
;; Townspeople...
(define (oscar-opar knpc kpc)
- (say knpc "This is a port city. Most of my customers are travelers who "
- "disembark here before traveling north."))
+ (say knpc "¤³¤³¤Ï¹ÁÄ®¤À¡£"
+ "µÒ¤Î¤Û¤È¤ó¤É¤ÏÁ¥¤ò¹ß¤ê¤¿¤¢¤ÈË̤ظþ¤«¤¦Î¹¿Í¤À¡£"))
(define (oscar-gher knpc kpc)
- (say knpc "Ghertie was a wicked pirate back before my time. "
- "Her own crew murdered her and left with her ship and her treasure.")
+ (say knpc "¥¬¡¼¥Æ¥£¡¼¤Ï¶²¤í¤·¤¤³¤Â±¤À¤Ã¤¿¡£"
+ "¼«Ê¬¤Î¼ê²¼¤Ë»¦¤µ¤ì¡¢Á¥¤ÈºâÊõ¤òÃ¥¤ï¤ì¤¿¤ó¤À¡£")
(quest-data-assign-once 'questentry-ghertie))
(define (oscar-alch knpc kpc)
- (say knpc "His shop is next to the tavern. He's always looking for weird "
- "stuff to use in his experiments."))
+ (say knpc "Èà¤ÎŹ¤Ï¼ò¾ì¤Î¤È¤Ê¤ê¤Ë¤¢¤ë¡£"
+ "¤¤¤Ä¤â¤è¤¯¤ï¤«¤é¤Ê¤¤¼Â¸³¤Ç»È¤¦Êª¤òõ¤·¤Æ¤¤¤ë¡£"))
(define (oscar-bart knpc kpc)
- (say knpc "Bart the shipwright has a shop just across the way. "
- "He usually gets pretty drunk at night. I can't keep up with him."))
+ (say knpc "¥Ð¡¼¥È¤Ï¤³¤ÎÆ»¤Î¤Á¤ç¤¦¤É¸þ¤«¤¤¤ÎŹ¤Î¤Á¥¿¦¿Í¤À¡£"
+ "Ìë¤Ë¤Ê¤ë¤È¤¤¤Ä¤âÂçÎ̤˰û¤ó¤Ç¤¤¤ë¡£¤È¤Æ¤â¤¸¤ã¤Ê¤¤¤¬¤Ä¤¤¤Æ¤¤¤±¤Ê¤¤¡£"))
(define (oscar-seaw knpc kpc)
- (say knpc "The sea witch is very beautiful but keeps to herself. "
- "She ignores me, of course."))
+ (say knpc "³¤¤ÎËâ½÷¤Ï¤È¤Æ¤â¤¤ì¤¤¤À¤¬¡¢¿Í¤òÈò¤±¤Æ¤¤¤ë¡£"
+ "Èà½÷¤Ï»ä¤ò̵»ë¤·¤Æ¤¤¤ë¡£ÅöÁ³¤À¡£"))
(define (oscar-henr knpc kpc)
- (say knpc "There's a real sailor. I'll never be like him."))
+ (say knpc "ËÜʪ¤ÎÁ¥¾è¤ê¤À¡£¤¢¤¤¤Ä¤Î¤è¤¦¤Ë¤ÏÀäÂФʤì¤Ê¤¤¡£"))
(define oscar-conv
(ifc basic-conv
(method 'bart oscar-bart)
(method 'sea oscar-seaw)
(method 'witc oscar-seaw)
+ (method 'lia oscar-seaw)
))
(define (mk-oscar)
(bind
(kern-mk-char 'ch_oscar ; tag
- "Oscar" ; name
+ "¥ª¥¹¥«¡¼" ; name
sp_human ; species
nil ; occ
s_townsman ; sprite