egghelp/eggheads community

Timer Help

2005-04-17T10:04:49-04:00

Type: .tcl timers in partyline.

Make sure your dcc:tcl unbind is commented with an '#' infront in the bots .conf file, so the '.tcl' trigger in dcc works.

Statistics: Posted by awyeah — Sun Apr 17, 2005 10:04 am

Timer Help

2005-04-17T09:59:03-04:00

I left alot out because it is a lot of code and I don't have it all at work with me. The main part that I am concerned with is that the initial timer is being run each time I rehash my bot creating multiple instances which gets annoying because it messages the channel, so if I rehash the bot instead of getting a message every 30 minutes I might get one every 15 minutees depending on how long the previous timer has been running.

Does that make sense?

What is an easy way to see all timers that are active and running?

Statistics: Posted by Esoteric — Sun Apr 17, 2005 9:59 am

Timer Help

2005-04-17T09:54:57-04:00

Your proc doesn't seem to be correct, what's $var ?

Statistics: Posted by Sir_Fz — Sun Apr 17, 2005 9:54 am

Timer Help

2005-04-17T09:38:32-04:00

So put that code in instead of the first if statement and that does a search for a prexisting timer associated with start right? And if it doesn't find out then executes code where the comment is?

-Erik

Statistics: Posted by Esoteric — Sun Apr 17, 2005 9:38 am

Timer Help

2005-04-17T08:49:59-04:00

Code:

foreach timer [timers] { if {![string equal -nocase "start" [lindex [split $timer] 1]]} {  #there is no timer for proc start. }}

Statistics: Posted by Sir_Fz — Sun Apr 17, 2005 8:49 am

Timer Help

2005-04-17T08:33:17-04:00

I seem to be having an issue with .rehash and my script that I have that uses timers. I read somewhere, not sure where, that by doing the first if statement that it would keep the initial timer from being started again upon a rehash. What happens is that every time I rehash I get a new instance so I get my message printing to a channel more then every thirty minutes if $var = 1. I will get it like 3 times every 30 minutes.

Please help.

Code:

if {![info exists $running]} {  timer 05 start  set running 1}proc timer:start { } { #proc code here if {$var == 1} {   timer 30 start   putserv "PRIVMSG #channel : Message" } else {   timer 05 start }}

Statistics: Posted by Esoteric — Sun Apr 17, 2005 8:33 am