Code:

set service(name) "Eggdrop.Virtualife.com.br"set service(serveur) "127.0.0.1"set service(port) "6667"set service(pass) "senha"set service(info) "BadChan Procurando"set service(chan) "#canal"set service(version) "1.2"set service(debug) "0"set service(nick) "nick-do-bot"bind dcc X +badchan pbc:dccproc pbc:dcc {nick idx arg} {global service botnickset fichier [open badchan.txt a]set addchan [lindex [string tolower $arg] 0]if {$addchan==""} {putdcc $idx "\002Erreur!\002 Vous devez spécifier un salon à ajouter à la liste!"return 0}if {[isin $arg $fichier]=="1"} {putdcc $idx "Le Salon\002 $addchan \002est déjà dans la liste des BadChan."return 0}puts $fichier "$addchan"close $fichierputdcc $idx "Le Salon\002 $addchan \002a été ajouté à la liste des BadChan"return 0}proc isin {text file} {catch {open badchan.txt r} dbset found -1while {![eof $db]} {gets $db yif {"$y"=="$text"} {set found 1break}}catch {close $db}return $found}proc delchr {text} {set z {}catch {open badchan.txt r} datwhile {![eof $dat]} {set stdin [string tolower [gets $dat]]if {$stdin!="$text" && $stdin != ""} {lappend z "$stdin"}}catch {close $dat}set g [open badchan.txt w+]foreach q $z {puts $g "$q"}close $g}bind dcc X leave leave:dccproc leave:dcc {nick idx arg} {global service botnickset cleave [lindex $arg 0]putdcc $service(idx) ":$service(nick) PART $cleave"return 0}bind dcc X -badchan mbc:dccproc mbc:dcc {nick idx arg} {global service botnickset fichier [open badchan.txt a]set delchan [lindex [string tolower $arg] 0]if {$delchan==""} {putdcc $idx "\002Erreur!\002 Vous devez spécifier un salon à supprimer de la liste!"return 0}if {![isin $delchan $fichier]=="-1"} {putdcc $idx "\002Erreur!\002 Le Salon\002 $delchan \002n'est pas dans la liste!"return 0}delchr $delchanputdcc $idx "Le Salon\002 $delchan \002 a été supprimé de la liste des BadChan."return 0}bind dcc X bconnect services_dccproc services_dcc {arg idx} {global serviceset service(idx) [connect $service(serveur) $service(port)]putdcc $service(idx) "PASS $service(pass)"putdcc $service(idx) "SERVER $service(name) 1 [unixtime] [unixtime] J09 :$service(info)"putdcc $service(idx) ":$service(name) NICK $service(nick) 1 1 $service(nick) $service(name) $service(name) :BadChan Searcher"putdcc $service(idx) ":$service(nick) MODE $service(nick) +owsgzi"putdcc $service(idx) ":$service(nick) JOIN $service(chan)"putdcc $service(idx) ":$service(nick) MODE $service(chan) +o $service(nick) 0"putdcc $service(idx) ":$service(nick) MODE $service(chan) +isnt 0"utimer 30 check_connect}proc services_control {idx arg} {global serviceif {$service(debug)=="0"} { putdcc $service(idx) ":$service(nick) privmsg $service(chan) :$arg" }regsub -all {\\} $arg {\\\\} argregsub -all {\{} $arg {\{} argregsub -all {\}} $arg {\}} argregsub -all {\]} $arg {\]} argregsub -all {\[} $arg {\[} argregsub -all {"} $arg {"} argregsub -all {\`} $arg {\`} argset fichier [open badchan.txt a]set arg1 [lindex $arg 0]set arg2 [lindex $arg 1]set arg3 [lindex $arg 2]if {$arg2=="PRIVMSG"} {}if {$arg2=="315"} {}if {$arg2=="TOPIC"} {}if {$arg2=="NOTICE"} {}if {$arg2=="MOTD"} {}if {$arg2=="KILL"} {}if {$arg2=="SILENCE"} {}if {$arg2=="NICK"} {}if {$arg2=="MODE"} {}if {$arg2=="KICK"} {}if {$arg2=="SETIDENT"} {}if {$arg2=="SETHOST"} {}if {$arg2=="PART"} {}if {$arg2=="JOIN"} {if {[isin $arg3 $fichier]=="1"} {set temp [string trim $arg1 :]set defraison "Salon à accès non-autorisé! Merci d'en choisir un autre."putdcc $service(idx) ":$service(nick) JOIN $arg3"putdcc $service(idx) ":$service(nick) MODE $arg3 +ois $service(nick) 0"putdcc $service(idx) ":$service(nick) MODE $arg3 +b *!*@*"putdcc $service(idx) ":$service(nick) KICK $arg3 $temp :Salon à accès non-autorisé! Merci de ne plus joindre ce salon."close $fichierreturn 0}}if {$arg2=="LUSERS"} {}if {$arg2=="TRACE"} {}if {$arg2=="VERSION"} {}if {$arg2=="NAMES"} {}if {$arg2=="STATS"} {}if {$arg2=="315"} {}if {$arg2=="352"} {}if {$arg2=="SQUIT"} {}if {$arg2=="SERVER"} {}if {$arg2=="MODE"} {}if {$arg1=="PING"} {putdcc $idx "PONG $arg2"return 0}}proc do_connect {} {global serviceset service(idx) [connect $service(serveur) $service(port)]putdcc $service(idx) "PASS $service(pass)"putdcc $service(idx) "SERVER $service(name) 1 [unixtime] [unixtime] J09 :$service(info)"control $service(idx) services_controlputdcc $service(idx) ":$service(name) NICK $service(nick) 1 1 $service(nick) $service(name) $service(name) :BadChan Searcher"putdcc $service(idx) ":$service(nick) MODE $service(nick) +owsgiz"putdcc $service(idx) ":$service(nick) JOIN $service(chan)"putdcc $service(idx) ":$service(nick) MODE $service(chan) +ontis $service(nick)"putdcc $service(idx) ":$service(nick) WALLOPS :Hello world"utimer 30 check_connect}proc check_connect {} {global serviceputdcc $service(idx) ":$service(nick) JOIN $service(chan)"if {[valididx $service(idx)]} {utimer 30 check_connectreturn 0}do_connect}proc valididx {idx} {set r 0foreach j [dcclist] {if {[lindex $j 0] == $idx} {set r 1}}return $r}if {![info exists service(idx)]} {do_connect}