20. 03
2007

mIRC anti Spam

Written by: oyr79 - Posted in: mIRC Snipets

This snipet will restrict people to be able to make a private conversation with you. When people send you a message, they’ll asked to enter the code. If the code is right, they will able to chat with you but if the code is wrong they’ll be blocked

This snipet can be inactivated using mIRC menu

Here’s the code:

menu menubar,channel,status { - .OYR79 Anti Spam $chr(91) $+ %nosp $+ $chr(93) ..Aktifkan:{ enable #antispam set %nosp on } ..Matikan:{ disable #antispam set %nosp off } }menu nicklist { - OYR79 Anti Spam .PV Now:{ /ignore -r $1 | /query $1 | /msg $1 Query opened for you... %logo set %lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] en set %nlang. [ $+ [ $1 ] ] en set %not.spam. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] 1 } .Close PV:{ /close $1 unset %lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] unset %nlang. [ $+ [ $1 ] ] unset %not.spam. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] } .No PV:{ /ignore -p $1 | /close $1 unset %lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] unset %nlang. [ $+ [ $1 ] ] unset %not.spam. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] set %no.pv. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] 1 set %no.pv. [ $+ [ $nick ] ] 1 } .Can PV:{ unset %no.pv. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] unset %no.pv. [ $+ [ $nick ] ] ignore -r $1 1 } .Bahasa ..English:{ set %lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] en set %nlang. [ $+ [ $1 ] ] en } ..Bhs Indonesia:{ set %lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] id set %nlang. [ $+ [ $1 ] ] id } ..Manado:{ set %lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] mdo set %nlang. [ $+ [ $1 ] ] mdo } }#antispam off on *:TEXT:*:?:{ if (%antispam) { if (($nick == prof-) || (BNC isin $nick) || (%ipadd isin $fulladress) || ($nick == NEURIM) || ($nick == MUVAN)) { query $nick halt } if ((%no.pv. [ $+ [ $remove($mask($address($nick,5),0),*,!) ] ]) || (%no.pv. [ $+ [ $nick ] ])) { msg $nick 4Maaf! Saya tidak bisa melakukan private chat untuk saat ini…! ignore -p $nick 1 | timer 1 500 ignore -r $nick 1 halt } if (%nlang. [ $+ [ $nick ] ]) { set %lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] %nlang. [ $+ [ $nick ] ] }


if (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ]) && (%not.spam. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ]) {

  timer $+ $nick off

  timer $+ $nick 1 900 stoppv $nick

  halt

  }
if ($remove($strip($1-), $chr(32)) == %spam.acak) {

  set %not.spam. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] 1

  if (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == en) {

  msg $nick 13Thanks Honey! I accept your word! Please speak…

  query $nick

  set %spam.acak @ $+ $acak($rand(A,z) $+ $rand(A,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z))

  echo 7 -as *** Kata sandi diubah ke: %spam.acak 

  halt

  }

  if (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == id) {

  msg $nick 13Makasih Say! Saya terima kata kuncinya! Silakan chat…

  query $nick

  set %spam.acak @ $+ $acak($rand(A,z) $+ $rand(A,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z))

  echo 7 -as *** Kata sandi diubah ke: %spam.acak 

  halt

  }

  if (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == mdo) {

  msg $nick 13Makase neh! Kita terima ngana pe kata! Bicara jo…

  query $nick

  set %spam.acak @ $+ $acak($rand(A,z) $+ $rand(A,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z))

  echo 7 -as *** Kata sandi diubah ke: %spam.acak 

  halt

  }

  }
if ($left($1-,1) == @) {

  msg $nick 4Sorry! I don’t accept your word! Try again:

  msg $nick 4Maaf! Kata tidak diterima! Coba lagi:

  msg $nick 4Type (Ketik):  $+ %spam.acak $+ 

  close -m $nick

  halt

  }
if (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == en) {

  msg $nick 4I’m using OYR79 Anti Spam Beta Version!

  msg $nick 4To send me a private message, you must type the text below correctly:

  msg $nick 4 $+ %spam.acak $+ 

  close -m $nick

  halt

  }

  if (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == id) {

  msg $nick 4Saya menggunakan OYR79 Anti Spam Versi Beta!

  msg $nick 4Untuk chat privat denganku, kamu harus mengetikkan kata di bawah ini dengan benar:

  msg $nick 4 $+ %spam.acak $+ 

  close -m $nick

  halt

  }

  if (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == mdo) {

  msg $nick 4Kita da pake OYR79 Anti Spam Beta Version!

  msg $nick 4Kalo mo pv pa kita, ngana musti ketik tu kata ini:

  msg $nick 4 $+ %spam.acak $+ 

  close -m $nick

  halt

  }
if (($strip($1) == EN) || (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == en)) { set %nlang. [ $+ [ $nick ] ] en | set %lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] en | goto inggris | halt }

  if (($strip($1) == ID) || (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == id)) { set %nlang. [ $+ [ $nick ] ] id | set %lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] id | goto indonesia | halt }

  if (($strip($1) == MDO) || (%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] == mdo)) { set %nlang. [ $+ [ $nick ] ] mdo | set %lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ] mdo | goto manado | halt }
if (!%lang. [ $+ [ $remove($mask($fulladdress,0),*,!) ] ]) {

  msg $nick Which language do you want to use with me?

  msg $nick Kamu pengen ngomong pake bahasa apa?

  msg $nick Type (Ketik):

  msg $nick ID for (untuk) Indonesia

  msg $nick EN for (untuk) English

  msg $nick MDO for (untuk) Manado

  close -m $nick

  halt

  }
