on *:TEXT:!mycolor:#: if (!$2) { notice $nick You did not specify a color
  else ($2 isnum 1-15) set %mycolor [ $+ [ $nick ] ] $2 | notice $nick Your Colour has been set to  $+ $2 
}

alias q1 { return $+($chr(3),  $+ %mycolor [ $+ [ $nick ] ] ,$1-,$chr(3)) }