日本語版

[nazghul-jp/nazghul-jp.git] / worlds / haxima-1.002 / anne.scm

diff --git a/worlds/haxima-1.002/anne.scm b/worlds/haxima-1.002/anne.scm
index 8e27e49..985745c 100644 (file)
--- a/worlds/haxima-1.002/anne.scm
+++ b/worlds/haxima-1.002/anne.scm
@@ -8,7 +8,7 @@
 ;;----------------------------------------------------------------------------
 ;; Schedule
 ;; 
-;; In Paladin's Hold, in the Keep guarding Kurpolis.
+;; ¥¯¥í¥Ý¥ê¥¹¤ÎÀ»µ³»Î¤ÎºÖ
 ;;----------------------------------------------------------------------------
 (define anne-bed ph-bed2)
 (define anne-mealplace ph-tbl2)
@@ -33,40 +33,39 @@
 ;;----------------------------------------------------------------------------
 ;; Conv
 ;; 
-;; Anne is a female White Magick mage serving as a medik 
-;; in the service of Glasdrin.  
-;; She currently serves in the Paladin's Hold of the Keep guarding Kurpolis.
+;; ¥¢¥ó¥Í¤ÏÇòËâ½Ñ»Õ¤Î½÷À­¤Ç¡¢°å»Õ¤È¤·¤Æ¥°¥é¥¹¥É¥ê¥ó¤ÇƯ¤¤¤Æ¤¤¤ë¡£
+;; Èà½÷¤Ï¸½ºß¤Ï¥¯¥í¥Ý¥ê¥¹¤ÎÀ»µ³»Î¤ÎºÖ¤ÎǤ̳¤Ë¤Ä¤¤¤Æ¤¤¤ë¡£
 ;;----------------------------------------------------------------------------
 
 ;; Basics...
 (define (anne-name knpc kpc)
-  (say knpc "I am called Anne."))
+  (say knpc "¥¢¥ó¥Í¤È¸Æ¤Ð¤ì¤Æ¤¤¤Þ¤¹¡£"))
 
 (define (anne-job knpc kpc)
-  (say knpc "I am a medik in the service of Glasdrin. Are you in need of healing?")
+  (say knpc "¥°¥é¥¹¥É¥ê¥ó¤Î°å»Õ¤Ç¤¹¡£¼£ÎŤ¬É¬ÍפǤ¹¤«¡©")
   (if (yes? kpc)
       (anne-trade knpc kpc)))
 
 (define (anne-trade knpc kpc)
   (if (trade-services knpc kpc
                       (list
-                       (svc-mk "Heal" 30 heal-service)
-                       (svc-mk "Cure" 30 cure-service)
-                       (svc-mk "Resurrect" 100 resurrect-service)))
+                       (svc-mk "²óÉü" 30 heal-service)
+                       (svc-mk "¼£Ìþ" 30 cure-service)
+                       (svc-mk "ÁÉÀ¸" 100 resurrect-service)))
       (begin
-        (say knpc "What else can I do for you?")
+        (say knpc "¾¤Ë²¿¤«É¬ÍפǤ¹¤«¡©")
         (anne-trade knpc kpc))
       (begin
-        (say knpc "Will there be anything else?")
+        (say knpc "¾¤Ë²¿¤«É¬ÍפǤ¹¤«¡©")
         (if (kern-conv-get-yes-no? kpc)
             (anne-trade knpc kpc)
-            (say knpc "Very well.")))))
+            (say knpc "¤ªÂç»ö¤Ë¡£")))))
 
 (define (anne-medik knpc kpc)
-  (say knpc "I heal paladins who are wounded in combat. I will heal others, too, for a price."))
+  (say knpc "À襤¤Ç½ý¤Ä¤¤¤¿À»µ³»Î¤ò¼£ÎŤ·¤Æ¤¤¤Þ¤¹¡£Â¾¤Î¿Í¤Î¼£ÎŤâ¹Ô¤¤¤Þ¤¹¡£ÎÁ¶â¤ÏɬÍפǤ¹¤¬¡£"))
 
 (define (anne-kurp knpc kpc)
-  (say knpc "This is a savage place, not for the inexperienced. It gets worse the deeper you go."))
+  (say knpc "¤³¤³¤Ï·Ð¸³¤ÎÀõ¤¤¿Í¤Ë¤Ï¤Ä¤é¤¤¾ì½ê¤Ç¤¹¡£¿Ê¤á¤Ð¿Ê¤à¤Û¤É¤Ò¤É¤¯¤Ê¤ê¤Þ¤¹¡£"))
 
 (define anne-conv
   (ifc kurpolis-conv
@@ -80,7 +79,7 @@
        (method 'heal anne-trade)
        (method 'pric anne-trade)
 
-       (method 'medik anne-medik)
+       (method 'medi anne-medik)
        (method 'kurp anne-kurp)
        ))
 
@@ -88,7 +87,7 @@
   (bind 
    (kern-mk-char 
     'ch_anne           ; tag
-    "Anne"             ; name
+    "¥¢¥ó¥Í"           ; name
     anne-species         ; species
     anne-occ              ; occ
     s_companion_wizard     ; sprite