egghelp/eggheads community

Xpert wrote:

ZeleD wrote:if {$type == "pub"} {

Sorry, my mistake.

No problem m8.... Found the error..... Still, you get the credit for the main thing

Should anyone need such a script I will post here as the one posted by xpert was faulty. # Enter channels list set channels [list "channel" "channel"] bind flud - * flooded proc flooded {nick uhost handle type channel} { global channels set chan [string tolower $channel] if {$typ...

YooHoo wrote:and setting set ban-time 5 in the conf file wouldn't do this exact thing, without the need for the script, as you originally asked?

No, as the bot only kicks the user

Thanks alot m8.

You just spared me a great time

Xpert wrote:Well, for that i think you need a TCL script.

Okay, thought so....

any clues on how to detect the flooding event ?

Well yes.

I have

.chanset #channel 5:20

This way users sending 5 or more messages will kick the user.....

But I want the user banned for 5 minutes.

Is there a way ban flooders without scripting ?

I want to temp. ban users who violate my flooding settings.

I know theres severel scripts out there, but as I tend to use my own scripts (that way I know why it fails ) and want to know if it can be done without scripting

This little test with timers give an error: Tcl error in script for 'timer46': can't read "looptimer": no such variable set trigger "0" set looptimer "1" if {![info exists timer_set]} { set timer_set [timer $looptimer "timer:action"] } proc timer:action {} { g...

Inserting a "proc" infront the showcommands { solved it. Thanxs Yeah, found it... BUT putlog "Starting testscript" bind pub - !commands showcommands showcommands {nick uhost hand chan msg} { putserv "NOTICE $nick : You suck" } Doesn't change anything still says Tcl erro...

Yeah, found it... BUT putlog "Starting testscript" bind pub - !commands showcommands showcommands {nick uhost hand chan msg} { putserv "NOTICE $nick : You suck" } Doesn't change anything still says Tcl error [script:load]: no value given for parameter "hand" to "sh...

putlog "Starting testscript" bind pub - !commands showcommands showcommands {nick uhost hand chan} { putserv "NOTICE $nick : blablablabla" } This gives Tcl error [script:load]: no value given for parameter "hand" to "showcommands" What is wrong ?