MJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ Mas JoKo

#massjoin on
on @!*:join:#:{
  if ($chan == %temp.flood. [ $+ [ $chan ] ]) { return }
  if ($chan isin %prot.ignore2) { return }
  if (%prot.join == off) return
  if (%tempcp.halt. [ $+ [ $chan ] ] == $chan) { return }
  if ( ~ isin $gettok($gettok($address($nick,5),2,33),1,64) ) && ( %dr.Block.4 [ $+ [ $chan ] ]  !== On ) && $hget(splitquit,$wildsite) = $null {
    inc -u3 %dr.sam.1. [ $+ [ $chan ] $+ [ $mid($nick , 1 , 4) ] ] 1
    inc -u3 %dr.sam.2. [ $+ [ $chan ] $+ [ $mid($gettok($gettok($address($nick,5),2,33),1,64),2,2) ] ] 1
    if ( %unsetme !== On) && ( %dr.sam.1. [ $+ [ $chan ] $+ [ $mid($nick , 1 , 4 ) ] ] > 1 ) {
      set -u3 %drpcollect $deltok($address($nick,2),-2-,46) $+ .* $addtok(%drpcollect,$mid( $nick ,1,4) $+ *!~*@*,32)
      set -u3 %unsetme On
    }
    if ( %unsetme1 !== On) && ( %dr.sam.2. [ $+ [ $chan ] $+ [ $mid($gettok($gettok($address($nick,5),2,33),1,64),2,2) ] ] > 1 ) {
      set -u3 %drpcollect $addtok(%drpcollect, $str(?,$len($nick)) $+ !~*@* *!~ $+ $mid($gettok($gettok($address($nick,5),2,33),1,64),2,2) $+ *@*,32)
      set -u3 %unsetme1 On
    }
    if %drpcollect !== $null && %drOnomb !== on { mode $chan +mibbbb %drpcollect | .timer4unban [ $+ [ $chan ] ] 1 60 mode $chan -bbbb %drpcollect | set -u5 %drOnomb on }
    goto block1
    :block1
    inc -u3 %chandrp [ $+ [ $chan ] ] 1
    if %chandrp [ $+ [ $chan ] ] > 2 {
      if (%dr.Block.1 [ $+ [ $chan ] ] == On ) { goto block2 }
      set -u1 %dr.nick.1. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.1. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.1. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.1. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u1 %dr.saf3.1. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u1 %dr.Block.1 [ $+ [ $chan ] ] On
      halt
      :block2
      if (%dr.Block.2 [ $+ [ $chan ] ] == On ) { goto block3 }
      set -u1 %dr.nick.2. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.2. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.2. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.2. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u1 %dr.saf3.2. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u1 %dr.Block.2 [ $+ [ $chan ] ] On
      .ignore -u5 *!~*@*
      halt
      :block3
      if (%dr.Block.3 [ $+ [ $chan ] ] == On ) { goto block4 }
      set -u1 %dr.nick.3. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.3. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.3. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.3. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u1 %dr.saf3.3. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u1 %dr.Block.3 [ $+ [ $chan ] ] On
      halt
      :block4
      if (%dr.Block.4 [ $+ [ $chan ] ] == On ) { goto block5 }
      set -u1 %dr.nick.4. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.4. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.4. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.4. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u20 %dr.Block.4 [ $+ [ $chan ] ] On
      .ignore -u25 *!*@* | _prot.mode # %fj.mode | .timer $+ $chan $+ 2 1 5 kmbanall $chan
      raw -q mode $chan +bbbbb %dr.add.1. [ $+ [ $chan ] ] %dr.add.2. [ $+ [ $chan ] ] %dr.add.3. [ $+ [ $chan ] ] %dr.add.4. [ $+ [ $chan ] ]
      halt
      :block 5
      if (%dr.Block.5 [ $+ [ $chan ] ] == On ) { goto block6 }
      set -u1 %dr.nick.4. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.5. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.4. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.4. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u20 %dr.Block.4 [ $+ [ $chan ] ] On
      halt
      :block6
      if (%dr.Block.4 [ $+ [ $chan ] ] == On ) { goto block7 }
      set -u1 %dr.nick.4. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.6. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.4. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.4. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u20 %dr.Block.4 [ $+ [ $chan ] ] On
      halt
      :block7
      if (%dr.Block.4 [ $+ [ $chan ] ] == On ) { goto block8 }
      set -u1 %dr.nick.4. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.7. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.4. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.4. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u20 %dr.Block.4 [ $+ [ $chan ] ] On
      halt
      :block8
      if (%dr.Block.4 [ $+ [ $chan ] ] == On ) { goto block9 }
      set -u1 %dr.nick.4. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.8. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.4. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.4. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u20 %dr.Block.4 [ $+ [ $chan ] ] On
      halt
      :block10
      if (%dr.Block.4 [ $+ [ $chan ] ] == On ) { goto halt }
      set -u1 %dr.nick.4. [ $+ [ $chan ] ] $nick
      set -u1 %dr.add.9. [ $+ [ $chan ] ] $address($nick,2)
      set -u1 %dr.saf1.4. [ $+ [ $chan ] ] $str(?,$len($nick)) $+ !~*@*
      set -u1 %dr.saf2.4. [ $+ [ $chan ] ] *!~ $+ $str(?,$calc($len($gettok($gettok($address($nick,5),2,33),1,64) ) -1 )) $+ @*
      set -u20 %dr.Block.4 [ $+ [ $chan ] ] On
      raw -q mode $chan +bbbbb %dr.add.5. [ $+ [ $chan ] ] %dr.add.6. [ $+ [ $chan ] ] %dr.add.7. [ $+ [ $chan ] ] %dr.add.8. [ $+ [ $chan ] ]  %dr.add.9. [ $+ [ $chan ] ]
      halt

    }
  }
  :halt
}