Una Ayudita con este .tcl

En esta sección se prestara ayuda a los usuarios con códigos TCL Scripts ya existentes ya sea de su autoría o encontrados por la web respetando los derechos de su autor.
Avatar de Usuario
Quetzalcoatl
Moderador Global
Moderador Global
Mensajes: 15
Registrado: Mar Dic 04, 2018 1:14 pm
Agradecido : 8 veces
Agradecimiento recibido: 8 veces

Re: Una Ayudita con este .tcl

Mensaje por Quetzalcoatl » Jue Mar 19, 2020 2:40 am

Hola Nikita

en donde esta proc badwords:pub, agregaras una sola linea en donde esta:
proc badwords:pub {nick uhost hand chan arg} {
global badwords tempbw

set what [join [lrange [split $arg] 1 end]]

# -----aqui va la nueva linea
switch -exact -- [lindex [split $arg] 0] {

y quedara como: Please Login or Register to see this code esto te permitirá usar los comandos de :
!badwords add #canal *lapalabra*
!badwords del #canal *lapalabra*
!badwords list #canal
!badwords reset #canal
e incluso personalizar la razón del ban en cada canal, si y solo si después del comando se agrega el #canal ya que usa el # como disparador.
Es decir se debe especificar el canal y después los argumentos posteriores, de lo contrario lo aplicara como normalmente lo haría el script sin modificar.

Saludos

PD: en caso de querer especificar donde se muestren los avisos, se puede hablitar una variable global para que de los datos en el

Responder