on 1:NICK: {
set %addlength. [ $+ [ $newnick ] ] $len($wildsite)
set %nick.address. [ $+ [ $newnick ] ] $wildsite
set %nick.precompaddress. [ $+ [ $newnick ] ] $read(C:\mirc\nicks.txt,w,$wildsite $+ *)
set %oldaddress $readn
set %nick.compaddress. [ $+ [ $newnick ] ] $left(%nick.precompaddress. [ $+ [ $newnick ] ],%addlength. [ $+ [ $newnick ] ])
set %nick.compnewnick $read(C:\mirc\nicks.txt,w,$newnick $+ *)
set %oldnick $readn
set %nick.newnick $newnick %nick.nicktime
set %nick.nicktime $mid($ctime,2,8)
set %nick.bothnew $wildsite $+ $chr(44) $+ $newnick %nick.nicktime
if ($newnick == $me) { echo }
elseif ($newnick == %nick.compnewnick) { echo -a nick match | .notice $me 4 $newnick was $remove(%nick.precompaddress. [ $+ [ $newnick ] ],$gettok(%nick.precompaddress. [ $+ [ $newnick ] ],1,44)) }
elseif (%nick.address. [ $+ [ $newnick ] ] == %nick.compaddress. [ $+ [ $newnick ] ]) { echo -a address match | write -al %oldaddress C:\mirc\nicks.txt , $+ $newnick %nick.nicktime | .notice $me 4 $newnick was $remove(%nick.precompadress. [ $+ [ $newnick ] ],$gettok(%nick.precompadress. [ $+ [ $newnick ] ],1,44)) }
else { write C:\mirc\nicks.txt %nick.bothnew | echo 4 -a $newnick is a new entry }
}
on 1:QUIT: {
unset % $+ *. $+ $nick
}
on 1:PART: {
unset % $+ *. $+ $nick
}