on 1:INPUT:*: {
  if ($mid($1,1,1) == /) { goto doit }
  :doit
  if ($1- == efem) { say Efendim? | halt }
  if ($1- == h.g) { say Hoş Geldin | halt }
  if ($1- == h.b) { say Hoş Buldum | halt }
  if ($1- == Sa.) { say  | halt }
  if ($1- == ::) { say :( | halt }
  if ($1- == :) { say :) | halt }
  if ($1- == :D) { say :D | halt }
}

alias kelime {  
  if !$dialog(kelime) { .dialog -m  kelime kelime }
  else { return }
}
dialog kelime {
  title KELEBEK Script 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:*:*:{
  mdx SetDialog $dname style title tool sysmenu
  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 editklbk {
  if (%kelime == on) {
    if ($editbox($active) == slm) { editkelebek -a $spell(slm) }
    ;if ($editbox($active) == selam) { editkelebek -a seLam  }
    if ($editbox($active) == nbr) { editkelebek -a Naber  }
  }
}
alias editkelebek {
  $remove(eEdShowBlanx444dEdShowBlanx444iEdShowBlanx444tEdShowBlanx444bEdShowBlanx444oEdShowBlanx444x,EdShowBlanx444) $1-
}