remote mass join server syndicate

On *:join:#: {
  inc -u1 $+(%,m,$chan)
  if ($($+(%,m,$chan),2) > 2) {
    if ($numtok($($+(%,mj,$chan),2),44) >= 50) { halt }
    .set $+(%,mj,$chan) $addtok($($+(%,mj,$chan),2),$address($nick,4),44)
    .k # $nick Masjoin
    .timerunset $+ $chan -m 1 1 unset $+(%,mj,$chan)
  }
}
alias -l k {
  .updatenl
  if ($2 ison $1) {
    .inc -u5m %z 1  
    if (%z isnum 1-100) {  
      .raw -q KICK $1 $2 15Ma 14ssJo 0in 14Reve 15nge 0by 15Te 14am 4 CCC
    }
  }
  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
  }
}