Easy Caps & Punctuation Protection

By Charlatan on Apr 19, 2017

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...

Comments

Sign in to comment.
Doggirl3   -  Apr 26, 2017

Is there a weather bot that gives a weather warning only in a irc chat room?
PamG.-Doggirl3

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.