# by IUC 2024
# Caps Kullanan ve Flood Yapan herkesi banlar  (30 kelimeden fazla)
# Kanal içerisinde uzunyazı yazan herkesi banlar.
# iuc@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com 

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 :\2$chan\2 Kanalından Caps-Lock sebebi ile 1\[4BANLANDINIZ!1\]."
 }

if {$space == 0 && [string length $text] > 30000} {
putserv "KICK $chan $nick :flood Kanal içerisinde Flood Yapmak yasaktır..."
 halt
}

if {$upper > 7} {
putserv  "notice $nick :Caps lock tuşunuzu Kapatın! \2$nick\2 Dikkat:\2$chan\2..Dakika Banlısınız..."
 }
}
putlog "tcl de anti capslock IUC v. 1.0 Ekim 2024"