Çevrimdışı

Merhabalar bu addon gerçekten bana da gerekli uzun süredir böyle birşey arıyordum vermiş oldugunuz kodu elimden geldiği kadar editledim daha güzel hale getirdim ama arkadaşında dediği gibi addonda eklenen yazıları silmek isteyince silmiyor. Bir hata var ve hatanın yerinide buldum lakin uzun süre ugraşmama ragmen hatayı gideremedim. Yardımlarınızı bekliyorum...

Editlediğim kod;

alias globalmesaj {
if $dialog(Global) == $null {
dialog -m Global Global
}
}
dialog Global {
title "Global Mesaj Bildirim Listesi"
size -1 -1 374 264
option pixels notheme
button "Sil", 1, 89 196 70 26
list 2, 13 15 346 136, sort
box "Mesajlar", 3, 7 0 356 147
edit "", 4, 178 170 180 82, autohs
box "Eklenecek mesaji girin", 5, 172 154 191 102
button "Ekle", 6, 89 229 70 25
text "Saniye", 8, 18 165 52 20, center
edit "sn", 9, 88 159 70 29, autohs center
button "Baslat", 10, 8 196 70 27, ok
button "Durdur", 12, 8 229 71 25
box "Sure", 7, 9 150 70 40
}
on *:dialog:Global:sclick:*: {
if $did == 1 { $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }
if $did == 6 { if ($did(4) != $null) { did -a Global 2 $did(4) | write sozler.txt $did(4) | did -fr Global 4 } }
if $did == 10 { if $did(9) isnum { .timerglobmesaj 0 $did(9) msg #Chat $!read(sozler.txt) | echo -a 0,6** Global Mesaj Bildirimi Aktif ** } }
if $did == 12 { .timerglobmesaj off | echo -a 0,7** Global Mesaj Bildirimi Kapalı ** }
}
on *:dialog:Global:init:*: {
if ($lines(sozler.txt) != $null) {
set %global 0
while (%global < $lines(sozler.txt)) {
inc %global 1
did -a Global 2 $read(sozler.txt,%global)
}
unset %global
}
}
menu status,nicklist,channel {
Global Mesaj :globalmesaj
}

Hatalı olarak görülen yer; (Burdan hata veriyor)

if $did == 1 { $read(sozler.txt,w,$+(*,$did(2).seltext,*)) { write $+(-,d,l,$readn) sozler.txt | did -d Global 2 $did(2).sel } }

Mirc hata raporu (Sil butonuna tıklayınca kanalda çıkan yazı)

[ Mesaj ] write Varolmayan bir komut.