wow.tcl timer

[cache]

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: Select all

set wowtime "30"

and

Code: Select all

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" 
  }
}

[incith]

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

Code: Select all

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

Good luck.

[cache]

Thanks, I got it working...