OSDN Git Service

日本語版
[nazghul-jp/nazghul-jp.git] / worlds / haxima-1.002 / traps.scm
index acf1892..113d82b 100644 (file)
           ((or (= roll 20)
                (> (+ roll bonus) avoid))
            (kern-log-msg (kern-obj-get-name kchar) 
-                         " ^c+gavoids^c- a 
+                         "¤Ï
                          (trap-type-name ttype) 
-                         " trap!"))
+                         "¤Î櫤ò^c+g¤«¤ï¤·¤¿^c-¡ª"))
           (else
-           (kern-log-msg (kern-obj-get-name kchar) " ^c+rtrips^c- a "
+           (kern-log-msg (kern-obj-get-name kchar) "¤Ï"
                          (trap-type-name ttype)
-                         " trap!")
+                         "¤Î櫤Ë^c+r¤«¤«¤Ã¤¿^c-¡ª")
            (apply (eval (trap-type-proc (trap-type trap)))
                   (list kchar kobj))))))
 
@@ -80,9 +80,9 @@
                     (> (+ roll bonus) 
                        (trap-detect-dc trap))))
            (kern-log-msg (kern-obj-get-name kchar) 
-                         " ^c+gfinds^c- a 
+                         "¤Ï
                          (trap-type-name ttype) 
-                         " trap!")
+                         "¤Î櫤ò^c+g¸«¤Ä¤±¤¿^c-¡ª")
            (trap-set-detected! trap #t))
           ((or (= roll 1)
                (< (+ roll bonus) (trap-fumble-dc trap)))
@@ -98,7 +98,7 @@
 (define (sleep-trap-proc actor subject) (apply-sleep actor))
 
 (define (spike-trap-proc actor subject)
-  (kern-obj-apply-damage actor "ouch" 
+  (kern-obj-apply-damage actor "¤¢¤¢¤Ã"
                          (kern-dice-roll "1d6")))
 
 (define (bomb-trap-proc actor subject)
   (ifccall subject 'self-destruct)
   )
 
-(define lightning-trap (mk-trap-type "lightning" 'lightning-trap-proc))
-(define burn-trap (mk-trap-type "burn" 'burn-trap-proc))
-(define poison-trap (mk-trap-type "poison" 'poison-trap-proc))
-(define sleep-trap (mk-trap-type "sleep" 'sleep-trap-proc))
-(define spike-trap (mk-trap-type "spike" 'spike-trap-proc))
-(define bomb-trap (mk-trap-type "bomb" 'bomb-trap-proc))
-(define self-destruct-trap (mk-trap-type "self-destruct" 'self-destruct-trap-proc))
+(define lightning-trap (mk-trap-type "ÅÅ·â" 'lightning-trap-proc))
+(define burn-trap (mk-trap-type "±ê" 'burn-trap-proc))
+(define poison-trap (mk-trap-type "ÆÇ" 'poison-trap-proc))
+(define sleep-trap (mk-trap-type "ºÅ̲" 'sleep-trap-proc))
+(define spike-trap (mk-trap-type "¥È¥²" 'spike-trap-proc))
+(define bomb-trap (mk-trap-type "Çúȯ" 'bomb-trap-proc))
+(define self-destruct-trap (mk-trap-type "¼«Çú" 'self-destruct-trap-proc))