;NICK TRACER v1.1 coded by Mechonit from IrCQnet (irc.icq.com)
;Please do NOT edit this script.
;Copyright 2015 Mechonit www.gwura.com


ON *:JOIN:*: {
  if (!$hget(NickBase,$nick)) && ($wildtok($hget(NickBase,$nick),$address($nick,5),0,32) != 1) { hadd NickBase $nick $address($nick,5) | halt }
  elseif ($hget(NickBase,$nick)) && ($wildtok($hget(NickBase,$nick),$address($nick,5),0,32) != 1) { hadd NickBase $nick $address($nick,5) $hget(NickBase,$nick) | halt }
}

ON *:NICK: {
  if (!$hget(NickBase,$newnick)) && ($wildtok($hget(NickBase,$newnick),$address($newnick,5),0,32) != 1) { hadd NickBase $newnick $address($newnick,5) | halt }
  elseif ($hget(NickBase,$newnick)) && ($wildtok($hget(NickBase,$newnick),$address($newnick,5),0,32) != 1) { hadd NickBase $newnick $address($newnick,5) $hget(NickBase,$newnick) | halt }
}