Autor Tema: Tengo un remote que es anti repeticiones con advertencia  (Leído 2379 veces)

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

Desconectado Quetzalcoatl

  • Miembro de pleno derecho
  • ***
  • Mensajes: 162
  • Karma: +228/-2
  • HipercomputoHipermegared
    • elchatirc
Re:Tengo un remote que es anti repeticiones con advertencia
« Respuesta #15 en: Febrero 07, 2020, 01:48:30 am »
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
Código: [Seleccionar]
#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

Desconectado MiLeNiUm

  • Novato
  • *
  • Mensajes: 7
  • Karma: +0/-12
  • Sexo: Masculino
  • CaEr EsTa PeRmItIdO lEvAnTaRsE eS oBLiGaToRiO
Re:Tengo un remote que es anti repeticiones con advertencia
« Respuesta #16 en: Febrero 07, 2020, 02:35:31 am »
Hola, lo acabo de probar yo tambien y ahora si funciona, Saludos.

 

anything