OSDN Git Service

日本語版
[nazghul-jp/nazghul-jp.git] / worlds / haxima-1.002 / edward.scm
index 4d59f7c..4dbd09e 100644 (file)
@@ -6,7 +6,7 @@
 ;;----------------------------------------------------------------------------
 ;; Schedule
 ;;
-;; In the dungeons below Green Tower.
+;; ÎФÎÅã¤ÎÃϲ¼
 ;;----------------------------------------------------------------------------
 (kern-mk-sched 'sch_edward
                (list 0  0  gtl-jailor-bed "sleeping")
 ;;----------------------------------------------------------------------------
 ;; Conv
 ;;
-;; Edward is a old blind man, serving as the jailor 
-;; in the dungeons below Green Tower.
+;; ¥¨¥É¥ï¡¼¥É¤ÏÌÕÌܤÎÏ·¿Í¤Ç¡¢ÎФÎÅã¤ÎÃϲ¼¤Ç´Ç¼é¤Î»Å»ö¤ò¤·¤Æ¤¤¤ë¡£
 ;;----------------------------------------------------------------------------
 (define (edward-hail knpc kpc)
-  (meet "You meet a pale old man whose eyes are milky white.")
+  (meet "¤¢¤Ê¤¿¤Ï¿§Çò¤ÇÌܤÎÂù¤Ã¤¿Ï·¿Í¤È²ñ¤Ã¤¿¡£")
   (let ((edward (kobj-gob-data knpc)))
     (cond ((not (edward-met? edward))
-           (say knpc "Who goes there?")
+           (say knpc "狼¤¤¤ë¤Î¤«¡©Ì¾¾è¤ì¡ª")
            (reply? kpc)
            (edward-meet! edward)
-           (say knpc "I don't know you. Are you hear to make a jail-break?")
+           (say knpc "ÃΤé¤Ê¤¤¤ä¤Ä¤À¡£Ã¦¹ö¤·¤¿¤Î¤«¡©")
            (if (yes? kpc)
-               (say knpc "Well get on with it! I'm too old to stop you.")
-               (say knpc "That's a relief. I'd have no-one to talk to.")
+               (say knpc "¤µ¤Ã¤µ¤È¹Ô¤±¡ª¤¢¤ó¤¿¤ò»ß¤á¤ë¤Ë¤Ïǯ¤ò¼è¤ê¤¹¤®¤Æ¤¤¤ë¡£")
+               (say knpc "°Â¿´¤·¤¿¡£Ã¯¤âÏä¹Áê¼ê¤¬¤¤¤Ê¤¤¤Î¤Ç¤Í¡£")
                )
            )
           (else
-           (say knpc "Welcome back. I remember your footfalls.")
+           (say knpc "¤Þ¤¿Í褿¤Í¡£Â­²»¤Ç¤ï¤«¤Ã¤¿¤è¡£")
            ))))
 
 (define (edward-give-nate knpc kpc)
-  (say knpc "Are you delivering a prisoner?")
+  (say knpc "¼ü¿Í¤òÏ¢¤ì¤Æ¤­¤¿¤Î¤«¡©")
   (cond ((yes? kpc)
          (cond ((is-only-living-party-member? ch_nate)
-                (say knpc "Turn yourself in if you like, "
-                     "but get rid of that dead body first! "
-                     "This isn't a morgue.")
+                (say knpc "¤â¤·¤½¤¦¤·¤¿¤¤¤Ê¤é¡¢¼«¼ó¤·¤Ê¤µ¤¤¡£"
+                     "¤À¤¬¡¢¤½¤Î»àÂΤò²¿¤È¤«¤·¤Æ¤«¤é¤À¡ª"
+                     "¤³¤³¤Ï»àÂÎÃÖ¤­¾ì¤Ç¤Ï¤Ê¤¤¡£")
                 )
                (else
-                (say knpc "Oh, good. More company. [He takes Nate into custody and "
-                     "locks him in a cell]")
+                (say knpc "¤ª¤ª¡¢¤½¤¦¤«¡£Ãç´Ö¤¬Áý¤¨¤¿¤ï¤¤¡£¡ÎÈà¤Ï¥Í¥¤¥È¤ò°ú¤­¼è¤ê¡¢ÆÈ˼¤ËÆþ¤ì¸°¤ò¤«¤±¤¿¡£¡Ï")
                 (kern-char-leave-player ch_nate)
                 (kern-obj-relocate ch_nate (mk-loc p_green_tower_lower 9 10) nil)
                 (prompt-for-key)
-                (say knpc "Here's your receipt, in case the Captain wants it.")
+                (say knpc "¤³¤ì¤¬¾ÚÌÀ½ñ¤À¡£ÂâŤËÅϤ·¤Ê¤µ¤¤¡£")
                 (give (kern-get-player) t_prisoner_receipt 1)
                 (edward-has-nate! (kobj-gob-data knpc))
                 (quest-data-update-with 'questentry-bandits 'nate-given-to-jailor 1 (quest-notify nil))                
                 )))
         (else
-         (say knpc "Hokay. [He gives Nate a look, then shrugs]")
+         (say knpc "¤½¤¦¤«¤¤¡£¡ÎÈà¤Ï¥Í¥¤¥È¤ÎÊý¤ò¸þ¤­¡¢¸ª¤ò¤¹¤¯¤á¤¿¡£¡Ï")
          )))
 
 (define (edward-pris knpc kpc)
         (else
          (let ((edward (kobj-gob-data knpc)))
            (if (edward-has-nate? edward)
-               (say knpc "I've got a forest goblin and that fellow you brought in.")
-               (say knpc "I've just got a forest goblin right now. "
-                    "He and I can't understand each other, "
-                    "but that doesn't stop us from swapping stories."))))
+               (say knpc "º£¤Ï¿¹¥´¥Ö¥ê¥ó¤È¡¢¤¢¤ó¤¿¤¬Ï¢¤ì¤Æ¤­¤¿ÅÛ¤¬¤¤¤ë¡£")
+               (say knpc "ºÇ¶á¿¹¥´¥Ö¥ê¥ó¤¬Æþ¤Ã¤¿¡£"
+                    "¤ä¤Ä¤È¤Ï¸ß¤¤¤ËÍý²ò¤·¤¢¤¨¤Ê¤¤¤¬¡¢¤À¤«¤é¤È¤¤¤Ã¤ÆÏäò¤·¤Ê¤¤¤ï¤±¤Ç¤Ï¤Ê¤¤¡£"))))
         ))
 
 (define (edward-gobl knpc kpc)
-  (say knpc "I'm not afraid of them. They never done me no harm."))
+  (say knpc "¶²¤í¤·¤¤¤³¤È¤Ï¤Ê¤¤¡£¤ä¤Ä¤é¤Ï´í³²¤ò²Ã¤¨¤Ê¤¤¡£"))
 
 (define (edward-stor knpc kpc)
-  (say knpc "Have you heard the one about Will-o-the-Woods?")
+  (say knpc "ÌÚÎî¤Ë¤Ä¤¤¤Æʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¤«¡©")
   (cond ((no? kpc)
-         (say knpc "Will-o-the-Woods was a spirit that used to haunt these woods, "
-              "in the old days when the gates worked and the gods were honored. ")
+         (say knpc "ÌÚÎî¤Ï¤«¤Ä¤Æ¤³¤Î¿¹¤Ë¸½¤ì¤¿¡£"
+              "Ì礬³«¤­¡¢¿À¡¹¤¬¿ò¤á¤é¤ì¤Æ¤¤¤¿ÀΤΤ³¤È¤À¡£")
          (prompt-for-key kpc)
-         (say knpc "If a pretty maiden ventured into the woods alone, "
-              "he would appear as a handsome woodsman or ranger, "
-              "and entice her back to his sacred grove. "
-              "There, he would turn her into a tree. ")
+         (say knpc "¤¢¤ëÆüÈþ¤·¤¤²µ½÷¤¬¤³¤Î¿¹¤Ë°ì¿Í¤Ç̤¤¹þ¤ó¤À¤È¤­¡¢"
+              "ÌÚÎî¤Ï´éΩ¤Á¤Î¤è¤¤¿¹¿Í¤È¤·¤Æ»Ñ¤ò¸½¤·¤¿¡£"
+              "̼¤Ï¿¹¤Î±ü¤Ø¤ÈͶ¤¤¹þ¤Þ¤ì¡¢¤Ä¤¤¤ËÌڤˤʤäƤ·¤Þ¤Ã¤¿¡£")
          (prompt-for-key kpc)
-         (say knpc "That's how the Great Wood got its beginning, in his grove. "
-              "And that's why you find so many haunted trees in the woods even to this day.")
+         (say knpc "¤½¤ì¤¬¤³¤Î¹­Âç¤ÊÈà¤Î¿¹¤Î»Ï¤Þ¤ê¤À¡£"
+              "¤½¤·¤Æº£¤Ç¤â¿¤¯¤ÎÍ©Îî¤Î¤è¤¦¤ÊÌÚ¡¹¤¬¤¢¤ëÍýͳ¤À¡£")
          )
         (else
-         (say knpc "No one knows what become of Will-o-the-Woods. "
-              "Passed into legend like the other gods, I suppose.")
+         (say knpc "ÌÚÎî¤È¤Ï²¿¤Ê¤Î¤«¡¢Ã¯¤âÃΤé¤Ê¤¤¡£"
+              "¾¤Î¿À¡¹¤ÈƱ¤¸¤è¤¦¤ÊÅÁÀâ¤À¤í¤¦¡£")
          )))
 
 (define (edward-gate knpc kpc)
-  (say knpc "I don't know anything about them. They used to work, that's all I know."))
+  (say knpc "Ìç¤Î¤³¤È¤Ï¤ï¤«¤é¤Ê¤¤¡£¤«¤Ä¤Æ¤½¤ì¤Ï¤¢¤Ã¤¿¡¢ÃΤäƤ¤¤ë¤Î¤Ï¤½¤ì¤À¤±¤À¡£"))
 
 (define (edward-gods knpc kpc)
-  (say knpc "It's not a good idea to talk about the old gods. "
-       "Folks might think us Accursed if they were to overhear."))
+  (say knpc "¸Å¤­¿À¡¹¤ÎÏäò¤¹¤ë¤Î¤Ï¤è¤¯¤Ê¤¤¡£"
+       "¤½¤ì¤òʹ¤«¤ì¤ë¤È¼ö¤ï¤ì¤ë¤È¸À¤ï¤ì¤Æ¤¤¤ë¡£"))
 
 (define (edward-accu knpc kpc)
-  (say knpc "The Accursed seek power from the old gods... and other things. "
-       "I've had a few in my jail."))
+  (say knpc "¸Å¤­¿À¡¹¤Î¼ö¤ï¤ì¤¿ÎÏ¡Ä¡Ä"
+       "¤³¤ÎÏ´¹ö¤Ë¤â¤½¤ì¤Ï¤¢¤ë¡£"))
 
 (define (edward-talk knpc kpc)
-  (say knpc "The prisoners are the only ones I can talk to down here."))
+  (say knpc "¤³¤³¤Ç¤Ï¼ü¿Í¤·¤«Ïä¹Áê¼ê¤¬¤¤¤Ê¤¤¡£"))
 
 (define (edward-blin knpc kpc)
-  (say knpc "The dark doesn't bother me. Neither does the light, for that matter. "
-       "It's all the same to me."))
+  (say knpc "°Å°Ç¤Ï²¿¤Ç¤â¤Ê¤¤¡£¤µ¤é¤Ë¸À¤¨¤Ð¸÷¤â²¿¤Ç¤â¤Ê¤¤¡£"
+       "¤É¤Á¤é¤âƱ¤¸¤³¤È¤À¡£"))
 
 (define (edward-guar knpc kpc)
-  (say knpc "Truth be told, I'm not much of a guard."))
+  (say knpc "ÀµÄ¾¤Ë¸À¤¦¤È¡¢Êá¤Þ¤¨¤é¤ì¤ë¤È¤Ï»×¤¨¤Ê¤¤¡£"))
 
 (define (edward-jail knpc kpc)
   (cond ((in-player-party? 'ch_nate) (edward-give-nate knpc kpc))
         (else
-         (say knpc "I feed the prisoners and swap stories with them. "
-              "I'm supposed to guard them, too. Prevent escapes.")
+         (say knpc "¼ü¿Í¤Ë¿©»ö¤òÍ¿¤¨¡¢Ïä·¤ò¤¹¤ë¡£"
+              "¤ä¤Ä¤é¤¬Æ¨¤²¤ë¤Î¤òËɤ°ÌòÌܤ⤢¤ë¡£")
          )))
 
 (define edward-conv
        ;; on the other hand, is a feature of the ifc mechanism (see ifc.scm).
        (method 'default 
                (lambda (knpc kpc) 
-                 (say knpc "[He shrugs]")))
+                 (say knpc "¡ÎÈà¤Ï¸ª¤ò¤¹¤¯¤á¤¿¡£¡Ï")))
        (method 'hail edward-hail)
        (method 'bye 
                (lambda (knpc kpc) 
-                 (say knpc "Watch your step in the dark!")))
+                 (say knpc "°Å¤¤¤«¤éµ¤¤ò¤Ä¤±¤Æ¡ª")))
        (method 'job 
                (lambda (knpc kpc) 
-                 (say knpc "I'm the jailor.")))
+                 (say knpc "´Ç¼é¤À¡£")))
        (method 'name 
                (lambda (knpc kpc) 
-                 (say knpc "I am Edward. And you already told me your name.")))
+                 (say knpc "¥¨¥É¥ï¡¼¥É¤À¡£¤¢¤ó¤¿¤Î̾Á°¤Ïʹ¤¤¤Æ¤¤¤ë¡£")))
        (method 'join 
                (lambda (knpc kpc) 
-                 (say knpc "Love to. [But he doesn't]")))
+                 (say knpc "¤½¤¦¤·¤¿¤¤¤Í¡£¡Î¤À¤¬¤Ç¤­¤Ê¤¤¡£¡Ï")))
        (method 'accu edward-accu)
        (method 'blin edward-blin)
        (method 'esca edward-guar)
    (kern-char-arm-self
     (kern-mk-char 
      'ch_edward ;;..........tag
-     "Edward" ;;.......name
+     "¥¨¥É¥ï¡¼¥É" ;;.......name
      sp_human ;;.....species
      oc_ranger ;;.. .occupation
      s_old_townsman ;;..sprite