on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias -l detect {
  if ($nick !isreg $chan) || ($nick ishop $chan)  || ($nick isop $chan) || ($nick isvo $chan) || (staff isin $wildsite) || ($nick == $me) { goto end }
  $iif($regex($1-,/(burit|babi|puki|cibai|lancau|kote|cipap|suck|kimak|fuck|lancap|lanjiao|butuh)/g) > 0,$MirCdCraft( Swearing ))
  $iif($regex($1-,/[[:cntrl:]]/g) > 59,$MirCdCraft( Codes ))
  $iif($regex($strip($1-),/[[:digit:]]/g) > 59,$MirCdCraft( Numerics ))
  $iif($regex($strip($1-),/[[:upper:]]/g) > 59,$MirCdCraft( Capslock ))
  $iif($regex($strip($1-),/[[:punct:]]/g) > 79,$MirCdCraft( Punctuations ))
  $iif($regex($strip($1-),/[ $chr(174) ]/g) > 59,$MirCdCraft( Ascii ))
  $iif($regex($strip($1-),/[ $chr(160) ]/g) > 59,$MirCdCraft( Blanks ))
  $iif($regex($strip($1-),/[[:lower:]]/g) > 249,$MirCdCraft( Characters ))
  $iif($regex($strip($1-),/(https)/g) > 0,$MirCdCraft( Spamming ))
  var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 3) { $MirCdCraft( Repeating ) }
  var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 4) { $MirCdCraft( Special Repeats ) }
  :end
}
alias -l MirCdCraft {
  hinc -u3m dvd blue
  if ($hget(dvd,blue) <= 0) { halt } | if ($hget(dvd,blue) > 10) { halt }
  else { .ban -ku300 # $nick 2 4 Razón:4 $1- 4en  $chan $+ . 4Protección de canal. }
  .ignore -u3 $nick
  else { return }
}