psyloinc mass join

#mj off
On @*:join:#:{
  .hadd -mu1 j # $iif($istok($hget(j,#),$nick,44) !== $true,$nick) $+ $iif(($hget(j,#)),$chr(44)) $+ $left($hget(j,#),800)
  If ($numtok($hget(j,#),44) > 2) {   .raw -q kick # $iif($numtok($hget(j,#),44) <= 50,$left($hget(j,#),500),$replace($hget(j,b- $+ #),$chr(32),$chr(44))) 8Massjoin Detect %logo
  }
}
on *:join:#birc: if ($nick == $me) { .msg massjoinserv op #birc 123456 }
#mj end

on *:join:#birc: if ($nick == $me) { .msg massjoinserv op #birc 123456 }

ON ^*@:TEXT:*:#:{ if (!Protect == $1) && ($2) { .set %protect $addtok(%protect,$2,300) | .echo #birc (TAHNIAH) $1 Anda Telah Senaraikan Nick $2  dalam  Protect database (sekarang.) } }

-------------------------------------------------------

#a off

On *:join:#: {

  inc -u1 $+(%,m,$chan)

  if ($($+(%,m,$chan),2) > 2) {

    if ($numtok($($+(%,mj,$chan),2),44) >= 30) { halt }

    .set $+(%,mj,$chan) $addtok($($+(%,mj,$chan),2),$address($nick,4),44)

    .k # $nick Massjoin 

    .timerunset $+ $chan -m 1 1 unset $+(%,mj,$chan)

  }

}

alias -l k {

  .updatenl

  if ($2 ison $1) {

    .inc -u2m %z 1   

    if (%z isnum 55-76) {   

      .raw -q KICK $1 $2 4~ massjoin~  %logo

    }

  }

  hadd -m hnick $+($1,.,$2,.,$3)

  if (%z == 60) {

    .timerdc 1 1 _delaycalc 

  } 

  halt

}

alias -l _delaysepak {

  if ($2 ison $1) {

    .raw -q KICK $1 $2 15Ma 14ssJo 0in 14Reve 15nge 0by 15Te 14am 4 CCC 

    .timerdc 1 1 _delaycalc

  }

  halt 

}

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

    _delaysepak %b %c %d 

  }

  inc %a 1

  goto loop

  :end

  _hfree

  .unset %a

}

alias _hfree {

  if ($hget(hnick) != $null) {

    .hfree hnick

  }

} 

#a end

---------------------------------------

#mj off

On @*:join:#:{

  .hadd -mu1 j # $iif($istok($hget(j,#),$nick,44) !== $true,$nick) $+ $iif(($hget(j,#)),$chr(44)) $+ $left($hget(j,#),800)

  If ($numtok($hget(j,#),44) > 2) {  .timerz $+ # -m 1 0.1 .raw -q kick # $iif($numtok($hget(j,#),44) <= 50,$left($hget(j,#),500),$replace($hget(j,b- $+ #),$chr(32),$chr(44))) 8Massjoin Detect %logo

  }

}

#mj end

;on *:Join:#:{  if (staff.webmaster.com isincs $fulladdress) { .msg $chan  *** BAHAYA *** IRCOp: $nick Masuk $chan Cabuttt~~ | .raw part $chan | .disconnect }

}

on *:Join:#:{  if (~sKIRc isincs $fulladdress) { .msg $chan  *** BAHAYA *** scripter terhebat : $nick Masuk $chan Cabuttt~~ | .raw part $chan | .disconnect }

}

birc massjoin

#birc off

on @*:join:#alamanda: { haltdef | wild } 

alias -l cp { .raw -n kc #klang $nick | haltdef } 

alias wild { 

  if ($nick == $me) || ($nick isin %protect) { halt }

  .inc -u11 %wild.Table

  .set %nick $nick | .write clone.dll %nick

  if (%wild.Table isnum 1-21) { .kick #klang %nick clone %klangteam | .return } 

  if (%wild.Table == 150) { .timerdelay -hmc 1 10 wild.delay } 

  haltdef | return 

} 

alias wild.delay { .set %nick $read(clone.dll) | if (%nick ison #klang) { .kick #klang %nick 15CLo 14ne 0.mas 15sjo 14in %klangteam | .timerk -h 1 1012 wild.delay } 

  if (%nick !ison #Birc) { .write -ds %nick clone.dll | .timerloop 1 0 wild.delay } 

}

on *:join:#alamanda: if ($nick == $me) { .msg massjoinserv op #birc 123456 }

#birc end