##################################                                
ClearBan Script      
##################################


menu channel {
  -
  Clearban:/Clearbans

}

alias clearallban {
  if ($regex($usermode,/(o|O|N|a|A|C))) {
    echo 4 -a IRCOP Modu Tespit Edildi. Bütün banlar açýlýyor..
    var %cx = 1,%xc = $chan(0)
    while (%cx <= %xc) {
      clearbans $chan(%cx)
      inc %cx 1
    }
    halt
  }
  var %u = 1,%f = $chan(0)
  while (%u <= %f) {
    if ($me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo 4 -a *** $chan(%u) Kanalýnýn baný açýlýyor.. }
    inc %u 1
  }
}
raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 channel Ban List Clear.. | clearbans $2 | Halt } }
alias massmode {
  var %i = 1, %x = $numtok($3-,32), %y = $modespl
  while (%i <= %x) {
    mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)
    inc %i %y
  }
}
alias clearbans {
  var %1 = $iif($1,$1,$chan), %b = $ibl(%1,0), %i, %t
  if (%b == 0) {
    echo -t %1 * Ban Clear For $+(%1,…)
    mode %1 b
  }
  else {
    var %i = $ibl(%1,0)
    while (%i) {
      var %t = $addtok(%t,$ibl(%1,%i),32)
      dec %i
    }
    massmode %1 -b %t
  }
}