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  1 ( 12Nickiniz 1Şuan Kanal Seviyesi İle Bağdaşmıyor.Lutfen 12"/nick 4YeniNick" 1Komutu İle Nickinizi Değiştirin. )
  .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,%!) Badnick taramaSından geçemediniz `  }
      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 @*:JOIN:#:{ 
  if (*fuck*!*@* iswm $fulladdress) || (*ateşli?*!*@* iswm $fulladdress) || (*kafası*!*@* iswm $fulladdress) || (*jigolo*!*@* iswm $fulladdress) || (*2?cm*!*@* iswm $fulladdress) || (*oglancı*!*@* iswm $fulladdress) || (*kalın?!*@* iswm $fulladdress)  || (*s?k?c?*!*@* iswm $fulladdress) || (*v?r?c?*!*@* iswm $fulladdress) || (*evli*!*@* iswm $fulladdress) || (*1?cm*!*@* iswm $fulladdress) || (*ate?li!*@* iswm $fulladdress) || (*lez*!*@* iswm $fulladdress) || (*kaltak!*@* iswm $fulladdress) || (*v?r?c?!*@* iswm $fulladdress) || (*j?g?l?!*@* iswm $fulladdress) || (*azgin!*@* iswm $fulladdress) || (*ipne*!*@* iswm $fulladdress) || (*dul?!*@* iswm $fulladdress) || (*orgazm*!*@* iswm $fulladdress)  || (*pozisyon*!*@* iswm $fulladdress)  || (*penis*!*@* iswm $fulladdress) || (*seks*!*@* iswm $fulladdress) || (*gay!*@* iswm $fulladdress) || (*abaza*!*@* iswm $fulladdress) { 
    .ban # $nick 1
  /kick # $nick (12Nickiniz 1Şuan Kanal Seviyesi İle Bağdaşmıyor.Lutfen 12"/nick 4YeniNick" 1Komutu İle Nickinizi Değiştirin.)   }
}