randomly picks from a list

badfreman · Post by **badfreman** » Fri May 10, 2002 12:30 am

i have a list of about 20 words and wish to be able to pick 1 at random and add it to some fixed text being sent to $chan how would i got about this

Wcc · Post by **Wcc** » Fri May 10, 2002 1:09 am

Code: Select all

set rand [lindex $list [rand [llength $list]]]

badfreman · Post by **badfreman** » Fri May 10, 2002 1:31 pm

what is wrong with this i get
Tcl error [fosters]: can't read "rand": no such variable

set list {
"cool"
"cold"
"refreshing"
"delightfull"
"beautifull"
"splended"
"stunning"
"wicked"
"tastfull"
"nice"
"wonderfull"
"magnificent"
"georgious"
"lovely"
"class"
}

set rand [lindex $list [rand [llength $list]]]
bind pub - !fosters fosters
proc fosters {nick host handle chan text} {
puthelp "PRIVMSG $chan :01ACTION gives 4$nick 12a $rand pint of fosters"
}

badfreman · Post by **badfreman** » Fri May 10, 2002 1:50 pm

not to worry i have found the answear in a previous post

set list {
"cool"
"cold"
"refreshing"
"delightfull"
"beautifull"
"splended"
"stunning"
"wicked"
"tastfull"
"nice"
"wonderfull"
"magnificent"
"georgious"
"lovely"
"class"
}

bind pub - !fosters fosters
proc fosters {nick host handle chan text} {
global list
puthelp "PRIVMSG $chan :01ACTION gives 4$nick 12a [lindex $list [rand [llength $list]]] pint of fosters"
}

Wcc · Post by **Wcc** » Fri May 10, 2002 1:55 pm

You didn't global the 'rand' variable

badfreman · Post by **badfreman** » Fri May 10, 2002 3:30 pm

thanks for you help this in my script has realy improved my script