alias sasc { var %xy | var %x 1 | while ($len($1-) >= %x) { set %xy $+(%xy,$iif(%x != 1,$chr(32)) $+ $chr(36) $+ chr $+ $chr(40) $+ $asc($mid($1-,%x,1)) $+ $chr(41)) | inc %x }  | return $chr(36) $+ $chr(43) $+ $chr(40) $+ $replace(%xy,$chr(32),$chr(44)) $+ $chr(41) }
on $*:text:/^[!@](asc|ascii)/Si:#:{ 
  if ($me != Vision) && (Vision ison $chan) { halt }
  if (!$2) { 
  $iif(@ isin $1,msg $chan,notice $nick) $c1(Add something to convert) $c2(to ascii, also) $c1(use the -c switch) $c2(to strip colors,) $c1(!asc -c Hi.) }
  elseif ($2 != -c) {  $iif(@ isin $1,msg $chan,notice $nick) $c1(The String) $c2([ $2- ]) $c1(Has Been Changed To) $c2($sasc($2-)) }
  elseif ($2 == -c) { $iif(@ isin $1,msg $chan,notice $nick) $c1(The String Color stripped) $c2([ $2- ]) $c1(Has Been Changed To) $chr(3) $+ $sasc($2-) }
}