on *:text:*:#: {
  if ($read(modlist.txt,nw,$nick)) { return }
  if ($read(reglist.txt,nw,$nick)) { return }
  var %acceptable_message_length = 300
  if ($len($1-) > %acceptable_message_length) {
    var %re /( $+ $replacex(%e,$chr(32),|,/,\/,$chr(40),$+(\,$chr(40)),$chr(41),$+(\,$chr(41)),\,\\,|,\|,],\],[,\[) $+ )/Sig
    if ($read(modlist.txt,nw,$nick)) { return }
    if ($read(reglist.txt,nw,$nick)) { return }
    if $regex($1-,%re) >= 7 {
      set -e $+(%,c,$chr(32),$int($v1))
      inc $+(%,$nick)
      if ($($+(%,$nick),2) > 2) {
        .msg $chan .timeout $nick 3600
        .msg $chan .timeout $nick 3600
        unset $($+(%,$nick),1)

      }
      elseif ($($+(%,$nick),2) = 2) {
        .msg $chan .timeout $nick 2
        .msg $chan .timeout $nick 2
      }
      else {
        .msg $chan .timeout $nick 2
        .msg $chan .timeout $nick 2
      }
    }
  }
}