menu channel {
-
Color Talker $chr(9) $+([,$iif($group(#talker).status == on,ON,OFF),])
.Turn $chr(9) $iif($group(#talker).status == on,OFF,ON) { $iif($group(#talker).status == on,.disable,.enable) #talker | echo -a * Color Talker is now: $iif($group(#talker).status == on,ON,OFF) }
.-
.Color $chr(9) $+([,%color,])
..$submenu($colmenu($1))
}
alias -l colmenu { var %i 1, %n 00 | while (%i <= 16) { if ($1 == %i) return Color %n $colname(%n) : colval %n | inc %i | if (%i <= 10) %n = $+(0,$calc(%i - 1)) | else %n = $calc(%i - 1) } }
alias -l colval { %color = $1 | echo -a * Color: $1 $colname($1) - $+($chr(3),%color,text,$chr(3)) }
alias -l colname { return $+($chr(40),$replace($1,00,White,01,Black,02,Navy,03,Green,04,Red,05,Brown,06,Purple,07,Orange,08,Yellow,09,Light Green,10,Teal,11,Light Blue,12,Blue,13,Pink,14,Dark Grey,15,Grey),$chr(41)) }
#talker off
on *:INPUT:*: if (/* !iswm $1) { var %c $+($chr(3),%color,$1-,$chr(3)) | !msg $target $iif(c isincs $chan($target).mode,$strip(%c),%c) | halt }
#talker end
