alias dstatus {
set %d $scon(0)
if ($hget(awaydstat)) { hfree awaydstat }
if (!$hget(awaydstat)) { hmake awaydstat }
while (%d >= 1) {
scid $scon(%d)
set %i $chan(0)
while (%i >= 1) {
if ($me isop $chan(%i)) { mode $chan(%i) -ov $me $me | hadd awaydstat $network $+ $chr(59) $+ $chan(%i) $+ $chr(59) $+ op | goto end }
if ($me ishop $chan(%i)) { chanserv dehalfop $chan(%i) $me | hadd awaydstat $network $+ $chr(59) $+ $chan(%i) $+ hop | goto end }
if ($me isvoice $chan(%i)) { hop $chan(%i) | hadd awaydstat $network $+ $chr(59) $+ $chan(%i) $+ $chr(59) $+ voice }
:end
dec %i
}
dec %d
}
hsave awaydstat remotes\away.hts
}
-=-=-=-=-=-=-=-=-=-=-=-=-
alias astatus {
if (!$hget(awaydstat)) { hload awaydstat remotes\away.hts }
set %d $scon(0)
set %i $hget(awaydstat,0).item
while (%d >= 1) {
while (%i >= 1) {
if ($scon(%d).network = $gettok($hget(awaydstat,%i).item,1,59)) {
scon %d
if ($gettok($hget(awaydstat,%i).item,3,59) = op) { chanserv op $chan(%i) $me | goto end }
if ($gettok($hget(awaydstat,%i).item,3,59) = hop) { chanserv halfop $chan(%i) $me | goto end }
if (($gettok($hget(awaydstat,%i).item,3,59) = voice) && ($network != DALnet)) { chanserv voice $chan(%i) $me }
:end
}
dec %i
}
dec %d
}
}