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