horgh_autoop.tcl 487 B

123456789101112131415161718192021
  1. # Auto op script. Ops everyone in channels set +horgh_autoop
  2. #
  3. #
  4. # Last change Sat Nov 15 17:18:29 PST 2008
  5. #
  6. # Created Thu Oct 23 18:32:36 PDT 2008
  7. # By horgh
  8. namespace eval horgh_autoop {
  9. variable output_cmd putserv
  10. setudef flag horgh_autoop
  11. bind join -|- * horgh_autoop::horgh_autoop
  12. }
  13. proc horgh_autoop::horgh_autoop {nick host hand chan} {
  14. if {![channel get $chan horgh_autoop]} { return }
  15. $horgh_autoop::output_cmd "MODE $chan +o $nick"
  16. }
  17. putlog "horgh_autoop.tcl loaded"