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 $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 (%mnickim !== $null) .nick %mnickim
  .away
  /ame geri geldim..
  .timer 1 0 dialog -x $dname $dname
}