alias setmodeimR { mode # +R }
alias super.over.code {
if ($me isop $1) {
mode $1 -R
$+(.timerub,$1) 1 $iif($($+(%,b.time,$1),2),$($+(%,b.time,$1),2),60) cbmass $1
}
}
alias super.kickz {
kick $1 $($+(%,nflood.,$1),2) 04 $+ %amjkreason
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) super.over.code $1
}
alias cbmass {
if (%clearbanmass == on) {
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 = "" }
}
on *:QUIT:{
if ($timer(timerkick $+ $nick)) { .timerkick $+ $nick off }
var %server = $+(*,$gettok($server,2-,46))
if (%server iswm $1-) { set -u120 %netsplit $true }
}
on @*:JOIN:#seattle,#java,#teen-chat,#lobby:{
if (*.webmaster.com iswm $address) { halt }
if (%netsplit) { halt }
if (%super(mass)join == on) {
set -u3 $+(%,nflood.,#) $addtok($($+(%,nflood.,#),2),$nick,44)
set -u3 $+(%,ipflood.,#) $addtok($($+(%,ipflood.,#),2),$mask($fulladdress,4),32)
if ($gettok($($+(%,nflood.,#),2),0,44) == $iif(%clones.limit,%clones.limit,4)) {
if (j !isin $chan(#).mode) { setmodeimR }
setmodeimR | .timersuper.kickz. [ $+ [ # ] ] -m 1 1500 super.kickz $chan
}
}
}
menu channel {
Mass Join Pro
.Mass Join $chr(9) $iif(%super(mass)join == on,on,off):set %super(mass)join $iif(%super(mass)join != on,on,off) | echo -a 04( $+ $time $+ ) * Anti Mass-Join System is now $iif(%super(mass)join == on,Enabled,Disabled) $+ 04.
.Clones limit $chr(9) %clones.limit:set %clones.limit $input(Default clone limit 3,e) | echo -a 12( $+ $time $+ ) * Clones Limit is not set to04 $! 04clones per sec.
.Mode Time $chr(9) $iif($($+(%,m.time,#),2),$($+(%,m.time,#),2),30):set $+(%,m.time,#) $?="Channel mode changing (Secs)" | echo -a 04( $+ $time $+ ) * Channel mode will be changed after04 $! secs04. if the Anti Mass-Join System is working.
.-
.Kick Reason:echo 04( $+ $time $+ ) * Anti Mass-Join Flood Reason Changed to: $$?="Enter the Anti Mass-Join Kick Reason" | .set %amjkreason $!
}