Welcome To Forum #Pahang

webmaster.webchat.org
 
HomePortalCalendarGalleryFAQSearchRegisterMemberlistUsergroupsLog in

Share | 
 

 Mass Join Protection... But Only For Begginers....

View previous topic View next topic Go down 
AuthorMessage
kambenk



Number of posts : 20
Age : 29
Localisation : k.trg/losong
Registration date : 2007-08-20

PostSubject: Mass Join Protection... But Only For Begginers....   Mon Aug 20, 2007 11:35 am

ON *:JOIN:#:{
if ($nick == $me) || ($me !isop $chan) { halt }
inc -u1 %c.ad. [ $+ [ $mask($fulladdress,4) ] $+ ] . [ $+ [ $chan ] ]
if ( %c.ad. [ $+ [ $mask($fulladdress,4) ] $+ ] . [ $+ [ $chan ] ] == 3) { .mode $chan +mR | .raw -q kick $chan $mask($fulladdress,4) -==massjoin==- %user | .BTM }
}
alias BTM {
.hadd -u1m tGrcWLef $mask($fulladdress,4)
.timertGrcWLef 1 3 .mode $chan + $+ $str(b,$hget(tGrcWLef,*).item) $hget(tGrcWLef,1).item $hget(tGrcWLef,2).item $hget(tGrcWLef,3).item $hget(tGrcWLef,4).item $hget(tGrcWLef,5).item $hget(tGrcWLef,6).item $hget(tGrcWLef,7).item $hget(tGrcWLef,Cool.item $hget(tGrcWLef,9).item $hget(tGrcWLef,10).item $hget(tGrcWLef,11).item $hget(tGrcWLef,12).item
.timerIM $+ $chan 1 30 mode # -Rm
}
Back to top Go down
View user profile http://losongpanglimaperang.ueuo.com
amrs



Number of posts : 4
Age : 31
Localisation : Kuantan
Registration date : 2007-03-31

PostSubject: Re: Mass Join Protection... But Only For Begginers....   Fri May 30, 2008 12:54 am

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 }
}
}
Back to top Go down
View user profile http://amrs.such.info
Dil



Number of posts : 44
Age : 25
Registration date : 2007-04-03

PostSubject: Re: Mass Join Protection... But Only For Begginers....   Mon Jul 07, 2008 2:00 am

urm..
msti power mass join dari c-fo
Back to top Go down
View user profile http://www.myspace.com/Dz_il
Sponsored content




PostSubject: Re: Mass Join Protection... But Only For Begginers....   Today at 6:41 am

Back to top Go down
 
Mass Join Protection... But Only For Begginers....
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» The Random Mai-HiME/Otome Emote FREE RP! ANYONE CAN JOIN!
» Come And join
» Mass LTC Class A/B/FID
» Red Maple (?) Does it need any winter protection?
» Mass ORV 4x4 Registration

Permissions in this forum:You cannot reply to topics in this forum
Welcome To Forum #Pahang :: Selamat Datang Ke Forum #Pahang :: MIRC-
Jump to: