alias idle.setmode {
if ($me isop $1) {
var %i = 1, %nicks.idle, %nicks.active
while ($nick($1,%i,$3)) {
if ($nick($1,%i,$3).idle > $2) { %nicks.idle = %nicks.idle $nick($1,%i,$3) }
inc %i
}
%i = 1
while ($nick($1,%i,a,$3)) {
if ($nick($1,%i,a,$3).idle <= $2) { %nicks.active = %nicks.active $nick($1,%i,a,$3) }
inc %i
}
%i = 1
while (%nicks.idle) {
mode $1 $+(-,$str($3,$iif($modespl > $numtok(%nicks.idle,32),$v2,$v1))) $gettok(%nicks.idle,$+(1-,$modespl),32)
%nicks.idle = $deltok(%nicks.idle,$+(1-,$modespl),32)
}
%i = 1
while (%nicks.active) {
mode $1 $+(+,$str($3,$iif($modespl > $numtok(%nicks.active,32),$v2,$v1))) $gettok(%nicks.active,$+(1-,$modespl),32)
%nicks.active = $deltok(%nicks.active,$+(1-,$modespl),32)
}
}
}