alias -l ascii {
  if ($1) && ($isid) {
    var %x = 1
    while ($mid($1,%x,1) != $null) {
      var %z = $v1
      if (!$istok(%i,$asc(%z),32)) {
        var %y %y $qt(04 $+ $replace(%z,$chr(2),Bold,$chr(3),Color,$chr(15),Reset,$chr(22),Reverse,$chr(31),Underline,$chr(32),Space,$chr(160),Hard space) $+ ) 12 $+ $asc(%z), $&
          %i = %i $asc(%z)
      }
      inc %x
    }
    return %y
  }
}
on $*:TEXT:/[!.@]asc(?>ii)?/Si:#: {
  if (!%asc.block. [ $+ [ $chan ] ]) && ($2) {
    msg $chan Converted (ascii) -> $ascii($2-)
    set -u10 %asc.block. $+ $chan 1
  }
}