egghelp/eggheads community

TCL Code help...

2004-08-25T11:57:25-04:00

You have to give it a test to see that out.

Personally I think the eggdrops internal settings are more better and faster than tcl scripts as they are coded in C, which makes them more effective!

problem is if you completely ignore the user for 24 hours he can't trigger other binds

I think the requestor wanted to allow a user to use a command only 5 times every 24 hours, not completely ignore the user after the user issues any msg to the bot 5 times

Statistics: Posted by KevKev — Wed Aug 25, 2004 11:57 am

TCL Code help...

2004-08-23T21:35:48-04:00

You have to give it a test to see that out.

Personally I think the eggdrops internal settings are more better and faster than tcl scripts as they are coded in C, which makes them more effective!

Statistics: Posted by awyeah — Mon Aug 23, 2004 9:35 pm

TCL Code help...

2004-08-23T13:48:49-04:00

hehe, hello agine & agine :]

do you think this script i'v made will help me out?

------------------------------------------------------------

set count 5
set seconds 82800
set channel #test

bind msg * "!test" floodprot

proc floodprot { nick uhost hand } {
global botnick livesaver channel seconds count
if {$nick == $botnick} {return 0}
if {[isop $nick $channel]} {return 0}
lappend livesaver($uhost:$nick) 1
utimer $seconds "expire livesaver($uhost:$nick)"
if {[llength $livesaver($uhost:$nick)] >= $count} {
putserv "PRIVMSG $nick :You have used the command 5times this day"
}
}

--------------------------------------------------------

Statistics: Posted by Guest — Mon Aug 23, 2004 1:48 pm

TCL Code help...

2004-08-23T07:00:51-04:00

Yes you can set the ignore for 24hrs. See the 'newignore' command in tcl-commands.doc and change the ignore time as you wish.

As, 1hr = 60 mins
24hrs = 24x60mins = 1440mins

Then you will need to set 1440 to make it 24hrs.
As for the 5 times yes you can set that too.

See the 'flood-msg' variable in the .conf file.
The format of this is:
NUMBER_OF_LINES:SECONDS

Example: '5:3'
Meaning if, 5 lines of text are sent by a single host to the bot in less than 3 seconds then the bot will ignore that user for the defined amount of time set.

Statistics: Posted by awyeah — Mon Aug 23, 2004 7:00 am

TCL Code help...

2004-08-23T06:40:14-04:00

hehe okey

But can i set that timer to 24hrs?
So the bot 'ignores' the users for 24hrs?
When thay have type the command 5times?

Statistics: Posted by Guest — Mon Aug 23, 2004 6:40 am

TCL Code help...

2004-08-23T00:08:49-04:00

Try looking at the flood-msg settings in the bots .conf file.
Set that to 5 times in less than bla bla seconds you want

And take a look at this thread as well:
http://forum.egghelp.org/viewtopic.php?t=7750

Statistics: Posted by awyeah — Mon Aug 23, 2004 12:08 am

flood...

2004-08-22T15:21:29-04:00

Hello agine. Thanx for helping last time i asked for help..

this time i need a "anti flood system"

So users only can use that command 5times/day

If someone can help me out! pls post a message.

Statistics: Posted by Guest — Sun Aug 22, 2004 3:21 pm

TCL code help

2004-08-21T17:29:21-04:00

Here's what you asked for. This script will run everytime someone sends your bot a message with !test as it's first word. Remember that if whatever follows the number is made up of multiple words, the second method presented is useless.

Code:

bind msg - !test testproc test {nick uhost hand chan text} {   # Now we've got to extract the first word from the   # text variable and put it into our number variable.   # This is the most commonly used approach:   set text [split $text]   set number [lindex $text 0]   set text [lrange $text 1 end]   # However, if the text following the number does    # not contain further words, an alternative one-liner   # would be as following:   foreach {number text} [split $text] { break }}

Example usage would be:

/msg botname !test 42 white

Statistics: Posted by Guest — Sat Aug 21, 2004 5:29 pm

TCL Code help...

2004-08-21T16:46:26-04:00

Hello ppls, i need some help with a tcl script...

this is an example:

bind msg * "!test" test

proc test { nick host handle args } {
global botnick
set number
set text
}

this means...like:
/msg BOTNICK !test 0456 hello

i think you see how i want it...

Hope you can help me out!

Statistics: Posted by Guest — Sat Aug 21, 2004 4:46 pm