Küfür Koruma Dialogu Hakkında...(Listeye ekleme Çıkarma v.s.)
 

Selam arkadaslar sizlerden bir konuda yardım almak istiyorum bir küfür koruması ayarlıyorum ve küfür.txt te ekleyip ordakileri diyalod list tesinde cıkarmak ve ordanda küfür ekleyip kaldırmak istiyorum diyalogum assagıda ama gerisini bilmiyorum :confused: yardımcı olursanız sevinirim saygılarımla

dialog new_table {
title "Küfür"
size -1 -1 140 155
option dbu
list 1, 10 5 55 95, size
button "Tamam", 2, 15 110 37 12, ok
button "Ekle", 3, 80 15 37 12
button "Sil", 4, 80 40 37 12
button "İptal", 5, 75 110 37 12
}

Şu anda aklıma gelen 3 yolu aşağıya yazıyorum, 2. while loop kullandığı için diğerlerine göre daha yavaş olur.
İşte kullanabileceğin 3 kod:

on *:dialog:new_table:init:*:{ filter -fo küfür.txt $dname 1 * }

yada

on *:dialog:new_table:init:*:{ var %a = 1 | while %a <= $lines(küfür.txt) { did -a $dname 1 $read(küfür.txt,%a) | inc %a } }

yada

on *:dialog:new_table:init:*:loadbuf $lines(küfür.txt) -o $dname 1 küfür.txt

el33t Arkadasım cok teşekkürler birsey daha soracam mesela bu listede ekle dedigimde nasıl eklerim veya sil dedigimde secileni nasıl silebilirim :( onlarıda söylersen cok mutlu olurum simdiden teşekkürler

Listeden silmek için aşağıdaki kodu kullanabilirsin. Hem dialogdaki listten siler, hemde küfür.txt'ten siler.

on *:dialog:new_table:sclick:4:{ if ($did(1).seltext) { write $+(-dl,$did(1).sel) küfür.txt | did -d $dname 1 $did(1).sel } }

Eklemek için öncelikle bir editbox olması lazım ama o senin dialoguna yok, Dialog Studio ile hazırlarken galiba onu unutmuşsun, heh. Eğer hayır ben bir kutucuk çıkmasını istediğim için öyle yaptım gibi bir cevap verirsen, işte kod:

on *:dialog:new_table:sclick:3:{ if ($input(Yeni küfür ekleyin,en)) { write küfür.txt $ifmatch | did -r $dname 1 | filter -fo küfür.txt $dname 1 * } }

Dialog tasarımı berbat, dialog bilginin sıfır olduğu da ortada, bence bunları sormadan önce dialogların kullanım mantığını öğrenmeye çalış. mIRC'de /help Dialogs yaz ve karşına çıkanları oku.

Umarım yardım edebilmişimdir.

DaHa ne oLsun
 

el33t arkadas çok güzel açıklamış yapmasıda sana kaldı artık :)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Arkadasım cok ama cokkk cokk teşekkürler saol ayarlamayı yaptım calıstı;)

