Autor Tema: Script que avisa por notice sobre palabras prohibidas  (Leído 272 veces)

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

Desconectado DanielGuzman07

  • Novato
  • *
  • Mensajes: 9
  • Karma: +0/-121
Script que avisa por notice sobre palabras prohibidas
« en: Julio 23, 2020, 05:46:34 pm »
Buenas, respetando al autor de este código y con el fin de hacer una distinta acción quería modificar una acción en que en ves de un kick enviase notice a mi nick diciendo la palabra que puso aquel usuario, lo logré pero sin embargo no funciona sin un @ y no encontré como resolver eso. O también si se le puede agregar una mejoria o difeerencia

##################################################
; #### [ Programa PalabrasProhibidas versión 1.0 creado por Príncipe_Azul ] ####
; ##################################################
;
#######################################################################
; Código: PalabrasProhibidas versión 1.0
; Autor: Príncipe_Azul
; Webs: www.foro de argentina irc.net  -  www.foro de argentina irc.org  -  www.foro de argentina irc.info
; Foro de Programación: www.foro de argentina irc.org/Foro - www.foro de argentina irc.net/Foro - www.foro de argentina irc.info/Foro
; #######################################################################
;
; Instalación/Desinstalación:
; Para instalar el programa ejecutá el comando /load -rs PalabrasProhibidas.mrc en cualquier ventana del mIRC.
; Para descargarlo ejecutá /unload -rs PalabrasProhibidas.mrc
;
; Modo de uso:
; Este programa cuando se instala crea un archivo de texto llamado PalabrasProhibidas.txt y en el se almacenan todas las palabras prohibidas que quieras, puedes agregar
; muchísimas si lo deseas.
; Cuando ejecutés el comando para agregar una mala palabra se te abrirá una ventana de Entrada de datos, ahí debes escribir la palabra y pulsar la tecla ENTER o hacer clic
; en el botón OK (recomiendo el ENTER, es más rápido y fácil) para que se guarde la palabra y así seguir agregando más. Si no deseas agregar más entónces pulsá la
; tecla Cancelar.
; pulsando la tecla ENTER para agregar más palabras!
; Este programa tiene la posibilidad de Activarlo o Desactivarlo sin necesidad de descargarlo!
; Abajo dejo los comandos del programa para agregar, ver o borrar palabras:
; /palabrasprohibidas on --> Activa el programa
; /palabrasprohibidas off --> Desactiva el programa
; /agrpal Palabra --> Agrega una palabra
; /borrarpal Palabra --> Elimina una mala palabra de la base de datos
; /listapals --> Con este comando podés ver el listado de palabras que tenés actualmente agregadas!
; /kickrazon Razón del kick --> Comando para agregar una razón cuando un usuario sea expulsado de un canal
;
; Funcionamiento:
; Cuando un usuario escribe una mala palabra en cualquier canal, el script comprueba que seas operador de ese canal en donde se dijo la mala palabra, si es asi, entónces
; el programa baneará permanentemente la IP del usuario y también lo expulsará del canal con la razón que especificaste.
;
; Nota: Si deseas modificar el programa para tus preferencias, hazlo, pero sólo te pido que conserves el Autor.

#PalabrasProhibidas on
on :text:*:#sasuke: {
  if ($me isop #) {
    var %comptexto = $remove($strip($1-),?,*,&)
    var %numpals = $numtok(%comptexto,32)
    var %nums = 1
    while (%nums <= %numpals) {
      var %cadenapal = $gettok(%comptexto,%nums,32)
      var %leepal = $read(%PalPro.dir,w,%cadenapal)
      if (%leepal != $null) { | notice Sasukee $nick Dijo %comptexto 1en $chan | return }
      inc %nums
    }
  }
}
#PalabrasProhibidas end

alias palabrasprohibidas {
  if ($1 == on) {
    set %PalPro.dir $scriptdir $+ PalabrasProhibidas.txt | .enable #PalabrasProhibidas | echo -s 01La Protección ha sido activada!
    if ($exists(%PalPro.dir) == $false) { write $mircdir $+ PalabrasProhibidas.txt }
  }
  else if ($1 == off) { unset %PalPro.dir | .disable #PalabrasProhibidas | echo -s 0,1La Protección ha sido desactivada! }
  else if ($1 == $null) {
    echo -s 0,2Faltan parámetros! el comando para activar la Protección de Palabras Prohibidas es /palabrasprohibidas on
    echo -s 0,10y para desactivar es /palabrasprohibidas off
  }
}

alias agrpal {
  :AgregarPalabras
  write $scriptdirPalabrasProhibidas.txt $$?="Escribí aquí la mala palabra:"
  goto AgregarPalabras
}

alias borrarpal {
  if ($1 != $null) {
    if ($read($scriptdirPalabrasProhibidas.txt,w,$1) != $null) { write -dl $+ $readn $scriptdirPalabrasProhibidas.txt | echo -s 2La palabra $1 ha sido borrada }
    else echo -s La palabra $1 no existe!
  }
}

alias listapals {
  echo -se 12Listado de Palabras Prohibidas (Total: $lines($scriptdirPalabrasProhibidas.txt) $+ ):
  var %pals = 0
  :SumaNums
  inc %pals
  if (%pals <= $lines($scriptdirPalabrasProhibidas.txt)) echo -s $read($scriptdirPalabrasProhibidas.txt,%pals)
  else { echo -se 12 $+ $str(¯,33) | return }
  goto SumaNums
}

alias kickrazon if ($1 != $null) set %KickRazon $1-

; Fin del código!

Desconectado Quetzalcoatl

  • Miembro de pleno derecho
  • ***
  • Mensajes: 163
  • Karma: +228/-2
  • HipercomputoHipermegared
    • elchatirc
Re:Script que avisa por notice sobre palabras prohibidas
« Respuesta #1 en: Julio 23, 2020, 05:56:16 pm »
donde esta :

on :text:*:#sasuke: {
  if ($me isop #) {
código ...
código ..
mas código ...

}

La parte en azul lo dejas como !isop
algo como :
Código: [Seleccionar]
  if ($me !isop #) { con eso cuando el usuario que tenga el código y no sea operador del canal, entonces actuara.

PD:En el notice sobra un | a la izquierda

 

anything