help please[solved]

blake · Post by **blake** » Thu Dec 03, 2009 10:16 am

Hey
im trying to get this script to work its setting the chansets from DCC but it is not kicking the users with set ages from the set rooms added via dcc im getting no errors when loading it and none when a user joins channels also no errors when setting chansets is their any way to make it a smaller script ive used seperate scripts but its lagged the hell out of my bot and then stops kicking underaged overaged of wrong gender

ps sorry about the lenght of it

Code: Select all

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 another
room!"
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 badfullnamefemale
setudef flag badfullnamemale

bind join -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
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] 
	}
  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 -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
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] 
	}
  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 -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
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] 
	}
  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 -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
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] 
	}
  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 -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
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] 
	}
  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 -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
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] 
	}
  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 -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
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] 
	}
  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 -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
if { [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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
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] 
	}
  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 !"

we have rooms for all set ages and genders so need to get it working so we can seperate the rooms

BLaCkShaDoW · Post by **BLaCkShaDoW** » Thu Dec 03, 2009 4:57 pm

Do you want to have for each channel..a list of badrealnames ? because if you want i could modify my badfullname script so you can define for each chan bad realnames on irc or direct in a text file.

blake · Post by **blake** » Fri Dec 04, 2009 6:44 am

Hi BLaCkShaDoW

I think it would better if it was channel definable and l may also work better if its reading it from a text file as long as i can add extra channels to it that would be superb

im currently using your badfullnames script at the moment on yours you have it to set to ban in number of hours is it possible to get it so the ban is released in 2 minutes and just set on the channel not the bots chanbanlist if not thats not a huge problem

Thanks BLaCkShaDoW

BLaCkShaDoW · Post by **BLaCkShaDoW** » Fri Dec 04, 2009 8:12 am

ok.The text file it will be like that :

#channel1 *17* *18* *19* *20*...
#channel2 *14* *15* *16*....
The idea is that each channel has his own list of bad fullnames.
End so on..
Its that Ok ?

blake · Post by **blake** » Fri Dec 04, 2009 8:26 am

Superb exacly what i need

BLaCkShaDoW · Post by **BLaCkShaDoW** » Sun Dec 06, 2009 4:32 pm

The TCL is done..try it

Code: Select all

#######################################################################
#
# 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 / ban

set 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 excepted

set bad(flags) "n|O"


########################################################################
#                         Here starts the config
#
#
#######################################################################

setudef flag badfullname
set Autor "BLaCkShaDoW"
set vers "1.1"

if {[file exists badfullname.txt] == 0} {
set afile [open badfullname.txt a]
close $afile
}

bind join -|- "* *" badrealname

proc badrealname {nickname hostname handle channel} {
global botnick
set dir "badfullname.txt"
set ::cchan $channel
set ::nnick $nickname
set ::hhost $hostname
set file [open $dir "r"]
set data [read -nonewline $file]
close $file
if {$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 bad
set channel $::cchan
set nickname $::nnick
set host $::hhost
set 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 $file
if {$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 !"

Just apply the steps that i wrote on the first lines..

blake · Post by **blake** » Tue Dec 08, 2009 8:32 am

Thanks for this BLaCkShaDoW works a treat superb script. I have a few more i need writing if your interested

BLaCkShaDoW · Post by **BLaCkShaDoW** » Tue Dec 08, 2009 10:06 am

Your welcome. Of course post your idea on Script Requests and i will see what i can do, or send me an email.

blake · Post by **blake** » Wed Dec 09, 2009 9:00 pm

Have sent you an email with the script request`s

Many Thanks