Simple chan prot snippet

;;Simple chan prot as requested by bro banned, MrJeff, WarBlade & many others.

#prot1 off
ctcp !@*:*:#:butthole
on !@*:ctcpreply:*:butthole
On ^1:text:*:#:detect $1-
On ^1:notice:*:#:detect $1-
On ^1:action:*:#:detect $1-
alias detect {
  If ($nick !isreg #) || ($me !isop #) Return
  If (www. Isin $strip($1-)) || (http: Isin $strip($1-)) || ($chr(35) Isin $strip($1-)) || (/server Isin $strip($1-)) && ($chan !== $strip($1-)) { .butthole | Halt }
  If ($regex($1-,/(bastard|vagina|cibai|lancau|fuck|puki|kimak|kontol|cipap)/g) > 0 ) { .butthole | halt }
  If ($regex($1-,/[[:cntrl:]]/g) > 49) { .butthole | Halt }
  If ($regex($strip($1-),/[a-z]/g) > 49) { .butthole | Halt }
  If ($regex($strip($1-),/[0-9]/g) > 49) { .butthole | Halt }
  If ($regex($strip($1-),/[ $chr(44) ]/g) > 49) { .butthole | .halt }
  If ($regex($strip($1-),/[[:punct:]]/g) > 49) { .butthole | Halt }
  If ($regex($strip($1-),/[€-ÿ|¡-ÿ]/g) > 49) { .butthole | Halt }
  If ($regex($strip($1-),/./g) > 199) { .butthole | Halt }
  If ($regex($strip($1-),/[ ]/g) > 49) { .butthole | Halt }
  .inc -u3 $+(%,$nick,$chan,$1-) | If ($($+(%,$nick,$chan,$1-),2) = 3) { .butthole | Halt }
  .hinc -u4m Row [ $+ [ $hash($chan,32) ] ] $hash($nick,32) 1
  If ($hget(row [ $+ [ $hash($chan,32) ] ],$hash($nick,32)) > 4) { .butthole | Halt }
}
alias butthole {
  if ($me isop #) {
    .signal -n hp # $nick $1- %mylogo
    .inc %kcon 1
    .ignore -cnktu3 $nick
    .hinc -u5m C $address($nick,3) | .bastardchild
  }
}
On *:SIGNAL:hp:  {
  var %l = $hget(J,N)
  .hinc -u3m J N 1
  if (%l isnum 0-18) { !kick $1- }
  else { .timeronemorejustforfun 1 0.5 kick $1- }
}
alias bastardchild {
  .timerg $+ # 1 $r(1,3) .raw -q mode # + $+ $str(b,$hget(c,*).item) $hget(c,1).item $hget(c,2).item $hget(c,3).item $hget(c,4).item $hget(c,5).item $hget(c,6).item $hget(c,7).item $hget(c,8).item $hget(c,9).item $hget(c,10).item $hget(c,11).item $hget(c,12).item
}
raw *:*: {
  var %:N = $numeric
  if (%:N == 001) { halt } | if (%:N == 002) { halt } | if (%:N == 003) { halt } | if (%:N == 004) { halt } | if (%:N == 005) { halt } | if (%:N == 006) { halt } | if (%:N == 007) { halt } | if (%:N == 008) { halt } | if (%:N == 009) { halt } | if (%:N == 250) { halt } | if (%:N == 251) { halt } | if (%:N == 252) { halt } | if (%:N == 253) { halt } | if (%:N == 254) { halt } | if (%:N == 255) { halt }
  if (%:N == 265) { halt } | if (%:N == 266) { halt } | if (%:N == 353) { halt } | if (%:N == 302) { halt } | if (%:N == 366) { halt } | if (%:N == 367) { halt } | if (%:N == 368) { halt } | if (%:N == 372) { halt } | if (%:N == 375) { halt } | if (%:N == 376) { halt } | if (%:N == 401) { halt } | if (%:N == 441) { halt } | if (%:N == 442) { halt } | if (%:N == 478) { halt } | if (%:N == 494) { halt }
}
on @*:JOIN:#: {
  set -u3 %nflood. [ $+ [ # ] ] $addtok(%nflood. [ $+ [ # ] ],$nick,44)
  if ($gettok(%nflood. [ $+ [ # ] ],0,44) == $iif(%max.join,%max.join,4)) {
    .timeromg.kick. [ $+ [ # ] ] -m 3 1000 hardcock #
  }
}
alias hardcock {
  kick $1 $($+(%,nflood.,$1),2) %mylogo
  .timer $+ $r(100,999) 1 .5 mode # +R
  .timer $+ $r(100,999) 1 30 mode # -R
}
#prot1 end
#prot2 off
on *:deop:#: {
  if ($nick == chanserv) && ($opnick == $me) && ($nick != $me) { .timercbreopx 1 3 cs op # $me  | halt }
  if ($opnick == $me) && ($nick != $me) { .timercbreop 1 3 cs op # $me | halt }
}
on *:kick:*: {
  if ($nick == Chanserv) { halt }
  if ($knick == $me) && ($nick != Chanserv) { .timercbrejoin 1 10 j # | .timercbhate 1 1.2 cs deop # $nick | halt }
  if ($knick == $me) && ($nick == Chanserv) { ..timercbrejoin 1 15 j # | halt }
  else { halt }
}
on @*:ban:#: {
  if $banmask iswm $address($me,2) && $nick != $me { .timercbunban 1 2 mode # -b $banmask }
  if $banmask iswm $address($me,5) && $nick != $me { .timerubname 1 0.25 mode # -b $banmask }
  else { .halt }
}
#prot2 end
alias view {
   if  (%mylogo == $null) { .echo -a You have NOT set any logo yet duh! }
            else { .echo -a Current logo is %mylogo }
}
menu menubar,channel {
   -=Property of Cybersindiket Inc=-:.echo -a HQ http://cybersindiket-inc.tk | .echo -a News http://shallyrecordsnews.tk | .echo -a Chat via web http://a.md/shallyrecords | .echo -a I chat ONLY in my chan in #shallyrecords on webchat.
   Logo:
  .What?
  ..Script has no logo so add your own:halt
  ..set %mylogo $?="insert your logo here e.g Wet Pussy Script by MrJeff" | .echo -a Done setting
  ..unset %mylogo | .echo -a Done resetting.
  ..View:view
  Chan Flood Prot * %cfprot1 *
  .What?
  ..All flood protection including swearing and mass join:halt
  .on:.set %cfprot1 on | .enable #prot1
  .off:.set %cfprot1 off | .disable #prot1
  KBD Prot * %kbdprot *
  .What?
  ..Kick Ban Deop protection is passive and NOT revengeful in nature:halt
  .on:.set %kbdprot on | .enable #prot2
  .off:.set %kbdprot off | .disable #prot2
  -
}
;;copy and paste to your remote
;;addon requested by banned, MrJeff, WarBlade and others.
;;tested and works fine.
;;bug reports send a msg to the shoutbox @ http://blackscript.serveirc.com or join #shallyrecords if anyone is available.