日本語版

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

diff --git a/worlds/haxima-1.002/talking-ankh.scm b/worlds/haxima-1.002/talking-ankh.scm
index 158368f..eb222b3 100644 (file)
--- a/worlds/haxima-1.002/talking-ankh.scm
+++ b/worlds/haxima-1.002/talking-ankh.scm
@@ -51,17 +51,17 @@
   (let ((gob (kobj-gob-data knpc)))
     (if (not (ankh-done? gob))
         (begin
-          (say knpc "[A vibrating voice fills your head] "
-               "At the dawn of the next age, how will the world be made?")
-          (let ((resp (kern-conv-get-reply kpc)))
-            (if (not (eq? resp 'anew))
-                (say knpc "Then the new age has not yet come.")
+          (say knpc "¡ÎƬ¤ÎÃæ¤Ç¿Ì¤¨¤ëÀ¼¤¬¶Á¤¤¤¿¡£¡Ï"
+               "¼¡¤Î»þÂå¤ÎÌëÌÀ¤±¤Ë¡¢À¤³¦¤Ï¤É¤Î¤è¤¦¤Ë¤Ê¤ë¤«¡©")
+          (let ((resp (kern-conv-get-string kpc)))
+            (if (not (string=? resp "¥µ¥¤¥»¥¤"))
+                (say knpc "¤Ê¤é¤Ð¿·¤·¤¤»þÂå¤Ï¤Þ¤Àˬ¤ì¤Ê¤¤¤Ç¤¢¤í¤¦¡£")
                 (begin
-                  (say knpc "THEN THE NEW AGE HAS BEGUN!")
+                  (say knpc "¤Ê¤é¤Ð¿·¤·¤¤»þÂ夬»Ï¤Þ¤ë¡ª")
                   (shake-map 15)
                   (kern-map-flash 500)
                   (shake-map 15)
-                  (kern-map-flash 500)          
+                  (kern-map-flash 500)
                   (shake-map 15)
                   (ankh-done! gob)
                   (blit-map (loc-place (kern-obj-get-location knpc))
@@ -82,7 +82,7 @@
   (bind 
    (kern-mk-char 
     'ch_ankh           ; tag
-    "Ankh"             ; name
+    "¥¢¥ó¥¯"           ; name
     ankh-species         ; species
     ankh-occ              ; occ
     s_ankh     ; sprite