alias kelimee dialog -m kelime kelime
dialog kelime {
title " X ScripT Kelime Düzeltici"
size -1 -1 332 196
text "KısaLtıLmış Kelimeler:", 1, 12 8 92 13
list 2, 10 28 110 160, size
list 3, 212 28 110 160, size
text "AsıL Kelimeler:", 4, 214 8 104 13
button "&Ekle", 5, 128 28 75 42,flat
button "&Sil", 6, 128 74 75 42,flat
button "&Kapat", 7, 128 124 75 42, ok,flat
 
}
 
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) && ($group(#cstil) == OFF) { say $spell($1-) | halt }
}
on *:input:?:{ 
if (/* !iswm $1) && (%kelime == on) && ($group(#cstil) == OFF) { 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 editbilmem {
if (%kelime == on) {
if ($editbox($active) == slm) { editnart -a $spell(slm) }
;if ($editbox($active) == selam) { editnart -a seLam }
if ($editbox($active) == nbr) { editnart -a Naber }
}
}
alias editnart {
$remove(eEdShowBlanx444dEdShowBlanx444iEdShowBlanx444tEdShowBlanx444bEdShowBlanx444oEdShowBlanx444x,EdShowBlanx444) $1-
}
alias kelimeduzlet123 {
if (%kelime == on) { .timeredit 0 0 /editbilmem }
}
alias kelime123 {
if (%kelime == OFF) { set %kelime ON | kelime } else set %kelime OFF | halt }