🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Dosyadan okutmalı bazı korumalar
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.
Konu Regex tarafından (05 Ocak 2008 Saat 20:38 ) değiştirilmiştir.
05 Ocak 2008, 19:58
Benzer Konular 
Ağaç şeklinde
