Random Text Grabber [Solved]

[kris]

Basically, it grabs the text from the variable and displays it, its a simple love script.

Code: Select all

bind pub -|- `random pub_random
proc pub_random {nick host hand channel text} {
global reply
putquick "PRIVMSG $channel \00306* $nick would like to send $text :[lindex $reply [rand [llength $reply]]]"
}
set reply [list "\"A Box of chocolates\"" "\"a single white rose\"" "\"A pile of dog poo\"" "\"Nothing, Dump them!\"" ]

The error it comes up with is:
[00:49] Tcl error [pub_random]: wrong # args: should be "rand"[/code]

[nml375]

Got any scripts that might've renamed rand?
(hint, search all your scripts for "rename rand")

[rosc2112]

You don't need to have the "set reply" outside of the proc, just put it above the putquick. And use this kind of format:

Code: Select all

set reply {
{Whatever reply}
{2nd reply}
{Reply three}
}

That's what I use anyway, there's more than one way to do random stuff like this.

[nml375]

@rosc:
Actually, using [list ...] to generate lists is preferred to trying to craft your own list structures by hand...
Anyway, the error at hand here is that "rand" seems to have been replaced by a different function/proc that does'nt take a "limit"-value

[kris]

ill have a look, ill see what there is to fix, if their is another one ill remove it, ive made a few different ones, but ill try.

Kris