xl

# by Tris, 22jun96
# kicks people who use excessive caps (over 30 chars), and flood
# bots/scripts which send long lines without any spaces...
# subida por Sediton de la red irc.dal.net canal #tcls nicks: sedition y Arnold_X-P

bind pubm - * caps_pubm
proc caps_pubm {nick uhost hand chan text} {
if [matchattr $hand f] {return 0}
set upper 0
set space 0
foreach i [split $text {}] {
if [string match \[A-Z\] $i] {
incr upper
}
if {$i == " "} {
incr space
}
}
if {$upper > 18} {
putserv "KICK $chan $nick :No mayusculas por favor, las mayusculas significa Gritar en \2$chan\2 1\[4BANNED1\].Para saber nuestras reglas tipea !reglas en el canal abierto"
}

if {$space == 0 && [string length $text] > 30000} {
putserv "KICK $chan $nick :flood Para saber nuestras reglas tipea !reglas en el canal abierto"
halt
}

if {$upper > 7} {
putserv "notice $nick :Desactiva tus mayusculas por favor \2$nick\2 las mayusculas significa Gritar en \2$chan\2..evita ser pateado del canal"
}
}
putlog "tcl de anti mayusculas autor Tris v. 1.0 subido por el staff de #tcls en DALnet"