on @kl:JOIN:#:{
  if $nick isop $chan { halt }
  if ($chan == #cinsellik) { halt }
  if ($chan == #gay) { halt }
  if ($chan == #lezbiyen) { halt }
  if ($chan == #***) { halt }
  if ($chan == #help) { halt }
  if ($cha == #eğitim) { halt }
  .kick # $nick 4,1(9ßad11~9Nick4)
  .mode # +b $nick
}
alias badntara {
  if (!$1) { $iif($input(Kanal Girmediniz?,io,Uyarı),halt,halt) }
  if ($chr(35) !isin $1) { $iif($input($chr(35) işaretini girmediniz,io,Uyarı),halt,halt) }
  set %ch $1
  var %y = $input(Tarama İşlemi Sırasında Bulunan Bad Nickler Atılsınmı?,ivy,Seçim)
  var %! = 1,%? = $nick(%ch,0)
  while (%! <= %?) {
    if ($level($nick(%ch,%!)) == Kl) {
      if %y == $yes { mode %ch +b $nick(%ch,%!) | kick %ch $nick($1,%!) 9,1(15Bad4~15Nick9) }
      else { cline 4 %ch %! }
    }
    inc %! 1
  }
  if %y == $no { $input(Tarama İşlemi Bitti Bad Nickler Kırmızı Olarak Renklendirildi,io,Bilgi) }
  else { { $input(Tarama İşlemi Bitti Bad Nickler Atıldı,io,Bilgi) } }
}
menu status,menubar,channel {
  ReBeLLioN Script™ 1.0 BadNick Kick Menu
  .Aç/Kapa
  ..$iif($group(#badjoin) == on,$style(2)) aç:.enable #badjoin | $input(kl Koruması Açıldı,io,Bad Nick)
  ..$iif($group(#badjoin) == off,$style(2)) kapat:.disable #badjoin | $input(kl Koruması Kapatıldı,io,Bad Nick)
  .Nick
  ..Ekle:var %x $$?="eklenecek nick'i girin" | .auser kl %x | $input(%x kl Listesine Eklendi,io,Bad Nick)
  ..Sil:var %x $$?="silinecek nick'i girin" | .ruser kl %x | $input(%x kl Listesinden Silindi,io,Bad Nick)
  ..Listele:badnlist
  .Tara:badntara $active
}
menu nicklist {
  ReBeLLioN Script™ 1.0 Bad Nick Kill Menu
  .Ekle:.auser kl $$1 | $input($$1 kl Listesine Eklendi,io,Bad Nick)
  .Sil:.ruser kl $$1 | $input($$1 kl Listesinden Silindi,io,Bad Nick)
  .Listele:badnlist
}
#badjoin on
#badjoin end
menu @kl {
  Ekle:.auser kl $$?="Eklenecek Nick'i Girin" | badnlist
  Sil:if ($gettok($line(@kl,$1,1),2,45)) { .ruser kl $gettok($line(@kl,$1,1),2,45) | badnlist }
  Kapat:window -c $active
}
alias badnlist {
  $iif(!$window(@kl),window -Cak0dl @kl 0 0 250 550)
  clear @kl
  var %2 = $ulist(*,kl,*),%1 = 1
  while (%1 <= %2) {
    aline 4 @kl $+(%1,-,$ulist(*,kl,%1)))
    inc %1 1
  }
}
on *:text:*:#:{
  if !badtara isin $1 {
    if $nick !isop $chan {
    .notice $nick   kanalda op olmanız gerekır.  }
    else { 
    timer 1 2 tara $chan | msg $chan  tarama basladı }
  }
}
alias tara {
  var %t = 1,
  while (%t <= $nick($1,0)) {
    var %kl = $nick($1,%t)
    if ($level($nick($1,%t)) == kl) { mode $1 +b $ulist(%kl) | kick $1 %kl 0,12 Nick Uygunsuz }
    inc %t 1
  }
}