Something

n $*:text:/^[!@](chr)/Si:#:{ 
  if ($me == [Gw]Supra) && ($chan == #Supra) { halt }
  if (!$2) { 
  $iif($globs($chan),notice $nick,$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($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The String) $c2([ $2- ]) $c1(Has Been Changed To) $c2($sasc($2-)) }
  elseif ($2 == -c) { $iif($globs($chan),notice $nick,$iif(@ isin $1,msg $chan,notice $nick)) $c1(The String Color stripped) $c2([ $2- ]) $c1(Has Been Changed To) $chr(3) $+ $sasc($2-) }
}