egghelp/eggheads community

Garp, When talking about the checking in cleanup, is this what you mean? bind time - "00 *" clean:requestcache proc clean:requestcache {{args ""}} { set limit [expr [lindex [split $requestcache($nick)] 0] - (3600 * 24)] foreach {x y} [array get requestcache] { if {$y <= $limit } ...

Garp

How would you make it so that if you repeated 3 or 4 or 5 times in 24 hours, it would kick the person?

What about 3 or 4 or 5 in 1 hour?

Basically I'd just like to have an explanation of how the code works so that I can understand it and use it again sometime.

Thanks,

-Noah

Garp,

Thanks! That worked beautifully.

Now I have another question. If the bot has to tell the same person ($nick) to use #findscrim more than 3 times, I would like the bot to kick the person.

And by 3 times I mean 3 times in one day.

How would I go about doing that?

-Noah

Grim, I only want that to work for the one output statement though... Not the other one. I have also updated the code: bind pubm - * helptext proc helptext {nick uhost hand chan text} { global botnick set response default set admin 0 set helptext [string tolower $text] if {[isop $nick $chan] == 0} {...

Hello, I want to have my tcl script post a message to the channel if a user's text matches my regexp. Here is the script i have so far: bind pubm - * helptext proc helptext {nick uhost hand chan text} { set response default set helptext [string tolower $text] if [regexp {(admin|op|pm).*(admin|op|pm)...