By DarthReven on Jun 03, 2005this is a very dulled down clone scaner that uses 2 aliases to find clones in a room
just type /cls to scan the room for clones
alias cls {
echo 12 -ate [Starting Scan]
var %x $nick($chan,0),%m,%n
while (%x) {
if ($ialchan($address($nick($chan,%x),2),$chan,0) > 1) && ($istok(%n,$nick($chan,%x),44) == $false) { echo 4 -at [Clone] - $nick($chan,%x) has a clone in the room $+([,$cloner($nick($chan,%x),$chan),]) | %n = $addtok(%n,$cloner($nick($chan,%x),$chan),44) | inc %m }
dec %x
}
if (%m) { echo 4 -at [Clone] - Total: %m of $nick($chan,0) }
echo 12 -ate [Scan Complete]
}
alias cloner {
var %a $address($1,2),%c $2,%i $ialchan($address($1,2),$2,0),%r
while (%i) {
%r = $addtok(%r,$ialchan(%a,%c,%i).nick,44)
dec %i
}
return %r
}
