alias clonescan {
if ($ial == $false) {
; note: if the IAL isn't on before this, ouch! Nothing will be in the IAL!
.ial on
return
}
var %i = 1, %chan = $1, %win = $+(@clones,.,$network,.,%chan), %addr
if (!$window(%win)) {
window -Czd %win 100 50 690 460
titlebar %win Clones list for $+($network,:) $nick(%chan,0) users currently on %chan
font %win 12 arial bold
}
if (%chan !ischan) {
aline -p %win 4ERROR no such channel $iif(%chan,as %chan)
return
}
while ($nick(%chan, %i)) {
var %smask = $address($v1,%i)
if ($ialchan(%smask,%chan,0) > 1) && (%smask !isin %addr) {
%addr = %addr $address($nick(%chan,%i),2)
aline -p 12 %win $timestamp $chr(42) Found ( $+ $ialchan(%smask,%chan,0) $+ ) Clones in $+($chr(40),%chan,$chr(41)) from ( $+ $gettok(%smask,2,64) $+ )
var %cnt = 1
while ($ialchan(%smask,%chan,%cnt)) {
aline -p %win $timestamp $chr(42) $+(%cnt,.) $gettok($v1, 1, 33)
inc %cnt
}
aline -p %win -
}
inc %i
}
if (!%addr) {
aline %win $timestamp 4,1No clones found on %chan
}
else {
aline %win $timestamp 4,1Scan on %chan complete!
}
}