Alias ktam { dialog -m kelime kelime }
dialog Kelime {
  size -1 -1 274 186
  title Kelime Temamlama
  box "Kelimeler",1, 5 5 150 175
  list 2, 15 21 130 163, multi autovs vsbar
  box "Ayarlar",3, 159 5 110 142
  text "Kısa Kelime",4, 185 20 70 15
  edit "",5, 169 35 90 20, autohs center
  text "Uzun Kelime",6, 185 58 70 15
  edit "",7, 169 73 90 20, autohs center
  button "Ekle",8, 169 99 45 20, default flat multi
  button "Sil",9, 216 99 45 20, default flat multi
  button "Aç",10, 169 122 45 20
  button "Kapat",11, 216 122 45 20
  button "TAMAM",12, 159 150 110 30,ok
}

on 1:dialog:kelime:sclick:10: { enable #ktamam }
on 1:dialog:kelime:sclick:11: { disable #ktamam }
on 1:dialog:kelime:sclick:9: {
  if $read(kelime.txt,w,$did(2).seltext) { write $+(-dl,$readn) kelime.txt | did -d $dname 2 $did(2).sel  }
}
on 1:dialog:kelime:sclick:8: {
  if ($did(5) == $null) { return  $input(Kısa kelimeyi giriniz!,ohud,HATA)  | halt }
  if ($did(7) == $null) {  return  $input(Uzun kelimeyi giriniz!,ohud,HATA)  | halt }
  else { did -a $dname 2 $did(5) $+ = $+  $did(7) | write kelime.txt  $did(5) $+ = $+ $did(7) | did -r $dname  5,7 }
}
on 1:dialog:kelime:*:*:{
  if ($devent == init) {
    loadbuf -o  $dname 2 $shortfn(kelime.txt)
  }

}


#ktamam on
on *:input:*: {
  if (/* !iswm $1-) {
    if $left($1-,1) != $readini(mirc.ini,text,commandchar) && ($active ischan || $query($active)) {
      var %i 1,%q $1-
      while %i <= $lines(kelime.txt) {
        %q = $replace(%q,$gettok($read(kelime.txt,%i),1,$asc(=)),$gettok($read(kelime.txt,%i),2,$asc(=)))
        inc %i
        .unset %t
      }
      say %q
      halt
    }
  }
}
#ktamam end