Autor Tema: Banear nicks inapropiados  (Leído 531 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Yumalay

  • Visitante
Banear nicks inapropiados
« en: Julio 21, 2016, 07:22:33 pm »
Hola a tod@s.

Espero que se encuentren bien en el dia de hoy. Antes de escribir este post, hice una busqueda a ver si encontraba lo que necesito pero, lamentablemente, no sucedio asi. Necesito ayuda con un script o addon para banear nicks inapropiados. Me explico, estoy buscando un script o addon que eche y banee inmediatamente un usuario que entre a una sala con un nick inapropiado y yo pueda seguir anadiendo nombres/palabras inapropiados/as que contengan esos nicks. Le agradeceria muchisimo su ayuda ya que mis conocimientos con scripts es super limitado.

Mil disculpas si ya existe un post y yo no lo haya encontrado/leido y mil gracias en anticipacion por su ayuda.

JOSE

  • Visitante
Re:Banear nicks inapropiados
« Respuesta #1 en: Julio 22, 2016, 09:25:23 pm »
Buenas te paso un codigo echo por un maestro, principe_azul, espero que sea lo q buscas, si lo ves bien , puedes agregar y quitar nick de la lista y mirar la lista de nick inapropiados metidos, tambien banea si un nick se lo cambia dentro de la sala.
Código: [Seleccionar]
; ##################################################
; Addon: Nicks Prohibidos
; Autor: Príncipe_Azul
; Webs: www.foro de argentina irc.net  -  www.foro de argentina irc.org
; Foro Programación: www.foro de argentina irc.net/Foro  -  www.foro de argentina irc.org/Foro
; ##################################################

on 1:load: {
  write $scriptdirNicksProhibidos.txt
  set %ListaNicks.dir $scriptdirNicksProhibidos.txt
  echo -s 9,1Script instalado correctamente!!
}
on 1:unload: {
  unset %ListaNicks.dir
  echo -s 9,1Script desinstalado correctamente!!
  if ($$?!="¿Deseas borrar el archivo de Nicks Prohibidos? (NicksProhibidos.txt)" == $true) {
    .remove -b $scriptdirNicksProhibidos.txt | echo -a 2Archivo borrado.
  }
}


on *:join:#: {
  var %CanalEscan = $chan
  if (# == %CanalEscan) {
    var %NickTemp = $nick
    var %TotalNicks = $lines(%ListaNicks.dir)
    var %Nums = 0
    while (%Nums <= %TotalNicks) {
      inc %Nums
      if ($read(%ListaNicks.dir,%Nums) isin %NickTemp) {
        mode # +b %NickTemp $+ !*@*
        kick # %NickTemp Tu nick no está permitido en este canal. Cambialo y regresa si lo deseas. /nick nuevonick
        return
      }
    }

  }


}
on 1:nick: {
  var %nuevoNick = $newnick
  var %totalLineas = $lines(%ListaNicks.dir)
  var %listaCanales = #kramer ,#ayuda_online ,#LC-Tertulia
  var %cuentaLineas = 1
  while (%cuentaLineas <= %totalLineas) {
    if ($read(%ListaNicks.dir,%cuentaLineas) isin %nuevoNick) {
      var %cuentaCanales = 1
      while (%cuentaCanales <= $numtok(%listaCanales,44)) {
        var %canalBan = $gettok(%listaCanales,%cuentaCanales,44)
        mode %canalBan +b %nuevoNick $+ !*@*
        kick %canalBan %nuevoNick  1Tu nick no está permitido en este canal. Cambialo y regresa si lo deseas. /nick nuevonick
        inc %cuentaCanales
      }
      return
    }
    inc %cuentaLineas
  }
}

alias añadirnick {
  :AgregarNick
  write $scriptdirNicksProhibidos.txt $$?="Escribí aquí el nick:"
  goto AgregarNick
}

alias borrarnick {
  if ($1 != $null) {
    if ($read($scriptdirNicksProhibidos.txt,w,$1) != $null) { write -dl $+ $readn $scriptdirNicksProhibidos.txt | echo -s El Nick $1 ha sido borrado }
    else echo -s El Nick $1 no existe!
  }
}

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


on 100:text:*:#: {
  if ($strip($1) == !nickprohibidos) {
    if ($2 == on) {
      set %nickPro.dir $scriptdir $+ NicksProhibidos.txt | .enable #NicksProhibidos | msg # La Protección ha sido activada!
      if ($exists(%nickPro.dir) == $false) { write $mircdir $+ NicksProhibidos.txt }
    }
    else if ($2 == off) { unset %nickPro.dir | .disable #NicksProhibidos | msg # La Protección ha sido desactivada! }
    else if ($2 == $null) {
      msg # Faltan parámetros! el comando para activar la Protección de Nick Prohibidos es !nickprohibidos on
      msg # y para desactivar es !nickprohibidos off
    }
  }
  else if ($strip($1) == !añadirnick) && ($2 != $null) {
    write $scriptdirNicksProhibidos.txt $2
    msg # El Nick $2 ha sido agregado!
  }
  else if ($strip($1) == !borrarnick) && ($2 != $null) {
    if ($read($scriptdirNicksProhibidos.txt,w,$2) != $null) {
      write -dl $+ $readn $scriptdirNicksProhibidos.txt | msg # El Nick $2 ha sido borrado
    }
    else {
      echo -s El Nick $2 no existe!
    }
  }
  else if ($strip($1) == !listanicks) {
    msg # Listado de Nick Prohibidos (Total: $lines($scriptdirNicksProhibidos.txt) $+ ):
    var %nicks = 0
    :SumaNums
    inc %nicks
    if (%nicks <= $lines($scriptdirNicksProhibidos.txt)) {
      .timer 1 %nicks  /msg # $read($scriptdirNicksProhibidos.txt,%nicks)
    }
    else { msg #  $+ $str(¯,33) | return }
    goto SumaNums
  }
}

Desconectado Stig

  • Miembro de pleno derecho
  • ***
  • Mensajes: 220
  • Karma: +10/-22
    • IrcBots
Re:Banear nicks inapropiados
« Respuesta #2 en: Julio 23, 2016, 05:25:35 am »
no se supone que ircap ya trae esa opcion?
Twitter: @apapostiado
Proyectos: IrcBots - apapostiado

Yumalay

  • Visitante
Re:Banear nicks inapropiados
« Respuesta #3 en: Agosto 05, 2016, 04:40:18 am »
Excelente. Gracias, Jose!  :)

 

anything