sss

########################################################################################
#- Enter the Bad nicks Below on which you want your bot to BAN (Wild Cards Supported)-#
########################################################################################
## recuerda que al usar "*pene*" con eso lo vuelves general o global
## al estar seguro que el nick malo que agregues no tenga derivantes como gay usa asi "*gay*"
## y cuando son nick concretos pero que derivan a otros ejemplo puto y que no deribe a computo usa asi "puto"

## en esta seccion agregas los nicks ofensivos
set bnick {
"*10*"
"*11*"
"*12*"
"*13*"
"*14*"
"*15*"
"*16*"
"*17*"
}

## aqui coloca los nicks que veas como ignorados o esten excluidos, y no se patearan
##puedes usar -nick o _nick ejemplo "*-penelope*" que deriva al nick juan-penelope
set nicksnokick {
"chat*"
"hispa*"
"*010*"
"*011*"
"*012*"
"*013*"
"*014*"
"*015*"
"*016*"
"*017*"
"*018*"
"*019*"
"*110*"
"*111*"
"*112*"
"*113*"
"*114*"
"*115*"
"*116*"
"*117*"
"*118*"
"*119*"
"*210*"
"*211*"
"*212*"
"*213*"
"*214*"
"*215*"
"*216*"
"*217*"
"*310*"
"*311*"
"*312*"
"*313*"
"*314*"
"*315*"
"*316*"
"*317*"
"*410*"
"*411*"
"*412*"
"*413*"
"*414*"
"*415*"
"*416*"
"*417*"
"*510*"
"*511*"
"*512*"
"*513*"
"*514*"
"*515*"
"*516*"
"*517*"
"*610*"
"*611*"
"*612*"
"*613*"
"*614*"
"*615*"
"*616*"
"*617*"
"*710*"
"*711*"
"*712*"
"*713*"
"*714*"
"*715*"
"*716*"
"*717*"
"*810*"
"*811*"
"*812*"
"*813*"
"*814*"
"*815*"
"*816*"
"*817*"
"*910*"
"*911*"
"*912*"
"*913*"
"*914*"
"*915*"
"*916*"
"*917*"
"*110*"
"*111*"
"*112*"
"*113*"
"*114*"
"*115*"
"*116*"
"*117*"
"*118*"
"*119*"
"*120*"
"*121*"
"*122*"
"*123*"
"*124*"
"*125*"
"*126*"
"*127*"
"*128*"
"*129*"
"*130*"
"*131*"
"*132*"
"*133*"
"*134*"
"*135*"
"*136*"
"*137*"
"*138*"
"*139*"
"*140*"
"*141*"
"*142*"
"*143*"
"*144*"
"*145*"
"*146*"
"*147*"
"*148*"
"*149*"
"*150*"
"*151*"
"*152*"
"*153*"
"*154*"
"*155*"
"*156*"
"*157*"
"*158*"
"*159*"
"*160*"
"*161*"
"*162*"
"*163*"
"*164*"
"*165*"
"*166*"
"*167*"
"*168*"
"*169*"
"*170*"
"*171*"
"*172*"
"*173*"
"*174*"
"*175*"
"*176*"
"*177*"
"*178*"
"*179*"

}

#########################################################################################################
## 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 "" ##
#########################################################################################################

#aqui el canal donde funcione la tcl si son varios canales separalos por espacios ejemplo "#eggdrop #tcls"
set bchan "#cibersexo"

################
#- Set Reason -#
################

## mensaje del kick que dara tu bot al infractor
set kickreason "\[Ban Automatico\] -> (Canal No-Apto Para Menores de 18 años. Vuelve cuando cumplas ese requisito.)"

