## Badnick scans 
set badnicks { 
 "penis" 
 "fuck" 
 "bitch" 
 "asshole" 
 "kontol" 
 "contol" 
 "pepek" 
 "vevek" 
 "ngentot" 
 "kentot" 
 "jembut" 
 "zembut" 
 "pantat" 
 "totong" 
 "tetek" 
 "vagina" 
 "pukimak" 
 "bujanginam" 
 "cibai" 
 "c1b41" 
 "lanciau" 
 "gigolo" 
 "peler" 
 "anjing" 
 "4nj1ng" 
 "4njing" 
 "anj1ng" 
 "bangsat" 
 "b4ngs4t" 
 "b4ngsat" 
 "bangs4t" 
 "pantek" 
 "panteks" 
 "nenen" 
 "cibe" 
 "fukk" 
 "fuk" 
 "pler" 
 "plerr" 
 "pller" 
 "p3l3r" 
 "cip3t" 
 "cipet" 
 "c1p3t" 
 "c1tut" 
 "citut" 
"pipi"
"amcik"
"ananin"
"amina"
"sikerim"
"beceririm"
"becerme"
"belani"
} 


## ---------------------------------------------------------------- 
## --- Buradan Aşagısını Ellemeyin.                             --- 
## ---------------------------------------------------------------- 

###################################################################### 
##-------------------------------------------------------------------- 
##--- F O R     ---   P R O T E C T I O N  ---    CHANNEL   ---- 
##-------------------------------------------------------------------- 
######################################################################          

set arg.v "Change Badnick protection IRCTURK.ORG" 

bind nick - * Detected_changebad 

proc Detected_changebad {nick uhost hand chan newnick} { 
 global badnicks botnick 
if {(![matchattr $hand b]) && ($nick != $botnick)} { 
  foreach badchange [string tolower $badnicks] { 
   if {[string match *$badchange* [string tolower $newnick]]} { 
    set banmask "*!*[string range $uhost [string first "@" $uhost] end]" 
    putserv "MODE $chan +b $banmask" 
    putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız." 
    putserv "sajoin $nick #***" 
    return 0 
    }  
  } 
 } 
} 

## ----------------------------------------------------------------------- 
putlog "-=-=   Kötü Nick Koruma   =-=-=-=-=-" 
putlog "Kötü Nick Koruma  1.1:" 
putlog "${arg.v} Yükleme Tamamlandı" 
##------------------------------------------------------------------------ 
##                      ***    E N D   OF  ChangeBadnick1.0.TCL *** 
## ----------------------------------------------------------------------- 

 ;--------------------------------------------------
  ; /Badnick Yazarak Çalıştırabilirsiniz...
  ; 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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ı  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
LikabLe", 13, 106 110 85 40
    link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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(nickler.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 %kckmsg
    }
    if ($devent == sclick) {
      if ($did == 2) {
        var %kötürmz = $did(1).text
        if $read(nickler.txt,w,%kötürmz) { 
          echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
        }
        else {
          write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
        }
      }
      if ($did == 3) {
        if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.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(nickler.txt) | write -c nickler.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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did == 15) {
        if ($did(11) == $Null) {
          echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
          dialog -x Badnick Badnick
          set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
        }
        else {
          set %kckmsg $did(11)
          dialog -x Badnick Badnick
        }
      }
    }
  }
  ;--------------------
  ; Kodlamalar...
  ;--------------------
  on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
  #NickDeğiş on
  on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
  #NickDeğiş end
  alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
  alias krt {
    if $1 ischan && $me isop $1 {
      var %` = $lines(Nickler.txt)
      while %` {
        if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | 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 *** LikabLe
    run notepad.exe nickler.txt
    set %oto-tara on
    set %NickDeğiş on
    set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
  }

  on *:UNLOAD:{ 
    echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı. 
    unset %oto-tar
    unset %NickDeğiş
    unset %kckmsg
  }

on *:nick: {
  if $level($newnick) == 666 {  
    var %x = 1 | while $comchan($newnick,%x) { if $me isop $comchan($newnick,%x) { mode $comchan($newnick,%x) +b $newnick | kick $comchan($newnick,%x) $newnick Sebep } | inc %x }
  }
}
alias badekle {
  .auser 666 $1
  echo -a $1 badnick olarak eklendi.
}
alias badsil {
  .ruser 666 $1
  echo -a $1 badnick listesinden silindi.
}