IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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