Make a script
see this
proc dcc_massdeop {hand idx arg} {
global botnick
if {[llength $arg] != 1} { putdcc $idx "Usage : .massdeop <#chan>" ; return 0}
set chan [lindex $arg 0]
if {![validchan $chan]} {putdcc $idx "I'm not on $chan." ; return 0}
if {![botisop $chan]} {return 0}
if {![matchattr $hand m|m $chan]} {putdcc $idx "u need to be a master on $chan." ; return 0}
set deoplist ""
set loop 0
foreach chanuser [chanlist $chan] {
if {[isop $chanuser $chan] && $chanuser != $botnick} {
set whohand [nick2hand $chanuser $chan]
if {![matchattr $whohand o|o $chan]} {lappend deoplist $chanuser ; set loop [expr $loop + 1]}
}
if {$loop == 6} { putserv "MODE $chan -oooooo $deoplist" ; set deoplist "" ; set loop 0 }
}
putserv "MODE $chan -oooooo $deoplist"
return 0
}Statistics: Posted by Guest — Mon Apr 15, 2002 10:45 pm
]]>