.•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•.mass.•º•.joinz.•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•..•º•.

 

on *:OP:#: { $remtok($($+(%,nflood.,#),2),$opnick,1,44) }

on @*:JOIN:#: {

  if (%mjoin == on) {

    set -u3 $+(%,nflood.,#) $addtok($($+(%,nflood.,#),2),$nick,44)

    set -u3 $+(%,ipflood.,#) $addtok($($+(%,ipflood.,#),2),$mask($fulladdress,2),32)

    if ($gettok($($+(%,nflood.,#),2),0,44) == $iif(%max.join,%max.join,3)) {

      if (j !isin $chan(#).mode) { mode # -m }

      .timerscript.kick. [ $+ [ # ] ] -m 1 50 script.kick #

    }

  }

}

alias script.remode {

  mode $1 -m

  $+(.timerub,$1) 1 $iif($($+(%,b.time,$1),2),$($+(%,b.time,$1),2),60) cb $1

}

alias script.kick {

  kick $1 $($+(%,nflood.,$1),2) You are kicked by $me $dragonstyle($big(Reason : Massive join. IP doesnt allowed))

  var %loop-a = 1

  while ($gettok($($+(%,ipflood.,$1),2),%loop-a,32)) {

    %bb = %bb $gettok($($+(%,ipflood.,$1),2),%loop-a,32)

    if ($modespl == $numtok(%bb,32)) { mode $1 $+(+,$str(b,$gettok(%bb,0,32))) %bb | %bb = "" }

    inc %loop-a

  }

  if (%bb) { mode $1 $+(+,$str(b,$gettok(%bb,0,32))) %bb | %bb = "" }

  $+(.timerx,$1) 1 0 unset $+(%,*,flood.,$1)

  $+(.timercbm.,$1) 1 $iif($($+(%,m.time,$1),2),$($+(%,m.time,$1),2),30) script.remode $1

}

alias cb {

  var %b = 1,%nban = ""

  while ($ibl($1,%b)) { var %nban = $addtok(%nban,$ibl($1,%b),32)

    if ($modespl == $numtok(%nban,32)) { mode $1 $+(-,$str(b,$gettok(%nban,0,32))) %nban | %nban = "" }

    inc %b

  }

  if (%nban) { .mode $1 $+(-,$str(b,$gettok(%nban,0,32))) %nban | %nban = "" }

}

menu channel {

  «º¤mass join kickz¤º»

  .«º¤mass join «º¤ $chr(9) $iif(%mjoin == on,on,off) ¤º»:set %mjoin $iif(%mjoin != on,on,off) | %Xscript.lg = NO CLONE | msg # $dragonstyle($big(massjoin $iif(%mjoin == on, on,off))) | say !mj $iif(%mjoin == on, on,off)

  .«º¤max join «º¤ $chr(9) $iif(%max.join,%max.join,4) ¤º»:set %max.join $input(Set Limit Join,e) | if (!%max.join) { set %max.join 4 }

  .«º¤mode time «º¤ $chr(9) $iif($($+(%,m.time,#),2),$($+(%,m.time,#),2),30) ¤º»:set $+(%,m.time,#) $?="Enter Mode Time" | msg # $dragonstyle(mode time for $active $+ : %b.time [ $+ [ $chan ] ] sec)

  .«º¤unban time «º¤ $chr(9) $iif($($+(%,b.time,#),2),$($+(%,b.time,#),2),60) ¤º»:set $+(%,b.time,#) $?="Enter In Seconds To Unban Banmask" | msg # $dragonstyle(unban time for $active $+ : %b.time [ $+ [ $chan ] ] sec)

  -

}