egghelp/eggheads community

A small adjustment

2011-06-22T03:20:33-04:00

Works great! thanks speechless!

Statistics: Posted by Football — Wed Jun 22, 2011 3:20 am

A small adjustment

2011-06-16T21:33:12-04:00

Code:

# Channelvariable opchan "#Football"# build your exempt list here, use lowercase for matching purposes.variable exempted_from_deop [list "nick1" "nick2" "nick3" "etc"]# Idle time in minutesvariable idletime 60bind time - "* * * *" deop_userif {![info exists oplist]} { set oplist "" }proc deop_user {a b c d e} {global opchan idletime oplist exempted_from_deopset users [lrange [chanlist $opchan] 1 end]foreach user $users {if {[getchanidle $user $opchan] >= $idletime && [isop $user $opchan] && ![isbotnick $user] && [lsearch -exact $exempted_from_deop [string tolower $user]] == -1} {# Oprotate exemption: check if the user is a qualified op. If he/she is then check if without them there# would be any qualified ops left. If not, then do not deop the user (requires oprotate.tcl to be loaded)if {[namespace exists oprotate] && [channel get $opchan oprotate] && [oprotate::user_is_qualified_op $opchan $user] && [oprotate::find_best_qualified_op $opchan $user] == ""} {# You can remove the line below (the putlog, not the return!) if this message is too spammy Winkputlog "oprotate/deop: Not going to deop $user in $opchan because they are the only qualified op left."return}pushmode $opchan "-o" $userlappend oplist [getchanhost $user $opchan]} elseif {[getchanidle $user $opchan] < $idletime && ![isop $user $opchan] && [lsearch -exact $oplist [getchanhost $user $opchan]] != -1} {pushmode $opchan "+o" $user}}}########################################################################################defeatWordWrap########################################################################################

Statistics: Posted by speechles — Thu Jun 16, 2011 2:10 pm

A small adjustment

2011-06-16T11:47:42-04:00

Hey, need a small adjustment for this script.

Need an exception for someone using the nick 'ZoD' i.e. the bot won't deop him no matter how long he's idle. please help.

Code:

# Channelvariable opchan "#Football" # Idle time in minutesvariable idletime 60bind time - "* * * *" deop_userif {![info exists oplist]} { set oplist "" }proc deop_user {a b c d e} {    global opchan idletime oplist    set users [lrange [chanlist $opchan] 1 end]    foreach user $users {        if {[getchanidle $user $opchan] >= $idletime && [isop $user $opchan] && ![isbotnick $user]} {            # Oprotate exemption: check if the user is a qualified op. If he/she is then check if without them there            # would be any qualified ops left. If not, then do not deop the user (requires oprotate.tcl to be loaded)            if {[namespace exists oprotate] && [channel get $opchan oprotate] && [oprotate::user_is_qualified_op $opchan $user] && [oprotate::find_best_qualified_op $opchan $user] == ""} {                                # You can remove the line below (the putlog, not the return!) if this message is too spammy ;)                putlog "oprotate/deop: Not going to deop $user in $opchan because they are the only qualified op left."                return            }            pushmode $opchan "-o" $user            lappend oplist [getchanhost $user $opchan]        } elseif {[getchanidle $user $opchan] < $idletime && ![isop $user $opchan] && [lsearch -exact $oplist [getchanhost $user $opchan]] != -1} {            pushmode $opchan "+o" $user        }    }}

Statistics: Posted by Football — Thu Jun 16, 2011 11:47 am