on $*:text:/^[@!]color/Si:#:{
  var %way = $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($2) {
    if ($2 isnum 1-15) {
      %way Color $2 Looks like $+($chr(3),$2,This,$chr(3),.) $+($chr(40),Ctrl+k,$2,$chr(41))
    }
    else %way That is not a color number.
  }
  else {
    var %crand = $r(1,15)
    %way Random color: $+($chr(3),%crand,This,$chr(3),.) Color $chr(35) %crand $+ . $+($chr(40),Ctrl+k,%crand,$chr(41))
  }
}