Admin
Admin
Number of posts : 33
Age : 34
Location : Lovely.Placez
Registration date : 2008-10-23
 |  Subject: `MassJoin Kekanak Ribena` Jer Nih....  Wed Nov 12, 2008 9:42 pm | |
| Type ni lu
/set %mjoin on
- Quote :
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)) {
� = � $gettok($($ (%,ipflood.,$1),2),%loop-a,32)
if ($modespl == $numtok(�,32)) { mode $1 $ ( ,$str(b,$gettok(�,0,32))) � | � = "" }
inc %loop-a
}
if (�) { mode $1 $ ( ,$str(b,$gettok(�,0,32))) � | � = "" }
$ (.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 }
}
}
[Note] :: The Power Of Scripting Is Less Excess Flood..Not Mass Kicked~  | |
|
