Code:

bind dcc n botnick dcc_botnick bind dcc n randnick nickchanger set keep-nick 0 proc dcc_botnick {hand idx argo} { if {$argo != ""} { putserv "NICK $argo" putdcc $idx "Nick changed.." } if {$argo == ""} { putdcc $idx "usage: .botnick nick" } return 1 } proc nickchanger { handle idx arg } { global nickchange global keep-nick if ![info exists nickchange] { set nickchange 0 } if {$nickchange==1} { set nickchange 0 putdcc $idx "Nick changing started" set keep-nick 1 return 0 } if {$nickchange==0} { set nickchange 1 putdcc $idx "Nick changing stopped" set keep-nick 0 change_nick } } proc change_nick {} { global nickchange if {$nickchange==1} { set temp1 [rand 10] set temp2 [rand 10] set temp3 [rand 10] set temp4 [rand 10] set temp5 [rand 10] set temp6 [rand 10] set temp7 [rand 10] set tempie ac$temp1$temp2$temp3$temp4$temp5$temp6$temp7 putserv "NICK $tempie" timer 1 change_nick } } bind raw - ERROR raw:checkquit bind bot - nickcollide bot:nickcollide set antikill 1 set killcount 0 set lastkill 0 if {![info exists antikill]} { set antikill 0 } if {![info exists killthresh]} { set killthresh 2 } if {![info exists killtime]} { set killtime 15 } bind sign - * got_sign proc got_sign {nick uhost hand channel reason} { global antikill lastkill killtime killcount killthresh if {($antikill) && ([regexp "Killed.* .*\." $reason])} { if {([unixtime] - $lastkill) > $killtime} { set lastkill [unixtime] set killcount 1 } { incr killcount if {$killcount >= $killthresh} { putlog "Mass collide detected! Changing nick.." change_nick set lastkill 0 } } } } proc raw:checkquit { from keyword arg } { global botnick set text [string tolower $arg] set blah1 [lindex $text 0] set blah2 [lindex $text 3] set blah3 [lindex $text 6] if {$blah1 != ":closing"} { return 0 } if {$blah2 != "(killed"} { return 0 } if {$blah3 != "<-"} { return 0 } putallbots "nickcollide" putlog "I was nick-collided, telling other bots!" collide:switchnick } proc bot:nickcollide {bot cmd arg} { putlog "$bot was nick collided." collide:switchnick } proc collide:switchnick { } { global nickchange keep-nick putlog "Switching nicks for the next 10 minutes" set nickchange 1 set keep-nick 0 change_nick timer 10 collide:end } proc collide:end { } { global nickchange keep-nick set nickchange 0 set keep-nick 1 putserv "NICK $botnick" } putlog "**** Anti Collide loaded ****" putlog "* anticollide.tcl by MiNDiT *"