Posted to tcl by vigilant at Fri Dec 14 21:08:23 GMT 2007view raw

  1. proc complain {} {
  2. global services botnick
  3. utimer $services(complaintime) complain
  4. set chan $::channel
  5. puthelp "PRIVMSG $chan :No access to op myself, please op me."
  6. set testtimer ""
  7. foreach testtimer [utimers] {
  8. if {[string match "complain" $testtimer]} {
  9. utimer $services(complaintime) complain
  10. if {[botisop $chan]} {
  11. set killit ""
  12. foreach killit [utimers] {
  13. if {[string equal -nocase complain [lindex $killit 1]]} {
  14. killutimer [lindex $killit 2]
  15. break
  16. }
  17. }
  18. }
  19. }
  20. } }