Www.Hossohbetci.Com " Degisen Dunyanin Degismeyen Yuzu Seviyeli Hossohbet Adresiniz"
BadNick.TCL ( kötü Nickleri Kanaldan Atar."Kanal a Girdiğinde")Ayrıca O Nickleri #s*ks Kanalına Fjoinler.NOT:Botun oper olması Gerekmektedir.

Kod:
## 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 #s*ks"
    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 ***
## -----------------------------------------------------------------------