egghelp/eggheads community

return random nick from channel nicklist

2003-08-15T17:42:42-04:00

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.

Statistics: Posted by caesar — Fri Aug 15, 2003 5:42 pm

return random nick from channel nicklist

2003-08-15T16:10:33-04:00

Code:

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

$spin_length is 5

Code:

    set spin_num [rand $spin_length}

$spin_num is a number between 0-4

Code:

    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?

Statistics: Posted by Dedan — Fri Aug 15, 2003 4:10 pm

return random nick from channel nicklist

2003-08-15T13:48:59-04:00

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..

Statistics: Posted by caesar — Fri Aug 15, 2003 1:48 pm

return random nick from channel nicklist

2003-08-15T13:18:40-04:00

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.

Statistics: Posted by stdragon — Fri Aug 15, 2003 1:18 pm

return random nick from channel nicklist

2003-08-15T11:23:36-04:00

Test this:

Code:

.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.

Statistics: Posted by caesar — Fri Aug 15, 2003 11:23 am

return random nick from channel nicklist

2003-08-15T10:58:05-04:00

Code:

    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?

Statistics: Posted by Dedan — Fri Aug 15, 2003 10:58 am

return random nick from channel nicklist

2003-08-15T10:13:03-04:00

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.

Statistics: Posted by caesar — Fri Aug 15, 2003 10:13 am

return random nick from channel nicklist

2003-08-15T09:14:37-04:00

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

Code:

    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

Statistics: Posted by Dedan — Fri Aug 15, 2003 9:14 am

return random nick from channel nicklist

2003-08-15T09:10:49-04:00

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

Statistics: Posted by caesar — Fri Aug 15, 2003 9:10 am

return random nick from channel nicklist

2003-08-15T04:39:31-04:00

Tip:

Code:

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:

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)

Statistics: Posted by user — Fri Aug 15, 2003 4:39 am

return random nick from channel nicklist

2003-08-15T01:31:44-04:00

chanlist [flags[&chanflags]]

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

roland

Statistics: Posted by rolandguy — Fri Aug 15, 2003 1:31 am

return random nick from channel nicklist

2003-08-15T01:12:52-04:00

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:

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

Statistics: Posted by caesar — Fri Aug 15, 2003 1:12 am

return random nick from channel nicklist

2003-08-14T16:58:49-04:00

first thing you need is a nicklist...

chanlist [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

Statistics: Posted by rolandguy — Thu Aug 14, 2003 4:58 pm

return random nick from channel nicklist

2003-08-14T17:01:57-04:00

EDIT:

Code:

* censored to train your brain :P *

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

Statistics: Posted by user — Thu Aug 14, 2003 4:57 pm

return random nick from channel nicklist

2003-08-14T16:39:16-04:00

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

Thanks for any help given

Statistics: Posted by Dedan — Thu Aug 14, 2003 4:39 pm