Clone Scan mIRC - Great Clone Scanner Identifies Multiple Connections

[chain]

menu channel {
@clone scan: /vs
}

alias vs {
hmake clones 500
var %x = 1, %c = $iif($1 ischan,$1,$active),%ticks = $ticks,%clones
if ($window(@clones)) window -c @clones
window @clones
if (%c ischan) && ($ialchan(*,%c,0) != $nick(%c,0)) { .enable #clones | aline @clones S tò a nalizzando l a I AL .. | .ial on | who %c }
while ($nick(%c,%x)) {
var %i = $ifmatch
if ($hget(clones,$address(%i,2)) == $null) && ($ialchan($address(%i,2),%c,0) > 1) {
inc %clones $ialchan($address(%i, 2),%c,0)
hadd clones $address(%i,2) $address(%i,2)
var %temp,%a = 1
while ($ialchan($address(%i,2),%c,%a)) {
set %temp %temp $+ $chr(44) $ialchan($address(%i,2),%c,%a).nick
inc %a
}
aline @clones $ialchan($address(%i,2),%c,0) 4 Clones having as address: 11 $address(%i,2) $+ :
aline @clones - Nick del Clone: 9 $mid(%temp,2,$calc($len(%temp) - 1))
}
inc %x
}
aline @clones -
aline @clones - -- ---- C onnessioni c on C loni R ilevate: $hmatch(clones,*,0)
aline @clones - -- ---- In all there are n° %clones clones
aline @clones - -- ---- P er t rovarli c i h o m it: $duration($calc(($ticks - %ticks) / 1000)) $gettok($calc(($ticks - %ticks) / 1000),2,46) $+ millisecs
hfree clones
}
#clones off
raw 315:*: vs $2 | .disable #clones
#clones end

on *:connect: .disable #clones

 

Clone Scan by mAx' - irc.ircgate.it, #angel_&_Devil.;