Foro IRcap

el problema es el acento rayco

quizás sea un bug en el mirc, ya que cualquier palabra acentuada la esta tomando, es que contiene una buscada en el regex, o quizás esta mal la implementacion, no soy tan experto en expresiones regulares(https://es.wikipedia.org/wiki/Expresi%C3%B3n_regular), pero si me han facilitado muchas cosas. quizás alguien que si sea experto podría encontrar la solución a ello o se puede poner un while o wildtok,instok,etc para el chequeo, lo que impilicaria meter bucles para cada palabra y/o meter un filtro para que no metan caracteres especiales, que siendo los acentos se toman como caracteres especiales, y lo mas probable es que suceda lo mismo, lo anterior dicho se puede comprobar con:

//var %a comí | if ($regex($strip(%a),/\b(?:http|www|com|org|net)\b/i)) { echo -a detectado }
//var %a comi | if ($regex($strip(%a),/\b(?:http|www|com|org|net)\b/i)) { echo -a detectado }
//var %a comií | if ($regex($strip(%a),/\b(?:http|www|com|org|net)\b/i)) { echo -a detectado }

lo que se puede hacer es un tokenize para poner en minúsculas y usar un replace, por que es mas fácil poner los replaces de un carácter en especifico que usar uno para mayúsculas y otro minúsculas, según la tabla ascii, o que estar agregando excepciones por cada wwwá,wwwé..... sucesivamente hasta............ netú --> http|www|com|org|net
á => ASCII: 225 Octal: \341 HEX: \xE1
é => ASCII: 233 Octal: \351 HEX: \xE9
í => ASCII: 237 Octal: \355 HEX: \xED
ó => ASCII: 243 Octal: \363 HEX: \xF3
ú => ASCII: 250 Octal: \372 HEX: \xFA

Una ves explicado el punto, seria cuestión de agregar una linea que nos haga el trabajo sucio de los acentos
tokenize 32 $replace($lower($1-),$chr(225),a,$chr(233),e,$chr(237),i,$chr(243),o,$chr(250),u)el cual debe ser agregado después de la linea que contiene
if (!$nick(#,$nick,r)) { return }
Probando el tokenize individualmente
//var %a holá ¿cómo estÁs tú? | tokenize 32 $replace($lower(%a),$chr(225),a,$chr(233),e,$chr(237),i,$chr(243),o,$chr(250),u) | echo -a *variable%a* %a **remplazo** -- $1-
nos da como resultado:
*variable%a* holá ¿cómo estÁs tú? **remplazo** -- hola ¿como estas tu?

Sin más por el momento.

Quizá esto te sirve: Stream desde teléfono

es correcto pero la variable de %canalesactivos debe ser declarada antes de el if, para que tenga efectos.
Ya se que optes por
on *:TEXT:*:#: {
 var %canalesactivos #cadiz #sevilla #madrid
 if ($chan !isin %canalesactivos) { return }
o por un
on *:TEXT:*:#: {
 var %canalesactivos #cadiz #sevilla #madrid
 if (!$wildtok(%canalesactivos,$chan,0,32)) { return }
la diferencia es que en el primero si el canal no esta insertado en la variable de %canalesactivos no actuara, pero si existe un canal de #cadiz y un #cadiz_ops, actuara en ambos.
En el segundo busca en la variable el canal y si lo encuentra es negado y continua, pero si el canal no esta entonces regresa, igual puedes usar otro tipo de identificador para verificar el token, pero tendrías que negarlo con !, si es que deseas un resultado similar.

Igual puedes hacer una estructura similar que la que se usa en el .addexspam +,-,? para tener la variable %canalesactivos como permanente así controlarle a la distancia, obviamente reaccionaria a un comando diferente u otra forma re-estructurar ese código y solo hacer peticiones para que se encargue un alias de la modificación de las variables por medio del uso de los corchetes ya que si seria mas facil si es que piensas meter otras protecciones a futuro como antibadwords y sus excepciones, antibadnicks y excepciones, etc.

Saludos

Bueno eso

on *:TEXT:*:#: {
te permite ponerlo en todos, si quieres especificar el canal pudiera ser agregándolo en esa parte o poner una variable que modifique los canales o meterla abajo con un if de comparación si es un canal asignado si no que regrese, ejemplos:
on *:TEXT:*:#canal1: {para un solo canal seria
on *:TEXT:*:#: {
if ($chan != %canales-donde.el.bot.trabajara) { return }
;codigos abakjo
bla bla bla bla
} para varios canales entonces...
on *:TEXT:*:#: {
if ($chan !isin %canales-donde.el.bot.trabajara) { return }
;codigos abakjo
bla bla bla bla
}
Y así otros mas ejemplos que pudieran darse, con respecto al punto dos, pues tendrías que trabajar con el comando auser para agregar usuarios con nivel y usar entonces el evento con un nivel ejemplo si das un nivel de 120 como los que pueden agregar seria como

on 120:TEXT:*:#: {
  ; == Aquí se agregaran las excepciones, el nick debe ser op en el canal e iniciar con .addexspam la frase, ya no requiere ser op del canal
  if (.addexspam == $strip($1)) { var %a $left($2,1), %b $right($2,-1)
    if ((+ = %a) ||  (%a = -) || (%a = ?)) { goto %a
      :+
      if ($istok(%excepciones.spam,%b,32)) { .notice $nick ya esta agregada %b en las excepciones }
      else { set %excepciones.spam $addtok(%excepciones.spam,%b,32) | .notice $nick fue agregado %b $+, compruébelo usando: .addexspam ? }
      return
      :-
      if (!$istok(%excepciones.spam,%b,32)) { .notice $nick No esta agregada %b en las excepciones }
      else { set %excepciones.spam $remtok(%excepciones.spam,%b,32) | .notice $nick fue eliminado %b $+, compruébelo usando: .addexspam ? }
      return
      :? | .notice $nick Las excepciones son: %excepciones.spam | return
    }
    else { .notice $nick Por favor $nick use: .addexspam (?/+/-)la*pabra (se permite el uso de comodines *) | return }
  }
  ; === fin de la manipulación de la variable
 }y agregar el otro código de revisión para usuarios normales, pero pondrías un if para que no afecte al momento de manipular la variable de excepciones ejemplo un
 if ($ulevel = 120) { return }
