((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))))))
(> (+ 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)))
(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))