Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


chan notice
#1
Bonjour,
Voici un tcl de anti chan notice ( ca peut toujours servir )
J'aimerais savoir si quelqu'un peut me dire comment faire pour que le bot kickban même les voices.
Car il kickban que les personnes qui font des chans notices non voicer ni @
J'aimerais qu'il ne kickban pas que les personnes etant enregistrer ds le bot
Par avance merci :)

tcl
bind notc - * nonotice_chanoff
proc nonotice_chanoff { nick uhost handle arg dest } {
   global botnick salon
   if {![string match #nord_pasdecalais $dest]} {return 0}
   if {[matchattr [nick2hand $nick $dest] m] || [matchattr [nick2hand $nick $dest] n] || [matchattr [nick2hand $nick $dest] |o $dest]} {return 0}
   if {![botisop $dest]} {return 0}
   set host [string range $uhost [expr [string first @ $uhost]+1] e]
   if {[isop $nick $dest] || [isvoice $nick $dest]} {return 0}
   putquick "mode $dest +bim $host"
   putquick "kick $dest $nick :~ Exp/Notice-Chan ~ Pas de notice salon svp"
   utimer 20 [list putquick "mode $dest -m"]
   utimer 120 [list putquick "mode $dest -i"]
}

Gilles
#2
Pour qu'il kick les voices aussi, remplace cette ligne:


tcl
if {[isop $nick $dest] || [isvoice $nick $dest]} {return 0}


par


tcl
if {[isop $nick $dest]} {return 0}


seul les @ ne seront pas kick
#3
merci pour cette reponse rapide :)

Bonne journée
Gilles
#4
bewess Wrote:J'aimerais qu'il ne kickban pas que les personnes etant enregistrer ds le bot
Il suffit alors de sortir de la procédure si l'utilisateur est connu, donc avec une handle différente de "*"

tcl
bind notc - * nonotice_chanoff
proc nonotice_chanoff { nick uhost handle arg dest } {
   global botnick salon
   if {![string match #nord_pasdecalais $dest]} {return 0}
   if {$handle != '*'} {return 0]
   if {[matchattr [nick2hand $nick $dest] m] || [matchattr [nick2hand $nick $dest] n] || [matchattr [nick2hand $nick $dest] |o $dest]} {return 0}
   if {![botisop $dest]} {return 0}
   set host [string range $uhost [expr [string first @ $uhost]+1] e]
   if {[isop $nick $dest] || [isvoice $nick $dest]} {return 0}
   putquick "mode $dest +bim $host"
   putquick "kick $dest $nick :~ Exp/Notice-Chan ~ Pas de notice salon svp"
   utimer 20 [list putquick "mode $dest -m"]
   utimer 120 [list putquick "mode $dest -i"]
}

irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#5
J'adore, ce tcl est de moi....

peut t on savoir d'ou tu l'as eu ?


Possibly Related Threads…
Thread Author Replies Views Last Post
  anti flood notice lesny 10 6,018 29/10/2011, 21:43
Last Post: lesny
  faire une notice a mon eggdrop lesny 8 4,845 09/12/2010, 16:10
Last Post: lesny

Forum Jump:


Users browsing this thread: 1 Guest(s)