; Alias
_cmode {
set %_mchar
if ($1 isincs $gettok($chan($2).mode,1,32)) { %_mchar = 1 }
return $iif(%_mchar,-,+) $+ $1
}
_mcode {
if ($1 isincs $gettok($chan($2).mode,1,32)) { set %tmpmd $+ $1 $chr(45) | return 1 }
else set %tmpmd $+ $1 $chr(43)
}
; Remote
menu channel {
modes
; [color:red]working[/color]
.$iif($_mcode(s,$chan),$style(1)) Secret $chr(91) %tmpmds $+ s $chr(93) :mode $chan $_cmode(s,$chan)
; [color:red]not working[/color]
.$iif($_mcode(C,$chan),$style(1)) No CTCP's $chr(91) %tmpmdw $+C $chr(93) :mode $chan $_cmode(C,$chan)
}