Posted to tcl by vigilant at Fri Dec 14 21:08:23 GMT 2007view raw
- proc complain {} {
- global services botnick
- utimer $services(complaintime) complain
- set chan $::channel
- puthelp "PRIVMSG $chan :No access to op myself, please op me."
- set testtimer ""
- foreach testtimer [utimers] {
- if {[string match "complain" $testtimer]} {
- utimer $services(complaintime) complain
- if {[botisop $chan]} {
- set killit ""
- foreach killit [utimers] {
- if {[string equal -nocase complain [lindex $killit 1]]} {
- killutimer [lindex $killit 2]
- break
- }
- }
- }
- }
- } }