About this snippet
Overview
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..
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)
}
}
-