#NickDetect on
on *:JOIN:#:{ if ($read(~script.trust.txt,s,$msngkshort($2)) || ($2 == $me)) halt
exoclonecheck $msn.decode($nick) $heh($nick) $+ ! $+ $address
}
alias exoclonecheck {
if ($1 != $me) {
var %n 5
var %x $read($scriptdir $+ exoclonecheck.dat,sn,$2)
if (%x == $null) write $+(",$scriptdir,exoclonecheck.dat") $2 $1
else {
%x = $addtok(%x,$1,32)
if ($numtok(%x,32) > %n) %x = $deltok(%x,1,32)
write -l $+ $readn $+(",$scriptdir,exoclonecheck.dat") $2 %x
}
if ($numtok(%x,32) > 1) amsg $msn.decode($nick) $+ 's last $numtok(%x,32) names: $replace(%x,$chr(32),$chr(44) $+ $chr(32)))
elseif ((%x != $1) && (%x)) amsg $msn.decode($nick) $+ 's last name: %x)
}
}
alias ecc.decode {
if ($msn.vver) return $msn.ifdecode($1-)
else return $1-
}
#NickDetect end
that was my try and I failed