1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
alias scan { if (!$regex($1,/L|Q|G|S)) && ($1 != $me) && ($1 != $2) { return $1 } }
on *:text:§hostdeop &:#:{
if ($me isop $chan) && ($me isop $chan) {
var %x = 1
while ($ialchan($2,$chan,%x).nick) {
if ($v1 isop $chan) && ($scan($v1,$nick)) {
set % $+ $chan % [ $+ [ $chan ] ] $v1
if ($modespl // $numtok(% [ $+ [ $chan ] ],32)) {
mode $chan $+(-,$str(o,$v1)) % [ $+ [ $chan ] ]
unset % [ $+ [ $chan ] ]
}
}
inc %x
}
if (% [ $+ [ $chan ] ]) {
mode $chan $+(-,$str(o,$numtok(% [ $+ [ $chan ] ],32))) $v1
unset % [ $+ [ $chan ] ]
}
}
} |