Advertisement
outsider

simple idedeop script

Nov 21st, 2011
354
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 0.71 KB | None | 0 0
  1. # To use: .chanset <channel> +idledeop idledeop_timeout <amount in minutes>
  2. # To excempt/protect users, add them +B in the bot
  3.  
  4. setudef flag idledeop
  5. setudef int idledeop_timeout
  6. bind time - "* * * * *" idledeop
  7. proc idledeop {min hours day month year} {
  8.     foreach chan [channels] {
  9.         if {![channel get $chan idledeop]} { continue }
  10.         if {[channel get $chan idledeop_timeout] == 0} {
  11.             putlog "idledeop_timeout not set for $chan. Please use .chanset $chan idledeop_timeout <value in minutes>"
  12.             continue
  13.         }
  14.         foreach member [chanlist $chan -B] {
  15.             if {[getchanidle $member $chan] >= [channel get $chan idledeop_timeout] && [isop $member $chan]} {
  16.                 pushmode $chan -o $member
  17.             }
  18.         }
  19.         flushmode $chan
  20.     }
  21. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement