Une Blacklist par salon.

[CrazyCat]

Ben je ne vois pas le souci.
Pour l'activation:

tclcopier

setudef flag blon
bind dcc n blon blon
proc blon {handle idx text} {
   set chan [lindex [split $text] 0]
   # On vérifie que c'est bien un canal et que l'egg est dessus
   # Et on crée le fichier qui va bien (tu te débrouilles donc pour le nom de fichier)
   channel set $chan +blon
}

Et pour checker les entrées:

tclcopier

bind join - * blverif
proc blverif {nick uhost handle chan} {
   if {[channel get $chan blon] == 0} { return 0; } # La, on sort si le canal n'est pas en mode blacklist
   # Et la suite du traitement si le canal est en mode blackliste
}