Free Massjoin Socket by at2deX Inc.

;.......................................................................................................................................................
on *:sockopen:kickass-mj:{ if ($sockerr) { .signal -n recon-mj | halt } | sockwrite -n $sockname nick $+(kickass,$r(1,999)) | sockwrite -n $sockname user $+(at2deX,$r(1,999)) . . KickAss by at2deX Inc. | set %logo-mj $r(1,7) }
on *:sockclose:kickass-mj:.signal -n recon-mj
;.......................................................................................................................................................
on *:sockread:kickass-mj:{
  if ($sockerr) { .signal -n recon-mj | halt }
  var %x | sockread %x | tokenize 32 %x
  if ($istok(ERROR 474,$2,32)) { .signal -n recon-mj }
  if ($1 == PING) { sockwrite -n $sockname PONG $2 }
  if ($2 == 441) { inc %miss | xdebug $color(normal) Miss: $4 is already kicked }
  if ($2 == MODE) && ($left($3,1) == $chr(35)) { xdebug $color(mode) $gettok($remove($1,$chr(58)),1,33) sets mode: $4- }
  if ($2 == NICK) && ($gettok($remove($1,$chr(58)),1,33) == $sock($sockname).mark) { sockmark $sockname $remove($3,:) }
  if ($2 == 001) { echos -d $color(normal) MJ socket connected | sockmark $sockname $3 | sockwrite -n $sockname nick %nick | sockwrite -n $sockname ns identify %pass | sockwrite -n $sockname join #birc | sockwrite -n $sockname away Powered by at2deX Inc. $chr(91) http://at2deX.blogspot.com/ $chr(93) }
  if ($2 == PRIVMSG) && ($3 == #birc) && (!$regex($1,mine.nu)) { xdebug $color(normal) $+(<,$gettok($remove($1,$chr(58)),1,33),>) $remove($mid($4-,2),
ACTION,
) | if (:bot-birc* iswm $1) && (*Commencing* iswm $strip($mid($4-,2))) && ($hget(clones,0).item) { .signal -n recon-mj } }
  if ($2 == JOIN) {
    var %j = $gettok($remove($1,$chr(58)),1,33)
    if (%j == $sock($sockname).mark) { echos -d $color(info) MJ socket joined #bIRC | sockwrite -n $sockname privmsg MassJoinServ op #birc 123456 }
    if ($regex($1,mine.nu)) { inc %mj | if (%mj isnum %isnum) { sockwrite -n $sockname kick #birc %j $logomj | halt } | if (%mj isnum $calc($gettok(%isnum,2,45) + 1)) { .timer-delaymj -mo 1 2000 .signal -n delaykick-mj } | hadd -m clones %j }
  }
  if ($2 == KICK) {
    var %kicker = $gettok($remove($1,$chr(58)),1,33)
    if (%kicker == $sock($sockname).mark) { inc %kicks } | if ($hfind(clones,$4)) { hdel clones $4 } | if ($4 == $sock($sockname).mark) { .signal -n recon-mj }
    xdebug 10 4 $+ $4 10was kicked by4 %kicker (4 $+ $iif(kickass isin $strip($mid($5-,2)) || %kicker == $sock($sockname).mark,$mid($5-,2),$strip($mid($5-,2))) $+ )
  }
}
;.......................................................................................................................................................
on *:signal:delaykick-mj:{
  if (!$hget(clones,0).item) { .signal -n recon-mj | halt }
  var %nick = $hget(clones,$r(1,$hget(clones,0).item)).item
  sockwrite -n kickass-mj kick #birc %nick $logomj
  hdel clones %nick
  .timer-delaymj -mo 1 1000 .signal -n delaykick-mj
}
;.......................................................................................................................................................
on *:signal:recon-mj:{
  .timer-delaymj off
  if (%kicks) || (%miss) { echos -d $color(kick) MJ Kicks: $iif(%kicks,%kicks,0) $+ / $+ $iif(%miss,%miss,0) }
  unset %mj %miss %kicks
  hfree -w clones *
  sockclose kickass-mj
  .timer-reconmj 1 1 sockopen kickass-mj zildjan.mine.nu 7000
  echos -d $color(normal) MJ socket reconnect..
}
;.......................................................................................................................................................
alias -l xdebug { if (!%debug) { set %debug on } | if (%debug == on) { if (!$window(@debug-MJ)) { window -e @debug-MJ } | echo $1 @debug-MJ $timestamp $2- } }
alias -l echos { echo $2 -s $timestamp $3- | if ($1 == -d) { xdebug $2- } }
on *:input:@debug-MJ:{ if ($left($1,1) != /) && ($sock(kickass-mj).status == active) { sockwrite -n kickass-mj privmsg #birc $1- | echo $color(normal) @debug-MJ < $+ $sock(kickass-mj).mark $+ > $1- | halt } }
;.......................................................................................................................................................
alias logomj {
  goto $iif(%logo-mj,%logo-mj,$r(1,7))
  :1 | return 14--15--0----7»4 Mass Join Removal 14x3 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :2 | return 14--15--0----7»4 Mass Join Removal 14x4 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :3 | return 14--15--0----7»4 Mass Join Removal 14x7 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :4 | return 14--15--0----7»4 Mass Join Removal 14x11 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :5 | return 14--15--0----7»4 Mass Join Removal 14x12 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :6 | return 14--15--0----7»4 Mass Join Removal 14x13 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
  :7 | return 14--15--0----7»4 Mass Join Removal 14x8 KickAss Script 14x4 at2deX Inc. Technologies  7«0---0-15--14--
}
;.......................................................................................................................................................
menu * {
  -x[ kickass mj ]x-
  .$iif(%nick,nick %nick,set nick):set %nick $?"Enter your bot's nickname"
  .$iif(%pass,pass %pass,set pass):set %pass $?"Enter your bot's password"
  .-
  .$iif(%isnum,isnum %isnum,set isnum):set %isnum $?"Enter isnum (23 clones). E.g.: 1-23"
  .-
  .load sock:.signal -n recon-mj
  .kill sock:sockclose kickass-mj | unset %miss %kicks %mj | hfree -w clones * | .timer-delaymj off | .timer-reconmj off | echos -d $color(info) MJ Socket successfully killed.
  .-
  .$iif(%debug == on,$style(1)) debug:set %debug $iif(%debug == on,off,on)
}
;.......................................................................................................................................................