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) }
  }
}