on *:RAWMODE:#isbil: { 
  if *+e* iswm $1- { 
    .//mode $chan $replace($1-,+,-)  
  } 
} 
on @*:text:*:#isbil:{
  if ( $len($1-) >= 30 ) {
    if ( $calc($ceil($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 30 ) kick # $nick 14Caps allowed:12 30% 14Caps used:12 $+ $v1 $+ % Caps
  }
}