Type ni lu
/set %mjoin on
on @*:JOIN:#: {
if (%mjoin == on) {
set -u3 %nflood. [ $+ [ # ] ] $addtok(%nflood. [ $+ [ # ] ],$nick,44)
if ($gettok(%nflood. [ $+ [ # ] ],0,44) == $iif(%max.join,%max.join,4)) {
if (R !isin $chan(#).mode) { mode # | .timer.remode 1 $iif(%m.time,%m.time,30) remode # }
.timeromg.kick. [ $+ [ # ] ] -m 1 1500 omg.kick #
}
}
}
alias omg.remode {
if ($me isop $1) {
mode $1 -mjJRd
$+(.timerub,$1) 1 $iif($($+(%,b.time,$1),2),$($+(%,b.time,$1),2),60) cb $1
}
}
alias omg.kick {
kick $1 $($+(%,nflood.,$1),2) Mass Join Kick Webchat Clanz
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) omg.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 {
-
on/off $chr(9) $iif(%mjoin == on,on,off):set %mjoin $iif(%mjoin != on,on,off) | ame Info :mj remote on
-
max join $chr(9) $iif(%max.join,%max.join,4):set %max.join $input(maxjoin,e) | if (!%max.join) { set %max.join 4 }
mode time $chr(9) $iif($($+(%,m.time,#),2),$($+(%,m.time,#),2),30):set $+(%,m.time,#) $?="╩ode time" | echo -a $+($chr(3),07,? Info : mode time %m.time
unban time $chr(9) $iif($($+(%,b.time,#),2),$($+(%,b.time,#),2),60):set $+(%,b.time,#) $?="╱nban time" | echo -a $+($chr(3),07,? Info : unban time %m.time
-
}
on *:quit:{
if (*.*.* iswm $1) && (*.*.* iswm $2) {
inc -u20 %qnet 1
if (%qnet == 1) { set %mjoin off | echo -a $+($chr(3),07,? Info : Mass Join Protection - Webchat Clanz }
}
}