31 March 2012

Elak Spammer Di MIRC

ni adalah code berguna kepada anda yang mempunyai masalah spammer semasa menggunakan mIRC

Ikut panduan dibawah....



Buka mIRC dan tengah pada baris yang ada tanda a/. Klick.



Ada tiga ruangan , aliases, remote, variables, ambil bahagian remote




Copy dan Paste code di bawah kedalam ruangan Remote




#selfpro on
ON *:TEXT:*:?: {
if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) || (Serv isin $nick) || ($nick == $me) { goto end }
if ($chr(35) isin $1-) || (/j isin $1-) || (www. isin $1-) || (http:/ isin $1-) || (/server isin $1-) || (.xoom. isin $1-) || (# isin $1-) && ($chan !isin $1-) { .close -m $nick | .ignore -u15 $mask($fulladdress,3)
if ($me isop $comchan($nick,1)) && ($nick ison $comchan($nick,1)) {
.raw -q mode $comchan($nick,1) +b $mask($fulladdress,1)
.raw -q kick $comchan($nick,1) $nick [: R eason:] N o A dvertising O n P rivate M essage $irc
.timer 1 120 .ruser inviter $nick | .echo -a 14*** [ 12 $+ $mask($fulladdress,5) $+ ] 14 15sec ( s ) Ignored For Private Advertising [ 12 $+ $chan $+ ]
goto end
}
}
inc -u3 %queryflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ]
if (%queryflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ] >= 7) { close -m $nick | .ignore -u15 $mask($fulladdress,2)

goto end
}
else { goto end }
:end
}

ON *:NOTICE:*:?: {
if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) || (Serv isin $nick) || ($nick == $me) { goto end }
if ($chr(35) isin $1-) || (/j isin $1-) || (www. isin $1-) || (http:/ isin $1-) || (/server isin $1-) || (.xoom. isin $1-) || (# isin $1-) && ($chan !isin $1-) { .close -m $nick | .ignore -u15 $mask($fulladdress,3)
if ($me isop $comchan($nick,1)) && ($nick ison $comchan($nick,1)) {
.raw -q mode $comchan($nick,1) +b $mask($fulladdress,1)
.raw -q kick $comchan($nick,1) $nick [: R eason:] N o A dvertising O n P rivate N otice $irc
.timer 1 120 .ruser inviter $nick | .echo -a 14*** [ 12 $+ $mask($fulladdress,5) $+ ] 14 15sec ( s ) Ignored For Private Advertising [ 12 $+ $chan $+ ]
goto end
}
}
inc -u3 %noticeflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ]
if (%noticeflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ] >= 7) { .ignore -u15 $mask($fulladdress,2)
goto end
}
else { goto end }
:end
}

ON *:ACTION:*:?: {
if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) || (Serv isin $nick) || ($nick == $me) { goto end }
if ($chr(35) isin $1-) || (/j isin $1-) || (www. isin $1-) || (http:/ isin $1-) || (/server isin $1-) || (.xoom. isin $1-) || (# isin $1-) && ($chan !isin $1-) { .close -m $nick | .ignore -u15 $mask($fulladdress,3)
if ($me isop $comchan($nick,1)) && ($nick ison $comchan($nick,1)) {
.raw -q mode $comchan($nick,1) +b $mask($fulladdress,1)
.raw -q kick $comchan($nick,1) $nick [: R eason:] N o A dvertising O n P rivate A ction $irc
.timer 1 120 .ruser inviter $nick | .echo -a 14*** [ 12 $+ $mask($fulladdress,5) $+ ] 14 15sec ( s ) Ignored For Private Advertising [ 12 $+ $chan $+ ]
goto end
}
}
inc -u3 %actionflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ]
if (%actionflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ] >= 7) { .ignore -u15 $mask($fulladdress,2)
goto end
}
else { goto end }
:end
}

on *:invite:*: {
if ($nick == ChanServ) && ( %massinvite == ON ) {
.raw -q join $chan
goto end
}
if (( $me isop $comchan($nick,1)) && ( $nick !isop $comchan($nick,1))) { .ignore -u15 $mask($fulladdress,3)
.raw -q kick $comchan($nick,1) $nick [: R eason:] N o M ass I nviting $irc
.raw -q mode $comchan($nick,1) +b $mask($fulladdress,1)
.timer 1 120 .ruser inviter $nick | .echo -a 14*** [ 12 $+ $mask($fulladdress,5) $+ ] 14 15sec ( s ) Ignored For Mass Invite [ 12 $+ $chan $+ ]
}
:end
}

#selfpro end





Kemudian save as.. Selamat mencuba....

No comments: