egghelp/eggheads community

Send message to a channel with a delay (it's complex)

2006-06-23T19:46:58-04:00

Garp,

When talking about the checking in cleanup, is this what you mean?

Code:

bind time - "00 *" clean:requestcacheproc clean:requestcache {{args ""}} {set limit [expr [lindex [split $requestcache($nick)] 0] - (3600 * 24)]   foreach {x y} [array get requestcache] {      if {$y <= $limit } {        unset talkusers($x)              }   }}

Or am I way off?

Thanks,

-Noah

Statistics: Posted by aliby — Fri Jun 23, 2006 7:46 pm

Send message to a channel with a delay (it's complex)

2006-06-23T19:32:47-04:00

Code:

if {![info exists requestcache($nick)]} {        set response "Please use #findscrim to find scrims"        set requestcache($nick) "[unixtime] 0"} else {set requests [lindex [split $requestcache($nick)] 1]if { ($requests >= 3) } {#kick ban ... whatever}incr requestsset requestcache($nick) "[unixtime] $requests"}

On cleanup you need to check for [lindex [split $requestcache($nick)] 0] where you have the timestamp.

Statistics: Posted by Garp — Fri Jun 23, 2006 7:32 pm

Send message to a channel with a delay (it's complex)

2006-06-23T19:16:18-04:00

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

Statistics: Posted by aliby — Fri Jun 23, 2006 7:16 pm

Send message to a channel with a delay (it's complex)

2006-06-23T10:21:46-04:00

You would need to timestamp the handled nicks.

Code:

array set requestcache {}proc helptext {nick uhost hand chan text} {global botnick requestcache ...if [regexp {(\dv\d|\d v \d).*(\your|\yyour)} $helptext] {    if {![info exists requestcache($nick)]} {        set response "Please use #findscrim to find scrims"        set requestcache($nick) [unixtime]         } else {        putserv "KICK $chan $nick :We already had that"                     set requestcache($nick) [unixtime]        return     } }

And you need a function that cleans the timestamped nicks all hours

Code:

bind time - "00 *" clean:requestcacheproc clean:requestcache {{args ""}} {global requestcacheset limit [expr [unixtime] - (3600 * 24)] foreach {x y} [array get requestcache] {  if { $y <= $limit } {   unset talkusers($x)  } }}

Oh damn, you want to kick on the 3th request? This here kicks within the 2nd ) sorry for being uncondensated.

Statistics: Posted by Garp — Fri Jun 23, 2006 10:21 am

Send message to a channel with a delay (it's complex)

2006-06-23T09:49:27-04:00

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

Statistics: Posted by aliby — Fri Jun 23, 2006 9:49 am

Send message to a channel with a delay (it's complex)

2006-06-23T08:32:33-04:00

just move the flock setting to the portion of the code you want to protect.

Statistics: Posted by Garp — Fri Jun 23, 2006 8:32 am

Send message to a channel with a delay (it's complex)

2006-06-23T01:13:14-04:00

Grim,

I only want that to work for the one output statement though... Not the other one. I have also updated the code:

Code:

bind pubm - * helptext proc helptext {nick uhost hand chan text} {global botnickset response defaultset admin 0set helptext [string tolower $text]if {[isop $nick $chan] == 0} {   if [regexp {((admin|op).*(\ypm|\yaround|\yneed|\yhere))|((\ypm|\yaround|\yneed|\yhere).*(admin|op))} $helptext] {           set response "Please ask your question in the channel."        }   if [regexp {(\dv\d|\d v \d).*(\your|\yyour)} $helptext] {         set response "Please use #findscrim to find scrims"      }#there is more that goes here, but i'll skip that   if {![regexp {default} $response]} {putmsg $chan "$response"}}

Any thoughts?

-Noah[/code]

Statistics: Posted by aliby — Fri Jun 23, 2006 1:13 am

Send message to a channel with a delay (it's complex)

2006-06-22T19:32:31-04:00

set a lock. For example like this here:

Code:

bind pubm - * helptextset helpflock 0proc helptext {nick uhost hand chan text} {global helpflockset response defaultif [string match $helpflock 1] { return }set helpflock 1set notagain 4;# change this to a value in secounds that fits your needset helptext [string tolower $text]    if [regexp {(admin|op|pm).*(admin|op|pm)} $helptext] {    set response "Please ask your question in the channel before asking an admin/op to PM you."    }    if {[regexp {(\dv\d|\d v \d).*(our|your)} $helptext]  {    set response "Please use #findscrim to find scrims"       }    if ![regexp -nocase {default} $response] {    putmsg $chan "\002\037$nick:\037\002 $response"    }utimer $notagain "set helpflock 0"}

Untested

Statistics: Posted by Garp — Thu Jun 22, 2006 7:32 pm

Send message to a channel with a delay (it's complex)

2006-06-22T13:06:07-04:00

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:

Code:

bind pubm - * helptext proc helptext {nick uhost hand chan text} {set response defaultset helptext [string tolower $text]   if [regexp {(admin|op|pm).*(admin|op|pm)} $helptext] {           set response "Please ask your question in the channel before asking an admin/op to PM you."        }   if [regexp {(\dv\d|\d v \d).*(our|your)} $helptext] {         set response "Please use #findscrim to find scrims"      }if ![regexp -nocase {default} $response] {putmsg $chan "\002\037$nick:\037\002 $response"}}

Statistics: Posted by aliby — Thu Jun 22, 2006 1:06 pm