IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
set bnick {
 "fuck" 
 "*suck*"
 "*tharki*" 
 "*sux*" 
 "*sik*"
 "*s2*"
 "*yarak*"
 "*penis*"
 "*******"
 "*amcik*"
 "*sokar*"
 "*suker*"
 "********"
 "*sokucu*"
 "*1*cm*"
 "*2*cm*"
 "amc?k"
 "anan?n"
 "am?na"
 "sikerim"
 "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 bchan ""
 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!--"

 

 
 bind join - * join:badnick
 proc join:badnick {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 #***"
 putquick "MODE $chan +b $nick"
 putquick "KICK $chan $nick :$kickreason"
 } 
 }