on !*:text:*:#:{
  if ($read(modlist.txt,nw,$nick)) { return }
  if ($read(reglist.txt,nw,$nick)) { return }
  if ( $len($1-) >= 13 ) {
    if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 70 ) {

      if !$istok(%caps.warned,$nick,32) {
        var %re /( $+ $replacex(%e,$chr(32),|,/,\/,$chr(40),$+(\,$chr(40)),$chr(41),$+(\,$chr(41)),\,\\,|,\|,],\],[,\[) $+ )/Sig
        if ($read(modlist.txt,nw,$nick)) { return }
        if ($read(reglist.txt,nw,$nick)) { return }
        if $regex($1-,%re) >= 7 {
          set -e $+(%,c,$chr(32),$int($v1))
          inc $+(%,$nick)
          if ($($+(%,$nick),2) > 2) {
            .msg $chan .timeout $nick 3600
            .msg $chan .timeout $nick 3600
            unset $($+(%,$nick),1)

          }
          elseif ($($+(%,$nick),2) = 2) {
            .msg $chan .timeout $nick 2
            .msg $chan .timeout $nick 2
          }
          else {
            .msg $chan .timeout $nick 2
            .msg $chan .timeout $nick 2
          }
        }
      }
    }
  }
}