Dosyadan okutmalı bazı korumalar - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

05 Ocak 2008, 19:58

Tarih: 05.01.2008 Cumartesi
Yazan: oNG
Not: Lütfen kullanacak/farklı platformlarda paylaşacaksanız, yapımcı nickini kodun başında belirtin.

1- Kötü nick koruması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @*:join:#:{ if $read(badnick.txt,w,$nick) { ban # $nick 5 | kick # $nick Uygunsuz nick. } }

Açıklama: Kanala girenlerin nickleri, badnick.txt dosyasında bulunan bir nick ise, kanaldan nick!identd@host şeklinde (5. type) banlanarak atılacaklardır.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:nick:{ if $read(badnick.txt,w,$newnick) { var %1 = 1,%2 = $comchan($newnick,0) | while %1 <= %2 { if $me isop $comchan($nick,%1) { ban $comchan($nick,%1) $nick 5 | kick $comchan($nick,%1) $nick Uygunsuz nick. } | inc %1 } } }

Açıklama: Nick değiştirenlerin yeni nickleri, badnick.txt dosyasında bulunan bir nick ise, ortak olarak bulunduğumuz tüm kanallardan nick!identd@host şeklinde (5. type) banlanarak atılacaklardır.

2- Kötü identd koruması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @*:join:#:{ if $read(badidentd.txt,w,$gettok($gettok($address($nick,5),2,33),1,64)) { ban # $nick 1 | kick # $nick Uygunsuz identd. } }

Açıklama: Kanala girenlerin identdleri, badidentd.txt dosyasında bulunan bir identd ise, kanaldan *!*identd@host şeklinde (1. type) banlanarak atılacaklardır.

3- Küfür koruması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @*:text:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }
on @*:action:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }
on @*:notice:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }

Açıklama: Kanala gönderilen text/action/notice mesajlarda, kufur.txt dosyasında bulunan bir kelime geçiyorsa, kullanan kişi kanaldan *!*@host şeklinde banlanıp atılacaktır.

4- Özele küfür koruması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
on *:action:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
on *:notice:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }

Açıklama: Özelinize birisi okufur.txt dosyasında bulunan bir küfür yazarsa, ignore edilecektir.

5- Reklam koruması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on @*:text:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } }
on @*:action:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } }
on @*:notice:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } }

Açıklama: Kanala gönderilen text/action/notice mesajlarda, reklam.txt dosyasında bulunan bir kelime geçiyorsa, reklam yapan kişi kanaldan *!*@host şeklinde banlanıp atılacaktır.

6- Özele reklam koruması

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } }
on *:action:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } }
on *:notice:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } }

Açıklama: Özelinize birisi oreklam.txt dosyasında bulunan bir küfür yazarsa, ignore edilecektir.

