on *:text:!bad *:#Kanal: {
  if $2 == list {
    var %i = 1, %end = $ulist(*,badnick,0)
    .msg $chan - Toplam Badnick:4 %end 
    while %i <= %end  {
      ;msg $chan $+(%i,$chr(41)) $iif($ulist(*,badnick,%i) == $nick,$+(,$v1,),$v1)
      inc %i 1
    }
  }
  elseif $2 == ekle { 
    if $3 == $null { .msg $chan $+(",$nick,") Lütfen eklenecek nick yazınız | return }
    if $ulist($3,badnick,1) { .msg $chan $+(",$nick,") Belirtiğiniz kritere uyan $+(",, $3 $+ !*@* ,,") zaten mevcut | return }
    .auser badnick $3 $+ !*@*
    .msg $chan $+(",, $3 $+ !*@* ,,") Başarıyla badnick listesine eklendi
  }
  elseif $2 == sil { 
    if $3 == $null { .msg $chan $+(",$nick,") Lütfen silinecek nick yazınız | return }
    if !$ulist($3,badnick,1) { .msg $chan  $+(",$nick,") Belirtiğiniz kritere uyan $+(",, $3 $+ !*@* ,,") listede mevcut değil | return }
    .ruser badnick  $3 $+ !*@*
    .msg $chan $+(",, $3 $+ !*@* ,,") Başarıyla badnick listesinden kaldırıldı
  }
  elseif $2 == tara { 
    if ($me !ison $3) { .msg # $3 kanalında yokum işlem tamamlanmadı. | return }
    if (!$regex($nick($3,$me).pnick,&|~)) { .msg # $3 kanalında bu işlem için yetkim yok. | return }
    .msg # $3 kanalında badnick taraması başladı. | badtara $3 | set -e %knl #
  }
}
alias banni { 
  .mode $1 +b $2
  .kick $1 $2 $3-
}

alias badtara {
  set %:bulunan 0
  var %s 1
  while %s <= $nick($1,0) {
    %:gnick = $nick($1,%s)
    if %:gnick isreg $1 && $level(%:gnick $+ !*@*) == badnick {
      inc %:bulunan 1
      banni # %:gnick Rutin badnick kontrol.
    }
    inc %s
  }
  .msg %knl 4,1Badnickler Tarandi:11 $1 4-11 %:bulunan 4Badnick Bulundu.
}