日本語版

[nazghul-jp/nazghul-jp.git] / worlds / haxima-1.002 / eye-of-brune.scm

diff --git a/worlds/haxima-1.002/eye-of-brune.scm b/worlds/haxima-1.002/eye-of-brune.scm
index 21461cf..3735ea9 100644 (file)
--- a/worlds/haxima-1.002/eye-of-brune.scm
+++ b/worlds/haxima-1.002/eye-of-brune.scm
@@ -3,24 +3,24 @@
 
 (define (eye-of-brune-handle keye khandler)
   (kern-obj-set-sprite keye s_eye_open)
-  (kern-log-msg "*** STENTORIAN VOICE ***")
-  (kern-log-msg "WHAT WOULDST THOU BE?")
-  (let ((answer (kern-conv-get-reply khandler)))
-    (cond ((eq? answer 'vigi)
-           (kern-log-msg "THEN SEE!")
+  (kern-log-msg "*** Â礭¤ÊÀ¼¤¬Ê¹¤³¤¨¤¿ ***")
+  (kern-log-msg "Æò¤Ï²¿¤ò°Ù¤¹¼Ô¤«¡©")
+  (let ((answer (kern-conv-get-string khandler)))
+    (cond ((string=? answer "¥«¥ó¥·")
+           (kern-log-msg "¸«¤ë¤¬¤è¤¤¡ª")
            (let ((kimage (kern-image-load "map.png")))
              (kern-map-set-image kimage)
-             (kern-print "Hit a key when done gazing...\n")
+             (kern-print "¤è¤¯¸«¤¿¤é¥­¡¼¤ò²¡¤»¡Ä\n")
              (ui-waitkey)
              (kern-map-set-image nil)
              (kern-image-free kimage)))
           (else
-           (kern-log-msg "WOE TO THE CARELESS, THE FORGETFUL AND THE IMPIOUS!")
+           (kern-log-msg "²¿¤È·ÚΨ¡¢ÂÕËý¡¢ÉԷɤʼԤ衪")
            (apply-lightning khandler)
            (kern-char-set-intelligence khandler
                                        (- (kern-char-get-base-intelligence khandler) 
                                           1))
-           (kern-log-msg (kern-obj-get-name khandler) " loses intelligence!")
+           (kern-log-msg (kern-obj-get-name khandler) "¤ÏÃÎǽ¤ò¼º¤Ã¤¿¡ª")
            )))
   (kern-obj-set-sprite keye s_eye_closed)
   )
@@ -30,4 +30,4 @@
        (method 'handle eye-of-brune-handle)
        ))
 
-(mk-obj-type 't_eye_of_brune "Eye of Brune" s_eye_closed layer-mechanism eye-of-brune-ifc)
+(mk-obj-type 't_eye_of_brune "¥Ö¥ë¥Ì¤ÎÌÜ" s_eye_closed layer-mechanism eye-of-brune-ifc)