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)
}