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....

war script

On *:kick:#: { skick }
On *:op:#: { sop }
on +10:join:#: { raw -q kick %chan $nick : $+ 4 | halt }
On *+*:join:#: { sjoin | ssjoin }
on *:signal:xkill: {
raw -q kick %chan %nick : $+ 4
}
on *:signal:*:{
if ($signal == superkick1) { raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick2) { .scon -a raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick3) { raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick4) { .scon -a raw -q kick %chan %nick : $+ 4 }
}
alias ssjoin {
if ($event == join) {
raw -q kick %chan %nick : $+ 4
if ($nick == %nick) {
signal -n xkill
}
}
}
alias -l wirc {
.set %timer $r(1,5)
timerW 1 %timer join %chan
}
alias -l sskick { if ($istok($nick,$me,C) == $true) && ($event == kick) { signal -n superkick1 | halt } }
alias -l skick { if ($istok($knick,$me,C) == $true) && ($event == kick) { .set %chan # | .set %nick $nick | .auser 10 $nick | $wirc } }
alias -l sop { if ($istok($opnick,$me,C) == $true) && (%nick isop #) && ($event == op) { super | .timerF off } }
alias -l sjoin { if ($istok($nick,%nick,C) == $true) && ($event == join) { signal -n superkick3 } }
alias -l super { signal -n superkick4 }
on *1:RAWMODE:#:{
if ($regex($1,[vhoaq])) && ($istokcs($2-,$me,32)) {
var %modechrpos 1
var %modenick 1
while (%modechrpos <= $len($1)) {
set %modechr $mid($1,%modechrpos,1)
if (%modechr == +) { var %mode+ $true }
if (%modechr == -) { unset %mode+ }
if ($regex(%modechr,[vhoaq])) {
if ($gettok($2-,%modenick,32) === $me) {
if (%mode+ == $true) {
if (%modechr isin %statuslost) { var %statuslost $remtok(%statuslost,%modechr,32) }
else { var %statusgained %statusgained %modechr }
}
else {
if (%modechr isin %statusgained) { var %statusgained $remtok(%statusgained,%modechr,32) }
else { var %statuslost %statuslost %modechr }
}
}
inc %modenick
}
inc %modechrpos
}
if (o isin %statusgained) {
if (%nick ison $chan) {
raw -q kick $chan %nick : $+ 4
}
}
unset %modechr
}
}

Otak Aku Dah BlurrRRRRR

Jangan berputus-asa kerana biasanya anak kunci terakhirlah yang dapat membuka kunci.

Kemahuan yang tinggi akan mengubah persepsi seseorang terhadap sesuatu sehingga yang mustahil pun boleh terjadi.

Lebih baik berusaha menyalakan lilin dari menyumpah kepada kegelapan.

Jangan takut dan segan untuk setiap tindakan yang anda lakukan.Seluruh kehidupan adalah satu ujian. 

Orang yang berjaya ialah orang yang melakukan tindakan yang tidak mampu diimaginasikan oleh orang lain, malah tidak mampu dilakukan oleh orang besar sekalipun.

Sebelum mencela pasangan hidupmu, bayangkan mereka yang masih menghiba untuk dikurnia jodoh.

Mass Protection Remote

on @*:join:#:{
if (%netsplit) { halt }
set -u2 %nicks $addtok(%nicks,$nick,44)
if ($ServerNeo != webchat.org) {
if ($numtok(%nicks,44) > 4) {
inc -u15 %kick 4 
.timerkick $+ $nick 1 %kick Check $chan $nick Not Allowed!
}
elseif ($numtok(%nicks,44) == 4) {
mode $chan R
var %i = $numtok(%nicks,44)
while (%i) {
kick $chan $gettok(%nicks,%i,44) U Are Not Allowed Here!
dec %i
}
}
}
else {
;webchat - take advantage of the multiple kick parameters method.
if ($numtok(%nicks,44) >= 4) {
if (R !isincs $chan($chan).mode) { mode $chan R }
kick $chan %nicks Do You Mass Join?
unset %nicks
}
}
}
alias ServerNeo return $gettok($server,2-,46)
alias semak { 
if ($2 ison $1) { kick $1- }
else { halt }
}
on *:part:#:{ if ($timer(timerkick $+ $nick)) { .timerkick $+ $nick off } }
on *:quit:{ 
if ($timer(timerkick $+ $nick)) { .timerkick $+ $nick off }
var %server = $+(*,$gettok($server,2-,46))
if (%server iswm $1-) { set -u120 %netsplit $true }
}

Makasih Untuk Op,Halfop N Voice ( Nak Amik....X Nak X yah )

on *:OP:#: if ( $opnick == $me ) { /msg $chan Uit...Op Upe2nye Aku ...Boleh Le Aku Kick Ni ®   }
on *:DEOP:#: if ( $opnick == $me ) { /msg $chan Eleh...Takat Op Pun Nak Tarik Balik Ka...Belah La Ko ®   }
on *:halfop:#: if ( $hnick == $me ) { /msg $chan Huh.....Takat Halfop Je...Bek Tak Yah Bagi ®   }
on *:dehalfop:#: if ( $hnick == $me ) { /msg $chan  Eleh...X Heran La Klu Halfop Tu ®    }
on *:voice:#: if ( $vnick == $me ) { /msg $chan Ni Memandai Bg Aku Voice Ni Apa Pasal...®   }
on *:devoice:#: if ( $vnick == $me ) { /msg $chan Devoice Le...X Kebulur Aku Ngan Voice Tu...®    }