Hepsini birleştirip, aç/kapat özelliği ile birlikte yazarsak şöyle oluyor:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#badnick on
on @*:join:#:{ if $read(badnick.txt,w,$nick) { ban # $nick 5 | kick # $nick Uygunsuz nick. } }
on *:nick:{ if $read(badnick.txt,w,$newnick) { var %1 = 1,%2 = $comchan($newnick,0) | while %1 <= %2 { if $me isop $comchan($nick,%1) { ban $comchan($nick,%1) $nick 5 | kick $comchan($nick,%1) $nick Uygunsuz nick. } | inc %1 } } }
#badnick end
#badidentd on
on @*:join:#:{ if $read(badidentd.txt,w,$gettok($gettok($address($nick,5),2,33),1,64)) { ban # $nick 1 | kick # $nick Uygunsuz identd. } }
#badidentd end
#kufur on
on @*:text:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }
on @*:action:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }
on @*:notice:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }
#kufur end
#okufur on
on *:text:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
on *:action:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
on *:notice:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
#okufur end
#reklam on
on @*:text:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } }
on @*:action:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } }
on @*:notice:*:#:{ if $nick !isop # { if $read(reklam.txt,w,$1-) { ban # $nick 2 | kick # $nick Reklam yasaktır. } } }
#reklam end
#kufur on
on *:text:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } }
on *:action:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } }
on *:notice:*:?:{ if $read(oreklam.txt,w,$1-) { .ignore $nick 2 | .msg $nick Reklam yaptığınız için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) reklam yaptığı için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | closemsg $nick } }
menu status,menubar,channel {
Kötü nick koruması
  .$iif($group(#badnick) == on,Aç,Kapat):if $group(#badnick) == on { echo -s Kötü nick koruması aktif edildi. | .enable #badnick } | else { echo -s Kötü nick koruması kapatıldı. | .disable #badnick }
Kötü identd koruması
  .$iif($group(#badidentd) == on,Aç,Kapat):if $group(#badidentd) == on { echo -s Kötü identd koruması aktif edildi. | .enable #badidentd } | else { echo -s Kötü identd koruması kapatıldı. | .disable #badidentd }
Küfür koruması
  .$iif($group(#kufur) == on,Aç,Kapat):if $group(#kufur) == on { echo -s Küfür koruması aktif edildi. | .enable #kufur } | else { echo -s Küfür koruması kapatıldı. | .disable #kufur }
Özele küfür koruması
  .$iif($group(#okufur) == on,Aç,Kapat):if $group(#okufur) == on { echo -s Özele küfür koruması aktif edildi. | .enable #okufur } | else { echo -s Özele küfür koruması kapatıldı. | .disable #okufur }
Reklam koruması
  .$iif($group(#reklam) == on,Aç,Kapat):if $group(#reklam) == on { echo -s Reklam koruması aktif edildi. | .enable #reklam } | else { echo -s Reklam koruması kapatıldı. | .disable #reklam }
Özele reklam koruması
  .$iif($group(#oreklam) == on,Aç,Kapat):if $group(#oreklam) == on { echo -s Özele reklam koruması aktif edildi. | .enable #oreklam } | else { echo -s Özele reklam koruması kapatıldı. | .disable #oreklam }
}

Ayrıca bu menu kodları ile korumaları status/kanal pencerelerinden sağ tuş ile kontrol edebilirsiniz. Ben hepsini açık olarak ayarladım.

Not: Korumaların çalışması için, mIRC'inizin bulunduğu dizine hazırlayıp atmanız gereken dosyalar şunlardır:

badnick.txt
badidentd.txt
kufur.txt
okufur.txt
reklam.txt
oreklam.txt

Umarım işinize yarar...

İyi çalışmalar.

L4roXyL · 05 Ocak 2008, 21:21

1- Madem atmak için, mIRC tabanlı olan /ban komutunu kullanıyorsun, tekrar /kick kullanmak gereksiz.
Örnk: /ban -k # $nick (0-9) sebeb.

2-
on @*:text:*:#:{ if $nick !isop # { if $read(kufur.txt,w,$1-) { ban # $nick 2 | kick # $nick Kötü söz sahibine aittir. } } }

Bu kullanım yanlış ve kesinlikle çalışmaz.
Bunu defalarca anlattım; $read'ın w parametresi, matchtext kısmına yazılan text'i, belirtilen dosyadaki tüm satırlarda arar. Senin yapman gereken ise, dosya'daki tüm satırları yazılan text bütününde aramak.
Yani mesela diyelim;
Kufur.txt dosyasında "********" kelimesi var.
Kullanıcı kanal'da, "ne haber lan ********ler sizi" yazdığını varsayalım.
Direk bu şekilde dönecektir; $read(kufur.txt,w,ne haber lan ********ler sizi)
E dolayısı ile işlev yapmıyacaktır. Eğer yazılan ilk ve tek kelime "********" ise işlev yapar.
Önceden bende senin kullandığın gibi kullanıyordum. Hatalı olduğumu ve $read identifier'ının mantığını tam olarak anlayınca /while kullanmaya karar verdim.

Mesela bir alias oluşturabilirsin;
alias kfr var %o = 1 | while %o <= $lines(dosya.txt) { $iif($regex($1-,$read(dosya.txt,%o)),return $true) | inc %o } | return $false
on @*:text:*:#:if $nick isreg # && $kfr($1-) { ban -k # $nick 2 Sebeb. }

Veya alias kullanmadan direnk event içerisin'de işlev yaparsın;
on @*:text:*:#:if $nick isreg # { var %k = 1,%kk = $lines(dosya.txt) | while %k <= %kk { echo -a $read(dosya.txt,%k) | if $+(*,$read(dosya.txt,%k),*) iswm $1- { ban -k # $nick 2 Sebeb. | return $true } | inc %k } | return $false }

Bayağı bu bölümde takılıyorsun, senden daha iyi şeyler bekleniyor.

sephiroth1 · 04 Şubat 2008, 18:28

peki bunu echolatmasak kötü bir görüntü oluyor?

04 Şubat 2008, 22:41

sephiroth Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

peki bunu echolatmasak kötü bir görüntü oluyor?

Neyi echolatacaksın? Nasıl echolatacaksın? Echolatmak nedir? Amacın nedir?

Bunlar bazı korumalar. Gerekli açıklamaları zaten yaptım. Eğer ne amaçla kullanıldığını, niçin kullanacağını bilmiyorsan kullanma.

BLaCK_and_WHiTe · 10 Şubat 2008, 12:45

L4roXyL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on @*:text:*:#:if $nick isreg # { var %k = 1,%kk = $lines(dosya.txt) | while %k <= %kk { echo -a $read(dosya.txt,%k) | if $+(*,$read(dosya.txt,%k),*) iswm $1- { ban -k # $nick 2 Sebeb. | return $true } | inc %k } | return $false }

yalnız bu kod a.q gibi noktalı küfürleri görmüyor bir sorun var sanırım;scare

L4roXyL · 10 Şubat 2008, 16:05

on @*:text:*:#:if $nick isreg # { var %k = 1,%kk = $lines(dosya.txt) | while %k <= %kk { if $+(*,$read(dosya.txt,%k),*) iswm $1- { ban -k # $nick 2 Sebeb. | return $true } | inc %k } | return $false }

Kod sorunsuz çalışıyor.

rewal · 27 Şubat 2010, 12:18

on *:text:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz.| echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
on *:action:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
on *:notice:*:?:{ if $read(okufur.txt,w,$1-) { .ignore $nick 2 | .msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. | echo -a $+($nick,,) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- | .closemsg $nick } }
bu kodu remoteye ekledim,okufur.txt. dosyasıda yaptım ama cümle içinde geçen kötü kelimelerde özelimden ignore etmiyor örneğin*salak* cümle içinde geçse atmıyor yanlış olan ne acaba yardımcı olabilirmisiniz.tşk.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
txt okutmalı karsilama mesajı	Xadd1	TCL Scriptler	2	05 Haziran 2023 16:54
txt okutmalı dosya	rewal	mIRC Scripting Sorunları	2	23 Ekim 2017 16:15
txt,okutmalı,dosya	rewal	mIRC Scripting Sorunları	1	09 Nisan 2011 09:47
Ident Koruması Txt Okutmalı	darkshades1	mIRC Scripting Sorunları	4	21 Aralık 2010 14:16
Kanal için bazı korumalar.(Ayarlanabilir)	L4roXyL	mIRC Scripting Hazır Kodlar	0	19 Ocak 2008 00:04

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.