IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Flood ve Kufur Koruması (https://www.ircforumlari.net/mirc-scripting-sorunlari/8058-flood-ve-kufur-korumasi.html)

Flood ve Kufur Koruması

Arkadaslar gecmis konulara baktım fakat tam ihtiyacım olanına rastlayamadım. bir kac sorun cıktı. bu konularda biraz acemiyim. bana flood koruması ve kufur (badword) koruması lazım.. kodları nereye yazacagımıda soylerseniz sevinirim.
tesekkurler..

Kod:

on @*:TEXT:*:*:{

.timer 1 8 unset %floodkont! [ $+ [ $nick ] ]

inc %floodkont! [ $+ [ $nick ] ]

if (%floodkont! [ $+ [ $nick ] ] == 5) { mode $chan +b $nick | kick $chan $nick Flood! }

}

8 Saniye içinde 5 Satır kuLLanırSa Atar

Kod:

on @*:TEXT:*:#:{

var %kufurler ***,kevaşe,fahişe,Vs,Vs

var %i $numtok(%kufurler,44)

while (%i > 0) {

if ($gettok(%kufurler,%i,44) isin $strip($1-)) { mode $chan +b $nick | kick $chan $nick Küfür }

}

}

Küfürleri aralara virgül koyarak %kufurler kevaşe,fahişe,... gibi ekLerSin..
Remote ye ekLicen..

küfürleri bir txten nasıl okutabiliriz

alias oku {
var %a $lines(dosya.txt)
while %a { echo -a $read(dosya,%a) | dec %a }
}
bunu remotene eklersen oku yazdığında dosyayı okutmuş olursun.
$read ve $lines ile ilgili ornek olsun diye yazdım.Sorduğun sorunun cevabını bunları anladıktan sonra rahatlıkla verebilirsin.
kolay gelsin

küfür koruman mirc i dondurdu, flood koruması da sorunlu, farklı 5 kelimeyi yazarsa da kickleniyor user.

Kod:

#kufurler on

on 1:TEXT:*:#: {

  if $me !isop $chan { halt }

  if $nick isop $chan { halt }

  if (fuck isin $1-) || (AMINA isin $1-) || (AMINI isin $1-) || (kavat isin $1-) || (sike isin $1-) || (avradýný isin $1-) || (sikti isin $1-) || (sokarým isin $1- ) || (pezevenk isin $1-) || (siktir isin $1-) || (yarak isin $1-) || (****** isin $1-) || (sikiyim isin $1-) || (sikis isin $1-) || (sikiþ isin $1-) || (siker isin $1-) || (****** isin $1-) || (****** isin $1-) || (fahiþe isin $1-) || (ananý isin $1-) || (ibne isin $1-) || (ipne isin $1-) || (amýna isin $1-) || (amýný isin $1-) || (amcýk isin $1-) || (amcik isin $1-) || (amina isin $1-) || (amini isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (götveren isin $1-) || (shit isin $1-) || (sikerim isin $1-) || (seviþecek isin $1-) || (sux isin $1-) || (götden isin $1-) || (götün isin $1-) || (fahiþe isin $1-) || (*** isin $1-) {

    .mode $chan +b $wildsite | .kick $chan $nick Kanaldan Küfür Ettiginiz Icin Uzaklastirildiniz! 

  }

}

on 1:action:*:#: {

  if $me !isop $chan { halt }

  if $nick isop $chan { halt }

  if (fuck isin $1-) || (kavat isin $1-) || (AMINA isin $1-) || (AMINI isin $1-) || (sike isin $1-) || (avradýný isin $1-) || (sikti isin $1-) || (sokarým isin $1- ) || (pezevenk isin $1-) || (siktir isin $1-) || (yarak isin $1-) || (****** isin $1-) || (sikiyim isin $1-) || (sikis isin $1-) || (sikiþ isin $1-) || (siker isin $1-) || (****** isin $1-) || (****** isin $1-) || (fahiþe isin $1-) || (ananý isin $1-) || (ibne isin $1-) || (ipne isin $1-) || (amýna isin $1-) || (amýný isin $1-) || (amcýk isin $1-) || (amcik isin $1-) || (amina isin $1-) || (amini isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (götveren isin $1-) || (shit isin $1-) || (sikerim isin $1-) || (seviþecek isin $1-) || (sux isin $1-) || (götden isin $1-) || (götün isin $1-) || (fahiþe isin $1-) || (*** isin $1-) {

    .mode $chan +b $wildsite | .kick $chan $nick Kanaldan Küfür Ettiginiz Icin Uzaklastirildiniz!  

  }

}

