on *:text:*:#: {
  var %x = 1
  var %l = $len($1-)
  var %string = $replace($1-,$chr(32),+)
  while %x <= %l {
    set %out %out $+ $change2($mid(%string,%x,1))
    inc %x
  }
  notice $nick $replace(%out,+,$chr(32))
  unset %out
}
alias change2 {
  if ($1 == u) || ($1 == a) || ($1 == +) return $1
  if ($1 == b) return c
  if ($1 == c) return v
  if ($1 == d) return o
  if ($1 == e) return h
  if ($1 == f) return a
  if ($1 == g) return t
  if ($1 == h) return m
  if ($1 == i) return f
  if ($1 == j) return y
  if ($1 == k) return r
  if ($1 == l) return k
  if ($1 == m) return d
  if ($1 == n) return w
  if ($1 == o) return p
  if ($1 == p) return i
  if ($1 == q) return b
  if ($1 == r) return u
  if ($1 == s) return n
  if ($1 == t) return g
  if ($1 == v) return s
  if ($1 == w) return l
  if ($1 == x) return e
  if ($1 == y) return x
  if ($1 == z) return q
}