egghelp/eggheads community

Select a random part of the variable

2009-03-02T03:54:13-04:00

Done the anti-flood system (based on some other scripts I had here )

Statistics: Posted by Fill — Mon Mar 02, 2009 3:54 am

Select a random part of the variable

2009-03-01T14:27:10-04:00

thanks. worked

Now I'd like to add an anti-flood system.

This works with a command (!duck), and I want the bot to set a 5 minutes ignore if a certain host (*!*@host) sends more than 1 !duck in 10 seconds. How can I make this?

Statistics: Posted by Fill — Sun Mar 01, 2009 2:27 pm

Select a random part of the variable

2009-03-01T08:08:56-04:00

Code:

global duck(list)

You cannot global only one element of the array, you must global the entire array.

Code:

global duck

Statistics: Posted by speechles — Sun Mar 01, 2009 8:08 am

Select a random part of the variable

2009-03-01T06:12:07-04:00

got an error message with the created list:

[Sun-10:13:01am] « RoBotX » [10:13] Tcl error [testing]: bad variable name "duck(list)": upvar won't create a scalar variable that looks like an array element

It is now like this:

Code:

set duck(list) [list \"Message 1" \"Message 2" \"Message 3" \"Message 4" \"Message 5" \"Message 6" \"Message 7" \"Message 8" \"Message 9" \"Message 10" \"Message 11" \]proc testing { nick uhost hand chan args } {global duck(list)set message [lindex $duck(list) [rand [llength $duck(list)]]]puthelp "PRIVMSG $chan :\001ACTION $message"}

But I get that message in dcc session :/

Statistics: Posted by Fill — Sun Mar 01, 2009 6:12 am

Select a random part of the variable

2009-03-01T05:26:31-04:00

ahmm I see, so my list is a pseudo-list

A normal and correct list would be something like nml375 posted? Thanks for the tips. I guess I'll try to make a REAL list, I didn't know my list was incorrect

Once again, I appreciate a lot your help nml375 and speechles

See ya

Statistics: Posted by Fill — Sun Mar 01, 2009 5:26 am

Select a random part of the variable

2009-02-28T18:41:51-04:00

Another workaround would be to define the list properly, in which case you would'nt get any empty elements (yet perhaps a bit uglier code)

Code:

set duck(list) [list \"Message 1" \"Message 2" \"Message 3" \"Message 4" \"Message 5" \"Message 6" \"Message 7" \"Message 8" \"Message 9" \"Message 10" \"Message 11" \]set message [lindex $duck(list) [rand [llength $duck(list)]]]

Statistics: Posted by nml375 — Sat Feb 28, 2009 6:41 pm

Select a random part of the variable

2009-02-28T18:30:27-04:00

Code:

while {![string length [set message [lindex $duck(list) [rand [llength $duck(list)]]]]]} { }

That would do it. The main reason to use the while and checking for string length is because the first and last entries in your pseudo list are going to be empty strings (nulls) and obviously we want to avoid those. This is why I'm nesting an empty field after the while, because we are using the set command to set the message within the while statement, so the loop which runs really doesn't need to do anything (it's why its { }) except run the while check over and over until we have a string with length to it.

Conversely, you can use expr to remove the first and last elements from the length of your pseudo list (-2) and then run rand over that and add one (+1) to the outcome which will work exactly as the while loop does above, skipping the first and last empty entries.

Code:

set message [lindex $duck(list) [expr {[rand [llength $duck(list) - 2]] + 1}]]

Statistics: Posted by speechles — Sat Feb 28, 2009 6:30 pm

Select a random part of the variable

2009-02-28T18:15:10-04:00

Hey guys, here I am asking for your help --> *again* ^^

I have a variable like this:

Code:

set duck(list) {"Message 1""Message 2""Message 3""Message 4""Message 5""Message 6""Message 7""Message 8""Message 9""Message 10""Message 11"etc etc...}

How can I make the bot read RANDOMLY one of the messages in variable $duck(list)?
Oh, and no, I can't have the messages in a *.txt file, because those messages have other variables in their content, so if they were saved in a file, the variables wouldn't be read and something like this would happen:

Code:

[Sat-10:10:42pm] « @RoBotX » You should have gone here: $bgl

Once again, thanks in advance for the help.

Statistics: Posted by Fill — Sat Feb 28, 2009 6:15 pm