raw 324:*: {
  if (, $+ $2 $+ , isin , $+ $replace(%activatedchannels,$chr(32),$chr(44)) $+ ,) {
    if ((%channelmodes. [ $+ [ $2 ] ] !== $3-) && (!%modern) && (%modez. [ $+ [ $2 ] ])) {
      set %modez %modez. [ $+ [ $2 ] ]
      set %modern 2
      while (%modern <= $len($3)) {
        if ($mid($3,%modern,1) !isincs %channelmodes. [ $+ [ $2 ] ]) {
          set %modern.min %modern.min $+ $mid($3,%modern,1)
        }
        inc %modern
      }
      unset %spec.mode
      unset %modern
      if ((, $+ %savedauth. [ $+ [ $2 ] $+ ] . [ $+ [ %modez ] ] $+ ,) && (, $+ %savedauth. [ $+ [ $2 ] $+ ] . [ $+ [ %modez ] ] $+ , isin , $+ $replace(%Owners. [ $+ [ $2 ] ],$chr(32),$chr(44)) $+ ,) && (%Owners. [ $+ [ $2 ] ])) { set %channelmodes. [ $+ [ $2 ] ] $3- | notice %modez Setting Change: Channel modes have been changed to: %channelmodes. [ $+ [ $2 ] ] }
      else {
        if (%modechange. [ $+ [ $2 ] $+ ] . [ $+ [ %modez ] ] == 2) { mode $2 -o %modez | kick $2 %modez }
        inc -u30 %modechange. [ $+ [ $2 ] $+ ] . [ $+ [ %modez ] ]
        if (k isincs $3) {
          mode $2 - $+ $mid($3,2) $5 $4
          mode $2 %channelmodes. [ $+ [ $2 ] ]
        }
        else { mode $2 - $+ %modern.min $+ %channelmodes. [ $+ [ $2 ] ] }
      }
      unset %modern.min
      unset %modez
      unset %modez. [ $+ [ $2 ] ]
    }
  }
  unset %modern.min
  unset %modez
  unset %modez. [ $+ [ $2 ] ]
}
on *:mode:#: {
  if ((, $+ $chan $+ , isin , $+ $replace(%activatedchannels,$chr(32),$chr(44)) $+ ,) && ($me isop $chan)) {
    if (($nick !== Q) && ($nick !== $me)) {
      if ((%channelmodes. [ $+ [ $chan ] ]) && (, $+ chanmodes $+ , isin , $+ $replace(%protect. [ $+ [ $chan ] ],$chr(32),$chr(44)) $+ ,)) {
        set %modez. [ $+ [ $chan ] ] $nick
        mode $chan
      }
    }
  }
}
on *:join:#: {
  if (, $+ $chan $+ , isin , $+ $replace(%activatedchannels,$chr(32),$chr(44)) $+ ,) {
    if (($nick == Q) || ($nick == $me) || ($opnick == $me) || ($nick == *.quakenet.org)) {
      if (%botkick. [ $+ [ $chan ] ]) {
        timer 1 1 joinwhenkicked $chan
      }
    }
  }
}
on *:op:#: {
  if (, $+ $chan $+ , isin , $+ $replace(%activatedchannels,$chr(32),$chr(44)) $+ ,) {
    if (($nick == Q) || ($nick == $me) || ($opnick == $me) || ($nick == *.quakenet.org)) {
      if (%botkick. [ $+ [ $chan ] ]) {
        joinwhenkicked $chan
      }
    }
  }
}
alias joinwhenkicked {
  if (%botkick. [ $+ [ $1 ] ] !== *!*@CServe.quakenet.org) {
    if (%botkick. [ $+ [ $1 ] ] !== owner) {
      kick $1 %botkick. [ $+ [ $1 ] ]
      mode $1 -o %botkick. [ $+ [ $1 ] ]
      set %hostban. [ $+ [ $1 ] ] %hostban. [ $+ [ $1 ] ] $address(%botkick. [ $+ [ $1 ] ],2)
    }
    set %modez. [ $+ [ $1 ] ] %botkick. [ $+ [ $1 ] ]
    mode $1
    set %clearbans. [ $+ [ $1 ] ] $me
    mode $1 +b
  }
  unset %botkick. [ $+ [ $1 ] ]
  unset %noaccesson. [ $+ [ $2 ] ]
}
alias clearbans {
  msg q unbanall $1
  set %clearbans. [ $+ [ $1 ] ] 2
  while (%clearbans. [ $+ [ $1 ] ] <= $numtok($1-,32)) {
    if ($chr(64) isin $ [ $+ [ %clearbans. [ $+ [ $1 ] ] ] ]) { set %clearbans.counter. [ $+ [ $1 ] ] %clearbans.counter. [ $+ [ $1 ] ] $ [ $+ [ %clearbans. [ $+ [ $1 ] ] ] ] }
    else { set %clearbans.counter. [ $+ [ $1 ] ] %clearbans.counter. [ $+ [ $1 ] ] *!*@ $+ $ [ $+ [ %clearbans. [ $+ [ $1 ] ] ] ] $+ .users.quakenet.org }
    if ($numtok(%clearbans.counter. [ $+ [ $1 ] ],32) == 6) { inc %clearbans.cn. [ $+ [ $1 ] ] | timer 1 $calc(%clearbans.cn. [ $+ [ $1 ] ] * 0.5) mode $1 -bbbbbb %clearbans.counter. [ $+ [ $1 ] ] | unset %clearbans.counter. [ $+ [ $1 ] ] }
    inc %clearbans. [ $+ [ $1 ] ]
  }
  if (%clearbans.counter. [ $+ [ $1 ] ]) { inc %clearbans.cn. [ $+ [ $1 ] ] | timer 1 $calc(%clearbans.cn. [ $+ [ $1 ] ] * 0.5) mode $1 -bbbbbb %clearbans.counter. [ $+ [ $1 ] ] }
  unset %clearbans.counter. [ $+ [ $1 ] ]
  unset %clearbans.cn. [ $+ [ $1 ] ]
  unset %clearbans. [ $+ [ $1 ] ]
  unset %hostban. [ $+ [ $1 ] ]
  unset %authban. [ $+ [ $1 ] ]
}
on *:notice:*:?: {
  if ($nick == Q) {
    if (($1-7 == You do not have sufficient access on) && ($9-11 == to use invite.)) {
      inc %noaccesson. [ $+ [ $8 ] ]
      if (%noaccesson. [ $+ [ $8 ] ] == 3) { removechannel $8 I don't have the right access in the Q-bot after 3 warnings! }
      else { timer 1 1 join $8 }
    }
    if (($1 == Channel) && ($3-6 ==  is unknown or suspended.)) { removechannel $2 I don't have the right access in the Q-bot after 3 warnings! }
    }
  }
}
alias removechannel {
  unset %*. [ $+ [ $1 ] ]
  unset %*. [ $+ [ $1 ] $+ ] .*
  unset % [ $+ [ $1 ] $+ ] .*
  $iif($remtok(%delprotectchannels,$1,1,32),set %delprotectchannels $ifmatch,unset %delprotectchannels)
  $iif($remtok(%activatedchannels,$1,1,32),set %activatedchannels $ifmatch,unset %activatedchannels)
  $iif($remtok(%joinedchannels,$1,1,32),set %joinedchannels $ifmatch,unset %joinedchannels)
  if ($2) { part $1 This channel has been removed. Reason: $2- }
  else { part $1 This channel has been removed. Reason: No reason given }
}