;;----------------------------------------------------------------------------
;; Schedule
;;
-;; No schedule. (Angriss' Lair)
+;; ¥¢¥ó¥°¥ê¥¹¤Î½»¤ß²È
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;;----------------------------------------------------------------------------
;; Conv
;;
-;; Angriss is Queen of the Spiders, dwelling in Angriss' Lair.
-;; Suspicious, jealous, alien.
+;; ¥¢¥ó¥°¥ê¥¹¤Ï¥¯¥â¤¿¤Á¤Î½÷²¦¤Ç¡¢¥¢¥ó¥°¥ê¥¹¤Î½»¤ß²È¤Ë¤¤¤ë¡£
+;; µ¿¤ê¿¼¤¯¡¢¼»ÅÊ¿¼¤¤¡¢°Û·Á¤Î¤â¤Î¤Ç¤¢¤ë¡£
;;----------------------------------------------------------------------------
;; Basics...
(define (angriss-hail knpc kpc)
- (say knpc "Hideous Soft One, who\n"
- "comes uninvited, be quick\n"
- "in honor, or die."))
+ (say knpc "¤ª¤¾¤Þ¤·¤¯½À¤é¤«¤Ê\n"
+ "¾·¤«¤¶¤ë¤â¤Î¤è¡¡º£¤¹¤°·è¤á¤è\n"
+ "¿òÇÒ¤«»à¤«"))
(define (angriss-default knpc kpc)
- (say knpc "[Still as a statue in her web, she gives no response]"))
+ (say knpc "¡ÎÌÖ¤ÎÃæ¤ÎÈà½÷¤ÏÁü¤Î¤è¤¦¤ËÈ¿±þ¤·¤Ê¤«¤Ã¤¿¡£¡Ï"))
(define (angriss-name knpc kpc)
- (say knpc "To Men, Angriss; to\n"
- "the Goblins, Ruka; to the\n"
- "Trolls, Hibliminos."))
+ (say knpc "¿Í¤Ë¤Ï¥¢¥ó¥°¥ê¥¹\n"
+ "¥´¥Ö¥ê¥ó¤Ë¤Ï¥ë¥«\n"
+ "¥È¥í¥ë¤Ë¤Ï¥Ò¥Ö¥ê¥ß¥Î¥¹\n"))
(define (angriss-join knpc kpc)
- (say knpc "Do lips join a cup\n"
- "but to drain it dry? My kind\n"
- "to Men join the same."))
+ (say knpc "¿°¤¬´ï¤È²ñ¤¨¤É¤â\n"
+ "´¥¤¤¤¿¤â¤Î¤ÏµÛ¤¨¤Ì\n"
+ "¾ª¤È¿Í¤Ï¤½¤Î¤è¤¦¤Ê¤â¤Î"))
(define (angriss-job knpc kpc)
- (say knpc "Hunger."))
+ (say knpc "µ²¤¨"))
(define (angriss-bye knpc kpc)
- (say knpc "The empire of light\n"
- "Calls you back. Ascend the stair\n"
- "if you can reach it.\n"))
+ (say knpc "Æò¤Ï¸÷¤Î»ÙÇÛ¤Ë\n"
+ "¸Æ¤Ó½Ð¤µ¤ì¤·¤â¤Î¡¡¤¿¤É¤êÃ失¤ë¤Î¤Ç¤¢¤ì¤Ð\n"
+ "¾å¤êÌá¤ë¤¬¤è¤¤\n"))
(define (angriss-soft knpc kpc)
- (say knpc "To drink the dark wine\n"
- "Men crush the grape. I drink the\n"
- "wine that's crushed from Men."))
+ (say knpc "°Å¤¥ï¥¤¥ó¤ò°û¤à¤È¤\n"
+ "¿Í¤ÏÉòƺ¤òÄÙ¤¹¡¡¾ª¤Ï¿Í¤ò\n"
+ "ÄÙ¤·¤¿¥ï¥¤¥ó¤ò°û¤à"))
(define (angriss-hung knpc kpc)
- (say knpc "A river of blood\n"
- "flows down to my lair, a pile\n"
- "of bones waxes there."))
+ (say knpc "·ì¤ÎÀ\n"
+ "¾ª¤ÎÁã¤Ëή¤ì¹þ¤à\n"
+ "¹üϹ¤Î»³¤È¤È¤â¤Ë"))
(define (angriss-men knpc kpc)
- (say knpc "So proud in armor\n"
- "so soft in hidden aspect\n"
- "so sweet in folly."))
+ (say knpc "²¿¤È¸Ø¤é¤·¤¤³»\n"
+ "²¿¤È½À¤é¤«¤¤Ãæ¿È\n"
+ "²¿¤È´Å¤¤¶ò¤«¤µ"))
(define (angriss-gobl knpc kpc)
- (say knpc "A stealthy hunt, a\n"
- "terrible struggle, in the\n"
- "end the longest rest."))
+ (say knpc "Ǧ¤Ó¤μí¿Í\n"
+ "ÉÔÌû²÷¤Ê¤â¤¬¤\n"
+ "¤Ä¤¤¤Ë¤ÏĹ¤Ì²¤ê"))
(define (angriss-trol knpc kpc)
- (say knpc "Stone-thrower and rock\n"
- "beater, your fearsome bellow\n"
- "will become a scream."))
+ (say knpc "ÀФòÅꤲ¡¡´ä¤ÇÂǤÄ\n"
+ "¶²¤í¤·¤¤ÅÜÌĤêÀ¼¤Ï\n"
+ "ÈáÌĤؤÈÊѤï¤ë"))
(define (angriss-choose knpc kpc)
- (say knpc "Choose whom you will give to me.")
+ (say knpc "¾ª¤Ø¤ÎÊû¤²¤â¤Î¤òÁª¤Ù")
(let ((kchar (kern-ui-select-party-member))
(quest (angriss-quest (kobj-gob-data knpc))))
(if (null? kchar)
(begin
- (say knpc "You toy with a monster, now flee.")
+ (say knpc "¾ª¤ò¤â¤Æ¤¢¤½¤Ö¤«¡¡¾Ã¤¨¤è")
(harm-relations knpc kpc)
(harm-relations knpc kpc)
(kern-conv-end))
(if (is-dead? kchar)
(begin
- (say knpc "FRESH meat I require!\n"
- "Poison! Foul, is that dead blood!\n"
- "Bring me another.")
+ (say knpc "¿·¤·¤Æù¤ò¾ª¤Ïµá¤à¡ª\n"
+ "ÆÇ¡ªÉåÇÔ¡ª¤³¤ì¤Ï»à¤·¤¿·ì¡ª\n"
+ "¾¤òÊû¤²¤è")
(kern-conv-end))
(begin
- (say knpc "Honor is satisfied.\n")
+ (say knpc "¾ª¤ÏËþ¤¿¤µ¤ì¤¿\n")
(if (not (quest-done? quest))
(quest-done! quest #t))
(kern-char-leave-player kchar)
(let ((quest (angriss-quest (kobj-gob-data knpc))))
(if (quest-done? quest)
(begin
- (say knpc "The ancient secret,\n"
- "The key to a lock of hell.\n"
- "Take it, it is thine.")
+ (say knpc "ÂÀ¸Å¤ÎÈëÌ©\n"
+ "ÃϹö¤Ø¤Î¸°\n"
+ "Æò¤Î¤â¤Î¤Ê¤ê")
(kern-obj-remove-from-inventory knpc t_rune_f 1)
(kern-obj-add-to-inventory kpc t_rune_f 1)
(rune-basic-quest 'questentry-rune-f s_runestone_f)
)
- (say knpc "I know what you seek.\n"
- "But I wonder, do you? First,\n"
- "satisfy honor."))))
+ (say knpc "Æò¤Îõ¤·Êª¤ò¾ª¤ÏÃΤë\n"
+ "¤À¤¬¤Þ¤º¤Ï\n"
+ "µ¾À·¤Ç¾ª¤òËþ¤¿¤»"))))
(define (angriss-sacr knpc kpc)
(let ((quest (angriss-quest (kobj-gob-data knpc))))
(define (refused)
- (say knpc "Flee from my presence.\n"
- "You may escape my wrath, but\n"
- "You will not return.")
+ (say knpc "¾ª¤ÎÁ°¤«¤é¾Ã¤¨¤è\n"
+ "¾ª¤ÎÅܤ꤫¤é¤Ïƨ¤²¤é¤ì¤è¤¦\n"
+ "¤À¤¬¡¡Ìá¤ë¤³¤È¤Ï¤Ç¤¤Ì¤Ç¤¢¤í¤¦")
(harm-relations knpc kpc)
(harm-relations knpc kpc)
(kern-conv-end))
(display "offer-quest")(newline)
(if (player-alone?)
(begin
- (say knpc "You will find, if you\n"
- "seek, a fool to join you. Bring\n"
- "that fool unto me.\n"
- "...Agreed?")
+ (say knpc "¸«¤Ä¤±¤è¡¡µá¤á¤ë¤Ê¤é\n"
+ "¶ò¤«¼Ô¤ò°ú¤¹þ¤ß¡¡º¹¤·½Ð¤»\n"
+ "Æò¤è¤ê¶ò¤«¤Ê¤â¤Î¤ò\n"
+ "¡Î¡Ä¤É¤¦¤¹¤ë¡©¡Ï")
(if (kern-conv-get-yes-no? kpc)
(begin
(quest-accepted! quest)
(improve-relations knpc kpc))
(refused)))
(begin
- (say knpc "Among your party\n"
- "Choose one as a sacrifice\n"
- "and you will go free.\n"
- "...Agreed?")
+ (say knpc "Æò¤é¤ÎÃ椫¤é\n"
+ "°ì¿Í¤Îµ¾À·¤òÁª¤Ù\n"
+ "¤µ¤ì¤Ð¼«Í³¤Ë¤Ê¤í¤¦\n"
+ "¡Î¡Ä¤É¤¦¤¹¤ë¡©¡Ï")
(if (kern-conv-get-yes-no? kpc)
(angriss-choose knpc kpc)
(refused)))))
(if (quest-done? quest)
- (say knpc "It is done.")
+ (say knpc "¤½¤ì¤ÏÀ®¤·¿ë¤²¤é¤ì¤¿")
(if (quest-accepted? quest)
(if (player-alone?)
- (say knpc "Alone you come back.\n"
- "Where is the sacrifice that\n"
- "will keep you from doom?")
+ (say knpc "Æò¤Ï°ì¿Í¤Ê¤ê\n"
+ "Êá¤é¤¨¤·»à¤¹¤Ù¤Äê¤á¤Î\n"
+ "µ¾À·¤Ï¤¤¤º¤³")
(choose-victim))
(offer-quest)))))
(define (angriss-hono knpc kpc)
- (say knpc "I demand honor\n"
- "and sacrifice. Give them to\n"
- "me, or flee, or die."))
+ (say knpc "¾ª¤Ï¿òÇÒ¤òµá¤à\n"
+ "¤½¤·¤Æµ¾À·¤ò¡¡¾ª¤ËÍ¿¤¨¤è\n"
+ "¤·¤«¤é¤º¤Ðƨ˴¤«»à¤«"))
(define angriss-conv
(ifc basic-conv
(kern-char-force-drop
(kern-mk-char
'ch_angriss ; tag
- "Angriss" ; name
+ "¥¢¥ó¥°¥ê¥¹" ; name
sp_queen_spider ; species
nil ; occ
s_purple_spider ; sprite