on *:join:#flood:if ($nick == $me) { msg bIRC op #flood 123456 }
on ^*:part:#Flood: haltdef
on ^*:join:#Flood: haltdef
on ^*:ban:#Flood: { halt }
on ^*:unban:#Flood: { halt }
on ^!*:notice:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n kcXtreme # $nick $1- | .halt } }
on ^!*:text:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n kcXtreme # $nick $1- | .halt } }
on ^!*:action:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n kcXtreme # $nick $1- | .halt } }
ctcp ^*:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n kick # $nick ctcp | .halt } }
on !@*:CTCPREPLY:*:{ if ($me isop $comchan($nick,1)) && ($nick isreg $comchan($nick,1)) { .signal -n kick # $nick ctcp reply | .halt } }
on *:signal:*: {
  if ($signal == kcXtreme) {
    if ($regex($3-,/[[:cntrl:]]/g) > 49) { .signal -n kick $1 $2 Code | .halt }
    if ($regex($strip($3-),/[ $chr(160) ]/g) > 49) { .signal -n kick $1 $2 Blank | .halt }
    if ($regex($strip($3-),/[0-9]/g) > 49) { .signal -n kick $1 $2 Digit | .halt }
    if ($regex($strip($3-),/[[:lower:]]/g) > 199) { .signal -n kick $1 $2 Length | .halt }
    if ($regex($strip($3-),/[[:punct:]]/g) > 49) { .signal -n kick $1 $2 Punct | .halt }
    if ($regex($strip($3-),/[A-Z]/g) > 49) { .signal -n kick $1 $2 Caps | .halt }
    if ($regex($strip($3-),/[€-Ÿ|¡-ÿ]/g) > 49) { .signal -n kick $1 $2 Ascii | .halt }
    if ($istok($3-,shit,32)) || ($istok($3-,zakar,32)) || (fuck isin $remove($strip($3-),$chr(32))) || (suck isin $remove($strip($3-),$chr(32))) || ($istok($3-,babi,32)) { .signal -n kick $1 $2 Nasty | .halt }
    if (#admin.help isin $3-) || (www. isin $3-) || (/server isin $3-) { .signal -n kick $1 $2 Adv | .halt }
    .hinc -u3m rt [ $+ [ $1 ] $+ [ $2 ] ] $hash($remove($strip($3-),$chr(32)),32) 1
    if ($hget(rt [ $+ [ $1 ] $+ [ $2 ] ],$hash($remove($strip($3-),$chr(32)),32)) > 2) { .signal -n kick $1 $2 Repeat | .halt }
    .hinc -u3m sp [ $+ [ $1 ] $+ [ $2 ] ] $hash($remove($strip($3-),$chr(160),$chr(32)),32) 1
    if ($hget(sp [ $+ [ $1 ] $+ [ $2 ] ],$hash($remove($strip($3-),$chr(160),$chr(32)),32)) > 2) { .signal -n kick $1 $2 Repeats | .halt }
    .hinc -u5m rw [ $+ [ $1 ] ] $2 1
    if ($hget(rw [ $+ [ $1 ] ],$2) > 4) { .signal -n kick $1 $2 Row | .halt }
  }
  if ($signal == kick) {
    if ($2 ison $1) {
      inc -mu10 %k 1
      if (%k isnum 1-23) { !kick $1 $2 6,1«13«14kc13X14treme13(6 $3 13)14DirectKick13»6» }
      hadd -m hnick $+($1,.,$2,.,$3)
      if (%k == 24) { .set %a 1 | .set %flood.chan $1 | .timerdelaykick 1 3 _delaycalc }
    }
    halt
  }
}
alias _delaycalc {
  :loop
  if (%a == $hget(hnick,0).item) goto end
  var %b = $gettok($hget(hnick,%a).item,1,46)
  var %c = $gettok($hget(hnick,%a).item,2,46)
  var %d = $gettok($hget(hnick,%a).item,3,46)
  if (%c ison %b) {
    .inc %a 1
    _delaykick %b %c %d
  }
  .inc %a 1
  goto loop
  :end
  _hfree
  .unset %a
}
alias _delaykick { if ($2 ison $1) { !kick $1 $2 14× 6Betrayal begets blood. 14× 6,1«13«14kc13X14treme13(6 $3 13)14Overflow13»6» 14× 1,0[ %kis ] | .timerqmcdos -qmcdos 1 975 _delaycalc | halt } }
alias _hfree { if ($hget(hnick) != $null) { .timerqmcdos off | .hfree hnick | .bnx1 } }
on ^*:kick:#: {
    updatenl | if ($nick == $me) {
      if (%bandt == %ki) { $bnx1($knick,#) }
      window -e @kc | .inc %ki 1 | .inc -u60 %kis | echo @kc :: %kis ::
      .haltdef
    }
}
alias bnx1 {
    .inc %bandt 1
    .hadd -u120m xp $1 $+ !*@*kc.Xtreme*
    .timerban01 1 10 /mode #flood $+(+,$str(b,12)) $hget(xp,1).item $hget(xp,2).item $hget(xp,3).item $hget(xp,4).item $hget(xp,5).item $hget(xp,6).item $hget(xp,7).item $hget(xp,8).item $hget(xp,9).item $hget(xp,10).item $hget(xp,11).item $hget(xp,12).item
    .timerban02 1 12 /mode #flood $+(+,$str(b,12)) $hget(xp,13).item $hget(xp,14).item $hget(xp,15).item $hget(xp,16).item $hget(xp,17).item $hget(xp,18).item $hget(xp,19).item $hget(xp,20).item $hget(xp,21).item $hget(xp,22).item $hget(xp,23).item $hget(xp,24).item
    .timerban03 1 14 /mode #flood $+(+,$str(b,12)) $hget(xp,25).item $hget(xp,26).item $hget(xp,27).item $hget(xp,28).item $hget(xp,29).item $hget(xp,30).item $hget(xp,31).item $hget(xp,32).item $hget(xp,33).item $hget(xp,34).item $hget(xp,35).item $hget(xp,36).item
    .timerban04 1 16 /mode #flood $+(+,$str(b,12)) $hget(xp,37).item $hget(xp,38).item $hget(xp,39).item $hget(xp,40).item $hget(xp,41).item $hget(xp,42).item $hget(xp,43).item $hget(xp,44).item $hget(xp,45).item $hget(xp,46).item $hget(xp,47).item $hget(xp,48).item
    .timerban05 1 20 /mode #flood $+(+,$str(b,12)) $hget(xp,49).item $hget(xp,50).item $hget(xp,51).item $hget(xp,52).item $hget(xp,53).item $hget(xp,54).item $hget(xp,55).item $hget(xp,56).item $hget(xp,57).item $hget(xp,58).item $hget(xp,59).item $hget(xp,60).item
    .timerban06 1 22 /mode #flood $+(+,$str(b,12)) $hget(xp,61).item $hget(xp,62).item $hget(xp,63).item $hget(xp,64).item $hget(xp,65).item $hget(xp,66).item $hget(xp,67).item $hget(xp,68).item $hget(xp,69).item $hget(xp,70).item $hget(xp,71).item $hget(xp,72).item
    .timerban07 1 24 /mode #flood $+(+,$str(b,12)) $hget(xp,73).item $hget(xp,74).item $hget(xp,75).item $hget(xp,76).item $hget(xp,77).item $hget(xp,78).item $hget(xp,79).item $hget(xp,80).item $hget(xp,81).item $hget(xp,82).item $hget(xp,83).item $hget(xp,84).item
    .timerban08 1 26 /mode #flood $+(+,$str(b,12)) $hget(xp,85).item $hget(xp,86).item $hget(xp,87).item $hget(xp,88).item $hget(xp,89).item $hget(xp,90).item $hget(xp,91).item $hget(xp,92).item $hget(xp,93).item $hget(xp,94).item $hget(xp,95).item $hget(xp,96).item
    .timerban09 1 28 /mode #flood $+(+,$str(b,12)) $hget(xp,97).item $hget(xp,98).item $hget(xp,99).item $hget(xp,101).item $hget(xp,102).item $hget(xp,103).item $hget(xp,104).item $hget(xp,105).item $hget(xp,106).item $hget(xp,107).item $hget(xp,108).item $hget(xp,109).item
    .timerban10 1 30 /mode #flood $+(+,$str(b,12)) $hget(xp,110).item $hget(xp,112).item $hget(xp,113).item $hget(xp,114).item $hget(xp,115).item $hget(xp,116).item $hget(xp,117).item $hget(xp,118).item $hget(xp,119).item $hget(xp,120).item $hget(xp,121).item $hget(xp,122).item
    .timerban11 1 31 /mode #flood $+(+,$str(b,12)) $hget(xp,123).item $hget(xp,124).item $hget(xp,125).item $hget(xp,126).item $hget(xp,127).item $hget(xp,128).item $hget(xp,129).item $hget(xp,130).item $hget(xp,131).item $hget(xp,132).item $hget(xp,133).item $hget(xp,134).item
}
raw 0:*: { .clear -s | .halt }
raw 1:*: { .clear -s | .halt }
raw 2:*: { .halt }
raw 3:*: { .halt }
raw 4:*: { .halt }
raw 5:*: { .halt }
raw 6:*: { .halt }
raw 367:*: { .halt }
raw 368:*: { .halt }
raw 401:*: { .halt }
raw 441:*: { .halt }
raw 478:*: { .halt }
raw 482:*: { .halt }