rendered paste body;Mass commands
;Use /mass +o/-o +v/-v ...
alias mass {
if ($me !isop #) {
echo -a Error : You are not op on $chan
}
else {
if ($regex($1,/\Q+v\E/i) == 1) {
echo -a +V
var %x 1
while %x <= $nick(#,0,r) {
set %x.nick %x.nick $nick(#,%x,r)
if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
inc %x
}
if %x.nick { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
}
if ($regex($1,/\Q-v\E/i) == 1) {
var %x 1
while %x <= $nick(#,0,v) {
set %x.nick %x.nick $nick(#,%x,v)
if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
inc %x
}
if %x.nick { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
}
if ($regex($1,/\Q+o\E/i) == 1) {
var %x 1
while %x <= $nick(#,%x,a) {
set %x.nick %x.nick $nick(#,%x,a)
if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
inc %x
}
if %x.nick { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
}
if ($regex($1,/\Q-o\E/i) == 1) {
var %x 1
while %x <= $nick(#,%x,o) {
set %x.nick %x.nick $remove($nick(#,%x,o),$me)
if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
inc %x
}
if %x.nick { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
}
}