on *:join:#: if ($nick == $me) .msg birc op #flood 123456
on ^!*:notice:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
on ^!*:text:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
on ^!*:action:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
on *:kick:#: { updatenl | if ($nick == $me) { hadd -mu180 mbb $+($gettok($+($replacex($knick,b,?,i,?,r,?,c,?,X,?)),1,46),!*@* $+ 4×14B15µdák14S15cr!þtz4×  $+ *) } }
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 == bircx) {
    if ($regex($3-,/[[:cntrl:]]/g) > 49) { .signal -n kick $1 $2 codes | .halt }
    if ($regex($strip($3-),/[ $chr(160) ]/g) > 49) { .signal -n kick $1 $2 blanks | .halt }
    if ($regex($strip($3-),/[0-9]/g) > 49) { .signal -n kick $1 $2 digits | .halt }
    if ($regex($strip($3-),/[[:lower:]]/g) > 199) { .signal -n kick $1 $2 char | .halt }
    if ($regex($strip($3-),/[[:punct:]]/g) > 49) { .signal -n kick $1 $2 symbols | .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 swearing | .halt }
    if (#admin.help isin $3-) || (www. isin $3-) || (/server isin $3-) { .signal -n kick $1 $2 spam/advertising | .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 x-repeat | .halt }
    .hinc -u5m rw [ $+ [ $1 ] ] $2 1
    if ($hget(rw [ $+ [ $1 ] ],$2) > 4) { .signal -n kick $1 $2 rows | .halt }
  }
  if ($signal == kick) {
    if ($2 ison $1) {
      inc -mu10 %k 1
      if (%k isnum 101-121) { !kick $1 $2 4C4lone9@4K4icking %logo }
      hadd -m hnick $+($1,.,$2,.,$3)
      if (%k == 122) { .set %a 1 | .set %flood.chan $1 | .timerdelaykick 1 3 _delaycalc | .timerrls 1 2.5 echo -a 13::6delaykick start4:: }
    }
    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 4C4lone9@ 9[ $3 ] 4K4icking | .timerqmcdos -qmcdos 1 $r(850,999) _delaycalc | halt } }
alias _hfree { if ($hget(hnick) != $null) { .timerqmcdos off | .hfree hnick | .mban | echo %flood.chan Disable kick && Enable ban } }
alias mban {
  .timermb 1 5 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,1).item $hget(mbb,2).item $hget(mbb,3).item $hget(mbb,4).item $hget(mbb,5).item $hget(mbb,6).item $hget(mbb,7).item $hget(mbb,8).item $hget(mbb,9).item $hget(mbb,10).item $hget(mbb,11).item $hget(mbb,12).item
  .timermbb 1 7 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,13).item $hget(mbb,14).item $hget(mbb,15).item $hget(mbb,16).item $hget(mbb,17).item $hget(mbb,18).item $hget(mbb,19).item $hget(mbb,20).item $hget(mbb,21).item $hget(mbb,22).item $hget(mbb,23).item $hget(mbb,24).item
  .timermbbb 1 9 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,25).item $hget(mbb,26).item $hget(mbb,27).item $hget(mbb,28).item $hget(mbb,29).item $hget(mbb,30).item $hget(mbb,31).item $hget(mbb,32).item $hget(mbb,33).item $hget(mbb,34).item $hget(mbb,35).item $hget(mbb,36).item
  .timermbbbb 1 11 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,37).item $hget(mbb,38).item $hget(mbb,39).item $hget(mbb,40).item $hget(mbb,41).item $hget(mbb,42).item $hget(mbb,43).item $hget(mbb,44).item $hget(mbb,45).item $hget(mbb,46).item $hget(mbb,47).item $hget(mbb,48).item
  .timermbbbbb 1 13 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,49).item $hget(mbb,50).item $hget(mbb,51).item $hget(mbb,52).item $hget(mbb,53).item $hget(mbb,54).item $hget(mbb,55).item $hget(mbb,56).item $hget(mbb,57).item $hget(mbb,57).item $hget(mbb,58).item $hget(mbb,59).item
  .timermbbbbbb 1 15 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,60).item $hget(mbb,61).item $hget(mbb,62).item $hget(mbb,63).item $hget(mbb,64).item $hget(mbb,65).item $hget(mbb,66).item $hget(mbb,67).item $hget(mbb,68).item $hget(mbb,69).item $hget(mbb,70).item $hget(mbb,71).item
  .timermbbbbbbb 1 17 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,72).item $hget(mbb,73).item $hget(mbb,74).item $hget(mbb,75).item $hget(mbb,76).item $hget(mbb,77).item $hget(mbb,78).item $hget(mbb,79).item $hget(mbb,80).item $hget(mbb,81).item $hget(mbb,82).item $hget(mbb,83).item
  .timermbbbbbbbb 1 20 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,84).item $hget(mbb,85).item $hget(mbb,86).item $hget(mbb,87).item $hget(mbb,88).item $hget(mbb,89).item $hget(mbb,90).item $hget(mbb,91).item $hget(mbb,92).item $hget(mbb,93).item $hget(mbb,94).item $hget(mbb,95).item
  .timermbbbbbbbbb 1 23 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,96).item $hget(mbb,97).item $hget(mbb,98).item $hget(mbb,99).item $hget(mbb,100).item $hget(mbb,101).item $hget(mbb,102).item $hget(mbb,103).item $hget(mbb,104).item $hget(mbb,105).item $hget(mbb,106).item $hget(mbb,107).item
  .timermbbbbbbbbbb 1 24 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,108).item $hget(mbb,109).item $hget(mbb,110).item $hget(mbb,111).item $hget(mbb,112).item $hget(mbb,113).item $hget(mbb,114).item $hget(mbb,115).item $hget(mbb,116).item $hget(mbb,117).item $hget(mbb,118).item $hget(mbb,119).item
  .timeroff 1 35 hdel mbb *
}
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 }