## seleccion del metodo ban
# 1 - *!*@some.domain.com (ban a ip completa)
# 2 - *!*@*.domain.com (ban a terminacion ip o dominio)
# 3 - *!*ident@some.domain.com (ban a identd e ip)
# 4 - *!*ident@*.domain.com (ban a identd y terminacion ip o dominio)
# 5 - *!*ident*@some.domain.com
# 6 - *nick*!*@*.domain.com (ban a nick y dominio)
# 7 - *nick*!*@some.domain.com (ban a nick e ip)
# 8 - nick!ident@some.domain.com (ban a nick, identd e ip)
# 9 - nick!ident@*.host.com (ban nick, identd y dominio)
# 10 - nick*!*@* (ban solo a nick)

## al elegir la opcion 10 significa que solo baneara a nick
set advbantype "1"

#--------------------------------------------------------------------------------------------------------------------#
# SCRIPT STARTS FROM HERE...MAKE IT BETTER WITH YOUR SKILLS IF YOU CAN.I DONT RESTRICT YOU TO NOT TO TOUCH CODE! #
#--------------------------------------------------------------------------------------------------------------------#

# seccion o ruta donde leera el archivo del contador
set swearkicks "swearkicks.dat"

#bind del contador
bind kick - * swear:kick:counter

### para ingresos de nicks a un canal ##
bind join - * join:RanaUsman

proc join:RanaUsman {nick uhost hand chan} {
global bnick bchan kickreason temp nicksnokick advbantype banmask swearkicks
if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {
if {(![file exists $swearkicks])} { set file [open $swearkicks "w"]; puts $file 1; close $file }
set file [open $swearkicks "r"]; set currentkicks [gets $file]; close $file; set totalkicks [expr $currentkicks];
set banmask "$nick"
set temp 0
foreach imz $nicksnokick {
if {[string match -nocase $imz $nick]} {return 0}
}
foreach i [string tolower $bnick] {
if {[string match "$i" [string tolower $nick]]} {
set temp 1
}
}
if {!$temp} { return } {
putquick "MODE $chan +b $banmask"
putquick "KICK $chan $nick :$kickreason 12,0(Kick #$totalkicks)"
 }
}
}

### para cambios de nicks dentro de un canal ##
bind NICK - * cambioanicksmalos

proc cambioanicksmalos {nick uhost hand chan newnick} {
global bnick bchan kickreason temp nicksnokick advbantype banmask swearkicks
if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {
if {(![file exists $swearkicks])} { set file [open $swearkicks "w"]; puts $file 1; close $file }
set file [open $swearkicks "r"]; set currentkicks [gets $file]; close $file; set totalkicks [expr $currentkicks];
set banmask "$newnick"
set temp 0
foreach imz $nicksnokick {
if {[string match -nocase $imz $newnick]} {return 0}
}
foreach i [string tolower $bnick] {
if {[string match "$i" [string tolower $newnick]]} {
set temp 1
}
}
if {!$temp} { return } {
putquick "MODE $chan +b $banmask"
putquick "KICK $chan $newnick :$kickreason 12,0(Kick #$totalkicks)"
 }
}
}

proc advs:banmask {uhost nick} {
global advbantype
switch -- $advbantype {
1 { set banmask "*!*@[lindex [split $uhost @] 1]" }
2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
3 { set banmask "*!*$uhost" }
4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }
5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
6 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
7 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }
8 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }
9 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
10 { set banmask "$nick*!*@" }
default { set banmask "*!*@[lindex [split $uhost @] 1]" }
return $banmask
}
}

### Thanks to NeOmAtRiX for this kick counter ###
proc swear:kick:counter {nick uhost hand chan target reason} {
global botnick swearkicks
 if {([string equal $target $botnick])} { return 0 }
if {([string equal $nick $botnick])} {
if {![file exists $swearkicks]} {
putlog "Kick Contador: El \002kick contador archivo\002 no existe. Creando archivo \002$swearkicks\002."
set file [open $swearkicks "w"]
 puts $file 1; close $file }
set file [open $swearkicks "r"]
set currentkicks [gets $file]; close $file
set file [open $swearkicks "w"]
 puts $file [expr $currentkicks + 1]; close $file
}
}

putlog "bad nick rana usman-actualizada por Arnold_X-P red DALnet"