日本語版

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

diff --git a/worlds/haxima-1.002/r2a_mech.scm b/worlds/haxima-1.002/r2a_mech.scm
index 59971a5..4862f0e 100644 (file)
--- a/worlds/haxima-1.002/r2a_mech.scm
+++ b/worlds/haxima-1.002/r2a_mech.scm
@@ -10,8 +10,8 @@
 
 (define (r2a-statue-hail knpc kpc)
         (begin
-          (let ((resp (kern-conv-get-reply kpc)))
-            (if (eq? resp 'onus) 
+          (let ((resp (kern-conv-get-string kpc)))
+            (if (string=? resp "¥»¥­¥Ë¥ó") 
                 (begin
                                        (shake-map 15)
                                        (blit-map p_absalot_passage 5 15 1 5 m_lava_bridge)