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 %ç } } } }