on *:text:*:#irchelp: {
  if ($nick isreg $chan) && ($nick !ison #helpopers) {
    if ($len($1-) > 5) {
      set %caps.percent $calc($regex($1-,/[A-Z]/g)/$len($1-)*100)
      if (%caps.percent > %caps.allowed) {
        if ($eval($+(%,$nick,.,sp),2) > 0) {
          /mode $chan b $address($nick,2) | /kick $chan $nick I told you not to use so many caps, now go sit in your corner! | inc %kicked
          /timerba 1 $calc($eval($+(%,$nick,.,sp),2) * 600) /mode $chan -b $address($nick,2)
          inc % $+ $nick $+ .sp
        }
        else {
          kick $chan $nick Too many caps there | inc %kicked
          inc % $+ $nick $+ .sp
        }
      }
    }
  }
}