alias
scan { if (!%scan::clone) { if ($1) { if ($me ison $1) { .notice
%c.nick + Starting scan on channel $1 set %scan::clone 1 who $1 } else
.notice %c.nick + I'm not on channel $1 $+ ! } elseif ($left($active,1)
== $chr(35)) { echo -a + Starting scan on $active set %scan::clone 1
who $active } else .notice %c.nick + If you don't supply a channel,
your active window must be a one. } else .notice %c.nick + There is
already a clone scan going on.
}
raw 352:*:{ if (%scan::clone) { inc %scan::host:: [ $+ [ $4 ] ] set
%scan::nick:: [ $+ [ $4 ] ] $iif(%scan::nick:: [ $+ [ $4 ]
],%scan::nick:: [ $+ [ $4 ] ] $+ $chr(44)
$+($chr(32),$6,$chr(32)),$+($chr(32),$6,$chr(32))) haltdef }
}
raw 315:*:{ if (%scan::clone) { var %scan::loop 1 while (%scan::loop
<= $var(%scan::host::*,0)) { if
($var(%scan::host::*,%scan::loop).value > 1) { .notice %c.nick -
$var(%scan::host::*,%scan::loop).value clones found on host
$gettok($var(%scan::host::*,%scan::loop),3,58) ( $+
$var(%scan::nick::*,%scan::loop).value ) inc %scan::loop set
%scan::found 1 } else inc %scan::loop } if (!%scan::found) .notice
%c.nick - No clones found .notice %c.nick + Clone scan complete. unset
%scan::* haltdef }
}