sIRC Color Talker

alias sirctalk {
  var %wrd = $gettok($1,0,32)
  while (%wrd) {
    var %cwrd = $gettok($1,%wrd,32)
    var %nwrd = $replace($left(%cwrd,1),$left(%cwrd,1),04 $+ $left(%cwrd,1) $+ 14) $+ $right(%cwrd,$calc($len(%cwrd) - 1))
    if (. isin %cwrd) { var %cwrd = $replace(%nwrd,.,9.14) }
    elseif (x isin %cwrd) { var %cwrd = $replacecs(%nwrd,x,9x14) }
    elseif (@ isin %cwrd) { var %cwrd = $replace(%nwrd,@,09@14) }
    elseif (! isin %cwrd) { var %cwrd = $replace(%nwrd,!,09!14) }
    elseif ($chr(42) isin %cwrd) { var %cwrd = $replace(%nwrd,$chr(42),09 $+ $chr(42) $+ 14) }
    elseif ($chr(40) isin %cwrd) { var %cwrd = $replace(%nwrd,$chr(40),09 $+ $chr(40) $+ 14) }
    elseif ($chr(41) isin %cwrd) { var %cwrd = $replace(%nwrd,$chr(41),09 $+ $chr(41) $+ 14) }
    elseif ($chr(43) isin %cwrd) { var %cwrd = $replace(%nwrd,$chr(43),09 $+ $chr(43) $+ 14) }
    elseif ($chr(45) isin %cwrd) { var %cwrd = $replace(%nwrd,$chr(45),09 $+ $chr(45) $+ 14) }
    else { var %cwrd = %nwrd }
    var %returntalk = %cwrd %returntalk
    dec %wrd
  }
  return %returntalk
}