alias Badnick { if (!$dialog(Badnick)) dialog -m Badnick Badnick }
dialog Badnick {
  title "Badnick Koruması"
  size -1 -1 200 180
  option dbu
  text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
  combo 1, 5 20 90 130
  button "Ekle (+)", 2, 4 146 27 13
  button "Çıkar (-)", 3, 32 146 27 13
  button "Temizle (!)", 4, 60 146 35 13
  box "Seçenekler", 5, 101 17 93 40
  check "OP olduğumda tarama yap!", 6, 106 28 73 10
  check "Yeni rumuz kötüyse at!", 7, 106 40 70 10
  button "?", 8, 182 28 9 9
  button "?", 9, 182 40 9 9
  box "Kick Mesajınız", 10, 101 60 93 40
  edit "", 11, 106 76 83 10, autohs
  box "Açıklamalar", 12, 101 103 93 55
  text "Kötü Rumuz Koruması [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ", 13, 106 110 85 40
  link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]", 14, 108 164 52 15
  button "Kapat!", 15, 168 161 27 13
  text "..:: Badnick Koruması ::..", 16, 13 165 80 10,disable
}
on *:dialog:Badnick:*:*:{
  if ($devent == init) {
    loadbuf -o $dname 1 $shortfn(badnicklist.txt) | did -c $dname 1 1
    if (%oto-tara == on) { did -c Badnick 6 }
    if (%NickDeğiş == on) { did -c Badnick 7 }
    did -a $dname 11 $read(kickmesaj.txt,$rand(1,$lines(kickmesaj.txt)))
  }
  if ($devent == sclick) {
    if ($did == 2) {
      var %kötürmz = $did(1).text
      if $read(badnicklist.txt,w,%kötürmz) { 
        echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
      }
      else {
        write badnicklist.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
      }
    }
    if ($did == 3) {
      if $read(badnicklist.txt,w,$did(1).seltext) { write $+(-dl,$readn) badnicklist.txt | did -d $dname 1 $did(1).sel }
    }
    if ($did == 4) {
      if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(badnicklist.txt) | write -c badnicklist.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki $+ %satırsayısı $+ adet rumuz silindi. | unset %satırsayısı } | else { return }
    }
    if ($did == 8) {
      did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.
    }
    if ($did == 9) {
      did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
    }
    if ($did == 6) {
      if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
      elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
    }
    if ($did == 7) {
      if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
      elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
    }
    if ($did == 14) {
      run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    }
    if ($did == 15) {
      if ($did(11) == $Null) {
        echo -a $timestamp *** Kick Mesajı belirlenmedi, dosyadan rastgele mesaj kullanılacak.
        dialog -x Badnick Badnick
      }
      else {
        dialog -x Badnick Badnick
      }
    }
  }
}
;--------------------
; Kodlamalar...
;--------------------
on *:join:#:if !$istok(#MuafKanal1 #MuafKanal2,$chan,32) && !$istok(MuafNick1 MuafNick2,$nick,32) && $kotunick($nick) { mode # +b $nick | kick # $nick $read(kickmesaj.txt,$rand(1,$lines(kickmesaj.txt))) }
#NickDeğiş on
on *:NICK:{ if !$istok(#MuafKanal1 #MuafKanal2,$chan,32) && !$istok(MuafNick1 MuafNick2,$newnick,32) && $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick $read(kickmesaj.txt,$rand(1,$lines(kickmesaj.txt))) } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(badnicklist.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
  if $1 ischan && $me isop $1 {
    var %` = $lines(badnicklist.txt)
    while %` {
      if $fline($1,$read(badnicklist.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(badnicklist.txt,%`),%~,1) ,1) isreg $1 { mode $1 +b $+($read(badnicklist.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(badnicklist.txt,%`),%~,1) ,1) $read(kickmesaj.txt,$rand(1,$lines(kickmesaj.txt))) } | dec %~ } }
      dec %` 
    } 
  }
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
  echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
  echo -a $timestamp *** İs here AhmT [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  run notepad.exe badnicklist.txt
  set %oto-tara on
  set %NickDeğiş on
}
on *:UNLOAD:{ 
  echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı. 
  unset %oto-tar
  unset %NickDeğiş
}