alias avaydlg { dialog -m avaydlg avaydlg }
dialog avaydlg {
  title "Away Menüsü"
  size -1 -1 217 98
  option dbu
  text "Away Sebebi : ", 1, 7 12 39 8
  edit "", 2, 47 11 161 10
  button "AWAY OL", 3, 141 27 57 9, flat
  text "Nickin Sonuna Ekle :", 4, 7 27 57 8
  edit "", 5, 68 26 64 10
  box "Away Menü Ayarları :", 6, 3 1 210 40
  button "AWAYDAN DÖN", 7, 17 82 87 12
  button "PENCEREYİ KAPAT", 8, 111 82 87 12, ok
}
on *:dialog:avaydlg:init:*:{
  .did -ra $dname 2 %msebep
}
on *:Dialog:avaydlg:sclick:3: {
  if (%awayoldum == +) { echo -a Zaten Awaysın!  }
  if (%awayoldum == -) { 
    .set %awayoldum +
    if $did(6) !== $null {
      .set %mnickim $$me
      .set %msebep $did(2)
      if ($did(4) !== $null) { .nick $$me $+ ` $+ $did(5) }
      .away %msebep
      /ame Gidiyorum.. Sebep: " $+ %msebep $+ 2" 
      .timer 1 0 dialog -x $dname $dname
    }
  }
}
on *:Dialog:avaydlg:sclick:7: {
  if (%awayoldum == -) { echo -a Zaten Away Değilsin!  }
  if (%awayoldum == +) { 
    .set %awayoldum -
    if (%mnickim !== $null) .nick %mnickim
    .away
    /ame geri geldim..
    .timer 1 0 dialog -x $dname $dname
  }
}