18/11/2012, 11:39
Well, your timers'ID aren't 1 to 4, you must store the [list [utimer ....]] in foo_status.
tcl
bind pub - !start foo_start
bind pub - !stop stop_foo
proc foo_start {nick uhost hand chan text} {
if {![isop $nick $chan]} {
global foo_status
if {![array exists foo_status]} {
set foo_status(1) [list [utimer 15 [list puthelp "PRIVMSG $chan :message"]]]
set foo_status(2) [list [utimer 25 [list puthelp "PRIVMSG $chan :message 1"]]]
set foo_status(3) [list [utimer 35 [list puthelp "PRIVMSG $chan :message 2"]]]
set foo_status(4) [list [utimer 45 [list puthelp "PRIVMSG $chan :message 3"]]]
}
}
}
proc stop_foo {nick uhost hand chan text} {
global foo_status
foreach timer [list 1 2 3 4] { killutimer $foo_status[$timer] }
array unset foo_status
}