Clone/Oper Scanner

^4GT^ Mon Dec 08, 2008 4:26 am

Code:

alias scanclones {
if ($hget(clones)) hfree clones
hmake clones 10
window -e @CloneServ
echo @CloneServ 4S14tarting 4T14o 4S14can 4F14or 4C14lone(s) 4I14n: 7 $+ $chan 14...
var %x = $nick($chan,0)
while (%x) {
var %addr = $address($nick($chan,%x),2)
var %g = $clones(%addr,$chan)
var %n = $gettok(%g,2-,32), %g = $gettok(%g,1,32)
if ((%n) && (!$hget(clones,%addr)) && (staff !isin %addr)) {
.timer 1 3 echo @CloneServ 14 $+ $str($chr(183),3) $+ 14(15 $+ %g $+ 14) 15Clone(s) from 14 $+ %addr $+ 15: 7 $+ %n $+
hinc clones %addr
}
if ((%n) && (!$hget(clones,%addr)) && (staff isin %addr)) {
.timer 1 3 echo @CloneServ 14 $+ $str($chr(183),3) $+ 14(15 $+ %g $+ 14) 15Network Staff(s) from 14 $+ %addr $+ 15: 7 $+ %n $+
hinc clones %addr
}
dec %x
}
.timer 1 4 echo @CloneServ 14-
hfree clones
}

alias clones {
var %x = $ialchan($1,$2,0)
if (%x = 1) { return 1 }
if (%x > 80) { return %x Too many to list }
var %r
while (%x) {
%r = %r $ialchan($1,$2,%x).nick
dec %x
}
return $ialchan($1,$2,0) %r
}