Foro IRcap

dino
prueba con esto, esta corregido lo del goto y otros detalles, cuando algo no funcione por favor dilo de inmediato, no había probado el codigo anterior, pero este lo acabo probar y creo que funciona como lo requieres
#Repite on
on *:TEXT:*:%pral: {
  if (($ulevel >= 60) || ($ulevel >= 100) || ($me == $nick) || ($nick isop $chan)) { halt }
  if ($ulevel < 100) {
    if ($nick !isop $chan) && ($nick isvo $chan) && ($me isop $chan) { return }
    if (%NickRepite. [ $+ [ $+($nick,.,$chan) ] ] == $null) { set -u300 %NickRepite. [ $+ [ $+($nick,.,$chan) ] ] 0 $1- }
    else if (%NickRepite. [ $+ [ $+($nick,.,$chan) ] ] != $null) {
      var %advertido = %NickRepite.Advertido. [ $+ [ $+($nick,.,$chan) ] ]
      ;----Si el usuario no ha sido advertido se crea una variable individual de lo contrario incrementa y va una advertencia definida.
      if (!%advertido) { set -u300 %NickRepite.Advertido. [ $+ [ $+($nick,.,$chan) ] ] 1 }
      ;---- fin de la  manipulacion de la variable de advertencia
      if ($gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],1,32) == 0) && ($gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],2-,32) == $1-) {
        if (%advertido) { set -u300 %NickRepite.Advertido. [ $+ [ $+($nick,.,$chan) ] ] $calc(%advertido +1) | goto $calc(%advertido +1) } | :1
        PRIVmsg $chan 2 $+ $nick $+  12--> 2Por favor, 4No repita. 2Con una vez ya le leemos. 12(1er Aviso)
        PRIVmsg %ops 2Avisando a 1 $+ $nick $+  2de que no repita una frase o texto. 12[1]
        set -u1200 %NickRepite. [ $+ [ $+($nick,.,$chan) ] ] $calc($gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],1,32) + 1) $gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],2-,32)
        return
      }
      else if ($gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],1,32) == 1) && ($gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],2-,32) == $1-) {
        if (%advertido) { set -u300 %NickRepite.Advertido. [ $+ [ $+($nick,.,$chan) ] ] $calc(%advertido +1) | goto $calc(%advertido +1) }
        :2 | msg $chan 2 $+ $nick $+  12--> 2Por favor, 4No repita. 2Con una vez ya le leemos. 12(2ndo Aviso)
        PRIVmsg %ops 2Avisando a 1 $+ $nick $+  2de que no repita una frase o texto. 12[2]
        set -u1200 %NickRepite. [ $+ [ $+($nick,.,$chan) ] ] $calc($gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],1,32) + 1) $gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],2-,32)
        return
      }
      else if ($gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],1,32) == 2) && ($gettok(%NickRepite. [ $+ [ $+($nick,.,$chan) ] ],2-,32) == $1-) {
        if (%advertido) { set -u300 %NickRepite.Advertido. [ $+ [ $+($nick,.,$chan) ] ] $calc(%advertido +1) | goto $calc(%advertido +1) }
        :3 | PRIVmsg $nick 4Se le Advirtío De que no Repitiera. Esta práctica molesta a los demas usuarios del canal, gracias y hasta pronto.
        ban -u1800 $chan $address($nick,2)
        kick $chan $nick Repetir una frase o una idea es molesto para el canal, con una vez ya le leemos.
        unset %NickRepite. [ $+ [ $+($nick,.,$chan) ] ]
        unset %NickRepite.Advertido. [ $+ [ $+($nick,.,$chan) ] ]
      }
      else { echo -s aqui-----
        set -u300 %NickRepite. [ $+ [ $+($nick,.,$chan) ] ] 0 $1-
      }
    }
  }
}
#Repite end

me funciona bien en canales pequeños, pero cuando estoy en un canal grande y un usuario repite la frase, se salta la primera advertencia y manda directo la segunda advertencia, ese detalle sucede rara vez cuando los usuarios son mas de 120usuarios en linea..

Ese remoto tiene dos variables una donde guarda si el nick esta advertido y otra el ultimo texto, quizas es por eso que en canales grandes donde hay varia afluencia pueda existir un fallo, lo ideal es lo que habia dicho Cadaver antes, si no mal recuerdo tambien posteo el código de un remote similar donde se evaluan tres frases distintas dichas por un usuario, en donde se usa una sola variable por cada usuario en el canal, lo que de entrada evita la a advertencias equivocadas al mezclarse nicks. Lo ideal para mi seria recrear el código desde cero y usar hashtables para evitar problemas en variables ya que se dejarían de usar y tener un mejor control en cuanto a las advertencias, frases repetidas y el contador.

Cabe notar que yo no hice el código que usas Dino, solo me base en el que se coloco que se había dicho que si funcionaba que solo requería unas modificaciones.

Pero vale la pena buscar el código que posteo cadaver(el cual no esta en este hilo de post, si no en uno previo), no lo he probado pero la estructura que el uso en su programación es muy buena o rehacerlo como mencione usando hashtables.

Buenas tardes.

Seria bueno para todos, que pusiera el addon completo.

¿no creeis?

Saludos.

Hola.

Muchas gracias!

Corregido:

on *:TEXT:*:#: {
  if ($nick isreg $chan) && ($me isop $chan) {
    if (!%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) { set -u500 %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ] $md5($strip($1-)) | inc -u500 $+(%,flood.,$chan,.nick.,$nick) | halt }
    if (%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) && ($md5($strip($1-)) != %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) { set -u500 %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ] $md5($strip($1-)) | unset %flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] | inc -u500 $+(%,flood.,$chan,.nick.,$nick) | halt }
    if (%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) && ($md5($strip($1-)) == %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) {
      inc $+(%,flood.,$chan,.nick.,$nick)
      if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 2) { msg $chan AVISO 1 }
      if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 3) { msg $chan AVISO 2 }
      if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 4) { ban -u120 $chan $address($nick,2) | kick $chan $nick Razon del KICK | unset %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ] | unset %flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] }
    }
  }
}