Addonlar bölümünde koruma addonu indirdim. Küfür listesine mdx ile satır veriyorum ama listeye ekle veya sil dediğimde listeden bir kelime silemiyorum.
Kırmızı olan yeri ben ekledim. sclick bölümünde hdel işlemiyor.


alias k_start {
hmake $1 $2
hload $1 $+(remote\save\,$1,.save)
}
alias kstart {
k_start kufur 1000
}
on *:start: { kstart }
on *:text:*:#: {
if (%kufur == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) {
if $hfind(kufur,$1-,1,W).data {
ban -u900 # $nick 2 | .kick # $nick %kufur.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Küfür 1Sebebinden Atılmıştır.
}
}
}
alias kekle {
hadd -m kufur $calc($hget(kufur,0).item + 1) $1-
hsave kufur remote\save\kufur.save
}
alias yasak { dialog -m yasak yasak }
dialog yasak {
title "Yasak Kelimeler..."
size -1 -1 205 210
option pixels
edit "", 2, 121 19 68 23, multi return
button "Ekle", 3, 121 60 60 17, flat
button "Sil", 4, 121 86 60 17, flat
button "Tamam", 5, 122 115 60 17, flat ok
list 1, 11 18 103 183, size
icon 6, 136 153 32 32
box "", 7, 5 6 188 202
}
on *:dialog:yasak:sclick:*:{
if ($did = 4) {
hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data
hsave kufur remote\save\kufur.save
deneme $dname
}
if ($did = 3) { kekle $did($dname,2) | deneme $dname }
}
alias deneme dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:yasak:init:0: {
mdxinit
mdx SetControlMDX 1 ListView grid single rowselect showsel report > $views
did -i $dname 1 1 headerdims 180
did -i $dname 1 1 headertext liste
var %x = 1
while (%x <= $hget(kufur,0).item) {
did -ac yasak 1 $hget(kufur,%x).data
inc %x
}
}
alias kaydet {
var %q 1
while (%q <= $hget(kufur,0).item) {
write kufur.txt $hget(kufur,%q).data
inc %q
}
}

 

Çevrimdışı

Kod'da bir çok hata var.
Direk mdx şeklinde kullanabilmen için; mdx isminde bir alias oluşturman gerekiyor.
alias mdx { return dll mdx.dll $1 $2- }
Devamında, mdxinit diye bir işlev yok. Orayı silmelisin.
Ek olarak;
$did($dname,1).sel bu, list'de seçtiğin satır numarasını verir.
$did($dname,1).seltext bu ise, list'de seçmış olduğun satır'daki yazıyı verir.
Listeden veri silmek için; did -d $dname 1 $did($dname,1).sel yapmalısın.

Bu bilgiler'den yola çıkarak düzenliyebilirsin.

 

L4 kardeş aliasda mdx { return dll mdx.dll $1 $2- } şeklinde yüklü zaten.
Yukaridaki eklediğim mdx çalıstı ve liste satır satır seritli cıktı.
Ama listeden seçtiğim veri silinmiyor.

on *:dialog:yasak:sclick:*:{
if ($did = 4) {
hdel -s kufur $hfind(kufur,$did($dname,1).seltext,1,W).data
hsave kufur remote\save\kufur.save
deneme $dname
}
if ($did = 3) { kekle $did($dname,2) | deneme $dname }
}

bu sildirmiyor.

 

Çevrimdışı

//echo : Toplam Kufur Adedi > $hget(kufur,0) , $hget(kufur,1).data
gibi bir komutla kontrol et hash tablosu yüklenmişmi ona bir bak ben örnekte 1 dedim "hadd kufur 1 kelime" gibisinden ekledigini varsayarak..

 

Çevrimdışı

Aslında canım sıkılıyordu, basit birşey yazayım dedim.
İşini gayet güzel görecektir.
Mdx.dll kullanmak istiyorsan zaten yolunu biliyorsun.


Sanırım işine yarar.

 

Eline sağlik L4roXyl ben bir script de görmüştüm. Listeye mdx eklersen şu şekilde demek istedim. Aşağida örnek görünüm var. Eklediğim mdx yolu ile seninkinede ekledim. Listeden sil deyince siliyor ama save dosyasından sildirmiyor. Diyalog geri acildiğinda eski kelimeler listede yine gözüküyor.
Öyle bir görüntü ile açmak istiyorum listeyi.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

 

