menu channel {
-
$iif(%color_talker,$style(1)) Color Talker $chr(9) $iif(%color_talker,ON,OFF)
.$iif(%color_talker,INPUT $chr(8195) OFF,INPUT $chr(8195) ON) : if (%color_talker) %color_talker = $false | else %color_talker = $true | echo -a * Color Talker is now: $iif(%color_talker,ON,OFF)
.-
.Color $chr(9) $+([,%color,])
..$submenu($colmenu($1))
$iif(%haha,$style(1)) Ha-Ha $chr(9) $iif(%haha,ON,OFF)
.$iif(%haha,INPUT $chr(8195) OFF,INPUT $chr(8195) ON) : if (%haha) %haha = $false | else %haha = $true | echo -a * Ha-Ha is now: $iif(%haha,ON,OFF)
.-
.$item(ha) : say $textrep(ha)
.$item(haa) : say $textrep(haa)
.$item(he) : say $textrep(he)
.$item(hee) : say $textrep(hee)
.$item(ho) : say $textrep(ho)
.$item(hoo) : say $textrep(hoo)
.$item(hi) : say $textrep(hi)
.$item(hii) : say $textrep(hii)
}
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,test 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)) }
alias -l item { return $1 $+($chr(8195),-,$chr(8195)) $textrep($1) }
alias -l textrep {
if ($1 == ha) { return Ha.Ha.Ha }
if ($1 == haa) { return Ha.Ha.Ha.Ha.Ha.Ha.Ha.Ha.Ha }
if ($1 == he) { return He.He.He }
if ($1 == hee) { return He.He.He.He.He.He.He.He.He }
if ($1 == ho) { return Ho.Ho.Ho }
if ($1 == hoo) { return Ho.Ho.Ho.Ho.Ho.Ho.Ho.Ho.Ho }
if ($1 == hi) { return Hi.Hi.Hi }
if ($1 == hii) { return Hi.Hi.Hi.Hi.Hi.Hi.Hi.Hi.Hi }
}
on *:INPUT:*:{
if (/* !iswm $1) {
var %text $1-
if (%haha) %text = $iif($textrep($gettok(%text,1,32)),$v1 $gettok(%text,2-,32),%text)
if (%color_talker) %text = $+($chr(3),%color,%text,$chr(3))
!msg $target $iif(c isincs $chan($target).mode,$strip(%text),%text) | halt
}
}