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

29 March 2012

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

28 March 2012

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.

26 March 2012

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

25 March 2012

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...®    }
Anti SpinnnNNNNNNNN

ON *:DEOP:#: {
if ($opnick == $me && $nick != $me) {
.inc -u30 %deop.aku. [ $+ [ $nick ] ]
if (%deop.aku. [ $+ [ $nick ] ] == 2) { .set -u10 %deop.kick. [ $+ [ $nick ] ] ya }
}
}
ON *:OP:#: {
if ($opnick == $me && %deop.kick. [ $+ [ $nick ] ]) { kick # $nick %jiwo 12- Lindungan Spin GT`crewz 12- | .unset %deop.kick. [ $+ [ $nick ] ] }

MATI MEMOTIVASIKAN HATI - Peringatan Buat Diriku Yang Sering Lupa







Hidup itu sekali
Mati itu sekali
Persoalannya?
Kenapa kita tidak boleh hidup untuk mati?

Apabila disebut sahaja 'mati' maka ramailah yang takut, gerun, tak nak dengar dan cuba 
mengalih tajuk perbualan dan fikiran ke arah lain. Mati adalah puncak kepada hidup. Apabila mati maka jasad akan berhenti berfungsi. Yang ada hanyalah amalan kita. Baik ke? Buruk ke? Bergantung kepada amalan kita semasa hidup. Tok! tok! tok! ketuk hati tanya diri sendiri! Jangan tanya orang lain, sebab orang lain pun tak sempat nak tanya dirinya sendiri.
Ramai manusia di zaman kita ini suka kepada hidup. Sebab apa? sebab hidup hanya sekali. Memang benar, sama lah juga keadaannya mati. Mati juga sekali. Kecuali insan istimewa yang menjadi pilihan Allah. :-) Bila menyebut mati hanya sekali, adakah hidup itu berkali-kali? Jika berkali-kali hidup dan tak mati, teruskan dosa dan noda anda. Tapi ingatlah firman Allah yang bermaksud - "Setiap yang hidup itu pasti merasai mati". :-) Hidup hanya sekali dan mati pun hanya sekali. Tapi adakah berbaloi jika hidup sekali itu diisi dengan lumuran dosa yang pada nafsu kita ianya adalah menyeronokkan tapi bila mati ianya menyeksakan? :-)

Kita pasti merasakan kita hidup untuk capai pelbagai pencapaian yang baik dan lebih baik dari sebelumnya. Jika kita seorang pelajar, kita mesti nak hidup untuk capai kejayaan sebagai seorang pelajar. Jika kita seorang ahli muzik, kita mesti nak hidup untuk capai kejayaan sebagai seorang ahli muzik. Tapi adakah itu cukup? Pasti tidak cukup kerana matlamat dunia memang tak pernah habis. Kenapa kita tidak boleh hidup untuk mati? Apakah maksudnya? Bagaimana kita boleh hidup untuk mati? Jadikan setiap pekerjaan yang lakukan setiap hari sebagai salah satu cara untuk mengingati mati. Bagaimana caranya? Didik hati kita agar sentiasa ingat mati. Kita tidak tahu bilakah saat kematian kita, ini merupakan peluang kepada kita untuk buat amal kebaikan sebanyak dan sesungguh yang mungkin. Itulah caranya. :-) Mudah sahaja!
Anggaplah hari ini merupakan hari terakhir kita di muka bumi-NYA. Maka kita akan berusaha sungguh untuk melaksanakan tugas dan amanah kita dengan sebaik mungkin. Do the best! :-) Hati kita ini sebenarnya lembut, tapi ianya keras dan kaku dan terus jadi begitu jika kita tidak membelainya dengan mati. Jika ingat pada mati, maka hati akan hidup. Jika kita lupa pada mati, maka hati akan mati. Begitulah momentumnya. Jadi jangan takut jika disebut hal-hal kematian, tapi bersemangatlah untuk berbuat kebaikan dan kebajikan. InsyaAllah kemanisan dan natijahnya yang baik akan kita rasai di negeri yang akan datang! :-)

"MATI MEMOTIVASIKAN HATI"