Nick Tracker (Unfinished)

on *:JOIN:#:{
  if $NickExtract($nick,$site) { echo -cti2 info # * $nick * Also Known As: $ifmatch }
  tracker $nick
}
on ^*:NICK: {
  if $fulladdress isignore channel { haltdef | halt }
  tracker $newnick
}
alias NickExtract {
  var %n,%i 1
  while $gettok($gettok($hget(trackusers,$2),%i,32),1,46) {
    %n = %n $ifmatch
    inc %i
  }
  %n = $deltok(%n,$findtok(%n,$1,1,32),32)
  return %n
}
alias tracker {
  if $fulladdress !isignore channel {
    var %nt $+($1,$chr(46),$ctime)
    if $hget(trackusers,$site) {
      var %L $ifmatch
      if $gettok(%L,10,32) && $calc($ctime - $gettok($ifmatch,2,46)) < 999 {
        if *.icq.com iswm $server { silence $+(+,$address($1,2)) a) }
        .ignore -u99999 $1 2
        hdel trackusers $site
        echo -cti2 info Too Many Nick Changes => $1 <= Auto-Ignored
        halt
      }
      var %re $+(/,$chr(40),$1,\.\d+,$chr(41),/g)
      noop $regex(%L,%re) | %L = $remove(%L,$regml(1))
      hadd trackusers $site %nt $gettok(%L,1-9,32)
    }
    else { hadd trackusers $site %nt }
  }
}
ON *:EXITxxxDISABLEDxxx:if $hget(trackusers) { hsave -o trackusers trackusers.dat }
ON *:START: {
  hmake trackusers 10
  if $isfile(trackusers.dat) { hload trackusers trackusers.dat }
}
menu nicklist,query {
  -
  Track Users
  .View Other Nicknames:{
    if !$address($1,2) { echo -cti2 info # * IAL not updated for $1 $+ , performing userhost lookup | userhost $1 | return }
    if $NickExtract($1,$right($address($1,2),-4)) { echo -cti2 info # * $1 * Also Known As: $ifmatch }
    else { echo -cti2 info # * $1 has not been known by any other nickname }
  }
  .Reset:hdel trackusers $right($address($1,2),-4)
}

Write here..