[angry1]

s.a arkadaslar bulduqum bir kelime tamamlama addonu calışmıyor

ekliyor siliyor kelime.ini dosyasına kayıt ediyor.. örnek slm = seLam ekliyorum sorunsuz ama kanala slm diye yazdıgımda değiştirmiyor kısacası çalışmıyor
kodaaki hata için yardımlarınızı bekliyorum..

alias kelime {
if !$dialog(kelime) { .dialog -m kelime kelime }
else { return }
}
dialog kelime {
title "Kelime Düzeltme"
size -1 -1 332 136
text "Yanlış Kelimeler:", 1, 12 8 92 13
list 2, 10 28 110 100, size
list 3, 212 28 110 100, size
text "Doğru Kelimeler:", 4, 214 8 104 13
button "&Ekle", 5, 128 28 75 22
button "&Sil", 6, 128 52 75 22
button "&Kapat", 7, 128 104 75 22, ok
}

on *:dialog:kelime:*:*:{
if $devent = init { var %! = 1 | while (%! <= $ini(kelime.ini,kelimeler,0)) { did -a kelime 2 $ini(kelime.ini,kelimeler,%!) | did -a kelime 3 $readini kelime.ini kelimeler $ini(kelime.ini,kelimeler,%!) | inc %! } }
if $devent = sclick { if $did = 5 { .timer 1 0 kelime-add } | if $did = 6 && $did(kelime,2).sel { remini kelime.ini kelimeler $did(kelime,2,$did(kelime,2).sel).text | did -d kelime 2,3 $did(kelime,2).sel } | if $did = 2 { did -c kelime 3 $did(kelime,2).sel } | if $did = 3 { did -c kelime 2 $did(kelime,3).sel } }
}

on *:input:#:{
if (/* !iswm $1) && (%kelime == on) { say $spell($1-) | halt }
}
on *:input:?:{
if (/* !iswm $1) && (%kelime == on) { say $spell($1-) | halt }
}

alias kelime-add var %! = $$?="Düzeltilecek Kelimeyi Girin.:",%. = $$?="Doğru Kelimeyi Girin.:" | writeini kelime.ini kelimeler %! %. | did -a kelime 2 %! | did -a kelime 3 %.
alias spell var %. = $1-,%! = 1,%²,%³ | while (%! <= $numtok(%.,32)) { %² = $readini kelime.ini kelimeler $gettok(%.,%!,32) | %³ = %³ $iif(%²,%²,$gettok(%.,%!,32)) | inc %! } | return %³

alias editmrcz {
if (%kelime == on) {
if ($editbox($active) == slm) { edithelper -a $spell(slm) }
;if ($editbox($active) == selam) { edithelper -a seLam }
if ($editbox($active) == nbr) { edithelper -a Naber }
}
}
alias edithelper{
$remove(eEdShowBlanx444dEdShowBlanx444iEdShowBlanx 444tEdShowBlanx444bEdShowBlanx444oEdShowBlanx444x, EdShowBlanx444) $1-
}