alias away.chk {
if ($1 !ischan) { who $1 | return }
var %i = 1,%c = 1
while $chan(%c) {
while $nick(%chan,%i) {
%user = $ifmatch
$iif($hfind($+(away,$network),%user),com.cline,cline-r) %user
inc %i
}
inc %c
if $hget($+(away,$network)) { .hfree $+(away,$network) } | hmake $+(away,$network) 5
who +aM
}
}
alias -l com.cline {
var %i 1
while ($comchan($1,%i)) { cline -lm 14 $1 $ifmatch | inc %i }
}