On 1:load:{
  hmake trackusers 100
  if ($isfile(trackusers.dat)) {
    hload trackusers trackusers.dat
  }
}
ON *:start: {
  hmake trackusers 100
  if ($isfile(trackusers.dat)) {
    hload trackusers trackusers.dat
  }
}
ON *:JOIN:#: {
  if ($me !== $nick ) {
    if ($hget(trackusers,$address($nick,2))) {
      var %n = $ifmatch
      if ($istok(%n,$nick,32)) { var %d = $deltok(%n,$findtok(%n,$nick,1,32),32) }
      else { var %d = %n }
      if (!%d) { return }
      echo $colour(Normal) -ti2 $chan   $+ $colour(whois) [Nick-Tracking]  $+ $colour(ctcp)  $nick  $+ $colour(Normal) has also used the nickname $+ $iif($numtok(%d,32) > 1,s:,:)  $+ $colour(nick)   %d 
      if (!$istok(%n,$nick,160)) {
        if ($numtok(%n,160) >= 15) %n = $gettok(%n,-14--1,160)
        hadd trackusers $address($nick,2) %n $nick
      }
    }
    else {
      hadd trackusers $address($nick,2) $nick
    }
  }
}


ON *:OPEN:?: {
  if ($hget(trackusers,$address($nick,2))) {
    var %n = $ifmatch
    if ($istok(%n,$nick,160)) { var %d = $deltok(%n,$findtok(%n,$nick,1,160),160) }
    else { var %d = %n }
    if (!%d) { goto notknown }
    echo $colour(Normal) -i2 $nick   $+ $colour(whois) [Nick-Tracking]  $+ $colour(ctcp)  $nick  $+ $colour(Normal) has also used the nickname $+ $iif($numtok(%d,160) > 1,s:,:)  $+ $colour(action)   %d 
  }
  else {
    :notknown
    if (-sBNC != $nick) {
      echo $color(topic) -t $nick # * $nick doesn't have any other nicknames
    }
  }
}
ON *:NICK: {
  if ($hget(trackusers,$address($newnick,2))) {
    var %n = $ifmatch
    if (!$istok(%n,$newnick,160)) {
      if ($numtok(%n,160) >= 15) %n = $gettok(%n,-14--1,160)
      hadd trackusers $address($newnick,2) %n $newnick
    }
  }
  else {
    hadd trackusers $address($nick,2) $newnick
  }
}

Menu channel,menubar,nicklist {
  $iif($group(#Addtrack) == on,$style(1)) Nick-Tracking: {
    var %status = $iif($group(#Addtrack) == on,Disable,Enable)
    $+(.,%status) #Addtrack
    echo -a   $+ $color(ctcp)  * Users previous nicks  will  $+ $color(action) $iif(%status == Disable,no longer,now)  $+ $color(ctcp) be shown when they join  $+ $color(info2)  
  }
}

Menu channel,Nicklist {
  Track Users
  .View Other Nicknames:{
    if (!$address($$1,2)) { echo $colour(info) -ti2 # * IAL not updated for $$1 $+ , performing userhost lookup | userhost $$1 | return }
    if ($hget(trackusers,$address($$1,2))) {
      var %n = $ifmatch
      if ($istok(%n,$$1,32)) { var %d = $deltok(%n,$findtok(%n,$$1,1,32),32) }
      else { var %d = %n }
      if (!%d) { goto notknown }
      echo $colour(Normal) -ti2 $chan   $+ $colour(whois) [Nick-Tracking]  $+ $colour(ctcp)  $$1  $+ $colour(Normal) has also used the nickname $+ $iif($numtok(%d,32) > 1,s:,:)  $+ $colour(action)   %d 
    }
    else {
      :notknown
      echo $colour(join) -ti2 #    $+ $colour(whois)  $$1  $+ $colour(ctcp)  has not been known by any other nickname 
    }
  }
  .-
  .Reset
  ..OK:hdel -s trackusers $address($$1,2)
  ..Reset ALL:hdel -sw trackusers *!*@*
}

ON *:EXIT: {  if ($hget(trackusers)) { hsave -o trackusers trackusers.dat } }

Alias tu {
  if (!$address($$1,2)) { echo $colour(info) -ti2 # * IAL not updated for $$1 $+ , performing userhost lookup | userhost $$1 | return }
  if ($hget(trackusers,$address($$1,2))) {
    var %n = $ifmatch
    if ($istok(%n,$$1,32)) { var %d = $deltok(%n,$findtok(%n,$$1,1,32),32) }
    else { var %d = %n }
    if (!%d) { goto notknown }
    echo $colour(Normal) -ti2 $chan   $+ $colour(whois) [Nick-Tracking]  $+ $colour(ctcp)  $$1  $+ $colour(Normal) has also used the nickname $+ $iif($numtok(%d,32) > 1,s:,:)  $+ $colour(action)   %d 
  }
  else {
    :notknown
    echo $colour(join) -ti2 #    $+ $colour(whois)  $$1  $+ $colour(ctcp)  has not been known by any other nickname 
  }
}