on ^*:text:*:#: {
  if ($nick isreg #) && ($me isop #) {
    hinc -u3m x [ $+ [ # ] ] $nick 1
    hinc -u3m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
    if ($regex($1-,/[ $+ $chr(44) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick aphostropings }
    }
    if ($regex($1-,/[ $+ $chr(160) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick blankings }
    }
    if ($regex($1-,/[ $+ $chr(174) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick asciings }
    }
    if ($regex($1-,/[[:cntrl:]]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick controlings }
    }
    if ($regex($1-,/[A-Z]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick capsings }
    }
    if ($regex($1-,/[0-9]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick digitings }
    }
    if ($regex($1-,/[[:punct:]]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick symbolings }
    }
    if ($regex($1-,/[a-z]/g) > 199) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick charactings }
    }
    if ($regex($1-,/(#)/*) > 0) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick advertisings }
    }
    if ($regex($1-,/\b(babi|dick|fuck)\b/g) > 0) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick swearings }
    }
    if ($hget(x [ $+ [ # ] ],$nick) > 4) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick rowings }
    }
    if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick repeatings }
    }
    haltdef
  }
}
on ^*:notice:*:#: {
  if ($nick isreg #) && ($me isop #) {
    hinc -u3m x [ $+ [ # ] ] $nick 1
    hinc -u3m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
    if ($regex($1-,/[ $+ $chr(44) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick aphostropings }
    }
    if ($regex($1-,/[ $+ $chr(160) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick blankings }
    }
    if ($regex($1-,/[ $+ $chr(174) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick asciings }
    }
    if ($regex($1-,/[[:cntrl:]]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick controlings }
    }
    if ($regex($1-,/[A-Z]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick capsings }
    }
    if ($regex($1-,/[0-9]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick digitings }
    }
    if ($regex($1-,/[[:punct:]]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick symbolings }
    }
    if ($regex($1-,/[a-z]/g) > 199) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick charactings }
    }
    if ($regex($1-,/(#)/*) > 0) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick advertisings }
    }
    if ($regex($1-,/\b(babi|dick|fuck)\b/g) > 0) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick swearings }
    }
    if ($hget(x [ $+ [ # ] ],$nick) > 4) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick rowings }
    }
    if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick repeatings }
    }
    haltdef
  }
}
on ^*:action:*:#: {
  if ($nick isreg #) && ($me isop #) {
    hinc -u3m x [ $+ [ # ] ] $nick 1
    hinc -u3m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
    if ($regex($1-,/[ $+ $chr(44) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick aphostropings }
    }
    if ($regex($1-,/[ $+ $chr(160) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick blankings }
    }
    if ($regex($1-,/[ $+ $chr(174) $+ ]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick asciings }
    }
    if ($regex($1-,/[[:cntrl:]]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick controlings }
    }
    if ($regex($1-,/[A-Z]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick capsings }
    }
    if ($regex($1-,/[0-9]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick digitings }
    }
    if ($regex($1-,/[[:punct:]]/g) > 49) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick symbolings }
    }
    if ($regex($1-,/[a-z]/g) > 199) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick charactings }
    }
    if ($regex($1-,/(#)/*) > 0) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick advertisings }
    }
    if ($regex($1-,/\b(babi|dick|fuck)\b/g) > 0) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick swearings }
    }
    if ($hget(x [ $+ [ # ] ],$nick) > 4) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick rowings }
    }
    if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { 
      inc -u5 %x 
      if (%x isnum 0-20) { !.kick # $nick repeatings }
    }
    haltdef
  }
}