mIRC On-join Clone detector

on *:join:#:{
if (!$ial) { .ial on }
if ($nick == $me) && (!$chan(#).ial) { who $chan }
haltdef
set %clone.chan $chan
set %clone.nick $nick
var %c, %x 1, %a = $+(*@,$gettok($address,2,64))
while ($nick($chan,%x)) {
if ((%a iswm $address($nick(#,%x),5)) && ($nick != $nick($chan,%x))) { %c = $iif(%c,%c $+ $chr(44)) $nick(#,%x) }
inc %x
}
echo # $time.stamp 14:10:11: $nick 14[15 $+ $replace($address,@,14@15,.,14.15) $+ 14] 15has joined $chan $iif(%c, 14[15Clones Detected14:4 %c $chr(38) $nick) $+ 14]
if ((%c) && ($me isop $chan)) {
echo # $time.stamp Use F11 to kick clone.
echo # $time.stamp Use F12 to kick ban clone.
}
}
alias f11 { kick %clone.chan %clone.nick Clone Detected }
alias f12 { mode %clone.chan +b $address(%clone.nick,2) | kick %clone.chan %clone.nick Clone Detected }