Clone prot

Hi, right i wrote a clone code to scan join and message the room if the nick there using is in another gatekeepers nicks if you understand me i tried fixing this loads of times but i give up now lol any idea?

on *:JOIN:*:{
 var %x = $readini(clones.ini,gates,$address($nick,1))
 if ($nick isin %x) return
 else {
   var %x = $lines(clones.ini)
   while (%x) {
     if ($matchtok($read(clones.ini,%x),$nick,1,32)) { msg $chan Alert! $nick is a clone! | msg $chan $nick $+ 's gate is: $address($nick,1) | msg $chan $nick $+ 's Real name(s) are: $readini(clones.ini,gates,$address($nick,1)) | msg $chan $nick tried to clone: $read(clones.ini,%x) | return }
     dec %x
   }
 }
 if ($nick !isin $readini(clones.ini,gates,$address($nick,1))) && ($readini(clones.ini,gates,$address($nick,1))) var %x = $readini(clones.ini,gates,$address($nick,1)) | msg $chan Previous nicknames for $nick $+ : $readini(clones.ini,gates,$address($nick,1)) | writeini clones.ini gates $address($nick,1) %x $nick
 else {
   if (!$readini(clones.ini,gates,$address($nick,1))) writeini clones.ini gates $address($nick,1) $nick
 }
}

try to use this may be help and shorter than that one hope its good for u

on *:join:#:{
 if ($iscpnick($nick)) && ($address != $iscpnick($nick)) && ($nick != $me) { privmsg # $nick is a clone and the real gate for this nick is : $iscpnick($nick) }
}
alias iscpnick { return $readini(cloneprot.ini,protected,$1) }

http://x-fusion.org/Documents/clonechecker.txt

That one should work.

Thankyou!