on *:INPUT:#:{
  if ($remove($1,$chr(44)) ison $chan) {
    haltdef
    msg $chan $colorname($remove($1,$chr(44))) $+ $iif($2,15-> $2-,$null)
  }
}
alias colorname {
  haltdef
  return $+(5,~][>,4,>,,>,15,$+($upper($+(,,$left($1,1),,)),$right($1,-1)),4,<,,<,5,<][~,)