Code:

ON *:START: {  hmake trackusers 10  if ($isfile(trackusers.dat)) {    hload trackusers trackusers.dat  }}on *:JOIN:#: {  if ($hget(trackusers,$address($nick,3))) {    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(info) #Nicks  $chan * $nick 14 entro antes con el nick 4 $+ $iif($numtok(%d,32) > 1,:,:) %d     if (!$istok(%n,$nick,32)) {      hadd trackusers $address($nick,3) %n $nick    }  }  else {    hadd trackusers $address($nick,3) $nick  }}on *:NICK: {  if ($hget(trackusers,$address($newnick,3))) {    var %n = $ifmatch    if (!$istok(%n,$newnick,32)) {      hadd trackusers $address($newnick,3) %n $newnick    }  }  else {    hadd trackusers $address($nick,3) $newnick  }}menu nicklist {  TOPSECRET  .Buscar otros NICKS :{    if (!$address($$1,3)) { echo $colour(info) -ti2 # *4 IAL not updated for $$1 $+ , performing userhost lookup | userhost $$1 | return }    if ($hget(trackusers,$address($$1,3))) {      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(info) -ti2 # * $$1 14 tambien usa los nicks 4 $+ $iif($numtok(%d,32) > 1,:,:) %d     }    else {      :notknown      echo $colour(info) -ti2 # *  $$1 4NO tiene ningun nick en la base de datos.    }  }  .Reset:hdel trackusers $address($$1,3)}ON *:EXIT: {  if ($hget(trackusers)) { hsave -o trackusers trackusers.dat }