raw *:*: {
  var %abc $numeric 
  if %abc == 367 && $me isop $2 {
    mode $2 -b $3
    haltdef 
  }
}
alias f12 { if $me isop $active { mode $active +b } | else { echo -a Sen Kendini Op mu Sanıyorsun... :) } }

alias bans {
  var %senk = $ibl($1,0), %yep = $calc($ibl($1,0) - 12) 
  while %senk >= %yep { 
    %total = $addtok(%total,$ibl($1,%senk),32)  
    dec %senk 
  }  
  while %total { 
    mode $1 $+(-,$str(b,12)) $token(%total,1-13,32)
    %total = $deltok(%total,1-13,32)   
  }
}

f12 { if $me isop $active { mode $active b | .timer 5 2 bans $active } | else { echo -a Sen Kendini Op mu Sanıyorsun... :) } } 

alias clearallban {
  if ($regex($usermode,/(o|O|N|a|A|C))) { 
    echo 4 -a IRCop modu tespit edildi, 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 $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 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:*:#: {

  if $chan == #AzuLon {

    if $nick isop $chan {

      if $1 == !clearbans {

        clearallban

      }

    }

    else {

      if $1 == !clearbans {

        msg $chan(#AzuLon) Bu komutu kullanabilmek için $chan kanalında Op (@) konumunda olmalısınız.

      }

    }

  }

} 

alias clearallban {
  if ($regex($usermode,/(o|O|N|a|A|C))) { 
    echo 4 -a IRCop modu tespit edildi, 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 $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 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:*:#: { 
  if $nick isop $chan { 
    if $1 == !clearbans { 
      clearallban
    } 
  } 
  else { 
    if $1 == !clearbans { 
      msg $chan bu Komutu Kullanabilmek için $chan Kanalında Op (@) Konumunda olmalısınız. 
    } 
  } 
}