|
Nge-Kick user yang pake CapsLock lebih dari 20 huruf per 30 huruf
bind pubm - * caps:lock
bind notc - * caps:lock
bind ctcp - ACTION caps:lock
proc caps:lock {nick uhost hand chan text} {
if [matchattr $hand f] {return 0}
set upper 0
foreach i [split $text {}] {
if [string match \[A-Z\] $i] { incr upper }
}
if {$upper == 0} { return 0 }
if {[string length $text] < 20} {return 0}
set capchar [string length $text]
set number $upper/$capchar
if {[expr 30 * $upper / $capchar] > 20} {
putquick "KICK $chan $nick :Kebanyakan Huruf GEDE dodol"
}
}
|