![[-]](https://lamerler.com/images/collapse.png "[-]")
Kelime Tamamlama Addon 2020
Normalde menulerde çıkar ama komut ile açmak isteyen için.
/ktamamla
Kod:
menu status,channel,menubar {
-
Kelime Tamamlama: ktamamla
-
}
alias ktamamla { if ($dialog(ktamamla)) { dialog -c ktamamla } | dialog -ma ktamamla ktamamla }
dialog ktamamla {
title "Kelime Tamamlama"
size -1 -1 215 134
option dbu
edit "", 1, 7 9 50 10, autohs
text " yazdığında", 2, 58 10 30 8
button "Sil", 3, 51 117 74 12
edit "", 4, 89 9 80 10, autohs
text " olarak yazacak", 5, 169 10 38 8
button "Ekle", 6, 7 23 201 12, default
box "Kelime Tamamlama", 7, 3 1 209 38
list 8, 3 41 209 71, size vsbar
radio "Açık", 9, 149 118 24 10, group left
radio "Kapalı", 10, 182 118 27 10
box "", 11, 143 114 69 15
button "Tamam", 12, 4 117 28 12, ok
}
on *:dialog:ktamamla:*:*: {
if ($devent == init) {
if ($group(#ktamamla) == on) { did -c ktamamla 9 } | else { did -c ktamamla 10 }
ktamamla.init
}
if ($devent == sclick) {
if ($did == 6) {
if (($did(1) && $did(4)) != $null) {
if !$read(tamamlama.txt,w,$did(1) $+ $chr(186) $+ *) { .write tamamlama.txt $did(1) $+ $chr(186) $+ $did(4) | ktamamla.init | did -r ktamamla 1,4 }
else { echo 4 -at [ $did(1) ] Kelime tamamlama listesinde ekli }
}
else { echo 4 -at Lütfen 2 kutucuğu doldurun }
}
if ($did == 3) {
if $read(tamamlama.txt,w,$token($did(8).seltext,1,47) $+ $chr(186) $+ *) {
if ($did(8).seltext != $null) { .write $+(-dl,$readn) tamamlama.txt | ktamamla.init }
}
}
if ($did(9).state == 1) { .enable #ktamamla }
if ($did(10).state == 1) { .disable #ktamamla }
}
}
alias ktamamla.init {
did -r ktamamla 8
var %ul 1
while %ul <= $lines(tamamlama.txt) {
did -a ktamamla 8 $replace($read(tamamlama.txt,%ul),$chr(186),$chr(47))
inc %ul
}
}
#ktamamla off
on *:input:*:{
if !$regex($1,/^(\.|!|\/|[0-9])/i) || ($ctrlenter) {
var %^ = 1, %'
while %^ <= $0 {
%' = %' $iif($read(tamamlama.txt,w,$gettok($1-,%^,32) $+ $chr(186) $+ *),$token($read(tamamlama.txt,$readn),2,186),$gettok($1-,%^,32))
inc %^
}
say %'
halt
}
}
#ktamamla end/ktamamla