:inggris

  msg $nick 4I’m using OYR79 Anti Spam Beta Version!

  msg $nick 4To send me a private message, you must type the text below correctly:

  msg $nick 4 $+ %spam.acak $+ 

  close -m $nick

  halt
:indonesia

  msg $nick 4Saya menggunakan OYR79 Anti Spam Versi Beta!

  msg $nick 4Untuk chat privat denganku, kamu harus mengetikkan kata di bawah ini dengan benar:

  msg $nick 4 $+ %spam.acak $+ 

  close -m $nick

  halt
:manado

  msg $nick 4Kita da pake OYR79 Anti Spam Beta Version!

  msg $nick 4Kalo mo pv pa kita, ngana musti ketik tu kata ini:

  msg $nick 4 $+ %spam.acak $+ 

  close -m $nick

  halt
}

}
#antispam end
alias acak {

  tokenize 32 $1-

  var %i = 1, %temp.smbl

  while (%i < = $0) {

    var %word = $eval($+($,%i),2)

    while (%word != $null) { var %rand = $rand(1, $len(%word)), %temp.smbl = %temp.smbl $+ $mid(%word, %rand, 1), %word = $left(%word, $calc(%rand - 1)) $+ $right(%word, $calc(-1 * %rand)) }

    %temp.smbl = %temp.smbl $+ ;

    inc %i

  }

  return $replace(%temp.smbl,;,$chr(32))

}
alias stoppv {

  close -m $1

  set %spam.acak @ $+ $acak($rand(A,z) $+ $rand(A,z) $+ $rand(0,9) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(A,Z))

  if (%lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] == en) {

  msg $1 You're not talking with me within 15 minutes! The QUERY is closed

  msg $1 Thanks for private chat with me! Type %spam.acak to continue with private chat

  msg $1 OYR79 Anti Spam Beta Version - www.oyr79.com

  halt

  }

  if (%lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] == id) {

  msg $1 Kamu gak berbicara dalam 15 menit! QUERY ditutup

  msg $1 Makasih udah chat privat denganku! Ketik %spam.acak untuk melanjutkan chat privat

  msg $1 OYR79 Anti Spam Beta Version - www.oyr79.com

  halt

  }

  if (%lang. [ $+ [ $remove($mask($address($1,5),0),*,!) ] ] == mdo) {

  msg $1 Ngana so ba diam dalam 15 menit! QUERY ditutup

  msg $1 Makase neh so ba chat privat! Ketik %spam.acak kalo mo chat privat ulang

  msg $1 OYR79 Anti Spam Beta Version - www.oyr79.com

  halt

  }

}

No Comments »

No comments yet.

RSS feed for comments on this post. TrackBack URI

Navigation

Donation

Please help us to keep this site free

Live chat

Latest Message 3 months, 2 weeks ago

oyr79 : You can download it now. I've been moved it to mediafire.com
lshenliang : Hallo,mIRC SCOOP SCRIPT 2006 nya kok ngga bisa di download ? Tolong upload aja di www.mediafire.com.File lebih kenceng.
benhard : scoop script 2006nya kenapa ga bisa di download?
oyr79 : ato langsung klik di «link»
oyr79 : buka aja Help dari mIRC trus pelajari ato diskusikan di «link» di bagian Komputer & Internet - Software & Hardware
harakhiri666 : ajarin bikin script dong
harakhiri666 : ada yg mau ajarin gw bikin script ga?
oyr79 : soulwar: maksudnya gimana?
soulwar : mircstrom versi terakhir ada bug. pd waktu orang ketik !ping timbul kata eror.walau hasil ping keluar
soulwar : hi
oyr79 : Login di www.oyr79.com bukan di sini
yomi : udah login kok ga bisa download
oyr79 : Donlot skrip? Baca baik2 petunjuk di setiap skrip yg dikasih atau baca Tutorials ^_^
co_milanisti : bro yos gimana download mirc scriptnya..
hery : gak bisa log in neh bro....
hery : gimana neh mo download scoop script 2006 neh???
oyr79 : Sorry, if u want to discuss about mIRCStorm, please visit «link» thx
adam : When i add a user for bot, he/she never noticed by bot how to create their password. Bot not send he/she a message how to create their password. What should i do?
adam : i guna mircstorm bot, tapi prob xboleh nak load alternate trigger
adam : faham bahasa malayu kan? i dari malaysia
adam : i adam prob sikt
adam : hi..
oyr79 : Sorry, I've restricted this feature only for registered users b'coz of spammer attack
alex : hi nice site.
oyr79 : boleh² aja
[[surf]] : om, bikin cript yang banyak kata-kata mutiaranya dong ( sekalian kata-kata gombalan yang paling top )
oyr79 : samuel: Klik aja Download Here trus pilih Latest Version utk versi terbaru
oyr79 : apakah: dah brp lama pake mIRCStorm?
samuel : caranya gimana bro...
samuel : gimana cara download na nich bot ??
apakah : bro mo nanya kok di status ku ada tulisn kaya gini: /remini: too large: 'D:\Dokumen\...\SOFT\mIRCStormV2.0.0-Installtion[1145797499]\mIRCStormV2.0.0\database\mircstorm.user'
oyr79 : hehe... maksud looo???
co_music : aduh yossy dah banyak waktu banyak uang .. freedom tuch
oyr79 : whats up?
guest_7685 : hikzzzzzzzzzzz

You must be a registered user to participate in this chat. Please Log in or Register first.

mIRC anti Spam

No Comments »

Leave a comment

Navigation

Categories

Live chat

Archives

Links

mIRC

Others

PHP

About me

Search scripts...

Recept entries

Recent comments