OSDN Git Service

日本語版
[nazghul-jp/nazghul-jp.git] / worlds / haxima-1.002 / gholet.scm
index 47f80d5..adb9c36 100644 (file)
@@ -8,7 +8,7 @@
 ;;----------------------------------------------------------------------------
 ;; Schedule
 ;; 
-;; In the Prison level under Glasdrin
+;; ¥°¥é¥¹¥É¥ê¥ó¤ÎÃϲ¼¤Î´Æ¹ö
 ;;----------------------------------------------------------------------------
 
 ;;----------------------------------------------------------------------------
 ;;----------------------------------------------------------------------------
 ;; Conv
 ;; 
-;; Gholet is a former pirate, now imprisoned in the Prison below Glasdrin.
-;; He is one of the surviving crew of the Merciful Death, 
-;; and is sought for vengeance by the ghost Ghertie.
+;; ¥´¥ì¥Ã¥È¤Ï¤«¤Ä¤Æ¤Ï³¤Â±¤Ç¡¢º£¤Ï¥°¥é¥¹¥É¥ê¥ó¤ÎÃϲ¼¤Î´Æ¹ö¤Ë¤¤¤ë¡£
+;; Èà¤Ï»üÈῼ¤¤»à¹æ¤Î¾èÁÈ°÷¤ÎÀ¸¤­»Ä¤ê¤Î°ì¿Í¤Ç¡¢Ë´Îî¤È¤Ê¤Ã¤¿¥¬¡¼¥Æ¥£Á¥Ä¹¤ËÉü½²
+;; ¤Î¤¿¤áÄɤï¤ì¤Æ¤¤¤ë¡£
 ;;----------------------------------------------------------------------------
 
 ;; Basics...
 (define (gholet-hail knpc kpc)
-  (say knpc "'Ello, guv'nah"))
+  (say knpc "¤è¡¼¤ª¡¢Ã¶Æᤢ¡£"))
 
 (define (gholet-default knpc kpc)
-  (say knpc "Right you are, guv'nah, that's what I like about you!"))
+  (say knpc "¤½¤Î¤È¤ª¤ê¤Ç¤µ¤¡¡£¤½¤ì¤¬Ã¶Æá¤Î¤¤¤¤½ê¡ª"))
 
 (define (gholet-name knpc kpc)
-  (say knpc "Gholet's me 'andle, but take no account o' me, guv'nah")
+  (say knpc "¥´¥ì¥Ã¥È¤Ç¤µ¤¡¡£¤Ç¤âµ¤¤Ë¤·¤Ê¤¤¤Ç¤¯¤À¤»¤¨¡¢Ã¶Æá¡£")
   (quest-data-update 'questentry-ghertie 'gholet-dungeon 1))
 
 (define (gholet-join knpc kpc)
-  (say knpc "And leave behind 'is 'ere life of luxury? Tosh!"))
+  (say knpc "¤½¤ó¤Ç¤³¤Ã¤«¤é½Ð¤ÆìÔÂô¤Ç¤­¤ë¤Ã¤Æ¡©¥Ð¥«¥Ð¥«¤·¤¤¤ä¡ª"))
 
 (define (gholet-job knpc kpc)
-  (say knpc "Why, I's a cook. Or I was, at any rate, 'fore I took up the new "
-       "vocation you see me at 'ere."))
+  (say knpc "¤ª¤Ã¤È¡¢²¶¤¡ÎÁÍý¿Í¤À¡¢¤¤¤ä¡¢¤À¤Ã¤¿¡£"
+       "²¿¤Ë¤»¤è¡¢¤³¤³¤Ç¸«¤Æ¤ÎÄ̤ê¤Î¿·¤·¤¤Å·¿¦¤òÆÀ¤¿¤ó¤Ç¤µ¤¡¡£"))
 
 (define (gholet-bye knpc kpc)
-  (say knpc "Nice chattin' with ya, guv'nah"))
+  (say knpc "ÌÌÇò¤¤¤ªÏäǡ¢Ã¶Æá¡£"))
 
 ;; Tier 2 replies
 (define (gholet-cook knpc kpc)
-  (say knpc "I was a cook on a famous luxury liner! The Merciful Death, "
-       "ever 'ear of her?")
+  (say knpc "ͭ̾¤Ê¹ë²ÚµÒÁ¥¤ÎÎÁÍý¿Í¤À¤Ã¤¿¤ï¤±¤è¡ª"
+       "»üÈῼ¤¤»à¹æ¡¢Ê¹¤¤¤¿¤³¤È¤¢¤ë¤«¡©")
   (if (yes? kpc)
-      (say knpc "Oh. Well, I told you she was famous!")
-      (say knpc "Oh, she was quite-well known in her time. "
-           "Don't know what became of 'er.")))
+      (say knpc "¤ª¤ª¡¢¤½¤ê¤ã¤¢¤¤¤¤¡£Í­Ì¾¤À¤Ã¤Æ¸À¤Ã¤¿¤í¡ª")
+      (say knpc "¤ª¤ª¡¢ÀΤÏËÜÅö¤Ëͭ̾¤À¤Ã¤¿¡£"
+           "º£¤É¤¦¤Ê¤Ã¤Æ¤ë¤«¤Ï¤ï¤«¤ó¤Í¤¨¡£")))
 
 (define (gholet-merc knpc kpc)
-  (say knpc "Oh, yeah, she was captained by a marvelous woman. "
-       "Ghertie was her name."))
+  (say knpc "¤ª¤ª¡¢¤½¤¦¤µ¤¡¡¢¤ªÆ¬¤Ï¤¹¤Ð¤é¤·¤¤½÷¤À¤Ã¤¿¡£"
+       "¥¬¡¼¥Æ¥£¡¼¤Ã¤Æ¤ó¤À¡£"))
 
 (define (gholet-gher knpc kpc)
-  (say knpc "A real peach. Couldn't ask for a nicer boss."))
+  (say knpc "¤¤¤¤½÷¤À¤Ã¤¿¡£¤¢¤ì¤è¤ê¤¤¤¤Æ¬¤Ï¤¤¤Í¤¨¡£"))
 
 (define (gholet-voca knpc kpc)
-  (say knpc "Aye, this is the easiest job I ever had."))
+  (say knpc "¤ª¤¦¡¢¤³¤ì¤¬º£¤Þ¤Ç¤Ç°ìÈֳڤʻŻö¤Ç¤µ¤¡¡£"))
 
 (define (gholet-mean knpc kpc)
-  (say knpc "'Aven't seen old Meaney in ages. "
-       "Last I 'eard 'e was running a poor 'ouse."))
+  (say knpc "¥ß¡¼¥Ë¡¼¤Î¥¸¥¸¥¤¤È¤ÏŤ²¤¨¤³¤È²ñ¤Ã¤Æ¤Í¤¨¤Ê¡£"
+       "µßÉϱ¡¤ò¤ä¤Ã¤Æ¤ë¤Èʹ¤¤¤¿¤¬¤Ê¤¢¡£"))
 
 (define (gholet-jorn knpc kpc)
-  (say knpc "Oh, now there's a right dangerous man, now guv'nah. "
-       "Best let sleeping dogs lie, as I like to say. "))
+  (say knpc "¤ª¤ª¡¢¤¢¤¤¤Ä¤ÏËÜÅö¤Ë¤ä¤Ù¤¨¤è¡¢Ã¶Æá¡£"
+       "¿²¤¿¸¤¤Ï¤½¤Î¤Þ¤Þ¤Ë¤·¤Æ¤ª¤­¤Ê¤è¡£"))
 
 (define (gholet-dog knpc kpc)
-  (say knpc "From what I 'ear, that dog lies at the White Stag.")
+  (say knpc "¸¤¤ÏÇò¤­²´¼¯Áñ¤Ç¿²¤Æ¤ë¤Èʹ¤¤¤¿¤Ê¤¢¡£")
   (quest-data-update 'questentry-ghertie 'jorn-loc 1))
 
 ;; Quest-related
 (define (gholet-ring knpc kpc)
 
   (if (not (in-inventory? knpc t_skull_ring_g))
-      (say knpc "Ring? What ring?")
+      (say knpc "»ØÎØ¡©²¿¤Î»ØÎØ¡©")
       (begin
 
         (define (take-picklocks)
           (if (< (num-in-inventory kpc t_picklock) 12)
                (begin
                (quest-data-update-with 'questentry-ghertie 'gholet-price 1 (quest-notify nil))
-              (say knpc "Mmm. Bit of a problem, guv'nah, "
-                   "you don't have enough picklocks. "
-                   "But I'll keep the ring 'ere on layaway until you do.")
+              (say knpc "¤¦¡¼¤à¡¢¾¯¤·ÌäÂ꤬¤¢¤ë¤Ê¤¢¡¢Ã¶Æá¡£"
+                   "¸°³«¤±Æ»¶ñ¤¬Â­¤ê¤Í¤¨¤è¡£"
+                   "¤Ç¤â¤³¤Î»ØÎؤϼè¤êÃÖ¤­¤Ë¤·¤Æ¤ª¤¯¤è¡£")
                   )
               (begin
-                (say knpc "Right you are, 'ere you go, and there I go, "
-                     "right as rain, right as rain! Enjoy your new ring, "
-                     "guv'nah!")
+                (say knpc "¤½¤¦¤À¡£¤¢¤ó¤¿¤Ï»ý¤Ã¤Æ¤¯¡¢²¶¤Ï½Ð¤Æ¤¤¤¯¡¢"
+                     "¤¦¤Þ¤¯¤¤¤Ã¤¿¡¢¤¦¤Þ¤¯¤¤¤Ã¤¿¡ª¿·¤·¤¤»ØÎؤò³Ú¤·¤ó¤Ç¤¯¤ì¡¢Ã¶Æᡪ")
                 (kern-obj-remove-from-inventory kpc t_picklock 12)
                 (kern-obj-add-to-inventory knpc t_picklock 12)
                 (kern-obj-remove-from-inventory knpc t_skull_ring_g 1)
                (skullring-g-get nil kpc)
                )))
 
-        (say knpc "Oh, that old thing? It got to itchin', "
-             "I must be allergic to it. "
-             "So I took it off. 'Ad to take the whole finger, off, actually, "
-             "bit of a mess. Would you like to see it?")
+        (say knpc "¤ª¤ª¡¢¤³¤Î¸Å¤¤¥Ö¥Ä¤«¡©áÚ¤¯¤Æ¤·¤ç¤¦¤¬¤Í¤¨¤ó¤À¡£"
+             "¥³¥¤¥Ä¤Î¤»¤¤¤Ë¤Á¤²¤¨¤Í¤¨¡£"
+             "¥³¥¤¥Ä¤Ï³°¤½¤¦¡£¤â¤Á¤í¤ó»Ø¤â°ì½ï¤Ë¤À¡£"
+             "¾¯¤·¤­¤¿¤Í¤¨¤¬¡¢Íߤ·¤¤¤«¡©")
         (if (yes? kpc)
             (begin
-              (say knpc "Don't blame you. Not at all. "
-                   "It's quite the curious item! "
-                   "But one good turn deserves another, "
-                   "don't you agree, guv'nah?")
+              (say knpc "µ¤¤Ë¤¹¤ó¤Ê¤è¡£Á´Á³¡£"
+                   "¥³¥¤¥Ä¤ÏËÜÅö¤Ë¤¹¤²¤¨Âåʪ¤À¡ª"
+                   "¤Ç¤â¡¢¤¤¤¤¤³¤È¤ò¤¹¤ì¤Ð¡¢¤¤¤¤¤³¤È¤Ë¤Ê¤Ã¤ÆÊ֤äƤ¤¤ë¡£"
+                   "¤½¤¦¤À¤í¡¢Ã¶Æá¡©")
               (if (yes? kpc)
                   (begin
-                    (say knpc "Of course you do! Youse a fair man, guv'nah! "
-                         "You know tit-for-tat, scratch each other's back! "
-                         "A dozen picklocks. A dozen picklocks and you can have the ring. "
-                         "Agreed?")
+                    (say knpc "¤â¤Á¤í¤ó¤½¤¦¤¹¤ë¤è¤Ê¤¡¡¢Ã¶Æᡪ"
+                         "»ý¤Á¤Ä»ý¤¿¤ì¤Ä¤Ã¤Æ¥ä¥Ä¤è¡ª"
+                         "¸°³«¤±Æ»¶ñ¤¬1¥À¡¼¥¹¡£¸°³«¤±Æ»¶ñ¤¬1¥À¡¼¥¹¤¢¤ì¤Ð¥³¥¤¥Ä¤Ï¤¢¤ó¤¿¤Î¥â¥ó¤À¡£"
+                         "¤É¤¦¤è¡©")
                     (if (yes? kpc)
                         (take-picklocks)
                         (begin
                        (quest-data-update-with 'questentry-ghertie 'gholet-price 1 (quest-notify nil))
-                          (say knpc "That's my price. "
-                               "Come back when you're ready to pay.")
+                          (say knpc "¤½¤ì¤¬¤³¤Î»ØÎؤÎÃÍÃʤÀ¡£"
+                               "ʧ¤¦µ¤¤Ë¤Ê¤Ã¤¿¤é¤Þ¤¿Íè¤Æ¤¯¤ì¡£")
                           (kern-conv-end))))
                   (begin
-                    (say knpc "Piss off, then.")
+                    (say knpc "¤À¤Ã¤¿¤éµ¢¤ó¤Ê¤è¡£")
                     (kern-conv-end))))
-            (say knpc "Don't screw with me. "
-                 "I know you're 'ere for the ring or you wouldn't "
-                 "'ave asked.")))))
+            (say knpc "¤´¤Á¤ã¤´¤Á¤ã¤¤¤¤¤ä¤¬¤Ã¤Æ¡£"
+                 "¤³¤Î»ØÎؤΤ¿¤á¤Ë¤³¤³¤ËÍ褿¤Î¤ÏÃΤäƤë¤ó¤À¡£")))))
       
 (define gholet-conv
   (ifc basic-conv
    (kern-char-force-drop
    (kern-mk-char 
     'ch_my           ; tag
-    "Gholet"             ; name
+    "¥´¥ì¥Ã¥È"             ; name
     gholet-species         ; species
     gholet-occ              ; occ
     s_brigand     ; sprite