Code:

######################################################################### BadFullname vers 1.2# ##                                    BLaCkShaDoW Productions################################################################################################################################################On join, if a user`s realname contains any of the restricted words #that are written in this script, the BoT will ban the user :)#Contains protection for users who have access on the boT :)##Version 1.2##Put the TCL rehash, then edit badfullname.txt from the main directory#put in the text file like that :# #channel1 *word1* *word2*..# #channel2 *word3 *word4..#And then rehash.#You can put as many channels and words as you want.#########################################################################Here you can set the reason for the kick / banset bad(reason) "Bad FULLNAME !"#Here you can set the time for the ban (minutes)set bad(time) "2"#Here you can set the flags that are exceptedset bad(flags) "n|O"#########################################################################                         Here starts the config#########################################################################setudef flag badfullnameset Autor "BLaCkShaDoW"set vers "1.1"if {[file exists badfullname.txt] == 0} {set afile [open badfullname.txt a]close $afile}bind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset dir "badfullname.txt"set ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameset file [open $dir "r"]set data [read -nonewline $file]close $fileif {$data == ""} { return 0 }set split [split $data "\n"]foreach line $split {set chanentry [lindex [split $line] 0]if {[string match -nocase $channel $chanentry]} {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset dir "badfullname.txt"set handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }set file [open $dir "r"]set data [read -nonewline $file]close $fileif {$data == ""} { return 0 }set split [split $data "\n"]foreach line $split {set chanentry [lindex [split $line] 0]if {[string match -nocase $channel $chanentry]} {set fullnameentry [lrange [split $line] 1 end]  foreach realname [string tolower $fullnameentry] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time)]}}}}unbind RAW - 311 badfullnames}putlog "Bad Fullname $vers by $Autor Loaded !"

Code:

set bad(fullnames) {"*18*""*19*""*20*""*21*""*22*""*23*""*24*""*25*""*26*""*27*""*28*""*29*""*30*""*31*""*32*""*33*""*34*""*35*""*36*""*37*""*38*""*39*""*40*""*41*""*42*""*43*""*44*""*45*""*46*""*47*""*48*""*49*""*50*""*51*""*52*""*53*""*54*""*55*""*56*""*57*""*58*""*59*""*60*""*61*""*62*""*63*""*64*""*65*""*66*""*67*""*68*""*69*""*70*""*71*""*72*""*73*""*74*""*75*""*76*""*77*""*78*""*79*""*80*""*81*""*82*""*83*""*84*""*85*""*86*""*87*""*88*""*89*""*90*""*91*""*92*""*93*""*94*""*95*""*96*""*97*""*98*""*99*""*100*"}set bad(reason) "You Are not permitted on this channel please join anotherroom!"set bad(time) "1"set bad(flags) "0hf|ohf"setudef flag badfullname13+setudef flag badfullname16+setudef flag badfullname18+setudef flag badfullname30+setudef flag badfullname50+setudef flag badfullname60+setudef flag badfullnamefemalesetudef flag badfullnamemalebind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameif { [channel get $channel badfullname13+] } {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}set bad(fullnames) {"*13 male*""*14 male*""*15 male*""*13 female*""*14 female*""*15 female*"}bind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameif { [channel get $channel badfullname16+] } {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}set bad(fullnames) {"*13*""*14*""*15*""*16*""*17"}bind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameif { [channel get $channel badfullname18+] } {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}set bad(fullnames) {"*13*""*14*""*15*""*16*""*17*""*18*""*19*""*20*""*21*""*22*""*23*""*24*"}bind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameif { [channel get $channel badfullname30+] } {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}set bad(fullnames) {"*13*""*14*""*15*""*16*""*17*""*18*""*19*""*20*""*21*""*22*""*23*""*24*""*25*""*26*""*27*""*28*""*29*""*30*""*31*""*32*""*33*""*34*"}bind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameif { [channel get $channel badfullname50+] } {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}set bad(fullnames) {"*13*""*14*""*15*""*16*""*17*""*18*""*19*""*20*""*21*""*22*""*23*""*24*""*25*""*26*""*27*""*28*""*29*""*30*""*31*""*32*""*33*""*34*""*35*""*36*""*37*""*38*""*39*""*40*""*41*""*42*""*43*""*44*"}bind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameif { [channel get $channel badfullname60+] } {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}set bad(fullnames) {"*13*""*14*""*15*""*16*""*17*""*male*""*boy*""*Boy*"}bind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameif { [channel get $channel badfullnamefemale] } {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}set bad(fullnames) {"*13*""*14*""*15*""*16*""*17*""*Female*""*Girl*""*girl*"}bind join -|- "* *" badrealnameproc badrealname {nickname hostname handle channel} {global botnickset ::cchan $channelset ::nnick $nicknameset ::hhost $hostnameif { [channel get $channel badfullnamemale] } {if {![botisop $channel]} { return 0 }if {[onchan $nickname $channel]} {putquick "WHOIS $nickname $nickname"bind RAW - 311 badfullnames}}}proc badfullnames { from keyword arguments } {global botnick badset channel $::cchanset nickname $::nnickset host $::hhostset handle "[nick2hand $nickname]"set fullname [string range [join [lrange $arguments 5 end]] 1 end]if {[onchan $nickname $channel]} {    set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] }  foreach realname [string tolower $bad(fullnames)] {if {[string match $realname [string tolower $fullname]]} {if {[matchattr $handle $bad(flags) $channel]} { return 0 }newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time) * 60]}}unbind RAW - 311 badfullnames}putlog "Badfullnames Loaded !"