on 1:notice:*:#: {

  if $me !isop $chan { halt }

  if $nick isop $chan { halt }

  if (fuck isin $1-) || (kavat isin $1-) || (AMINI isin $1-) || (AMINA isin $1-) || (sike isin $1-) || (avradýný isin $1-) || (sikti isin $1-) || (sokarým isin $1- ) || (pezevenk isin $1-) || (siktir isin $1-) || (yarak isin $1-) || (****** isin $1-) || (sikiyim isin $1-) || (sikis isin $1-) || (sikiþ isin $1-) || (siker isin $1-) || (****** isin $1-) || (****** isin $1-) || (fahiþe isin $1-) || (ananý isin $1-) || (ibne isin $1-) || (ipne isin $1-) || (amýna isin $1-) || (amýný isin $1-) || (amcýk isin $1-) || (amcik isin $1-) || (amina isin $1-) || (amini isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (götveren isin $1-) || (shit isin $1-) || (sikerim isin $1-) || (seviþecek isin $1-) || (sux isin $1-) || (götden isin $1-) || (götün isin $1-) || (fahiþe isin $1-) || (*** isin $1-) {

    .mode $chan +b $wildsite | .kick $chan $nick Kanaldan Küfür Ettiginiz Icin Uzaklastirildiniz!   }

}

#kufurler end

Pardon whiLe de Dec LememiŞim <.
txt den okutmak için ;

Kod:

on @*:TEXT:*:#:{

var %i $lines(kufurler.txt)

while(%i > 0) {

if ($read(kufurler.txt,%i) isin $1-) { mode $chan +b $nick | kick $chan $nick kufur! }

dec %i

}

}

kufurler.txt ye alt alta ekle küfürleri
flood krumasını denedim bi sorun yOq.

Arkadaşlar direk kod vermektense yol göstermek daha öğretici olucaktır.Buna dikkat edelim.Buranın asıl amacı öğrenmek ve bildiklerimizi aktarmaktır.Sürekli kod verirseniz kimse birşeyler de öğreniyim ki kendi kodumu kendim yapıyım demez.

kufur koruman calisiyor, saolasın da, adam 'eksik' 'tamam' gibi seyler dedigi zaman da kickleniyor. :D

Benimkindemi?
Benimkinde yapmaz

maeLStrOm Dooru söLüoSun..
ama burda oLan ŞeyLer dersLerde Zaten War.. Whilieden Başka biŞi Yapmadık :)
Ben KOdu Verdim MeseLa Şey Yap
if ($read(kufurler.txt,%i) isin $1-) {... Şu Kısmı
if ($read(kufurler.txt,%i) isin $1-) && (Tamam !isin $1-) && (eksik !isin $1-) {... gib..

bence txt dosyasının icine küfürleri olabilceği maksimum yakınlıkta yaz bole sorunlar olusmasın.

Yanıt: Flood ve Kufur Koruması

on @*:TEXT:*:*:{
.timer 1 8 unset %floodkont! [ $+ [ $nick ] ]
inc %floodkont! [ $+ [ $nick ] ]
if (%floodkont! [ $+ [ $nick ] ] == 5) { mode $chan +b $nick | kick $chan $nick Flood! }
}

Arkadaslar ßu Kod OpLarıda Atıyor.. Opları Atmaması Icın ne yapaßiLirz..

Yanıt: Flood ve Kufur Koruması

on @*:TEXT:*:*:{
if $nick != $opnick {
.timer 1 8 unset %floodkont! [ $+ [ $nick ] ]
inc %floodkont! [ $+ [ $nick ] ]
if (%floodkont! [ $+ [ $nick ] ] == 5) { mode $chan +b $nick | kick $chan $nick Flood! }
}
}

Yanıt: Flood ve Kufur Koruması

Kod:

if $nick != $opnick {

yerine

Kod:

if $nick !isop $chan {

kullanmak daha mantıklı ve doğru olacaktır.

Yanıt: Flood ve Kufur Koruması

Bak güzel arkadaşım sunucuda dikkat ettiğim en önemli husus /spamfilter'dir

Eğer Adminlerin /spamfilter kullanmışsa bunları bulup tek tek silmeni öneririm size.

Ama Hayır Bunları Spam değilde Services Botu Kickliyorsa;

»BADWORS ADD : Yazdığını sözcük geçmesi halinde atar.
Komut : /msg Botserv badwords #kanal add kelime single

»BADWORS DEL : Yazdığınız kelimeyi siler.
Komut : /msg Botserv badwords #kanal del kelime

»BADWORS LİST : Kelime listini gösterir.
Komut : /msg Botserv badwords #kanal list

»BADWORS CLEAR : Tüm kelimeleri siler.
Komut : /msg Botserv badwords #kanal clear

Bunları Bir Denemeni Tasviye ederim.

Spam Komutunu verirdim size ama Abuk Subuk Kelimler Yazarsınız kullanıcı kaybınız olur.

Size Bir örnek vereyim;

c*o*m şekilde görürdüğü gibi eklersen eğer kimse m ile başlayıp ü ile devam eden kelimeler yazamaz örneğin Müdür :D ne alaka değil mi ama eğer merak eden olursa içinizde özel mesaj ata bilir açıklarım.

SAYGILAR.