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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Şubat 2007, 00:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Korumalarım Kanal Oplarını ve Halfoplarını Atmasın




UZUN YAZI KORUMASI
on *:text:*:#: {
if $regex($1-,/([[:print:]])\1\1/gi) >= 7 {
mode # +b $wildsite | kick $chan $nick 2Kanal kurallarına aykırı hareket.5 $time
}

KÜFÜR KORUMASI

on *:text:*:#: { var %: $lines(kufur.txt)
while (%: > 0) { if $read(kufur.txt,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $strip($1-) {
if $me !isop $chan { halt } | if ($nick == NoMercy) || (dmin isin $address($nick,0)) { halt }
mode # +b $wildsite | kick # $nick 2Lütfen kanal içerisinde 4argo/küfür 2içeren sözcükler kullanmayın.5 $time }
.dec %:
}
}

KANAL REKLAMLARINA KARSI OLARAK KULLANDIĞIM KORUMA
alias Coder { dialog -m Coder1 Coder1 }
dialog Coder1 {
title "[ Coded : Coder ] • [ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz kelimeler kanalda cümle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi
check "Check Box", 10, 12 92 8 10
edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır", 11, 19 93 53 27, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:Coder1:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%l,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari }
if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle }
}
}
if ($devent == init) {
var %l.e = 1
var %l.d = $numtok(%l,32)
while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e }
if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 }
if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 }
}
}
#uyari off
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) iswm $1- {
echo -a 0,5&#171; Bilgi &#187; 0,4 •• # •• Kanalından •• $nick •• $ifmatch Kelimesini Kullandı ••
}
inc %i
}
}
#uyari end
#kickle on
on *:text:*:#mircturk,#ww: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) iswm $1- {
mode # +b $wildsite
kick # $nick 2Kanal kurallarına aykırı hareket.5 $time
}
inc %i
}
}
#kickle end

B&#220;Y&#220;K HARF İ&#199;İN KULLANDIĞIM KORUMA

on @*:text:*:#:{
var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-Z&#214;&#220;Şİ&#199;Ğ]/g) / $len(%<)) * 100))
if $nick isreg # && %> >= 75 && $len(%< >= 5) {
inc -u600 $+(%,cc.,#,$nick) | var %' = $($+(%,cc.,#,$nick),2)
if %' == 1 { msg $chan UYARI: $nick 4UYARI! 4L&#252;tfen 4CapsLock 4Tuşunu 4Kapatarak 4Yazınız.4&#223;&#252;y&#252;k 4Harf 4Kullanmayınız. 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. }
if %' >= 2 { ban -ku600 # $nick 2 5L&#252;tfen 2b&#252;y&#252;k harf kullanmayınız, 2aynı s&#246;zc&#252;kleri 5devamlı tekrar etmeyin.4 $time | unset $+(%,cc.,#,$nick) }
}
}

KODLARI VERMEMİN SEBEBİ BUNLARA G&#214;RE OLMASI İ&#199;İN ve AYRICA REKLAM KORUMASINDA SERVERİN ADRESİ İLE @ OLDUM KANALIN ADI GECTİĞİNDE ATMAMASI M&#220;MK&#220;NM&#220;
UZUN YAZI KORUMASI
on *:text:*:#: {
if $regex($1-,/([[:print:]])\1\1/gi) >= 7 {
mode # +b $wildsite | kick $chan $nick 2Kanal kurallarına aykırı hareket.5 $time
}

K&#220;F&#220;R KORUMASI

on *:text:*:#: { var %: $lines(kufur.txt)
while (%: > 0) { if $read(kufur.txt,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $strip($1-) {
if $me !isop $chan { halt } | if ($nick == NoMercy) || (dmin isin $address($nick,0)) { halt }
mode # +b $wildsite | kick # $nick 2L&#252;tfen kanal i&#231;erisinde 4argo/k&#252;f&#252;r 2i&#231;eren s&#246;zc&#252;kler kullanmayın.5 $time }
.dec %:
}
}

KANAL REKLAMLARINA KARSI OLARAK KULLANDIĞIM KORUMA
alias Coder { dialog -m Coder1 Coder1 }
dialog Coder1 {
title "[ Coded : Coder ] • [ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "&#199;ıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz kelimeler kanalda c&#252;mle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi
check "Check Box", 10, 12 92 8 10
edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır", 11, 19 93 53 27, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:Coder1:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%l,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari }
if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle }
}
}
if ($devent == init) {
var %l.e = 1
var %l.d = $numtok(%l,32)
while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e }
if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 }
if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 }
}
}
#uyari off
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) iswm $1- {
echo -a 0,5&#171; Bilgi &#187; 0,4 •• # •• Kanalından •• $nick •• $ifmatch Kelimesini Kullandı ••
}
inc %i
}
}
#uyari end
#kickle on
on *:text:*:#mircturk,#ww: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) iswm $1- {
mode # +b $wildsite
kick # $nick 2Kanal kurallarına aykırı hareket.5 $time
}
inc %i
}
}
#kickle end

