Autor Tema: Addon para cazar bot  (Leído 346 veces)

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

Desconectado akw

  • Novato
  • *
  • Mensajes: 17
  • Karma: +2/-3
Addon para cazar bot
« en: Enero 31, 2020, 03:29:13 am »
Buenas noches.

Tengo un código que según un patrón para que caze los bot y la mayoría los suele ir cazando, me funcona bien, pero en vez de banearle el nick ahora lo he querido poner que expulse por ipvirtual, hasta ahí bien.

El problema viene cuando quiero que cuando lo excluya quite el ban puesto a ese nick y no lo hace, lo pone como nick en excepción, pero el ban sigue vigente en el canal.

Y si es un error, y el usuario quiere quitarse el ban, dice que le ha borrado el ban pero continua dentro, a ver, si me podéis ayudar a que quite el ban cuando lo añado a la lista de excepción o el mismo usuario se lo pone al bot en privado

(me he explayado mucho) xD

Código: [Seleccionar]
on *:join:#sevilla: {
  set %nickban $address($nick,2)
  set %nickkick $nick
  .enable #whoisban
  /whois $nick
}

#whoisban off
raw 311:*: {
  set %realnameban $6-

}
raw 319:*: {
  set %canalesban $3-
  baneawhois
  .disable #whoisban
}
#whoisban end

alias baneawhois {
  var %lee 1
  while %lee <= $lines(backup\Sumidero.txt) {
    if (%nickban isin $read(backup\Sumidero.txt,%lee)) {
      halt
      return
    }
    inc %lee
  }
  var %fullnameaban = Usuario Kiwi de Chat Hispano - https://chathispano.com/webchat
  if  ($chr(125) isin %nickban) || QuieroChat isin %identban { halt }
  if (%realnameban == %fullnameaban) || (%realnameban == %nickban) {
    if ((lesbianas isin %canalesban)) {
      mode #sevilla +b %nickban
      kick #sevilla %nickkick Bot spam NO permitido en el canal.
      timerbotborra 1 600 mode #sevilla -b %nickban
    }
  }
  unset %realnameban
  unset %nickban
  unset %canalesban
}

on *:text:*:#debug: {
  var %TextoUser = $strip($2-)
  if ($1 == !nobot) {
    if ($read(backup\Sumidero.txt,w,%TextoUser) != $null) {
    msg #debug 1[4ERROR1]4 $2- 1ya estaba en mi 4BDD | halt }
  write backup\Sumidero.txt $strip($2-) | mode #sevilla -b %nickban | msg #debug El nick: $2- ha sido añadido como NO Bot y borrado el ban. }
  else if ($1 == !borranobot) && ($2- != $null) {
    if ($read(backup\Sumidero.txt,w,%TextoUser) != $null) {
      write -dl $+ $readn backup\Sumidero.txt
      msg #debug 4El nick: %TextoUser ha sido borrado.
    }
    else msg #debug 9No existe el nick: %TextoUser
  }
  if ($1 == !listanobot) { msg #debug Listado de nicks incluídos (Total: $lines(backup\Sumidero.txt) $+ ) | play -q $nick backup\Sumidero.txt 1200
  }
}

on *:text:*:?: {
  if (no soy bot isin $strip($1-)) {
    write backup\Sumidero.txt $nick
    mode #sevilla -b %nickban
    msg $nick Su nick ha sido liberado como bot de spam. Pruebe a entrar de nuevo y perdone las molestias causadas.
  }
}

Un saludo.

Muchísimas gracias!