menu channel {
  Text Colour
  .Random:set %c $+(,$rand(1,15)) | echo -a Your text colour has been set to 6R7a8n9d10o11m
  .Black:set %c 1 | echo %c Your text colour has been set to Black
  .Dark Blue:set %c 2 | echo 2 Your text colour has been set to Dark Blue
  .Green:set %c 3 | echo 3 Your text colour has been set to Green
  .Red:set %c 4 | echo 4 Your text colour has been set to Red
  .Brown:set %c 5 | echo 5 Your text colour has been set to Brown
  .Purple:set %c 6 | echo 6 Your text colour has been set to Purple
  .Orange:set %c 7 | echo 7 Your text colour has been set to Orange
  .Yellow:set %c 8 | echo 8 Your text colour has been set to Yellow
  .Lime Green:set %c 9 | echo 9 Your text colour has been set to Lime Green
  .Teal:set %c 10 | echo 10 Your text colour has been set to Teal
  .Cyan:set %c 11 | echo 11 Your text colour has been set to Cyan
  .Blue:set %c 12 | echo 12 Your text colour has been set to Blue
  .Pink:set %c 13 | echo 13 Your text colour has been set to Pink
  .Dark Grey:set %c 14 | echo 14 Your text colour has been set to Dark Grey
  .Light Grey:set %c 15 | echo 15 Your text colour has been set to Light Grey
}

on *:INPUT:#: {
  if (/* iswm $1) && (!$ctrlenter) return
  haltdef
  set %text $1-
  say $+(%c,%text)
}