egghelp/eggheads community

wow.tcl timer

2006-03-07T16:20:25-04:00

Thanks, I got it working...

Statistics: Posted by cache — Tue Mar 07, 2006 4:20 pm

wow.tcl timer

2006-03-07T14:26:20-04:00

Just browsing over Tcl docs, you'll likely need to store the ID of the timer.

Code:

set timerID [timer $wowtime "timer:wow"]killtimer $timerIDset timerID [timer $wowtime "timer:wow"]

Good luck.

Statistics: Posted by incith — Tue Mar 07, 2006 2:26 pm

wow.tcl timer

2006-03-07T14:23:22-04:00

Can anyone show me what I can add to kill timer when bot jumps server? like on disconnect..

Because when I use this script and the bot jumps server it adds another 30min timer without killing the old timer..

Code:

set wowtime "30"

and

Code:

proc timer:wow {} {  global botnick wowchan wowtime wowtxt  if { [onchan $botnick $wowchan] } {    set wowfile [open $wowtxt r]    set wowread [split [read $wowfile] \n]    close $wowfile    putserv "PRIVMSG $wowchan :[lindex $wowread [rand [llength $wowread]]] "    timer $wowtime "timer:wow"   }}

Statistics: Posted by cache — Tue Mar 07, 2006 2:23 pm