stop posts on chan.

[heartbroken]

slt..hi.
first i've tried like this :

Code :

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 1 [list puthelp "PRIVMSG $chan :message"]]]
             set foo_status(2) [list [utimer 3 [list puthelp "PRIVMSG $chan :message 1"]]]
             set foo_status(3) [list [utimer 5 [list puthelp "PRIVMSG $chan :message 2"]]]
             set foo_status(4) [list [utimer 7 [list puthelp "PRIVMSG $chan :message 3"]]]
         }
     }
}
proc stop_foo {nick uhost hand chan text} {
     global foo_status
     if {[array exists foo_status]} {
      foreach tId [list 1 2 3 4] { killutimer $foo_status[$tId] }
     array unset foo_status
     }
}

than i tried to add another line like:

Code :

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 1 [list puthelp "PRIVMSG $chan :message"]]]
            set foo_status(2) [list [utimer 3 [list puthelp "PRIVMSG $chan :message 1"]]]
            set foo_status(3) [list [utimer 5 [list puthelp "PRIVMSG $chan :message 2"]]]
            set foo_status(4) [list [utimer 7 [list puthelp "PRIVMSG $chan :message 3"]]]
            set foo_status(5) [utimer 8 [list array unset ::foo_status]]
        }
    }
}
proc stop_foo {nick uhost hand chan text} {
    global foo_status
    if {[array exists foo_status]} {
        foreach tld [list 1 2 3 4 5] { killutimer $foo_status($tld) }
        array unset foo_status
    }
}

but still nuthin. no any error within !start or !stop cmds.and no any action with'em on channel...

i guess i'm gonna give up ...

i wanna thank you for your patience and for your advance.
i realy appreciated for your help thanks anyway CrazyCat ^^