egghelp/eggheads community

TCL flood (help)

2006-04-12T03:08:46-04:00

well actually your point is valid... that's why I learned Tcl and wrote the scripts I needed - I was (and still am) too lazy to research other peoples' scripts

Statistics: Posted by demond — Wed Apr 12, 2006 3:08 am

TCL flood (help)

2006-04-10T12:51:59-04:00

You should be ashame demond, how do you dare and hope he will ever bother reading your commens, or any other comment in any other script.

Statistics: Posted by caesar — Mon Apr 10, 2006 12:51 pm

TCL flood (help)

2006-04-10T11:56:50-04:00

*sigh*

you people want your exact "command" for everything - it doesn't work this way - you read and try to comprehend the manual first, and only then decide whether the thing would work for you or not

had you bothered to read & understand the script's doc header, you'd know that xchannel allows you to define specific actions for each consequent offense - so you can use warnings for 1st & 2nd and kick/ban for 3rd (maybe I should add no action as separate entity)

Statistics: Posted by demond — Mon Apr 10, 2006 11:56 am

TCL flood (help)

2006-04-10T06:10:43-04:00

xchannel can't help me, becouse i need:

when ppl say "badwords" (the eggdrop put kickban, only when user say "badwords" 3 or more times );

and the xchannel.tcl haven't this comand

Statistics: Posted by fauves — Mon Apr 10, 2006 6:10 am

TCL flood (help)

2006-04-10T04:12:19-04:00

one properly implemented script that does what you want is xchannel

Statistics: Posted by demond — Mon Apr 10, 2006 4:12 am

TCL flood (help)

2006-04-09T14:49:48-04:00

Hello,

I have this tcl, but i want:

-when ppl say "badwords" (the eggdrop put kickban, only when user say "badwords" 3 or more times )

example:

* fauves play ...
* fauves on ...
* fauves 0n ...

#eggdrop put kickban

* fauves asdsasad ...
* fauves asdsadsd ...
* fauves sdfsdfdfs ...

#eggdrop don't put kickban

Code:

set count 3                                                               set seconds 30                                                             set allow ""                                                               set channels "#SCP" set badwords {  "*play*"   "on*"   "0n*"   "*ouvir*"   "*ouve" }bind ctcp - ACTION floodprotproc floodprot { nick uhost hand chan key arg } {  global botnick livesaver actionflood allow channels seconds count badwords   if {$nick == $botnick} {return 0}  if {[lsearch -exact $channels $chan] == -1} {return 0}  if {[isop $nick $chan]} {return 0}  lappend livesaver($uhost:$chan) 1  utimer $seconds "expire livesaver($uhost:$chan)"  if {[llength $livesaver($uhost:$chan)] >= $count} {    putserv "KICK $chan $nick :You cannot use more than $count /me in $seconds secs"  }}proc expire var_exp {  upvar $var_exp var_pointer  if {[llength $var_pointer] > 1} {    set var_pointer [lrange $var_pointer 1 end]  } else {    unset var_pointer  }}

Please help me , thanks very much

Statistics: Posted by fauves — Sun Apr 09, 2006 2:49 pm