;;; #rot13 (irc.quakenet.org) script by Adonai
;;; sometimes it will send your line twice.
;;; this is usually because you've installed a previous script with mIRC
;;; that uses the "on :input" remote.
;;; well, anyway, fix your scripts. this code works.

on *:input:#rot13: { 
  if ($left($1,1) != $readini($mircini,text,commandchar)) {
    msg $chan $r13($1-)
    halt
  }
}
on ^*:text:*:#rot13: {
  if ($nick==$me) { halt }
  .timer -m 1 1 echo $color(info) -t $chan $+([,$chr(2),$nick,$chr(2),]:) $r13($1-)
  halt
}
alias r13 {
  unset %r13out
  %r13count = $calc($len($1-) + 1)
  %r13c = 0
  :loop
  inc %r13c 
  if (%r13c < %r13count) { 
    %r13ch = $mid($1-,%r13c,1)
    if (%r13ch = $chr(32)) { 
      %r13out = %r13out %r13ch 
    }
    else {
      if ($asc(%r13ch) < 91) {
        if ($asc(%r13ch) > 64) {
          %r13v = $asc(%r13ch) + 13
          if (%r13v > 90) {
            %r13v = %r13v - 26
          }
          %r13ch = $chr(%r13v)
        }
      }
      else {
        if ($asc(%r13ch) > 96) {
          if ($asc(%r13ch) < 123) {
            %r13v = $asc(%r13ch) + 13
            if (%r13v > 122) {
              %r13v = %r13v - 26
            }
            %r13ch = $chr(%r13v)
          }
        }
      }
      %r13out = %r13out $+ %r13ch
    }
    goto loop
  }
  return %r13out
  unset %r13*
}