alias clonescan {
window -ak @Clones
var %chan = $iif($1,$1,$chan)
if (!%chan || %chan !ischan) {
aline @clones No channel specified.
return
}
if (!$chan(%chan).ial) {
.ial on
.enable #ialupdate
.who %chan
echo @clones Updating IAL...
return
}
var %t = $ticks
aline @clones Scanning %chan $+ ...
var %x = 1
while (%x <= $nick(%chan,0)) {
hadd -m clones $address($nick(%chan,%x),2) $addtok($hget(clones,$address($nick(%chan,%x),2)),$nick(%chan,%x),44)
inc %x
}
var %x = 1
while (%x <= $hget(clones,0).item) {
if ($numtok($hget(clones,$hget(clones,%x).item),44) > 1) {
echo @clones $hget(clones,%x).item - $hget(clones,$hget(clones,%x).item)
}
inc %x
}
hfree clones
aline @clones Scan Completed in $round($calc(($ticks - %t) / 1000),2) $+ s
linesep @clones
}
#ialupdate off
raw 352:*:haltdef
raw 315:*:{
clonescan $2
.disable #ialupdate
haltdef
}
#ialupdate end
menu channel {
Clonescan:clonescan
}
