| View previous topic :: View next topic |
| Author |
Message |
Football
Master
Joined: 26 Dec 2008
Posts: 205
Location: Quakenet, #Football
|
 Posted: Thu Jun 16, 2011 11:47 am Post subject: A small adjustment |
 |
|
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: | # Channel
variable opchan "#Football"
# Idle time in minutes
variable idletime 60
bind time - "* * * *" deop_user
if {![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
}
}
}
|
_________________
Idling at #Football, Quakenet. |
|
| Back to top |
|
 |
speechles
Revered One
Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)
|
| Posted: Thu Jun 16, 2011 2:10 pm Post subject: |
|
|
| Code: | # Channel
variable opchan "#Football"
# build your exempt list here, use lowercase for matching purposes.
variable exempted_from_deop [list "nick1" "nick2" "nick3" "etc"]
# Idle time in minutes
variable idletime 60
bind time - "* * * *" deop_user
if {![info exists oplist]} { set oplist "" }
proc deop_user {a b c d e} {
global opchan idletime oplist exempted_from_deop
set 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 Wink
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
}
}
}
########################################################################################defeatWordWrap######################################################################################## |
_________________
speechles' eggdrop tcl archive
Last edited by speechles on Thu Jun 16, 2011 9:33 pm; edited 2 times in total |
|
| Back to top |
|
|
Football
Master
Joined: 26 Dec 2008
Posts: 205
Location: Quakenet, #Football
|
| Posted: Wed Jun 22, 2011 3:20 am Post subject: |
|
|
Works great! thanks speechless!
_________________
Idling at #Football, Quakenet. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
