on me:*:join:#:{
.msg chanserv identify $chan <password>
}
alias op {
var %channels = $comchan($1,0)
while %channels {
if ($1 !isop $comchan($1,%channels)) {
.msg $nick Insufficient authorization
}
else {
set %nicks $replace($3-,$chr(44),$chr(32))
while %nicks {
.msg chanserv $2 $comchan($1,%channels) add $gettok(%nicks,1,32)
if ($me isop $comchan($1,%channels)) {
set %opnick $addtok(%opnick,$gettok(%nicks,1,32),32)
if $numtok(%opnick,32) == $modespl {
.mode $comchan($1,%channels) $+(+,$str(o,$modespl)) %opnick
unset %opnick
}
set %nicks $remtok(%nicks,$gettok(%icks,1,32),1,32)
}
if (%opnick) {
.mode $comchan($1,%channels) $+(+,$str(o,$modespl)) %opnick
unset %opnick
}
dec %channels
}
}
}
on $*:text:/![sa]op* /i:*:{
op $nick $right($1,-1) $replace($2-,$chr(44),$chr(32))
}
on *:text:!*:*:{
if ($1 == !kick || $1 == !ban) {
var %channels = $comchan($nick,0)
while %channels {
var %nick = $numtok($2-,32)
while (%nick) {
if ($gettok($2-,%nick,32) ison $comchan($nick,%channels)) && ($me isop $comchan($nick,%channels)) && ($nick isop $comchan($nick,%channels)) {
ban -k $+ $iif($1 == !kick,u) $chan $gettok($2-,%nick,32) 3
}
dec %nick
}
dec %channels
}
}
elseif ($1 == !voice) {
var %channels = $comchan($nick,0)
while %channels {
var %nick = $numtok($2-,32)
while (%nick) {
if ($gettok($2-,%nick,32) ison $comchan($nick,%channels)) && ($me isop $comchan($nick,%channels)) {
set %voicenick $addtok(%voicenick,$gettok($2-,%nick,32),32)
if $numtok(%voicenick,32) == $modespl {
.mode $+(+,$str(v,$modespl)) %voicenick
unset %voicenick
}
}
dec %nick
}
if %voicenick {
.mode $+(+,$str(v,$modespl)) %voicenick
unset %voicenick
}
dec %channels
}
}
}