X-Git-Url: http://git.osdn.net/view?p=nazghul-jp%2Fnazghul-jp.git;a=blobdiff_plain;f=worlds%2Fhaxima-1.002%2Ftalking-ankh.scm;h=eb222b3e78862d28219f5b0c82c18679dabc113f;hp=158368fe79c17c7dd2453feece4d6b47d7a1744c;hb=b7c03f64054728fbc44912f23072e2dc581a1dcc;hpb=b7e0472e04898913774c2bd1e74589292933bdf8

diff --git a/worlds/haxima-1.002/talking-ankh.scm b/worlds/haxima-1.002/talking-ankh.scm
index 158368f..eb222b3 100644
--- 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