menu channel {
  Text Colour
  .Random:set %c $chr(3) $!+ $!rand(1,15) | echo -a Your text colour has been set to 6R7a8n9d10o11m
  .Black:set %c 01 | echo %c Your text colour has been set to Black
  .Dark Blue:set %c 02 | echo 2 Your text colour has been set to Dark Blue
  .Green:set %c 03 | echo 3 Your text colour has been set to Green
  .Red:set %c 04 | echo 4 Your text colour has been set to Red
  .Brown:set %c 05 | echo 5 Your text colour has been set to Brown
  .Purple:set %c 06 | echo 6 Your text colour has been set to Purple
  .Orange:set %c 07 | echo 7 Your text colour has been set to Orange
  .Yellow:set %c 08 | echo 8 Your text colour has been set to Yellow
  .Lime Green:set %c 09 | 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 $+($eval(%c,2),%text)
}