on *:JOIN:#: {
if ($nick != $me) {
var %user.1 = $address($nick,2)
var %m = $nick(#,0)
var %i = 1
while (%i <= %m) {
if (%user.1 == $address($nick(#,%i) ,2)) {
if ($nick != $nick(#, %i)) {
echo 4 $chan $nick $+($chr(40),%user.1,$chr(41)) is a clone of $nick(#,%i)
}
}
inc %i
}
}
}