+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : chan notice (/showthread.php?tid=264)
chan notice - bewess - 31/08/2008
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"]
}
RE: chan notice - BdS - 31/08/2008
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
RE: chan notice - bewess - 02/09/2008
merci pour cette reponse rapide
Bonne journée
RE: chan notice - CrazyCat - 02/09/2008
bewess a écrit :J'aimerais qu'il ne kickban pas que les personnes etant enregistrer ds le botIl 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"]
}
RE: chan notice - foufou - 27/10/2009
J'adore, ce tcl est de moi....
peut t on savoir d'ou tu l'as eu ?