alias Code {
  var %x = 1
  while (%x <= $len($2-)) {
    var %y = %y $+ $chr($calc($asc($mid($1-,%x,1))+ $1))
    inc %x
  }
  msg $active %y
}
alias Dcode {
  var %x = 1
  while (%x <= $len($2)) {
    var %y = %y $+ $replace($chr($calc($asc($mid($2,%x,1))- $1)),$chr(32),$chr(08935))
    inc %x
  }
  return $replace(%y,$chr(08935),$chr(32))
}

on *:text:*:#:{
  if ($($+(%,dcode.,$nick),2) == yes) {
    if ($dcode(*502* iswm $1) {
      Echo -a $nick Decoded: $dcode( $($+(%,dcode,.,$nick,.,code),2) ,$1-)
    }
  }
}
alias AddDcode {
  set $+(%,dcode.,$2,.,code) $1
  set $+(%,dcode.,$2) yes
  echo -a $2 added decoding with $1
}
alias DelDcode {
  unset $+(%,dcode.,$2,.,code)
  set $+(%,dcode.,$2) No
  echo -a $2 Stopped decoding
}