Rajouter un ban au troisième kick
#1
Bonjour à tous ,

Voila j'ai trouvé un tcl antibadwords plutot simple à comprendre pour moi dont voici la source : Anti Bad Words

J'ai modifier le code pour intégrer une fonction pour que certaine personne ne soit pas kick par le bot. Voici le code modifié :
TCL
set vhostexempt {
 *Root@domain.tld
 *@TechAdmin.domain.tld
 *@autant.de.vhost.que.vous.voulez
}
 
set badwords {
 les
 badwords
 ici
 de
 cette
 façon
}
 
bind pubm -|- * bad:words
proc bad:words {nick host hand channel text} {
 global badwords vhostexempt
 set bad ""
 foreach element $badwords {
   foreach element1 $text {
 if {$element1 == $element} {
set bad "$element"
   break
   }
}
 }
 if {$bad != ""} {
   set vichost [getchanhost $nick $channel]
   set protec 0
   foreach vhost $vhostexempt {
     if { [string match -nocase $vhost $vichost] } {
       set protec 1
     }
   }
   if { $protec == 1 } {
     return 0
     } else {
     putkick $channel $nick "\00312Merci de surveiller votre language !!"
     }
  }
}


Il fonctionne très bien mais je voudrais rajouter une fonction qui ban l'user au troisième kick mais voila je ne sais absolument pas comment mi prendre.
Serait t'il possible d'être aiguillé dans la bonne direction de façon a ce que je puisse arrivé à mes fins.
Merci d'avance pour votre aide future.

Bien à vous.

Bye.
Répondre Avertir


Messages dans ce sujet
Rajouter un ban au troisième kick - par Alucard`68 - 21/02/2017, 14:01

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté