+- 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 : cherche blacklist pour eggdrop (/showthread.php?tid=799)
Pages :
1
2
RE: blacklist par salon - fedora - 28/11/2010
tu peut ajouter ceci
tcl
|| ![channel get $chan blacklist]
tcl
proc blacklist:join {nickname hostname handle channel} {
global blacklist
if {![botisop $channel]} {return}
set userhost [blacklist:weirdclean "$nickname![getchanhost $nickname]"]
foreach entry [array names blacklist] {
set reason [lrange [blacklist:clean $blacklist($entry)] 2 end]
set blackhost [blacklist:weirdclean $entry]
if {[string match -nocase $blackhost $userhost]} {
putquick "MODE $channel -o+b $nickname $entry"
putquick "KICK $channel $nickname :[join $reason]"
}
}
}
ce qui va te donner :
tcl
proc blacklist:join {nickname hostname handle channel} {
global blacklist
if {![botisop $channel] || ![channel get $channel blacklist] } {return}
set userhost [blacklist:weirdclean "$nickname![getchanhost $nickname]"]
foreach entry [array names blacklist] {
set reason [lrange [blacklist:clean $blacklist($entry)] 2 end]
set blackhost [blacklist:weirdclean $entry]
if {[string match -nocase $blackhost $userhost]} {
putquick "MODE $channel -o+b $nickname $entry"
putquick "KICK $channel $nickname :[join $reason]"
}
}
}
pour activer ta blacklist sur un salon définie tu va en pl de ton bot et tu tape
Citation :.chanset #TONSALON +blacklist
sa devrai le faire,j'ai pas tester
Cordialement DnS
RE: blacklist par salon - chris620s - 28/11/2010
je vien de tester en party line mai sa me dit ce message >> Error trying to set +blacklist for #possession-tchat, invalid mode. Aliassangelius faut til le rajouter ou pas merci de votre aide
RE: blacklist par salon - fedora - 28/11/2010
tu a taper quoi en pl ?
RE: blacklist par salon - chris620s - 28/11/2010
jai tapper sa >>>.chanset #possession-tchat +blacklist
RE: blacklist par salon - fedora - 28/11/2010
ha oui j'ai oublier sa dans ton code:
Citation :setudef flag blacklist
voila
tcl
setudef flag blacklist
proc blacklist:join {nickname hostname handle channel} {
global blacklist
if {![botisop $channel] || ![channel get $channel blacklist] } {return}
set userhost [blacklist:weirdclean "$nickname![getchanhost $nickname]"]
foreach entry [array names blacklist] {
set reason [lrange [blacklist:clean $blacklist($entry)] 2 end]
set blackhost [blacklist:weirdclean $entry]
if {[string match -nocase $blackhost $userhost]} {
putquick "MODE $channel -o+b $nickname $entry"
putquick "KICK $channel $nickname :[join $reason]"
}
}
}
RE: blacklist par salon - chris620s - 28/11/2010
voila c fait c activer en pl mai quand je regarde ma liste sur un autre salon il aparrai tjr
RE: blacklist par salon - fedora - 28/11/2010
normal puisque il est dans ta liste blacklister. apres ce que tu vient de faire c'est activer la blackliste sur un salon voulu donc ton user qui est blacklister sera kick ban seulement là ou tu aura activer ta blackliste:
si tu active ta blackliste sur #salon1 l'user sera kick ban sur salon1 et pas sur #salon2
RE: blacklist par salon - chris620s - 28/11/2010
oki ba je te remercie bonne journer