on ^*:JOIN:#:{
  var %i = 1
  set -u30 %flood [ $+ [ $site ] ] $addtok(%flood [ $+ [ $site ] ] ,$nick,32)
  if $numtok(%flood [ $+ [ $site ] ] ,32) >= 3 {
    mode # +b $wildsite | timer2 1 70 mode # -R
    .ignore -a $wildsite
    {
      /kick # $gettok(%flood [ $+ [ $site ] ] ,%i,32) Channel FLooding.
      inc %i
    }
    unset %flood [ $+ [ $site ] ]
  }
}
on @*:text:*:#: {
  if (*http:* iswm $1- || *join #* iswm $1- || *www* iswm $1- || *ftp:* iswm $1-) {
    ban # $nick 2
    kick # $nick Spammer On $chan . !
  }
}
on *:invite:#:{
  var %a = $comchan($nick,0)
  var %b = 0
  var %c = $nick
  :start
  inc %b
  if ($me isop $comchan(%c,%b)) && (%c !isop $comchan(%c,%b)) {
    .raw -q kick $comchan(%c,%b) %c invites
    if (%a > %b) { goto start }
  }
  else { goto start }
}
on @*:TEXT:*:#:{if ($nick !isop #) {
  if (shit isin $1-) || (dick isin $1-) || (fuck isin $1-) {
    ban -u60 # $nick 11
    kick # $nick Swearing By : $nick
  }
}
on @*:JOIN:#:{
  if (*!*FUCK*@* iswm $fulladdress) || (*!*SHIT*@* iswm $fulladdress) || (*!*DICK*@* iswm $fulladdress) {
    ban -u60 # $nick 11
    kick # $nick Bad Identd at : $wildsite
  }
}
on ^*:open:?: {
  if ($query(0) > 5) {
    .ignore -pu45 *
    silence + $+ $wildsite
    echo -a Query window flood detected : $wildsite
    close -m
    mode $me +R
    haltdef
  }
}
ctcp *:*:*: {
  if (%ctcps == $null) { set -u8 %ctcps 1 | return }
  else { inc %ctcps }
  if (%ctcps > 3) {
    .ignore -u45 $wildsite
    echo -a Ctcp flood from $wildsite - Ignoring $wildsite for 50 sec.
  }
}
ctcp *:dcc *:*: { 
  if ($2 == send || $2 == chat) {
    if (%dccs. [ $+ [ $wildsite ] ] == $null) { set -u8 %dccs. [ $+ [ $wildsite ] ] 1 return } else { inc %dccs. [ $+ [ $wildsite ] ] } if (%dccs. [ $+ [ $wildsite ] ] > 3) { .ignore -tu45 $wildsite echo -a Dcc Flood from $wildsite - Ignoring ctcp from $wildsite for 50 sec.
    }
  }
}
on *:notice:*:*: {
  if (%notice. [ $+ [ $wildsite ] ] == $null) {
    set -u8 %notice. [ $+ [ $wildsite ] ] 1
    return
  }
  else { inc %notice. [ $+ [ $wildsite ] ] }
  if (%notice. [ $+ [ $wildsite ] ] > 3 && %notice.check == $null) {
    set -u6 %notice.check 1
    .ignore -nu45 $wildsite
    echo -s *** Notice flood from $wildsite - Ignoring notices for 50 sec.
  }
}
on *:NICK: {
  set -u60 %fld. [ $+ [ $address ] ] $calc( %fld. [ $+ [ $address ] ] + 1)
  if (%fld. [ $+ [ $address ] ] >= 5) {
    var %i = 0
    while (%i < $comchan($newnick,0)) { 
      inc %i 
      ban -u60 $comchan($newnick,%i) $newnick 2
      kick $comchan($newnick,%i) $newnick Nick Flooding at :$wildsite
    }
  }
  on @*:text:*:#: {
    if ($nick !isop #) {
      if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
        set -u60 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
        set -u60 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1-
        return
      }
      var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
      var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
      if (%rpt == $1-) {
        inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
        if (%rps > 2) {
          ban # $nick 2
          kick # $nick Reapeat %rps Time !
        }
      }
    }
  }
  on @*:JOIN:#:{
    if ($ial == $false) .ial on
    if ($chan(#).ial == $false) { who # | return }
    var %total = $ialchan($wildsite,#,0)
    if (%total > 1) {
      ban -u60 # $nick 2
      var %i = 0
      while (%i < %total) {
        inc %i
        var %nick = $ialchan($wildsite,#,%i).nick
        var %all.nicks = $addtok(%all.nicks,%nick,32)
        if (%nick !isop #) {
          kick # $nick Clone detected at : $wildsite ( $+ %total users)
        }
      }
      echo 4 -a  Clone detected at : $wildsite $+ : %all.nicks
    }
  }
  on @*:text:*:#: {
    if ($nick !isop # && $len($1-) > 300) {
      ban # $nick 2
      kick # $nick Kick To Long Msg !
    }
  }
  on 1:TEXT:*fuck*:#:/ban $chan $nick 2 | /kick $chan $nick   Bad WorDs  %astr 
  on 1:TEXT:*asshol*:#:/ban $chan $nick 2 | /kick $chan $nick   Bad WorDs  %astr 
  on 1:TEXT:*dick*:#:/ban $chan $nick 2 | /kick $chan $nick  Bad WorDs  %astr 
  on 1:TEXT:*shit*:#:/ban $chan $nick 2 | /kick $chan $nick  Bad WorDs  %astr 
  on 1:TEXT:*bitch*:#:/ban $chan $nick 2 | /kick $chan $nick  Bad WorDs  %astr 
  on 1:TEXT:*porn*:#:/ban $chan $nick 2 | /kick $chan $nick  Bad_WorDs  %astr 
  on 1:TEXT:*sex*:#:/ban $chan $nick 2 | /kick $chan $nick  Dont Say Sex  %astr
  #on 1:TEXT:*#*:#:/ban $chan $nick 2 | /kick $chan $nick 12,15      %astr
  on 1:TEXT:*  *:#:/ban $chan $nick 2 | /kick $chan $nick  12,15      %astr
  on 1:TEXT:*  *:#:/ban $chan $nick 2 | /kick $chan $nick 12,15      %astr
  on 1:TEXT:**:#:/ban $chan $nick 2 | /kick $chan $nick 12,15      %astr
  on 1:TEXT:**:#:/ban $chan $nick 2 | /kick $chan $nick  12,15      %astr
  on 1:TEXT:*:#:/ban $chan $nick 2 | /kick $chan $nick  12,15      %astr
  on 1:TEXT:*:#:/ban $chan $nick 2 | /kick $chan $nick  12,15      %astr
  on 1:TEXT:010:#:/ban $chan $nick 2 | /kick $chan $nick Dont Say 010  %astr
}
on @1:ban:#:{ 
  set %flterban 1 
  goto kick
  :kick
  set %flterbankick $ialchan($banmask,#,%flterban).nick
  if (%flterbankick == $null ) { goto end }  
  if (%flterbankick isop #) { goto end }
  kick # %flterbankick 12This Ip4 $banmask 12Was Banned By4 $Nick
  inc %flterban 1
  goto kick
  :end
  unset %banflte*
}
on @*:JOIN:#:{
  if (%clone-kick == on) {
    if ($ialchan($address($nick,1),$chan,1).nick isop $chan) || ($ialchan($address($nick,1),$chan,1).nick isvo $chan) || ($ialchan($address($nick,2),$chan,2).nick isop $chan) || ($ialchan($address($nick,2),$chan,2).nick isvo $chan) { goto end }
    if ($ialchan($address($nick,1),$chan,N) >= 2) {
      goto kick
    }
    else { goto end }
    :kick
    ban $chan $ialchan($address($nick,1),$chan,2).nick 2 
    kick $chan $ialchan($address($nick,1),$chan,2).nick Clone Detected
    kick $chan $ialchan($address($nick,2),$chan,2).nick Clone Detected
    :end
  }
}
#noctcp on
ctcp *:finger:#:{
  if ($nick !isop $chan) {
    .mode $chan +bRm $wildsite 
    ignore -u40 $wildsite
    kick $chan $nick Ctcp Is Not Allowed here...!
    .timer 1 22 /mode # -mR
  }
}
ctcp *:VERSION:#:{
  if ($nick !isop $chan) {
    .mode $chan +bRm $wildsite 
    ignore -u40 $wildsite
    kick $chan $nick Ctcp Is Not Allowed here...!
    .timer 1 22 /mode # -mR
  }
}
ctcp *:time:#:{
  if ($nick !isop $chan) {
    .mode $chan +bRm $wildsite 
    ignore -u40 $wildsite
    kick $chan $nick Ctcp Is Not Allowed here...!
    .timer 1 22 /mode # -mR
  }
}
#noctcp end
on *:TEXT:*:#:{   
  inc %textflood. [ $+ [ $nick ] ] | .timer 1 6 unset %textflood. [ $+ [ $nick ] ]
  if (%textflood. [ $+ [ $nick ] ] >= 4) { 
    if ($nick isop $chan) || ($nick isvo $chan) { halt }
    if ($me isop $chan) { ban -u300 $chan $nick 3 | kick $chan $nick  }
    else { .ignore -cu10 $nick 2 }
  }
}
on *:TEXT:*#*:?:{ var %invito = $comchan($nick,0) | while (%invito) { if ($nick !isop $comchan($nick,%invito)) { if ($comchan($nick,%invito).op) { ban $comchan($nick,%invito) $nick | kick $comchan($nick,%invito) $nick 12   } | else { msg $comchan($nick,%invito) $nick 4<12===2    } } | dec %invito } | closemsg $nick
}
on ^*:JOIN:#:{ 
  var %i = 1 
  set -u30 %flood ] $addtok(%flood ] ,$nick,32) 
  if $numtok(%flood ] ,32) >= 3 { 
    ignore -ctnu350 $wildsite 
    /mode # +b+miRc $wildsite 
    { 
      /kick # $gettok(%flood ] ,%i,32) 1,11,115,1514,141,11,11,115,1514,141,11,11,115,1514,141,10,01NoFLoOoD # 1,11,115,1514,141,11,11,115,1514,141,11,11,115,1514,141,10`7alooDy1,11,115,1514,141,10ScRipT1,11,115,1514,141,10v41,11,115,1514,141,11,11,115,1514,141,11,11,115,1514,141,1
      inc %i 
    } 
    unset %flood ] 
  } 
} 
#quitpro on
on *:quit:{ if ($nick != $me) { 
    set %quitcolor $count($1-,)
    if (%quitcolor > 40) && ($me isop $comchan($nick,1)) /mode $comchan($nick,1) +mRb $wildsite 
    halt
    set %quit2color $count($1-,)
    if (%quit2color > 30) && ($me isop $comchan($nick,1)) /mode $comchan($nick,1) +mRb $wildsite 
    halt 
  }
}
#quitpro end
on @1:text:*:#:{ 
  if (%check [ $+ [ $chan [ $+ [ $nick ] ] ] ] == $null )  { set %check [ $+ [ $chan [ $+ [ $nick ] ] ] ] $1-  | .timer 1 30 unset %check [ $+ [ $chan [ $+ [ $nick ] ] ] ] }
  elseif ((%check [ $+ [ $chan [ $+ [ $nick ] ] ] ] == $1- ) && (%check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] == $null )) { set %check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] $1- | .notice $nick 4(12 $+ $chan $+ 4)        | .timer 1 30 unset %check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] }
  elseif (%check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ] == $1- ) { raw -q mode $chan +b $wildsite  |  raw -q kick $chan $nick :  Repeating   | unset %check [ $+ [ $chan [ $+ [ $nick ] ] ] ] | unset %check2 [ $+ [ $chan [ $+ [ $nick ] ] ] ]  }
}
on 1:MODE:#:{
  if ($nick == $me) || (chanserv == $nick) || ($network == $nick) { halt }
  if (%takeoverpro == ON) {
    if ($me isop $chan) {
      if ( R isin $1- ) { ban # $nick 2 | kick # $nick TakeOver Pro! By Hummer | mode # - $+ $remove($1-,+) }
    }
  }
}
on *:JOIN:#:{
  if ($me isop $chan) && ($len($nick) = 6) { .set %lett abcdefjhigklmnopqrstuvwxyz | .set %num 1234567890 }
  if ($me isop $chan) && ($len($nick) = 6) && ($left($nick,1) isin %lett) && ($mid($nick,2,1) isin %lett) && ($mid($nick,3,1) isin %lett) && ($mid($nick,4,1) isin %lett) && ($mid($nick,5,1) isin %num) && ($right($nick,1) isin %num) && ($nick ison $chan) {
    if ($mid($address,1,1) isin %lett) && ($mid($address,2,1) isin %lett) && ($mid($address,3,1) isin %lett) && ($mid($address,4,1) isin %lett) && ($mid($address,5,1) isin %num) && ($mid($address,6,1) isin %num) { kick # $nick  4Turbo Inviter OUT   | ban -u600 # $nick 2 | unset %num %lett }
  }
}
on @1:join:#:{
  inc -u12 %join. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
  if (%join. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 2) {
    mode # +b $wildsite 
  }
}
on @1:text:*:#:{
  if ($nick !isvo #) && ($nick !isop #) && ($len($strip($1-)) > 250) {
    mode # +b $wildsite
    kick # $nick Long text
  }
}
on @1:notice:*:#:{
  if ($nick !isvo #) && ($nick !isop #) && ($len($strip($1-)) > 250) {
    mode # +b $wildsite
    kick # $nick Long notice
  }
}
on @1:action:*:#:{
  if ($nick !isvo #) && ($nick !isop #) && ($len($strip($1-)) > 250) {
    mode # +b $wildsite
    kick # $nick Long action
  }
}
on @1:join:#:{
  if (fuck isin $nick) || (bitch isin $nick) || (gay isin $nick) || (sex isin $nick) || (dick isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) || ( isin $nick) {
    mode # +b $wildsite 
    kick # $nick Bad Nick
  }
}
on @1:nick:{
  if (fuck isin $newnick) || (bitch isin $newnick) || (gay isin $newnick) || (sex isin $newnick) || (dick isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) || ( isin $newnick) {
    set %i $comchan($newnick,0) 
    while (%i) {
      set %i2 $comchan($newnick,%i)
      if ($me isop %i2) && ($newnick !isvo %i2) && ($newnick !isop %i2) {
        mode %i2 +b $wildsite 
        kick %i2 $newnick Bad Nick
      }
      dec %i
    }
  }
}
on @1:action:slap*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    mode # +b $wildsite 
    kick # $nick Slap!
  }
}
ctcp @1:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if (sound isin $1-) || (wav isin $1-) || (mp3 isin $1-) || (mid isin $1-) {
      mode # +b $wildsite
      kick # $nick Sounds
    }
  }
}
on @1:text:*:#:{
  if ($nick !isvo #) && ($nick !isop #) && ($len($1-) > 10) {
    unset %i2
    set %i $len($1-)
    while (%i) {
      if ($asc($mid($1-,%i,1)) isnum 65-90) { inc %i2 }
      dec %i
    }
    if (%i2 > $calc($len($1-) / 4)) { 
      mode # +b $wildsite
      kick # $nick CAPS (Excessive capital letters)
    }
  }
}
on @1:notice:*:#:{
  if ($nick !isvo #) && ($nick !isop #) && ($len($1-) > 10) {
    unset %i2
    set %i $len($1-)
    while (%i) {
      if ($asc($mid($1-,%i,1)) isnum 65-90) { inc %i2 }
      dec %i
    }
    if (%i2 > $calc($len($1-) / 4)) { 
      mode # +b $wildsite
      kick # $nick CAPS (Excessive capital letters)
    }
  }
}
on @1:action:*:#:{
  if ($nick !isvo #) && ($nick !isop #) && ($len($1-) > 10) {
    unset %i2
    set %i $len($1-)
    while (%i) {
      if ($asc($mid($1-,%i,1)) isnum 65-90) { inc %i2 }
      dec %i
    }
    if (%i2 > $calc($len($1-) / 4)) { 
      mode # +b $wildsite
      kick # $nick CAPS (Excessive capital letters)
    }
  }
}
on @1:text:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    unset %i2
    set %i $len($1-)
    while (%i) {
      if ($asc($mid($1-,%i,1)) isnum 33-47) || ($asc($mid($1-,%i,1)) isnum 123-137) || ($asc($mid($1-,%i,1)) isnum 144-155) || ($asc($mid($1-,%i,1)) isnum 163-177) || ($asc($mid($1-,%i,1)) isnum 182-192) || ($asc($mid($1-,%i,1)) isnum 231-251) {
        inc %i2 
      }
      dec %i
    }
    if (%i2 > $calc($len($1-) / 4)) { 
      mode # +b $wildsite
      kick # $nick Strange/freak fonts!
    }
  }
}
on @1:notice:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    unset %i2
    set %i $len($1-)
    while (%i) {
      if ($asc($mid($1-,%i,1)) isnum 33-47) || ($asc($mid($1-,%i,1)) isnum 123-137) || ($asc($mid($1-,%i,1)) isnum 144-155) || ($asc($mid($1-,%i,1)) isnum 163-177) || ($asc($mid($1-,%i,1)) isnum 182-192) || ($asc($mid($1-,%i,1)) isnum 231-251) {
        inc %i2 
      }
      dec %i
    }
    if (%i2 > $calc($len($1-) / 4)) { 
      mode # +b $wildsite
      kick # $nick Strange/freak fonts!
    }
  }
}
on @1:action:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    unset %i2
    set %i $len($1-)
    while (%i) {
      if ($asc($mid($1-,%i,1)) isnum 33-47) || ($asc($mid($1-,%i,1)) isnum 123-137) || ($asc($mid($1-,%i,1)) isnum 144-155) || ($asc($mid($1-,%i,1)) isnum 163-177) || ($asc($mid($1-,%i,1)) isnum 182-192) || ($asc($mid($1-,%i,1)) isnum 231-251) {
        inc %i2 
      }
      dec %i
    }
    if (%i2 > $calc($len($1-) / 4)) { 
      mode # +b $wildsite
      kick # $nick Strange/freak fonts!
    }
  }
}
on @1:text:*:#:{ 
  if ($nick !isvo #) && ($nick !isop #) {
    set %i $gettok($1-,0,32)
    while (%i) {
      if ($len($gettok($1-,%i,32)) = 7) && ($gettok($1-,%i,32) isnum) { 
        mode # +b $wildsite
        kick # $nick phone number kick
      }
      dec %i
    }
  }
}
on @1:notice:*:#:{ 
  if ($nick !isvo #) && ($nick !isop #) {
    set %i $gettok($1-,0,32)
    while (%i) {
      if ($len($gettok($1-,%i,32)) = 7) && ($gettok($1-,%i,32) isnum) { 
        mode # +b $wildsite
        kick # $nick phone number kick
      }
      dec %i
    }
  }
}
on @1:action:*:#:{ 
  if ($nick !isvo #) && ($nick !isop #) {
    set %i $gettok($1-,0,32)
    while (%i) {
      if ($len($gettok($1-,%i,32)) = 7) && ($gettok($1-,%i,32) isnum) { 
        mode # +b $wildsite
        kick # $nick phone number kick
      }
      dec %i
    }
  }
}
on 1:join:#:{
  inc -u6 %join/part. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ]
  if (%join/part. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 2) {
    if ($me isop #) {
      mode # +Rb $wildsite
    }
    ignore -tkdu300 $wildsite
  }
}
on 1:join:#:{
  inc -u8 %floodquit. [ $+ [ $wildsite ] ] 
  inc -u4 %fastquit. [ $+ [ $wildsite ] ]
  set -u22 %fastquitCHAN. [ $+ [ $wildsite ] ] #
}
on 1:quit:{
  if (%fastquit. [ $+ [ $wildsite ] ] > 1) {
    if ($me isop %fastquitCHAN. [ $+ [ $wildsite ] ]) {
      mode %fastquitCHAN. [ $+ [ $wildsite ] ] +Rb $wildsite 
    }
    halt
  }
  if (%fastquit. [ $+ [ $wildsite ] ] != $null) || (%floodquit. [ $+ [ $wildsite ] ] > 1) {
    ignore -tkdu300 $wildsite
    if ($me isop %fastquitCHAN. [ $+ [ $wildsite ] ]) {
      mode %fastquitCHAN. [ $+ [ $wildsite ] ] +b $wildsite 
    }
  }
}
on ^1:text:!list*:#:{
  if ($me isop #) {
    mode # +mb $wildsite 
  }
  ignore -tkdcu300 $wildsite
  halt
}
ctcp ^1:*:#:{
  inc -u2 %ctcp
  if (%ctcp > 6) {
    ignore -tku300 *!*@* 
  }
  if ($me isop #) && ($nick !isvo #) && ($nick !isop #) {
    set %i $comchan(0)
    while (%i) {
      set %i2 $comchan(%i)
      if ($me isop %i2) { mode %i2 +mb $wildsite }
      dec %i
    }
  }
  ignore -tdku600 $wildsite
  echo 4 -a $asctime([h:nn]) [[ $+ $nick $+ : $+ # $1- $+ ]]
  halt
}
on 1:text:*:#:{
  if ($words($1-,$0)) {
    ignore -ctkdu300 $wildsite
    if ($me isop #) mode # +b $wildsite
  }
}
on 1:notice:*:#:{
  if ($words($1-,$0)) {
    ignore -ntkdu300 $wildsite
    if ($me isop #) mode # +b $wildsite
  }
}
on 1:action:*:#:{
  if ($words($1-,$0)) {
    ignore -ctkdu300 $wildsite
    if ($me isop #) mode # +b $wildsite
  }
}
on 1:part:#:{
  if ($words($1-,$0)) {
    ignore -tkd300 $wildsite
    if ($me isop #) mode # +b $wildsite 
  }
}

on 1:quit:{ 
  if ($words($1-,$0)) {
    ignore -tkd300 $wildsite
    set %i $chan(0)
    while (%i) {
      set %i2 $chan(%i)
      if ($me isop %i) mode %i2 +b $wildsite
      dec %i
    }
  }
}

alias words {
  if ($2 = 1) && ($len($1) > 125) {
    return $true 
    halt 
  } 
  if ($2 isnum 2-6) && ($calc($len($1) / $2) > 25) {
    return $true 
    halt 
  }
  if ($2 > 6) && ($calc($len($1) / $2) > 20) {
    return $true 
    halt 
  } 
  if ($len($1) > 20) && ($count($1,,,,,,	) > $len($strip($1))) {
    return $true 
    halt 
  } 
}
on *:open:?:{ 
  inc -u3 %open 
  if (%open > 6) ignore -tkpu120 *!*@* 
  inc -u7 %open. [ $+ [ $wildsite ] ] 
  if (%open. [ $+ [ $wildsite ] ] > 2) { 
    ignore -tkpu300 $wildsite 
  } 
}
on *:close:?:dec %open. [ $+ [ $wildsite ] ]
on *:notice:*:?:{ 
  if (serv !isin $nick) { 
    inc -u2 %notice 
    if (%notice > 4) ignore -nu120 *!*@* 
    inc -u5 %notice. [ $+ [ $wildsite ] ] 
    if (%notice. [ $+ [ $wildsite ] ] > 4) { 
      ignore -tknu300 $wildsite 
    } 
  } 
} 
on ^1:text:!list*:?:{
  ignore -tkdpu300 $wildsite
  close -m $nick
  halt
}
ctcp *:*:?:{ 
  inc -u4 %ctcp 
  if (%ctcp > 6) ignore -tu120 *!*@* 
  inc -u5 %ctcp. [ $+ [ $wildsite ] ] 
  if (%ctcp. [ $+ [ $wildsite ] ] > 4) { ignore -tku300 $wildsite } 
} 
ctcp *:DCC*:?:{ 
  inc -u5 %chat 
  if (%chat > 4) ignore -du120 *!*@* 
  inc -u10 %chat. [ $+ [ $wildsite ] ] 
  if (%chat. [ $+ [ $wildsite ] ] > 3) { 
    ignore -tknu300 $wildsite 
  } 
}  
on @1:text:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if (%repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] = $strip($1-)) {
      inc -u10 %repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
      if (%repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 1) {
        mode # +b $wildsite 
        kick # $nick Repeating 
      }
    }
    else { set -u6 %repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] $strip($1-) }
  } 
}
on @1:notice:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if (%repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] = $strip($1-)) {
      inc -u10 %repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
      if (%repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 1) {
        mode # +b $wildsite 
        kick # $nick Repeating 
      }
    }
    else { set -u6 %repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] $strip($1-) }
  } 
}
on @1:action:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if (%repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] = $strip($1-)) {
      inc -u10 %repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
      if (%repeat2. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 1) {
        mode # +b $wildsite 
        kick # $nick Repeating 
      }
    }
    else { set -u6 %repeat1. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] $strip($1-) }
  } 
}
on @1:text:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    inc -u3 %flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
    if (%flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 4) {
      mode # +b $wildsite 
      kick # $nick Text flood
    }
  }
}
on @1:notice:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    inc -u3 %flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
    if (%flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 4) {
      mode # +b $wildsite 
      kick # $nick Notice flood
    }
  }
}
on @1:action:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    inc -u3 %flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] 
    if (%flood. [ $+ [ # ] $+ ] . [ $+ [ $wildsite ] ] > 4) {
      mode # +b $wildsite 
      kick # $nick Action flood
    }
  }
}
on 1:nick:{
  inc -u15 %nick. [ $+ [ $wildsite ] ]
  if (%nick. [ $+ [ $wildsite ] ] > 2) {
    set %i $comchan($newnick,0) 
    while (%i) {
      set %i2 $comchan($newnick,%i)
      if ($me isop %i2) && ($newnick !isvo %i2) && ($newnick !isop %i2) {
        mode %i2 +b $wildsite 
        kick %i2 $newnick Nick flood
      }
      dec %i
    }
  }
} 
on @1:text:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if ($count($1-,) > 50) || ($count($1-,) > 50) || ($count($1-,) > 50) {
      mode # +b $wildsite
      kick # $nick Excessive control codes
    }
  }
} 
on @1:notice:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if ($count($1-,) > 50) || ($count($1-,) > 50) || ($count($1-,) > 50) {
      mode # +b $wildsite
      kick # $nick Excessive control codes
    }
  }
} 
on @1:action:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if ($count($1-,) > 50) || ($count($1-,) > 50) || ($count($1-,) > 50) {
      mode # +b $wildsite
      kick # $nick Excessive control codes
    }
  }
}
on @1:join:#:{
  if ($ialchan($wildsite,#,0) > 1) && ($wildsite !iswm $address($me,5)) {
    set %i $ialchan($wildsite,#,0)
    while (%i) {
      set %i2 $ialchan($wildsite,#,%i).nick
      if (%i2 !isvo #) && (%i2 !isop #) { 
        mode # +b $wildsite 
        kick # %i2 Clone 
      }
      dec %i
    } 
  }
} 
on @1:ban:#:{ 
  set %i $ialchan($banmask,#,0)
  while (%i) {
    set %i2 $ialchan($banmask,#,%i).nick
    if (%i2 !isvo #) && (%i2 !isop #) {
      kick # %i2 Banned by $nick 
    }
    dec %i
  }
}
on @1:text:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if (fuck isin $1-) || (bitch isin $1-) || (gay isin $1-) || (sex isin $1-) || (dick isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) {
      mode # +b $wildsite 
      kick # $nick Swearing
    }
  }
}
on @1:notice:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if (fuck isin $1-) || (bitch isin $1-) || (gay isin $1-) || (sex isin $1-) || (dick isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) {
      mode # +b $wildsite 
      kick # $nick Swearing
    }
  }
}
on @1:action:*:#:{
  if ($nick !isvo #) && ($nick !isop #) {
    if (fuck isin $1-) || (bitch isin $1-) || (gay isin $1-) || (sex isin $1-) || (dick isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) || ( isin $1-) {
      mode # +b $wildsite 
      kick # $nick Swearing
    }
  }
}
