nick tracking

I built this script, but I can't get what I need.

I need, for each ident: @3a0.4mq.8m9q34.IP or 3a0.4mq.8m9q34.IP
Go save that in a text file, with your nick.

And when you enter the room, that verifies, I guess, with the join event, verifies that

Johnny_ has entered the room.

But! if @3a0.4mq.8m9q34.IP has entered the room but has another nick, save it with nexuxirc's nick. Do you understand?

[10:16] * Johnny_ (Johnny_@3a0.4mq.8m9q34.IP) has joined #channel
[10:16] <Johnny_> good morning

Now, if Johnny_ joins again, but with a changed nick Pelonch@3a0.4mq.8m9q34.IP that I save it as Jhonny.

The text file then has to have

3a0.4mq.8m9q34.IP - Jhonny, Pelonch

And if it's complicated you could also make it so that:

Jhonny_ doesn't have that ident 3a0.4mq.8m9q34.IP , because he changed his pc or his internet connection. Then he will have another ident

In that case, it will have something like 87f.55i.9sdd99.IP but the moderator when he notices that, he will add to Jhonny_'s list, Pelonch

Then the file will have

3a0.4mq.8m9q34.IP - Jhonny, Pelonch,
87f.55i.9sdd99.IP - Jhonny, Pelonch,

;;CODE
on *:join:#: {
  $Rangoip($nick)
}

alias Rangoip {
  var %cuentaRangos = 1
  while (%cuentaRangos <= $lines(archivo.txt)) {
    if ($read(archivo.txt,%cuentaRangos) isin $address($nick,2)) || ($read(archivo.txt,%cuentaRangos) iswm $address($nick,2)) {
      echo #  Atento!! Entra a $chan $+(>>>>[ $chr(2),$nick,$chr(2) [,$address,]<<<<) Usuario vigilado
      halt
    }
    inc %cuentarangos
  }
}

alias adrangoip {
  :AgregarRango
  write archivo.txt $$?="Escribe aquí el Rango de ip"
  echo -s » » » » » Rango de ip  $! ha sido agregado!
  goto AgregarRango
}

alias brangoip {
  if ($1 != $null) {
    if ($read(archivo.txt,w,$1) != $null) { write -dl $+ $readn archivo.txt | echo -s » » » » » El Rango ip $1 ha sido borrado }
    else echo -s  » » » » » Rango ip $1 no existe!
  }
}

alias lrangoip {
  echo -se  Listado de Rangos de ip's  (Total: $lines(archivo.txt) $+ ):
  var %nicks = 0
  :SumaNums
  inc %nicks
  if (%nicks <= $lines(archivo.txt)) echo -s $read(archivo.txt,%nicks)
  else { echo -se $+ $str(¯,33) | return }
  goto SumaNums
}


Translated with www.DeepL.com/Translator (free version)