Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- proc modes:deop {nickname hostname handle channel arguments} {
- if {[botisop $channel]} {
- set length [llength $arguments]
- if {$length < 1} {
- puthelp "MODE $channel -o $nickname"
- } else {
- set deoplist {}
- foreach mask [split $arguments] {
- set mask [lindex [modes:clean $mask] 0]
- foreach user [chanlist $channel] {
- if {[string match -nocase [modes:clean $mask] $user] && [isop $user $channel] &&
- ![isbotnick $user] && ![matchattr $user NP]} {
- lappend deoplist $user
- }
- }
- }
- set count 0
- if {[llength $deoplist] >= 1} {
- while {$count < [llength $deoplist]} {
- putquick "MODE $channel -oooooo [lindex $deoplist $count] [lindex $deoplist [expr $count + 1]] [lindex $deoplist [$
- incr count 6
- }
- }
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement