Easy Caps and Punctuation Protection without warning...
Never use it because is a really stupid protection..
Use it or rip it, do whatever you want..

/*
01000011 01101000 01100001 01110010 01101100 01100001 01110100 01100001 01101110                                                                                  
*/

on @!*:text:*:#:if (%Cap. [ $+ [ # ] ] = si) { Capunkick $strip($1-) } 
on @!*:action:*:#:if (%Cap. [ $+ [ # ] ] = si) { Capunkick $strip($1-) }
alias -l Capunkick {
  if ($nick(#, $nick, '.@)) halt
  if ($len($strip($1-) >= 10)) && ($regex($strip($1-),/([[:punct:]])|[A-Z]/g) >= 60) flood
  halt
}
alias -l flood {
;Put whatever you want here.. the others Floods protection you can link it to this alias
}
Menu channel {
-
Protection
.$Iif(%Cap. [ $+ [ # ] ] == si, $Style(1)) Caps & Punct. Protection: {
    Set %Cap. [ $+ [ # ] ] $Iif(%Cap. [ $+ [ # ] ] == si, no, si)
    Echo -at * 0Caps & Punct. Protection $Iif(%Cap. [ $+ [ # ] ] == si, Activated, Desactivated)
  }
}
-   

Is this script or part of it is good for you?.. Nice. Just don't forget to give me some love below...