Çevrimdışı

Benim verdiğim kod'da senin dediğin şekilde bir sorun yok, kaan.
Kelimeyi eklediğinde, kufur.save dosyasına kaydeder, herhangi bir kelime sildiğinde, kufur.save dosyasına refresh çeker.(Tekrar yeniler)
Yani anlıyacağın, o şekilde bir sorun olmaz/olmuyor.

 

L4roXyl dediğin gibi ekledim. Listeye ekleme yapiyor. Sil dediğinde listeden siliyor. Lakin save dosyasindan silmiyor. Tekrar açtığında silinmemiş şekilde cıkıyor.
Mdx eklediğinde bunu hatayi verdiriyor. Sil butonunu slick de sorun var diğer ilk verdiğimde de yapti. Onu çözemedim.

on *:dialog:kufur:init:*: {
mdxinit
mdx SetControlMDX 6 ListView grid single rowselect showsel report > $views
did -i $dname 6 1 headerdims 154
did -i $dname 6 1 headertext Küfür Listesi
var %7 = 1,%77 = $hget(kufur,0).item | while %7 <= %77 { did -a $dname 6 $hget(kufur,%7).item | inc %7

}
}

 

Çevrimdışı

İlk başta dediğim gibi mdxinit diye birşey yok.
Ya mdxinit diye bir alias olması gerekli, yada geçersiz bir işlev o.
Ayrıca veri sildiğin zaman, kufur.save dosyasın'danda siliyor.

Sanırım sorun sende.

 

L4 şehir dişindaydim yeni geldim. alias da mdxinit diye tanittim ben ve çaılışıyor. Benim sorunum küfür addonuna mdxinit diye ekleyip listeyi actiğimda, küfür listesinden veri sil diyorum ve siliyor. Ama listeyi tekrar açtiğimda veri ler duruyor.
İstersen sen ekle ve dene.

on *:start: { if $isfile(kufur.save) { hmake kufur 100 | hload -i kufur kufur.save } }
alias yasak $iif(!$dialog(kufur),dialog -m kufur kufur,halt)
dialog kufur {
title "Yasak kelimeler."
size -1 -1 110 81
option dbu
button "Ekle", 1, 65 27 37 12
edit "", 2, 65 14 37 10
button "Sil", 3, 65 41 37 12
button "Kapat", 4, 65 55 37 12
box "", 5, 3 3 105 72
list 6, 8 14 50 53, size
}
on *:dialog:kufur:sclick:*: {
if $did == 1 {
if $did(2) == $null { $iif($input(Herhangi bir kelime girmediniz.,ohud,Uyarı) == $true,halt,halt) }
if $hmatch(kufur,$did(2)) { $iif($input(Kelime zaten listede.,ohud,Uyarı) == $true,halt,halt) }
else { var %i = $did(2).text | hadd -m kufur %i 1 | hsave -i kufur kufur.save | did -a $dname 6 %i | did -r $dname 2 }
}
if $did == 3 {
var %s = $did($dname,6).sel,%q = $did($dname,6).seltext
if !%s { $iif($input(Listeden herhangi bir kelime seçmediniz.,ohud,Uyarı) == $true,halt,halt) }
else { did -d $dname 6 %s | hdel kufur %q | hsave -i kufur kufur.save }
}
if $did == 4 { dialog -x kufur kufur }
}
on *:dialog:kufur:init:*: {
mdxinit
mdx SetControlMDX 6 ListView grid single rowselect showsel report > $views
did -i $dname 6 1 headerdims 100
did -i $dname 6 1 headertext liste
var %7 = 1,%77 = $hget(kufur,0).item | while %7 <= %77 { did -a $dname 6 $hget(kufur,%7).item | inc %7 } }
on *:text:*:#: {
if $me isop # && $nick isreg # { var %1 = 1,%2 = $hget(kufur,0).item | while %1 <= %2 {
if $hget(kufur,%1).item iswm $1- { var %& = $remove($v1,*) | ban -k # $nick 2 Kullandığınız cümlede $qt(%&) kelimesi algılandı. }
inc %1
}
}
}