on me:*:JOIN:#:{ .timer 1 5 kanalbanlist $chan }
alias kanalbanlist { if $me isop $1 { echo 4 -a $+([,$1,]) kanalının ban listesi alınıyor. | mode $1 +b } }
on @*:BAN:#:{
  if $ibl(#,0) >= 30 {
    onotice 4 $+([,#,]) kanalı ban listesinde 30'dan fazla kişi var, ilk 20 ban açılıyor..
    var %s = $ibl(#,0), %y = $calc($ibl(#,0) - 20) | while %s >= %y { %' = $addtok(%',$ibl(#,%s),32) | dec %s } | while %' { mode # $+(-,$str(b,6))} $gettok(%',1-6,32) | %' = $deltok(%',1-6,32) }
  }
}

raw 478:*:{ 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 %xy 20
    var %i = $ibl(%1,0) 
    while (%xy <= %i) { 
      var %t = $addtok(%t,$ibl(%1,%i),32) 
      dec %i 
    } 
    massmode %1 -b %t 
  } 
}