return random nick from channel nicklist

[Dedan]

I have no idea how to even start to
return a random nick from channel nicklist


Thanks for any help given

[user]

EDIT:

Code: Select all

* censored to train your brain :P *

(I initially had code spoiling the point of roland's post)

[rolandguy]

first thing you need is a nicklist...

chanlist <channel> [flags[&chanflags]] # see doco

then find a random number between 0 and the length of that list (llength).

set mynum [rand $list_length]

then pull the nick at mynum in the list

set random_nick [lindex $chan_ppl $mynum]

hope this helps

roland

[caesar]

set random_nick [lindex $chan_ppl $mynum]

Huh? How exactly do you extract that nick and from where did you got that $chan_ppl variable?

Tip:

Code: Select all

set position [expr [rand [llength [chanlist $chan]]] + 1]

[rolandguy]

chanlist <channel> [flags[&chanflags]]

*please* read the doco...it's one of the eggdrop tcl commands, think you'll find everything you need there

roland

[user]

Tip:

Code: Select all

set position [expr [rand [llength [chanlist $chan]]] + 1]

since list commands are zero-based, the llength is always "last element index+1" and since rand returns a number between 0 and the supplied integer-1 no expr is needed.

Code: Select all

lindex [chanlist $c] [rand [llength [chanlist $c]]]

Keep in mind that an empty chanlist might be returned and cause rand to error on you (depending on what triggered the code of course), so you better check the llength first (or use expr rand() to do the randomizing)

[caesar]

Umm.. yes, the code you've sugested should do the trick. Thanks for the tip.

[Dedan]

Thanks for the help.
i am going to try this:

Code: Select all

    set spin_list [chanlist $chan]
    set spin_list [lreplace $spin_list $nick $nick]
    set spin_list [lreplace $spin_list $botnick $botnick]
    set spin_length [llength $spin_list]
    if {[$spin_length == 0]} {
    putserv "PRIVMSG $chan :You need more players"
    return 0
    }
    set spin_num [rand $spin_length]
    set spin_nick [lindex $spin_list $spin_num]

I am still working on that script for kaamal

[caesar]

The set spin_num [rand $spin_length] should be set spin_num [expr [rand $spin_length] +1] because of the rand. Example: rand 10 will allways be a number from 0 to 9 so.. by adding 1 to the result of the rand actualy is a random number from 1 to 10 inccluding 1 and 10, as it should be.

[Dedan]

Code: Select all

    set spin_num [rand $spin_length] 
    set spin_nick [lindex $spin_list $spin_num] 

i thought the first element of the list was considered "0"
so, if the value of spin_num was 0,
wouldn't it select the first element of the list?

[caesar]

Test this:

Code: Select all

.tcl putlog "[rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10] [rand 10]"

and you'll see what I'm talking about.

[stdragon]

Dedan -

Your code looks good except for this bit:

set spin_list [lreplace $spin_list $nick $nick]
set spin_list [lreplace $spin_list $botnick $botnick]

To remove $nick and $botnick from the list, you have to use lsearch to find it and then use that index to remove it.

set nick_idx [lsearch -exact $spin_list $nick]
set spin_list [lreplace $spin_list $nick_idx $nick_idx]

etc


Caesar -

Lists go from 0 to lastidx-1, so Dedan's code is right.

[caesar]

Umm.. you haven't got my point. I've said that the rand thing makes it choose a random number from 0 to the number you've have choosen to get a random number from it except it. Also, I do agree with you on the list part, I haven't said that the list part is wrong or something..

[Dedan]

Code: Select all

    set spin_list "nick1 nick2 nick3 nick4 nick5"
    set spin_length [llength $spin_list] 

$spin_length is 5

Code: Select all

    set spin_num [rand $spin_length}

$spin_num is a number between 0-4

Code: Select all

    set spin_nick [lindex $spin_list $spin_num] 

[lindex]
This command treats list as a Tcl list and returns the index'th element from
it (0 refers to the first element of the list).

if $spin_num is 0, it would return the first element of the list (nick1)

if $spin_num is 4, it would return the fifth element of the list (nick5)

I don't see the problem Caesar, what am i missing?

[caesar]

Nothing, after I've posted I've thinked a bit on the thinkgs stdragon said and he and now you where right. the lindex makes it be correct.. My appologies for that.