Communauté sur les Eggdrops - Community about Eggdrops
cherche blacklist pour eggdrop - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (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)
+--- Thread: 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

Quote:.chanset #TONSALON +blacklist

sa devrai le faire,j'ai pas tester Smile


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:

Quote: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