keep-nick 1 on eggdrop1.6.17

[daltanius]

HI all,
i have eggdrops 1.6.17 and set on config file set keep-nick 1
Some times eggdrops join on irc with altnick because first nick isn't available.
But when first nick returns available eggdrops dont' change nick why?
what is the problems?
Bug of eggdrop 1.6.17?

thx
Daltanius

[demond]

bug of your irc server

[daltanius]

i don't think because on the same server with a eggdrop 1.6.15 keep nick work

[demond]

what's the server version?

it is also possible some lame script you are using messes up raw ISON reply handling

[daltanius]

verion of *.de server
2.11.1p1. fu-berlin.de 276B aEFHIJKlMpRsTuXZ

As regard tcl i'm using the same tcl of eggdrop1.6.15

thx
Daltanius

[daltanius]

the problems is anticollide tcl.
Can i fix it?

Code: Select all

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 *" 

EDITED: Next time post code using code tags (Alchera).

[demond]

ditch that lame script, it's totally useless

nick colliding as a weapon is long gone (even on IRCnet), so this thing is pretty ancient