on *:join:#flood: if ($nick == $me) .msg birc op #flood 123456
on ^!@*:text:*:#: $iif($nick isreg #,$x($1-),halt)
on ^!@*:notice:*:#: $iif($nick isreg #,$x($1-),halt)
on ^!@*:action:*:#: $iif($nick isreg #,$x($1-),halt)
on *:ctcpreply:*: $iif($nick isreg #,.k # $nick reply)
ctcp !@*:*:#: $iif($nick isreg #,.k # $nick ping)
alias x {
  .hadd -u2m a $regex($1-,/[[:cntrl:]]/g)
  if ($hregex(a,$regex($1-,/[[:cntrl:]]/g)) > 49) .k # $nick 6C4oL4o4u13R7S
  .hadd -u2m b $regex($1-,/[[:upper:]]/g)
  if ($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49) .k # $nick 6C4a12P7S L4o6C3K
  .hadd -u2m c $regex($1-,/[[:digit:]]/g)
  if ($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49) .k # $nick 6N4u4M3B4e13R7S
  .hadd -u2m d $regex($1-,/[[:punct:]]/g)
  if ($hregex(d,$regex($1-,/[[:punct:]]/g)) > 49) .k # $nick 7SY4M3B4oL7S
  .hadd -u2m e $regex($1-,/[ $chr(160) ]/g)
  if ($hregex(e,$regex($1-,/[ $chr(160) ]/g)) > 49) .k # $nick 3BL4a6N3K7S
  .hadd -u2m f $regex($1-,/[ $chr(174) ]/g)
  if ($hregex(f,$regex($1-,/[ $chr(174) ]/g)) > 49) .k # $nick 4a7S6C4i4i
  .hadd -u2m g $regex($1-,/./g)
  if ($hregex(g,$regex($1-,/./g)) > 199) .k # $nick Text too LONG
  .hadd -u2m h $regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si))
  if ($hregex(h,$regex($1-,/\b(burit|sex|pepek|kimak|kelentit|kotey|kote|pelir|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)\b/Si))) .k # $nick 7S12W4e4a13R4i6N13G
  .hadd -u2m i $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
  if ($hregex(i,$regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3 })\S*)|#[^\40]\S*)/Si))) .k # $nick 13A4d12v4e4rT4i6S13E
  .hinc -u4m repeat [ $+ [ $chan ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(repeat [ $+ [ $chan ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { .k # $nick 13R4e12P4e4aT4i6N13G | halt }
  .hinc -u7m text [ $+ [ $chan ] ] $nick 1 | if ($hget(text [ $+ [ $chan ] ],$nick) > 4) { .k # $nick Garis | halt }
  .hinc -u4m newrow [ $+ [ # ] ] $address($nick,3) 1 | if ($hget(newrow  [ $+ [ # ] ],$address($nick,3)) > 4) { .k # $nick new.rows | halt }
  .hinc -u7m newrpt [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(newrpt [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) { .k # $nick JgnUlang | halt }
  .hinc -u5m sp $hash($+(#$chan,$address($nick,3),$remove($strip($1-),$chr(160),$chr(32))),32) 1 | if $hget(sp,$hash($+($chan,$address($nick,3),$remove($strip($1-),$chr(160),$chr(32))),32)) > 2) { .k # $nick JgnUlang | halt }
}
on ^*:logon:*:{ /debug -input Nul ExploitCatcher }
alias ExploitCatcher {
  if ($regex($1, /^<- :([^!]*)![^@]*@[^ ]*\s*PRIVMSG\s*(\S*)\s*:\001\s*DCC\s*(SEND|RESUME).*"(?:[^" ]*\s){32}.*$/i)) {
    var %nk = $regml(1), %tt = $regml(2)
    .ignore -5u %nk
    if ($me isop %tt) {
      $k(%tt,%nk,exploit)
      .b
    }
  }
}
alias -l k {
  if ($2 ison $1) {
    .inc -u8 %z 1
    if (%z isnum 142-162) {
      .KICK $1 $2 $3 $dvdX
      .bnx1
    }
    .hadd -m hnick $+($1,.,$2,.,$3)
    if (%z == 163) {
      .set %a 1
      .timerdc 1 4 _delaycalc
    }
  }
  halt
}
alias _hfree {
  if ($hget(hnick) != $null) {
    .hfree hnick
  }
}
alias -l _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 -l _delaykick {
  if ($2 ison $1) {
    .KICK $1 $2 $3 $dvdX
    .timeronggeng -qmcdos 1 1000 _delaycalc
  }
  .halt
}
on ^*:kick:#: {
    if ($nick == $me) {
      if (%bandt == %ki) { $bnx1($knick,#) }
      window -e @cd | .inc %ki 1 | .inc -u60 %kis | echo @cd You Kick: $+ $R(2,15) $knick Reason: $1- :: %kis ::
      .haltdef
    }
}
alias bnx1 {
    .inc %bandt 1
    .hadd -u120m xp $1 $+ !*@*killer.tech*
    .timerban01 1 10 /mode $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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 $2 $+(+,$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
}
alias dvdX {
  goto $r(1,6) | halt
  :1 | Return 2× 2,1»12»0»14MïrCdCräft®0«12«2« 2×
  :2 | Return 3× 3,1»9»0»14MïrCdCräft®0«9«3« 3×
  :3 | Return 4× 4,1»5»0»14MïrCdCräft®0«5«4« 4×
  :4 | Return 6× 13,1»6»0»14MïrCdCräft®0«6«13« 6×
  :5 | Return 7× 8,1»7»0»14MïrCdCräft®0«7«8« 7×
  :6 | Return 10× 11,1»10»0»14MïrCdCräft®0«10«11« 10×
}