bind pub -|- .timer timer_set
bind pub -|- .killtimer timer_kill
proc timer_set {nick host hand chan arg} {
if {![validuser $hand]} {return}
global url pathqstat cc nopub timer
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv notice $nick "To Use Do .Timer msg #Chan Message"
return 0
}
set timer1 "$arg"
putserv "PRIVMSG $nick :Timer Has Ben STARTED"
timer 5 :$timer1"
}
proc timer_kill {nick host hand chan arg} {
if {![validuser $hand]} {return}
global url pathqstat cc nopub timer_kill
if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}
if {$arg == ""} {
putserv notice $nick "To Use Do .Timer Number Of Timer To Kill"
return 0
}
set killtimer "$arg"
killtimer "$arg"
}Statistics: Posted by Carnage69 — Sat Jun 28, 2003 5:08 am
]]>