So... this is my first dialog script. ever. Have fun with it. although its quite simple.
type /encoder to start the dialog.

dialog Encoder {
  title "Encoder Dialog"
  size -1 -1 311 135
  option pixels
  edit "", 1, 7 22 209 41, autohs autovs multi return vsbar
  text "Insert the text that has to be encoded here!", 2, 5 2 218 19
  edit "", 6, 7 65 208 49, read autohs autovs multi return vsbar
  button "Exit", 7, 224 2 78 27, cancel
  text "Created by CAsercan3.", 8, 7 115 113 17
  link "www.ca-clan.tk", 9, 122 114 116 17
  radio "Mime", 10, 232 55 68 17
  radio "Uucode", 11, 232 71 68 17
  box "Type", 5, 226 41 80 56
  menu "File", 3
  item "Exit", 4, 3
}
on *:dialog:encoder:init:0: {
did -c encoder 10
  set %codelang m
}
on *:dialog:encoder:edit:1: {
  did -r encoder 6 $encode($did(encoder,1),%codelang)
  did -a encoder 6 $encode($did(encoder,1),%codelang)
}
on *:dialog:encoder:sclick:10: {
  set %codelang m
  did -r encoder 6 $encode($did(encoder,1),%codelang)
  did -a encoder 6 $encode($did(encoder,1),%codelang)
}
on *:dialog:encoder:sclick:11: {
  set %codelang u
  did -r encoder 6 $encode($did(encoder,1),%codelang)
  did -a encoder 6 $encode($did(encoder,1),%codelang)
}
on *:dialog:encoder:sclick:7: {
  dialog -x encoder encoder
}
on *:dialog:encoder:menu:4: {
  dialog -x encoder encoder
}
alias encoder dialog -m encoder encoder