on *:TEXT:*:#: {
  ; == Aquí revisa si el usuario tiene un nivel, de modificación para que no sea tomado en cuenta al validar su texto
  if ($ulevel = 120) { return }
  ; === si el nick no es un nick regular(@,v) entonces termina
  if (!$nick(#,$nick,r)) { return }
  ; === si la cadena de texto tiene algún tipo de spam, entrara
  if ($regex($strip($1-),/\b(?:http|www|com|org|net)\b/i)) {
    ; === revisa si esta la excepción y si lo esta sale
    var %a 1 | while ($gettok(%excepciones.spam,%a,32)) { if ($wildtok($strip($1-),$ifmatch,0,32)) { return } | inc %a }
    ; === No se encontró una excepción, procede a sancionar.
    ban -ku600 $chan $nick 2 Publicidad no permitida en el canal | msg #canaldebug Web Expulsando a $+($nick,$chr(40),$address,$chr(41)) por : $1-
  }
}
siendo que así quedaría la otra parte,pero sin tomar el punto de tu duda 1, con respecto a que canales seria aplicada ya que dejo a tu criterio la manera en que lo implementes, dejarlo como mencione en el post anterior

on *:TEXT:*:#: {
  ; == Aquí revisa si el usuario tiene un nivel, de modificación para que no sea tomado en cuenta al validar su texto
  if ($ulevel = 120) { return }
; --- alias de revisión antispam
alias.antispam $1-
}
; ----- alias de protecciones
alias -l alias.antispam { aquí va el código de revisión y sanciones aplicables }
alias -l alias.anti_colores { aquí va el código de revisión y sanciones aplicables }
alias -l alias.anti_malaspalabras{ aquí va el código de revisión y sanciones aplicables }
alias -l alias.anti_otra_cosa{ aquí va el código de revisión y sanciones aplicables }
;----- sin de protecciones
o usar los eventos con signal. Todo eso anterior son ejemplos ilustrativos, tendrían que desarrollarse c/u por separado, pero por lo menos es una idea para que me entiendas como podría hacerse.

Saludos.

Pd: Por eso decía que entre más se vaya desarrollando ya no seria un código simple, ya llegaría ser un addon.

Bueno creo que entiendo, aunque usar dos eventos para www y http, se podría usar uno solo especificando ya sea con regex o un arreglo en el mismo evento así como tú especificación con comodines, en el manual de ayuda que trae el mirc, esta muy bien explicado ese tema y de paso en la sanciones quitar tres comandos de mode kick y timer, para usar solo el comando de ban -kuN

