alias clonescan {
var %x = 1
while (%x <= $nick($active,0)) {
if (!$address($nick($active,%x),4)) { inc %x | goto END }
elseif ($ial($address($nick($active,%x),4),0).host > 1) {
if ($ial($address($nick($active,%x),4),0).host == 2) {
echo -a $ial($address($nick($active,%x),4),1).nick is clone of $ial($address($nick($active,%x),4),2).nick
}
elseif ($ial($address($nick($active,%x),4),0).host == 3) {
echo -a $ial($address($nick($active,%x),4),1).nick is clone of $ial($address($nick($active,%x),4),2).nick and $ial($address($nick($active,%x),4),3).nick
}
}
else { inc %x }
inc %x
:END
}
}