script.quakenet.org/paste

Id: 384; Nick: Len; Timestamp: 2007-05-26 21:05:56; Pasted as: mIRC
Description: biNDi

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 ] ]
    }
  }
}

Parsed for bracket errors and indented:

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 ] ]
    }
  }
}

Options: New, Download, , mIRC Parser;