menu menubar,status,channel,query {
Karakter Çeviri Menüsü:dialog -m karakter-cevir karakter-cevir
}
dialog karakter-cevir {
  title "Karakter Çevirici"
  size -1 -1 90 66
  option dbu
  button "Çevir", 1, 25 15 37 10
  edit "", 2, 2 2 87 10, autohs
  text "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯", 3, -1 28 94 4
  edit "", 4, 2 38 87 10, read center
  edit "", 5, 2 51 87 10, autohs center
}

on *:dialog:karakter-cevir:sclick:*:{
  if (did == 1) {
    if (!$did(2) || set %trans $did(2)) 
  }
  else {
    set %trans $did(2)
    did -ra karakter-cevir 2
    did -ra karakter-cevir 5
    did -b karakter-cevir 1
    .timer 1 1 did -ra karakter-cevir 4 Lütfen Bekleyiniz.
    .timer 1 2 did -ra karakter-cevir 4 Lütfen Bekleyiniz..
    .timer 1 3 did -ra karakter-cevir 4 Lütfen Bekleyiniz...
    .timer 1 4 did -ra karakter-cevir 4 Lütfen Bekleyiniz...
    .timer 1 5 did -ra karakter-cevir 4
    .timer 1 5 did -ra karakter-cevir 5 $replace(%trans,a,ä,b,ß,c,©,ç,¢,e,è,i,í,j,j,l,£,n,ñ,o,ø,r,®,ö,ø,p,?,u,û,ü,û,y,ÿ)
    .timer 1 5 did -ev karakter-cevir 1
  }
}