B&#220;Y&#220;K HARF İ&#199;İN KULLANDIĞIM KORUMA

on @*:text:*:#:{
var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-Z&#214;&#220;Şİ&#199;Ğ]/g) / $len(%<)) * 100))
if $nick isreg # && %> >= 75 && $len(%< >= 5) {
inc -u600 $+(%,cc.,#,$nick) | var %' = $($+(%,cc.,#,$nick),2)
if %' == 1 { msg $chan UYARI: $nick 4UYARI! 4L&#252;tfen 4CapsLock 4Tuşunu 4Kapatarak 4Yazınız.4&#223;&#252;y&#252;k 4Harf 4Kullanmayınız. 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. }
if %' >= 2 { ban -ku600 # $nick 2 5L&#252;tfen 2b&#252;y&#252;k harf kullanmayınız, 2aynı s&#246;zc&#252;kleri 5devamlı tekrar etmeyin.4 $time | unset $+(%,cc.,#,$nick) }
}
}

KODLARI VERMEMİN SEBEBİ BUNLARA G&#214;RE OLMASI İ&#199;İN ve AYRICA REKLAM KORUMASINDA SERVERİN ADRESİ İLE @ OLDUM KANALIN ADI GECTİĞİNDE ATMAMASI M&#220;MK&#220;NM&#220;

Konu moonshield tarafından (01 Şubat 2007 Saat 00:59 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 01 Şubat 2007, 09:36   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Yanıt: Korumalarım Kanal Oplarını ve Halfoplarını Atmasın




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $nick isop $chan { .halt }


 
Alıntı ile Cevapla

Alt 01 Şubat 2007, 15:28   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Korumalarım Kanal Oplarını ve Halfoplarını Atmasın




Abi Bişi Daha Var Demiştim Ya Serverin Web Site Adresi Gecerse İrc Adreasi Gecerse Atmasın Reklam Korumasında Bunu Yapabilirmiyiz. Yani Ben irc.deneme.com [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu kelimelerde atmasın.

 
Alıntı ile Cevapla

Alt 01 Şubat 2007, 19:00   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Yanıt: Korumalarım Kanal Oplarını ve Halfoplarını Atmasın




Onuda b&#246;yle yapabilirsin, codene ekleyeceksin bunları;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) { halt } if (irc.deneme.com isin $1-) { halt } if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) { halt }


 
Alıntı ile Cevapla

Alt 02 Şubat 2007, 17:01   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Yanıt: Korumalarım Kanal Oplarını ve Halfoplarını Atmasın




bunu ekle

if $nick isop $chan { halt }
if $nick ishop $chan { halt }

ilk { den sonra ki yere ekle

mesela

on *:text:*:#: {
if $nick isop $chan { halt }
if $nick ishop $chan { halt }
else {
var %: $lines(kufur.txt)
while (%: > 0) { if $read(kufur.txt,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $strip($1-) {
if $me !isop $chan { halt } | if ($nick == NoMercy) || (dmin isin $address($nick,0)) { halt }
mode # +b $wildsite | kick # $nick 2L&#252;tfen kanal i&#231;erisinde 4argo/k&#252;f&#252;r 2i&#231;eren s&#246;zc&#252;kler kullanmayın.5 $time }
.dec %:
}
}
}

mantık budur digerlerinide buna g&#246;re yaparsın sonuna bi } daha ekle en sona

 
Alıntı ile Cevapla

Alt 02 Şubat 2007, 17:24   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Korumalarım Kanal Oplarını ve Halfoplarını Atmasın




By_rebel Sağolasın O Sorunu Halletik MoonShieLL ile mavipiksel Sayesinde Yiinede Sağol

 
Alıntı ile Cevapla

Cevapla

Etiketler
atmasin, halfoplarini, korumalarim, mirc download, mirc indir, oplarini, ve


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
NoMercy Botları Atmasın.. ProgramHane Eggdrop, NeoStats, BNC 4 09 Şubat 2008 16:27
kanalda +h modundayken korumalarım çalışmıyor By_GuRbey mIRC Scripting Sorunları 7 20 Ekim 2007 16:04
Koruma Listesindekileri Atmasın... erdem55 mIRC Scripting Sorunları 13 21 Temmuz 2005 16:22