on *:text:!bantemiz*:#mircturk:{ if $nick isop $chan { cs clear $chan bans } }

alias clearallban {
  if ($regex($usermode,/(o|O|N|a|A|C))) { 
    echo 4 -a Toplu Mod, bulunduğunuz bütün kanalların banı 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 Kanalının Ban Listesi Dolmuş Durumda, Banlar Temizleniyor.. | clearbans $1 | 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 Listesi Alınıyor $+(%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
  }
}
on *:Text:*:#mIRCTurkOps: {
  if ($1 == !bantemizle) { msg $chan Banlar Temizleniliyor | clearbans $2 }
  if ($1 == !toplubantemizle) { msg $chan Op Oldugum Kanallarda Bütün Banlar temizleniliyor | clearallban }
}