Mine

on *:KICK:#isbil:{ if ($nick == [PCE]Terribot || $nick == $me) { halt }
  else {
    inc %kickcount
    /ban -ku120 $chan $nick 2 12 $+ 2 14min ban! Reason:12 Dont Kick in $chan $+ 14! N00bZ PwnT:12 %kickcount
  }
}
on *:BAN:#isbil:{ if ($nick == [pce]Terribot || $nick == $me) { halt }
  else {
    inc %kickcount
    /mode $chan -b $banmask | /ban -ku120 $chan $nick 2 12 $+ 2 14min ban! Reason:12 Dont Ban in $chan $+ 14! N00bZ PwnT:12 %kickcount
  }
}  
on @*:text:*:#isbil:{ if ($nick == [PCE]Terribot) { halt }
  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 $+ %
  }
} 
on *:RAWMODE:#isbil: { if +o iswm $1 || +b iswm $1 || +h iswm $1 || +v iswm $1 || +ao iswm $1 || $nick == $me || $nick == [PCE]Terribot { halt }
  if *+* iswm $1- {
    .//mode $chan $replace($1-,+,-)
  } 
}