Çevrimdışı

Arkadaslar aşağidaki addon bilinen bir kelime tamamlamadır. Cok kişi kullanmaktadır lakin çalışmıyor. Kulanan kişilerede baktım çalışmıyor.
dll ve kelimelerin listesi için txt olayida tamam ama kisa kelimeyi uzuna çevirmiyor.
Lütfen yardim edebilirmisiniz.



dialog kelime_tamamla {
title Kelime tamamlama
size -1 -1 212 94
option dbu
list 1, 3 2 100 88, size
box "", 2, 105 18 74 57
button "Kapalı", 3, 104 2 76 12,flat
text "Kısaltılmış:", 4, 109 26 28 8
edit "", 5, 108 37 67 10, autohs
text "Tam:", 6, 109 50 25 8
edit "", 7, 108 60 67 10, autohs
button "Ekle", 8, 107 78 31 12,flat
button "Kaldır", 9, 145 78 31 12,flat
button "Tamam" 10, 180 21 30 69 , ok,flat
}
on *:dialog:Kelime_tamamla:init:0:{ dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname | dll $mdx SetBorderStyle 3,8,9,10 staticedge | dll $mdx SetFont 4,6,3 12 700 Tahoma | dll $mdx SetFont 8,9,5,7 12 400 Tahoma | dll $mdx SetControlMDX 1 ListView grid single rowselect showsel report > $scriptdirviews.mdx | did -i $dname 1 1 headerdims 87:1 87:2 | did -i $dname 1 1 headertext Kısaltılmış: $+ $chr(9) $+ Tam: | if (%Kelime_tamamla == evet) did -a $dname 3 Açık | else did -a $dname 3 Kapalı | kelimeyükle }
on *:dialog:Kelime_tamamla:sclick:1:{ did -ra $dname 5 $gettok($read($scriptdirkelimeler.txt,$calc($did(1 ).sel - 1)),1,9) | did -ra $dname 7 $gettok($read($scriptdirkelimeler.txt,$calc($did(1 ).sel - 1)),2,9) | if ($gettok($did($dname,$did,1),1,32) == rclick) { Kelimenü } }
on *:dialog:Kelime_tamamla:sclick:3:{ if (%Kelime_tamamla == evet) { set %Kelime_tamamla hayır | did -a Kelime_tamamla 3 Kapalı | set %kelimetamamla OFF } | else { set %Kelime_tamamla evet | set %kelimetamamla ON | did -a Kelime_tamamla 3 Açık } }
on *:dialog:Kelime_tamamla:sclick:8:{ kelime.ekle }
on *:dialog:Kelime_tamamla:sclick:9:{ kelime.çıkart }
alias kelime { dialog -m Kelime_tamamla Kelime_tamamla }
alias -l mdx { return $shortfn($scriptdirmdx.dll) }
alias -l kelimeyükle { did -r kelime_tamamla 1,5,7 | loadbuf -o kelime_tamamla 1 $scriptdirkelimeler.txt }
alias -l kelime.ekle { if ((!$did(5)) || (!$did(4))) { return } | if ((* isin $did(5)) || ($read($scriptdirkelimeler.txt, w, * $+ $did(5) $+ *) == $null)) { .write $scriptdirkelimeler.txt $did(5) $+ $chr(9) $+ $did(7) } | else { .write -l $+ $readn $scriptdirkelimeler.txt $did(5) $+ $chr(9) $+ $did(7) } | kelimeyükle }
alias -l kelime.çıkart { if ($did(kelime_tamamla,1).sel) { .write -dl $+ $calc($did(kelime_tamamla,1).sel - 1) $scriptdirkelimeler.txt } | kelimeyükle }
alias -l oirc { if (%Kelime_Tamamla == hayır) { return $1- } | else { var %i 1 | set %text $1- | :init | if ($read($scriptdirkelimeler.txt,%i) == $null) { goto end } | set %heroturk $gettok($read($scriptdirkelimeler.txt,%i),1,9) | set %her0turk $gettok($read($scriptdirkelimeler.txt,%i),2,9) | set %text $replace(%text,%heroturk,%her0turk) | inc %i | goto init | :end } | var %a %text | unset %text | unset %heroturk | unset %her0turk | return %a }
alias -l Kelimenü { if ($did(Kelime_Tamamla,1).sel) { dll $popups New replace 16 16 | dll $popups SetStyle replace bordericon | dll $popups LoadImg replace icon small $scriptdiricon\off.ico | dll $popups AddItem replace end 1 1 çıkart $cr kelime.çıkart | Popupz replace $mouse.dx $mouse.dy } }
alias -l popupz { tokenize 32 $dll($shortfn($scriptdirpopups.dll),Popup,$1-) | if ($isid) { return $1- } | elseif ($4- != did not select a menu item) { $4- } }
alias -l popups { return $shortfn($scriptdirpopups.dll) }
on *:INPUT:?: { if (%kelimetamamla == ON) && (%yazitipacikmi == OFF) && (($1 != $null) && ($left($1,1) != /) && (Status Window != $active)) { haltdef | var %t $oirc($1-) | .msg $active %t | .echo -a $timestamp $+  $+ $colour(Own Text) 4< $+ $me $+ 4> %f %t } }