alias 005 {
var %pre = $gettok($matchtok($2-,PREFIX=,1,32),2,61)
var %prec = $remove($gettok(%pre,1,41),$chr(40))
var %pres = $gettok(%pre,2,41)
hadd -m server pre_symb %pres
hadd -m server pre_char %prec
}
alias 353 {
var %pres = $hget(server,pre_symb)
var %prec = $hget(server,pre_char)
var %temp, %nick, %symb, %char
var %i = 0, %ii = $numtok($5-,32)
while (%i < %ii) {
inc %i
%temp = $gettok($5-,%i,32)
%symb = $left(%temp,1)
%char = $null
%nick = %temp
if (%symb isin %pres) {
%char = $mid(%prec,$pos(%pres,%symb,1),1)
%nick = $mid(%temp,2)
}
;You can store the nicknames to a list here. $3=chan, %nick=nick
hadd -m userlist $+($3,_,%nick) $ctime
var %cmodes = $hget(usermodes,$+($3,_,%nick))
if (%char !isincs %cmodes) { hadd -m usermodes $+($3,_,%nick) $sortmodes($+(%cmodes,%char)) }
;echo -a > %symb : %char : %nick : %temp
}
}