BADNİCK TCL

[Root]

BADNİCK TCL
Kötü Nick Koruması nickleri siz düzenliyebilirsiniz oto atar

## Badnick scans(kafanıza göre editleyin)
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"
"*******"
"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 siberChat.Net"

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