Code:

#Set the channels here where you wish the kick to be activated on.#Usage set capschans "#channel1, #channel2, #channel3"set capschans "#funchat"#Set this to the minimum text size, before it will actset capsmin 70# Minimum percentage of CAPS detected from the full textset capslen 65#Set the bantime for the CAPS kickset capsbantime 30bind pubm - * pubm:capslockproc pubm:capslock {nick uhost hand chan arg} { global botnick capschans capsmin capslen capsbantime if {[string length $arg] < $capsmin} {return 0}  set capsban "*!*@[lindex [split $uhost @] 1]"  set arg [ctrl:filter $arg]  set maxcaps "[string length $arg]"  regsub -all {[A-Z]} $arg "" counted  set countcaps [string length $counted]  set capsper [expr (($maxcaps - $countcaps) * 100) / $maxcaps] if {(([lsearch -exact [string tolower $capschans] [string tolower $chan]] != -1)  || ($capschans == "*"))} {  if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand mnf|mnf $chan]) && ([onchan $nick $chan]) && ($capsper > $capslen)} {    set capsrange "[string range $capsper 0 100]%"    putquick "MODE $chan +b $capsban"    putquick "KICK $chan $nick :0,1 Excessive CAPS Text Kick 12,0 - 12Exceeded the limit of2 $capslen% percent 12of caps by typing2 *$maxcaps* capital characters, 12at a rate of2 $capsrange percent. 12Please turn *off* your 2caps lock switch, 12which is located 2left to the 'A' button 12on your keyboard."    timer $capsbantime "pushmode $chan -b $capsban"    return 0    }  }}## Thanks to ppslim for this filterproc ctrl:filter {str} {  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str  return $str}