## 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 *** 
## -----------------------------------------------------------------------