alias chk {
var %x = $nick($chan,0)
while (%x) {
if ($cnick($nick($chan,%x)).color == 14) { goto grey | halt }
elseif ($cnick($nick($chan,%x)).color !== 14) {
if ($nick($chan,%x).idle >= 600) || <if nick is away> {
set %cnick. [ $+ [ $nick($chan,%x) ] ] $cnick($nick($chan,%x)).color
cnick $nick($chan,%x) 14
dec %x
halt
}
:grey
if ($nick($chan,%x).idle < 600) && ($nick($chan,%x).away = $false) {
cnick $nick($chan,%x) %cnick. [ $+ [ $nick($chan,%x) ] ]
dec %x
halt
}
}
}