N Text to Demo Converter for mIRC

alias t2d {
  var %E = $replacexcs($regsubex($regsubex($1, /(?:([nlrbj0-3C-F])|"([nlrbj0-3C-F]+)")([1-9]\d*)/gSi, $str(\1, \2)), /[^nlrbj0-3C-F]/gi, ), n,0,N,0, l,1, r,2, b,3, j,C,J,C, L,D, R,E, B,F)
  var %G = $regsubex($regsubex(%E, /(?<=[C-F])([C-F])/gi,$base($calc($base(\t, 16, 10) - 8), 10, 16)), /(.{7}(?!$))/g, \t|)
  var %H = $regsubex($regsubex(%G,/(.)/g, $mid(\A, -\n, 1)), /([^|]+)/g, $gettok(\a, -\n, 32))

  return $iif($prop == hex, %H, $+($len(%E),:,$regsubex(%H, /([^|]+)/g, $base(\t, 16, 10))))
}