var %i = 1, %cidles, %rchans
if ($query($2)) { %cidles = $+(Query[,$dur($query($2).idle,%PRECISION),]) }
if ($chat($2)) { %cidles = %cidles $+(Chat[,$dur($chat($2).idle,%PRECISION),]) }
WHILE $gettok(%chans,%i,32) {
var %pchan = $v1, %chan = $regsubex(%pchan,/^[^ $chantypes ]*/x,)
if ($nick(%chan,$2).idle isnum) { %cidles = %cidles $+(%pchan,[,$dur($v1,%PRECISION),]) }
else %rchans = %rchans %pchan
inc %i
}