Se me ocurriría hacerlo rápido de esta manera, son 11 lineas pero sin los comentarios son 6
on *:TEXT:*:#: {
  ; === si el nick no es un nick regular(@,v) entonces termina
  if (!$nick(#,$nick,r)) { return }
  ; === si la cadena de texto tiene algún tipo de spam, entrara
  if ($regex($strip($1-),/\b(?:http|www|com|org|net)\b/i)) {
    ; === si contiene un link con youtube. o youtu.be termina, de lo contrario sanciona.
    if ($regex($strip($1-),/\b(?:youtube.|youtu.be)\b/i)) { return }
    ban -ku600 $chan $nick 2 Publicidad no permitida en el canal | msg #canaldebug Web Expulsando a $+($nick,$chr(40),$address,$chr(41)) por : $1-
  }
}
Siendo que requieres que sea un poco dinámico y agregar las excepciones por un evento de :text: podría usarse el mismo evento, desecharíamos la parte de la excepción manual de
    if ($regex($strip($1-),/\b(?:youtube.|youtu.be)\b/i)) { return }y agregaríamos el comando de .addexspam, el cual me parece que solo va en una dirección, pero y que tal si te equivocas al agregar la palabra por X causa, entonces se agregaría otro comando para quitarla y también uno mas para verificación. Lo ideal seria usar el mismo, pero con parámetros de +, - y ?, en donde:
+ = agrega palabra
- = elimina la palabra
? = muestra la lista de excepciones
Una ves explicado eso, nos quedaría algo como:
on *:TEXT:*:#: {
  ; == Aquí se agregaran las excepciones, el nick debe ser op en el canal e iniciar con .addexspam la frase
  if (($nick isop $chan) && (.addexspam == $strip($1))) { var %a $left($2,1), %b $right($2,-1)
    if ((+ = %a) ||  (%a = -) || (%a = ?)) { goto %a
      :+
      if ($istok(%excepciones.spam,%b,32)) { .notice $nick ya esta agregada %b en las excepciones }
      else { set %excepciones.spam $addtok(%excepciones.spam,%b,32) | .notice $nick fue agregado %b $+, compruébelo usando: .addexspam ? }
      return
      :-
      if (!$istok(%excepciones.spam,%b,32)) { .notice $nick No esta agregada %b en las excepciones }
      else { set %excepciones.spam $remtok(%excepciones.spam,%b,32) | .notice $nick fue eliminado %b $+, compruébelo usando: .addexspam ? }
      return
      :? | .notice $nick Las excepciones son: %excepciones.spam | return
    }
    else { .notice $nick Por favor $nick use: .addexspam (?/+/-)la*pabra (se permite el uso de comodines *) | return }
  }
  ; === si el nick no es un nick regular(@,v) entonces termina
  if (!$nick(#,$nick,r)) { return }
  ; === si la cadena de texto tiene algún tipo de spam, entrara
  if ($regex($strip($1-),/\b(?:http|www|com|org|net)\b/i)) {
    ; === revisa si esta la excepción y si lo esta sale
    var %a 1 | while ($gettok(%excepciones.spam,%a,32)) { if ($wildtok($strip($1-),$ifmatch,0,32)) { return } | inc %a }
    ; === No se encontró una excepción, procede a sancionar.
    ban -ku600 $chan $nick 2 Publicidad no permitida en el canal | msg #canaldebug Web Expulsando a $+($nick,$chr(40),$address,$chr(41)) por : $1-
  }
}
;EOF

El nick que usa el comando siempre debe ser op en el canal, para poder modificar las excepciones.
Para agregar una palabra seria con .addexspam +*you*tube* (si ya esta agregada nos notifica)
Para quitar una palabra seria con .addexspam -*youtu.be* (si NO esta agregada nos notifica)
Para ver la lista de excepciones con .addexspam ?

Ya para concluir debo hacer notar que si estas armando un bot, para la moderación lo ideal sera poner todas las protecciones en un evento :text:, y ya sea mediante el uso de eventos signal o alias especificar las otras protecciones(malaspalabras, spam, repeticiones, colores,flood, etc) y para controlar usar un nivel de operador en otro evento distinto de TEXT, por ejemplo on 100:text:, con el fin de controlar el bot.

Saludos

PD:Por lo general en cada red si es grande, hay canales de #scripting y/o #msl, seria bueno pasar a darse una vuelta y saludar, en ocasiones es más rápido tener una respuesta o sugerencias con respecto a la programación en msl.