Advertisement
nexuxirc

nick tracking

Dec 30th, 2021
6
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. I built this script, but I can't get what I need.
  2.  
  3. I need, for each ident: @3a0.4mq.8m9q34.IP or 3a0.4mq.8m9q34.IP
  4. Go save that in a text file, with your nick.
  5.  
  6. And when you enter the room, that verifies, I guess, with the join event, verifies that
  7.  
  8. Johnny_ has entered the room.
  9.  
  10. But! if @3a0.4mq.8m9q34.IP has entered the room but has another nick, save it with nexuxirc's nick. Do you understand?
  11.  
  12. [10:16] * Johnny_ (Johnny_@3a0.4mq.8m9q34.IP) has joined #channel
  13. [10:16] <Johnny_> good morning
  14.  
  15. Now, if Johnny_ joins again, but with a changed nick Pelonch@3a0.4mq.8m9q34.IP that I save it as Jhonny.
  16.  
  17. The text file then has to have
  18.  
  19. 3a0.4mq.8m9q34.IP - Jhonny, Pelonch
  20.  
  21. And if it's complicated you could also make it so that:
  22.  
  23. 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
  24.  
  25. 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
  26.  
  27. Then the file will have
  28.  
  29. 3a0.4mq.8m9q34.IP - Jhonny, Pelonch,
  30. 87f.55i.9sdd99.IP - Jhonny, Pelonch,
  31.  
  32. ;;CODE
  33. on *:join:#: {
  34.   $Rangoip($nick)
  35. }
  36.  
  37. alias Rangoip {
  38.   var %cuentaRangos = 1
  39.   while (%cuentaRangos <= $lines(archivo.txt)) {
  40.     if ($read(archivo.txt,%cuentaRangos) isin $address($nick,2)) || ($read(archivo.txt,%cuentaRangos) iswm $address($nick,2)) {  
  41.       echo #  Atento!! Entra a $chan $+(>>>>[ $chr(2),$nick,$chr(2) [,$address,]<<<<) Usuario vigilado
  42.       halt
  43.     }
  44.     inc %cuentarangos
  45.   }
  46. }
  47.  
  48. alias adrangoip {
  49.   :AgregarRango
  50.   write archivo.txt $$?="Escribe aquí el Rango de ip"
  51.   echo -s » » » » » Rango de ip  $! ha sido agregado!
  52.   goto AgregarRango
  53. }
  54.  
  55. alias brangoip {
  56.   if ($1 != $null) {
  57.     if ($read(archivo.txt,w,$1) != $null) { write -dl $+ $readn archivo.txt | echo -s » » » » » El Rango ip $1 ha sido borrado }
  58.     else echo -s  » » » » » Rango ip $1 no existe!
  59.   }
  60. }
  61.  
  62. alias lrangoip {
  63.   echo -se  Listado de Rangos de ip's  (Total: $lines(archivo.txt) $+ ):
  64.   var %nicks = 0
  65.   :SumaNums
  66.   inc %nicks
  67.   if (%nicks <= $lines(archivo.txt)) echo -s $read(archivo.txt,%nicks)
  68.   else { echo -se $+ $str(¯,33) | return }
  69.   goto SumaNums
  70. }
  71.  
  72.  
  73. Translated with www.DeepL.com/Translator (free version)
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement