alias _getusr {
var %xc = $hget(chlist,0).data | unset %chlist
while (%xc) { set %chlist $addtok(%chlist,$hget(chlist,%xc).data,46) | dec %xc }
var %sira = $sorttok(%chlist,46,nr)
var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1
%1 = $fazlaise($gettok(%sira,1,46)) | %2 = $fazlaise($gettok(%sira,2,46)) | %3 = $fazlaise($gettok(%sira,3,46)) | %4 = $fazlaise($gettok(%sira,4,46)) | %5 = $fazlaise($gettok(%sira,5,46))
set %joinchan $+(%1,$chr(44),%2,$chr(44),%3,$chr(44),%4,$chr(44),%5)
unset %w %y
}
alias -l fazlaise {
unset %y | unset %w 
var %i = $hfind(chlist,$1,0,w).data
while (%i) { %y = $hfind(chlist,$1,%i,w).data | %w = %y %w | dec %i }
return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}
raw 322:*:{
if (!$hget(chlist)) { hmake chlist }
if ($3 >= 50) && !$regex($2,/^(#oyun|#radyo)$) { hadd chlist $2 $3 }
}
raw 323:*:{ $_getusr }
on *:SNOTICE:*:{
if (Connecting isin $1-) {
if (*on*port* iswm $1-) { sajoin $9 %joinchan }
else { sajoin $8 %joinchan }
}
}

on *:connect:timer 0 300 /list