Code:

# caps.tcl# set bot user flags to ignore textset vCapsFlagsAllow fo# set text length (excluding spaces) to allow without checkingset vCapsLengthAllow 8# set maximum percentage caps allowed (calculation excludes spaces in text)# greater than 0, less than or equal to 100set vCapsPercentAllow 90# set number of warnings before punishing# integer value equal to or greater than 1set vCapsWarnings 3# set here the mode of punishment# 1 == kick only (after warnings)# 2 == kickban (after warnings)set vCapsPunishMode 1# time in minutes within which a warning remains valid # even after the user is punished, passed offences remain valid for this time period# hence a user could be punished twice for two consecutive offencesset vCapsSinTime 20# if punishment mode 2, set here the time in minutes the ban lastsset vCapsBanTime 10bind PUBM - * pCapsDetectproc pCapsDetect {nick uhost hand chan text} {    global vCapsBanTime vCapsFlagsAllow vCapsLengthAllow vCapsPercentAllow    global vCapsPunishMode vCapsSinBin vCapsSinTime vCapsWarnings    if {[botisop $chan]} {        if {![matchattr [nick2hand $nick] $vCapsFlagsAllow $chan]} {            set caps [regexp -all -- {[A-Z]} $text]            set total [string length [regsub -all -- {[\s]} $text {}]]            if {$total > $vCapsLengthAllow} {                set percent [expr {$caps * 100.0 / $total}]                if {$percent > $vCapsPercentAllow} {                    set now [unixtime]                    set max [expr {$now - ($vCapsSinTime * 60)}]                    lappend vCapsSinBin(${nick},$chan) $now                    foreach sin $vCapsSinBin(${nick},$chan) {                        if {$sin >= $max} {lappend newlist $sin}                    }                    set vCapsSinBin(${nick},$chan) $newlist                    if {[llength $vCapsSinBin(${nick},$chan)] > $vCapsWarnings} {                        switch -- $vCapsPunishMode {                            1 {}                            2 {                                pushmode $chan +b ${nick}!$uhost                                flushmode $chan                                timer $vCapsBanTime [list pushmode $chan -b ${nick}!$uhost]                            }                            default {return 0}                        }                        putkick $chan $nick "excess caps, you were warned"                    } else {                        set output "*** [llength $vCapsSinBin(${nick},$chan)] WARNING(S) *** within the last $vCapsSinTime minutes for excess caps"                        putserv "PRIVMSG $chan :$nick $output"                    }                }            }        }    }    return 0}# eof