badnick.tcl


PHP- Kodu:
 #--------------------------------------------------------------------------------------------------------------------#
# BAD NICK SCRIPT BY RANA USMAN #
#--------------------------------------------------------------------------------------------------------------------#
#Author : RANA USMAN
#Email : coolguy_rusman@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com
#URL : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
#Version : 1.2
#Catch me on UNDERNET @ #VASTEYE my nick is ^Rana^Usman
###################
# Version History #
###################
#The version before was not supporting Wildcards like ** ?? etc etc
#So now in this version you can use wild cards too
###########################
#- CONFIGURATION SECTION -#
###########################
########################################################################################
#- Enter the Bad nicks Below on which you want your bot to BAN (Wild Cards Supported)-#
########################################################################################
set bnick {
"*sik*" 
"*suck*"
"*tharki*" 
"*sux*" 
"*sik*"
"*s2*"
"*yarak*"
"*penis*"
"*-----*"
"*amcik*"
"*sokar*"
"*suker*"
"*------*"
"*sokucu*"
"*1*cm*"
"*2*cm*"
"amc?k"
"anan?n"
"am?na"
"-------"
"becer?r?m"
"becerme"
"belan?"
"s2er"
"s2c?"
"*Ytl*"
"*kont?r*"
"*kalkt?*"
"*indir*"
"sokarim"
"sıkerım"
"sokarım"
"*buyuk*"
"*büy?k*"
"*b?yük*"
"*msn*"
"*kar?n?"
"*anan?*"
"*karde??n?*"
"*bac?n?*"
"*ablan?*"
"*penis*"
"*fuck*" 
"*bitch*" 
"*asshole*" 
"*kontor*"
"*kontör*" 
"*yarak*"
"*similya*" 
"*ke?ase*" 
"*ytl*"
"*1*cm*" 
"*2*cm*" 
"*siker*" 
"*sokar*" 
"*s2*" 
"vagina" 
"*-----*" 
"*am*aran?yor*" 
"*escort*" 
"c1b41" 
"*jigolo*" 
"*gigolo*"
"top"
"anjing"
"4nj1ng"
"4njing"
"anj1ng"
"bangsat"
"b4ngs4t"
"b4ngsat"
"bangs4t"
"pantek"
"panteks"
"nenen"
"cibe"
"fukk"
"fuk"
"cip3t"
"cipet"
"c1p3t"
"c1tut"
"citut"
"lonte"
"nonok"
"l0nt3"
"lont3"
"l0nte"
"n0nok"
"n0n0k"
"non0k"
}
#########################################################################################################
## SET The channel on which you want this script to work ##
## Channels Separted by space...and if you want this script to work on all channels leave it as "" ##
#########################################################################################################
set bchan ""
################
#- Set Reason -#
################
set kickreason "4Bad Nick --5Lütfen Küfürlü/cinsel ve msn içerikli Nickler Kullanmayınız..7/nick yeninick 5komutu ile nick değiştirip tekrar giriniz!--"
　
#--------------------------------------------------------------------------------------------------------------------#
# SCRIPT STARTS FROM HERE...MAKE IT BETTER WITH YOUR SKILLS IF YOU CAN.I DONT RESTRICT YOU TO NOT TO TOUCH CODE! #
#--------------------------------------------------------------------------------------------------------------------#
　
bind join - * join:RanaUsman
proc join:RanaUsman {nick uhost hand chan} {
global bnick bchan kickreason temp
if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {
set temp 0
foreach i [string tolower $bnick] {
if {[string match *$i* [string tolower $nick]]} {
set temp 1
}
}
}
if {!$temp} { return } {
putquick "SAJOIN $nick #Cinsellik"
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick :$kickreason"
} 
}
putlog "=-\002 LOADED BAD NICK BY RANA USMAN ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -="
#Author : RANA USMAN