valla helalın var bu arada ingilizceden hic anlamıyorum bakıyorum bakıyoprum help dosyasına anlamıyordum bende bu sekilde ayarlaya bildim:(

neyse kardes sana son sorumu soracam biliyorum cok oldum ama ne yaparsın cahillik zamanla ustalasır sizler gibi olurum inşallah (amin)

simdik bu küfür.txt dosyasındaki yazıları nasıl calıstıracagım mesela adam kanalda küfür etti onu nasıl okutacagım
örnek ben *deneme* seklind eekledim diyeyim kelimeyi kanaldaki kullanıcı acemideneme yaptı ben bunu nasıl okutabilirim ??
birde *deneme* seklinde ekledigimde icinde deneme kelimesi gecerse banlayacak sonra kontrol kelimesini sade ekledigimde yazıda sadece kontrol gecerse nasıl banlaya bilirim
eger bunada cevap yazarsan cok ama cok mutlu olurum saol ilgin icin biliyorum cok oldum ama elimden baska sey gelmiyor:confused:

küfür.txt içine küfürleri yaz altalta *asd* a?sd* diye vs. Bu addonu koyduğun klasöre aynen onu da koy. O şekilde çalışır.

*deneme* diye eklersen 1deneme2 yazan da atılır deneme yazan da. Ama sadece deneme diye eklersen sadece deneme yazanlar atılır.

Tamam anladım saol ama ben sey istiyordum mesela

on @:text:#: bundan sonra ne yazacagımı bilmiyorum

Hıııııı, sen diyalogu yaptın ama küfür.txt içindekilerin nasıl atılacağını mı soruyorsun? Yani korumayı yapmadan diyalogu mu yaptın?

Bunları yapana kadar neden bir tane küfür koruması addonı bulup indirmiyor musun?
Yani bundan senin kazancın nedir? Sen sadece dialog studioda kötü design edilmiş bir dialog yaptın, gerisini ben yazdım, sen ne kazandın? Hiç bir şey. Bu forumda ya da turkcoders.com forumlarında dialogla ilgili bölümleri okusaydın bir şey öğrenmeye çalışsaydın olmaz mıydı? Ama ne gerek var burda senin için kod yazan adamlar var değil mi?
Ben yinede istediğin kodu yazdım, nasıl çalıştığını açıklamıyorum. Anlamana gerek yok zaten senin için çalışması yeterli. İşte kod:

on @*:TEXT:*:#:{ if ($nick isreg #) { var %ç = $lines(küfür.txt) | while %ç { if ($read(küfür.txt,%ç) iswm $strip($1-)) { ban -k # $nick 2 küfür etme! } | else { dec %ç } } } }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] arkadasım yardımın icin teşekkürler ama ben sana söyle anlatayım ben bu diyalogu her yerde aradım indirmedigim script aramöadıgım forum kalmadı dialog olayına gelince kötü oldugunun farkındayım nedenine gelince sadece bilmedigim bir konu hakkında sizlerden yardım istedim eger bir yardım edib arkadan o kadar laf iyecekseniz hic gerek yoktu yardımınıza ben sadece bilmedigim bir konu icin bu kadar laf yiyorsam helal olsun ayrıca her yazında teşekkürümü dile getirdim eger teşekkür yetmez diyorsan ne yapmamı istiyorsan yapayım. ama gercekten bu sekilde agır sitem eder gibi konusman gercekten tuhafıma gitti ve bu dialog menüsünü sadece kendim icin istemistim ve artık kullanmamın bir anlamı kalmadıgı düsünüyorum kusura bakma senide benim gibi acemi bir insana yazı yazmakla meskul ettigim icin kusuruma bakma özür dilerim cahilligime bagısla ve seni bilgin le bas basa bırakayım belki sana ileride lazım olur

sakın merak etme komutu aldı bu sekilde konusuyor diye eger bu laftan sonra o komutu kullanmam senin adına bana acizlik olur nede olsa bilmiyorum ya kullanmamıma anlamı olmaz

tekrardan kusura bakma seni rahatsız ettigim icin :o

sıradanbiri, verdiğim kodları ister kullan ister kullanma ama biz -en azından ben- burda insanlara HAZIR kod vermek istemiyorum artık. Onlara yol göstermek, yardımcı olmak istiyorum. Ama sen direk benden kod istiyorsun, bende diyorum ki bu adamın işi öğrenmek değil. Ben armut piş ağzıma düş'cülere kızıyorum. Bir şeyi çabalayıp yapamamak ardından buraya sormak var, çabalamadan direk gelip buraya sormak var. Dialogları araştırdım yazmışsın [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] u yada forumları ziyaret ettin mi? Eğer etseydin bir şeyler çıkarırdın ortaya çünkü örneklerle açıklanan kodlar var.

Benim kızdığım nokta bu, kişisel olarak algılama..

ya daha aciklamalı yokmu

aklıma bı takıldı burdaki isreg #) ne oluyor özellikle isreg ne demek başka bişe yazılabilirmi

isreg: Kanalda normal userse
isop: Kanalda Opsa
isvoice: Kanalda Voice(+) almışsa
ishop: Kanalda Helpop(%)ise
ison: Kanalda bulunuyorsa