There is a way, use the alias i gave you..
;parse modes
alias pm {
/set -u0 %param 2
/set -u0 %m 1
while (%m <= $len($gettok($1, 1, 32))) {
/set -u0 %chr $mid($gettok($1, 1, 32), %m, 1)
if (%chr == +) || (%chr == -) { /set -u0 %mod %chr }
else {
if ((%chr isincs $remove($gettok($chanmodes,1-3,44),$chr(44))) || (%chr isincs qaohv)) {
/set -u0 %modes $addtok(%modes, $+(%mod,%chr,:,$gettok($1, %param, 32)), 32)
/inc -u0 %param
}
else { /set -u0 %modes $addtok(%modes, $+(%mod,%chr), 32) }
}
/inc -u0 %m
}
return %modes
}
menu channel {
Channel Modes
.$iif($wildtok($pm($chan(#).mode), +k*, 1, 32) != $null, $style(1)) Channel Key (+k $chan(#).key $+ ): /mode # -k $chan(#).key
.$iif($istok($pm($chan(#).mode), +m, 32), $style(1)) Moderated (+m): /mode # +m
.$iif($istok($pm($chan(#).mode), +n, 32), $style(1)) No External Messages (+n): /mode # +n
}
type //mode # -m+nk abcmdef
And see what I mean >:P
