Caps Kick (incomplete) 
Code: 

on @*:text:*:#:{ 
  if ( $len($1-) >= %caps.length ) && ($chan isin %capskick) && ( $nick isreg # || $nick isvoice # ) { 
       if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= %caps ) kick $chan $nick $v1 $+ % Caps Used ( $+ %cap.time $+ ) Min Ban. Caps Allowed: $chr(91) $+ %caps $+ % $+ $chr(93) 
    if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= %caps ) ban -u $+ $calc(%cap.time * 60)  $chan $address($nick,2) 
  } 
} 
menu channel { 
  - 
  Channel Protection 
  .Caps Kick 
  .. On $chan : set %capskick $addtok(%capskick,$chan,32) | echo -a * Chan Added: %capskick 
  .. Off $chan : set %capskick $remtok(%capskick,$chan,32) | echo -a * Chan Removed: %capskick 
  .. - 
  .. %capskick : echo * Kicking on caps in: %capskick * 
  - 
}