日本語版

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

diff --git a/worlds/haxima-1.002/door.scm b/worlds/haxima-1.002/door.scm
index b1e4187..b30ce63 100644 (file)
--- a/worlds/haxima-1.002/door.scm
+++ b/worlds/haxima-1.002/door.scm
@@ -88,10 +88,10 @@
   (let ((door (kobj-gob kdoor)))
     (cond 
      ((door-magic-locked? door)
-      (kern-log-msg "Magically locked!\n")
+      (kern-log-msg "ËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤ë¡ª\n")
       #f)
      ((door-locked? door)
-      (kern-log-msg "Locked!\n")
+      (kern-log-msg "»Ü¾û¤µ¤ì¤Æ¤¤¤ë¡ª\n")
       #f)
      ((door-trapped? door)
       (door-trip-traps kdoor khandler)
@@ -117,8 +117,8 @@
 (define (door-lock kdoor khandler)
   (let ((door (kobj-gob kdoor)))
     ;;(display "door-lock:")(display door)(newline)
-    (cond ((door-open? door) (kern-log-msg "Not closed!\n") #f)
-          ((door-locked? door) (kern-log-msg "Already locked!\n") #f)
+    (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+          ((door-locked? door) (kern-log-msg "´û¤Ë»Ü¾û¤µ¤ì¤Æ¤¤¤ë¡ª\n") #f)
           (else
            (door-set-locked! door #t)
            (door-update-kstate kdoor)
@@ -127,9 +127,9 @@
 (define (door-unlock kdoor khandler)
   (let ((door (kobj-gob kdoor)))
     ;;(display "door-unlock:")(display door)(newline)
-    (cond ((door-open? door) (kern-log-msg "Not closed!\n") #f)
-          ((not (door-locked? door)) (kern-log-msg "Not locked!\n") #f)
-          ((door-needs-key? door) (kern-log-msg "Needs the key!\n") #f)
+    (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+          ((not (door-locked? door)) (kern-log-msg "»Ü¾û¤µ¤ì¤Æ¤¤¤Ê¤¤¡ª\n") #f)
+          ((door-needs-key? door) (kern-log-msg "¸°¤¬É¬ÍפÀ¡ª\n") #f)
           (else
            (door-set-locked! door #f)
            (door-update-kstate kdoor)
@@ -138,9 +138,9 @@
 (define (door-magic-lock kdoor khandler)
   (let ((door (kobj-gob kdoor)))
     ;;(display "door-magic-lock:")(display door)(newline)
-    (cond ((door-open? door) (kern-log-msg "Not closed!\n") #f)
+    (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
           ((door-magic-locked? door) 
-           (kern-log-msg "Already magically locked!\n") #f)
+           (kern-log-msg "´û¤ËËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤ë¡ª\n") #f)
           (else
            (door-set-magic-locked! door #t)
            (door-update-kstate kdoor)
@@ -149,9 +149,9 @@
 (define (door-magic-unlock kdoor khandler)
   (let ((door (kobj-gob kdoor)))
     ;;(display "door-magic-unlock:")(display door)(newline)
-    (cond ((door-open? door) (kern-log-msg "Not closed!\n") #f)
+    (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª\n") #f)
           ((not (door-magic-locked? door)) 
-           (kern-log-msg "Not magically locked!\n") #f)
+           (kern-log-msg "ËâË¡¤ÇÉõ°õ¤µ¤ì¤Æ¤¤¤Ê¤¤¡ª\n") #f)
           (else
            (door-set-magic-locked! door #f)
            (door-update-kstate kdoor)
@@ -188,8 +188,8 @@
 
 (define (door-use-key kdoor key-type)
   (let ((door (kobj-gob kdoor)))
-    (cond ((door-open? door) (kern-log-msg "Not closed!"))
-          ((not (door-key-fits? door key-type)) (kern-log-msg "Key won't fit!"))
+    (cond ((door-open? door) (kern-log-msg "ÊĤ¸¤Æ¤¤¤Ê¤¤¡ª"))
+          ((not (door-key-fits? door key-type)) (kern-log-msg "¸°¤¬¹ç¤ï¤Ê¤¤¡ª"))
           ((door-locked? door)
            (door-set-locked! door #f)
            (door-update-kstate kdoor))
@@ -198,7 +198,7 @@
            (door-update-kstate kdoor)))))
 
 (define (door-search kdoor kchar)
-  (kern-log-begin "Searching door...")
+  (kern-log-begin "Èâ¤òÄ´¤Ù¤¿¡Ä")
   (let ((door (kobj-gob kdoor)))
     (if (foldr (lambda (detected? trap)
                  (trap-search trap kdoor kchar)
@@ -210,36 +210,36 @@
                  (or detected? (trap-detected? trap)))
                #f
                (door-traps door))
-        (kern-log-end "Trap detected!")
-        (kern-log-end "No traps detected!")
+        (kern-log-end "櫤¬»Å³Ý¤±¤é¤ì¤Æ¤¤¤ë¡ª")
+        (kern-log-end "櫤Ϥʤ¤¤è¤¦¤À¡ª")
         )))
 
 (define (door-describe kdoor count)
   (let ((door (kobj-gob kdoor)))
-    (kern-log-continue "a ")
+    (kern-log-continue "")
     (if (door-magic-locked? door)
-        (kern-log-continue "magically locked, "))
+        (kern-log-continue "ËâË¡¤ÇÉõ°õ¤µ¤ì¤¿"))
     (if (door-locked? door)
         (if (door-needs-key? door)
-            (kern-log-continue "locked (with a key), ")
-            (kern-log-continue "padlocked, ")))
+            (kern-log-continue "»Ü¾û¤µ¤ì¤¿")
+            (kern-log-continue "Æîµþ¾û¤Î³Ý¤±¤é¤ì¤¿")))
     (if (door-open? door)
-        (kern-log-continue "open door ")
-        (kern-log-continue "closed door "))
+        (kern-log-continue "³«¤¤¤¿Èâ")
+        (kern-log-continue "ÊĤ¸¤¿Èâ"))
     (kern-log-continue "(")
     (if (foldr (lambda (described? trap)
                  (cond ((trap-detected? trap)
                         (if described?
-                            (kern-log-continue ", "))
+                            (kern-log-continue "¡¢"))
                         (kern-log-continue (trap-name trap))
                         (if (trap-tripped? trap)
-                            (kern-log-continue "[disarmed]"))
+                            (kern-log-continue "[²ò½üºÑ]"))
                         #t)
                        (else described?)))
                #f
                (door-traps door))
-        (kern-log-continue " trap(s) detected")
-        (kern-log-continue "no traps detected")
+        (kern-log-continue "¤Î櫤¬»Å³Ý¤±¤é¤ì¤Æ¤¤¤ë")
+        (kern-log-continue "櫤Ϥʤ¤¤è¤¦¤À")
         )
     (kern-log-continue ")")
     ))
@@ -281,7 +281,7 @@
        ))
 
 ;; Create the kernel "door" type
-(mk-obj-type 't_door "door" s_stone_arch layer-mechanism 
+(mk-obj-type 't_door "Èâ" s_stone_arch layer-mechanism 
              door-ifc)
 
 (define (door-state-factory
@@ -363,10 +363,10 @@
   kdoor
   )
   
-(mk-obj-type 't_archway_rock "archway" s_rock_arch layer-mechanism 
+(mk-obj-type 't_archway_rock "ÙÊÏ©" s_rock_arch layer-mechanism 
              nil)
 
-(mk-obj-type 't_archway_stone "archway" s_stone_arch layer-mechanism 
+(mk-obj-type 't_archway_stone "ÙÊÏ©" s_stone_arch layer-mechanism 
              nil)
         
 (define (mk-archway-rock) (kern-mk-obj t_archway_rock 1))