random generated nick script

[MarlbMan]

I stole a bit out of the random password script to generate random nicks, here is what I've come up with.

Code: Select all

set sd_nlength "8"
bind pub - chnick sd_nchange
set sd_char {A a B b C c D d E e F f G g H h I i J j K k L l M m N n O o P p Q q R r S s T t U u V v W w X x Y y Z z}
proc sd_nchange { sd_nlength } {
global sd_char
set counter 0
set sd_rnick ""
while {$counter < $sd_nlength } {
set sd_rand [lindex $sd_char [rand [llength $sd_char]]]
set sd_rnick "$sd_nick$sd_rand"
incr counter
}
putserv "nick $sd_rnick"
}

but when I type chnick in channel, I get the following error:

Code: Select all

Tcl error [sd_nchange]: wrong # args: should be "sd_nchange sd_nlength"

can anyone help me?

[MarlbMan]

ok, got that figured out. Changed the script a bit, now it looks like this.

Code: Select all

bind pub - chnick sd_nchange
set sd_char {A a B b C c D d E e F f G g H h I i J j K k L l M m N n O o P p Q q R r S s T t U u V v W w X x Y y Z z}
proc sd_nchange { nick uhost hand chan arg } {
global sd_char
set counter 0
set sd_rnick ""
while {$counter < 8 } {
set sd_rand [lindex $sd_char [rand [llength $sd_char]]]
set sd_rnick "$sd_rnick$sd_rand"
incr counter
}
putserv "nick $sd_rnick"
}

Problem now is, it changes it's nick back. I change set keep-nick to 0, but it still does it. how do I fix this one?

[MarlbMan]

I love it when I answer my own question, I just added sd_rnick to the global line and it works fine now.

[Sir_Fz]

I'd suggest addin "counter" to the global line too, if its being used in another proc of this script.

[user]

I'd suggest addin "counter" to the global line too, if its being used in another proc of this script.

The counter variable has no value outside the proc as it'll always contain "8" when the proc returns.

[Sir_Fz]

oh yes, you're right I understoud.