[script]
n0=alias uzunnick { if (!$dialog(uzunnick)) dialog -m uzunnick uzunnick }
n1=dialog uzunnick {
n2=  title "uzunnick Koruması"
n3=  size -1 -1 200 180
n4=  option dbu
n5=  text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
n6=  combo 1, 5 20 90 130
n7=  button "Ekle (+)", 2, 4 146 27 13
n8=  button "Çıkar (-)", 3, 32 146 27 13
n9=  button "Temizle (!)", 4, 60 146 35 13
n10=  box "Seçenekler", 5, 101 17 93 40
n11=  check "OP olduğumda tarama yap!", 6, 106 28 73 10
n12=  check "Yeni rumuz uzunnickse at!", 7, 106 40 70 10
n13=  button "?", 8, 182 28 9 9
n14=  button "?", 9, 182 40 9 9
n15=  box "Kick Mesajınız", 10, 101 60 93 40
n16=  edit "", 11, 106 76 83 10, autohs
n17=  box "Açıklamalar", 12, 101 103 93 55
n18=  text "uzun Rumuz Koruması    ", 13, 106 110 85 40
n19=  link "Bolsohbet", 14, 108 164 52 15
n20=  button "Kapat!", 15, 168 161 27 13
n21=  text "..:: uzunnick Koruması ::..", 16, 13 165 80 10,disable
n22=}
n23=on *:dialog:uzunnick:*:*:{
n24=  if ($devent == init) {
n25=    loadbuf -o $dname 1 $shortfn(uzunnicks.txt) | did -c $dname 1 1
n26=    if (%oto-tara == on) { did -c uzunnick 6 }
n27=    if (%NickDeğiş == on) { did -c uzunnick 7 }
n28=    did -a $dname 11
n29=  }
n30=  if ($devent == sclick) {
n31=    if ($did == 2) {
n32=      var %kötürmz = $did(1).text
n33=      if $read(uzunnicks.txt,w,%kötürmz) {
n34=        echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
n35=      }
n36=      else {
n37=        write uzunnicks.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
n38=      }
n39=    }
n40=    if ($did == 3) {
n41=      if $read(uzunnicks.txt,w,$did(1).seltext) { write $+(-dl,$readn) uzunnicks.txt | did -d $dname 1 $did(1).sel }
n42=    }
n43=    if ($did == 4) {
n44=      if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(uzunnicks.txt) | write -c uzunnicks.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }
n45=    }
n46=    if ($did == 8) {
n47=      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.
n48=    }
n49=    if ($did == 9) {
n50=      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.
n51=    }
n52=    if ($did == 6) {
n53=      if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
n54=      elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
n55=    }
n56=    if ($did == 7) {
n57=      if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
n58=      elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
n59=    }
n60=    if ($did == 14) {
n61=      run
n62=    }
n63=    if ($did == 15) {
n64=      if ($did(11) == $Null) {
n65=        echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
n66=        dialog -x uzunnick uzunnick
n67=        set 12Nickinizi 4KısaLtın12!!!
n68=      }
n69=      else {
n70=        set  $did(11)
n71=        dialog -x uzunnick uzunnick
n72=      }
n73=    }
n74=  }
n75=}
n76=;--------------------
n77=; Kodlamalar...
n78=;--------------------
n79=on *:join:#:if $kotunick($nick) { /ban # $nick | /kick # $nick 12Nickinizi 4KısaLtın12!!! }
n80=#NickDeğiş on
n81=on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick 12Nickinizi 4KısaLtın12!!!
n82=} | inc %_ } } }
n83=#NickDeğiş end
n84=alias kotunick { var %_ = 1 | while $read(uzunnicks.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
n85=alias krt {
n86=  if $1 ischan && $me isop $1 {
n87=    var %` = $lines(uzunnicks.txt)
n88=    while %` {
n89=      if $fline($1,$read(uzunnicks.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(uzunnicks.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(uzunnicks.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(uzunnicks.txt,%`),%~,1),1) 12Nickinizi 4KısaLtın12!!!
n90=      } | dec %~ } }
n91=      dec %`
n92=    }
n93=  }
n94=}
n95=#oto-tara on
n96=on *:OP:#:if $opnick == $me { krt $chan }
n97=#oto-tara end
n98=;-----------------------------------------
n99=on *:LOAD:{
n100=  echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
n101=  echo -a $timestamp *** İs here LanetLy
n102=  run notepad.exe uzunnicks.txt
n103=  set %oto-tara on
n104=  set %NickDeğiş on
n105=  set 4N14ickini1z 12Nickinizi 4KısaLtın12!!
n106=}
n107=on *:UNLOAD:{
n108=  echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
n109=  unset %oto-tar
n110=  unset %NickDeğiş
n111=  unset %kckmsg
n112=}