Nice but you don't need some of the stuff. It could be written this way:

on @*:TEXT:*:#: {
  if ($nick !isop $chan) && (%capskick == on) && ($len($1-) > 5) {
    set %caps.percent $calc($regex($1-,/[A-Z]/g)/$len($1-)*100)
    if (%caps.percent > %caps.allowed) {
      inc %kick
      kick $chan $nick $round(%caps.percent,0) $+ % CAPS! 4[ $+ %kick $+ ]
      msg $chan $nick $+! , you got 10 minute time-out automatically for using Caps Lock!
    }
  }
  elseif ($nick !isop $chan) && ($1 == !capskick) {
    if ($2 == on) { set %capskick on | msg $chan Capskick is on }
    if ($2 == off) { set %capskick off | msg $chan Capskick is off }
    if ($2 == set) { set %caps.allowed $3 | msg $chan Caps allowed set to %caps.allowed $+ % }
  }
}