alias who {
if ($show) {
set -u600 %_WHO.target $active
set -u600 %_WHO.params $1-
}
.raw WHO $1-
}
raw 352:*:{
if (* isin $7) .auser Oper $mask($+($6,!,$3,@,$4),3)
if (%_WHO.target) {
var %color, %flags = -bflrti
if ($len($2) > 2) %flags = $+(%flags,$calc($ifmatch + 1))
if ((H isin $7) && (* isin $7)) %color = 02
elseif ((G isin $7) && (* isin $7)) %color = 12
elseif ((H isin $7) && (@ isin $7)) %color = 06
elseif ((G isin $7) && (@ isin $7)) %color = 13
elseif ((H isin $7) && (+ isin $7)) %color = 03
elseif ((G isin $7) && (+ isin $7)) %color = 10
elseif (H isin $7) %color = 01
elseif (G isin $7) %color = 14
if (!%_WHO.Count) {
if ($active == Status Window) linesep -s
else linesep %_WHO.target
}
inc -u30 %_WHO.Count
echo %flags %_WHO.target $&
$+( $chr(3), 02, $2) $&
$+( $chr(3), %color, $6) $&
$+( $chr(15), $chr(40), $chr(3), 03, $3, $chr(15), @, $chr(3), 04, $4, $chr(15),$chr(41)) $&
$+( «, $chr(3), 05, $iif($network == DALnet, $gettok($5,1,46), $5), $chr(15), ») $&
$+( $chr(3), 10, $9-)
}
halt
}
raw 315:*:{
if (%_WHO.target) {
var %color, %flags = -bflrti
if ($len($2) > 2) %flags = $+(%flags,$calc($ifmatch + 1))
if (!%_WHO.Count) var %_WHO.Count = 0
if (%_WHO.Count > 9) {
echo $color(info) %flags %_WHO.target End of 6/WHO %_WHO.params list. $+([, %_WHO.Count matching users , ])
linesep $iif(#* iswm $chan($2),$2,$iif($query($2),$ifmatch,$active))
}
window -g1 $iif($numtok(%_WHO.target,32) > 1,$+(",%_WHO.target,"),%_WHO.target)
.timer 1 5 unset %_WHO.*
}
halt
}