a dialog away system

dialog awaysys {
  title "-= Away System =-"
  size -1 -1 128 117
  option dbu
  text "Welcome to the away system dialog by Da_DoN.            This dialog is easy to use. ENJOY!!!!", 1, 3 4 120 14
  edit "", 2, 20 32 91 10
  text "Away Reason", 3, 46 25 39 7
  edit "", 4, 38 51 50 10
  text "Away Nick", 5, 46 43 35 7
  button "Go Away", 6, 34 70 50 8
  button "Come Back", 7, 34 81 50 8
  button "Quit Dialog", 8, 34 91 50 8, cancel
  box "Option Menu", 9, 31 62 61 42
}
on *:dialog:awaysys:sclick:6:{ 
  if (%awaysys == on) { echo -a 2Your already away | halt }
  else {
    set %awaysysmenick $me
    set %awaysys on
    set %awaysysmsg $did(awaysys,2).text
    set %awaysysnick $did(awaysys,4).text
    set %time $asctime
    amsg I am now away - [Reason] %awaysysmsg
    nick %awaysysnick
  }
}
on *:dialog:awaysys:sclick:7:{
  if (%awaysys == on) {
    set %awaysys off
    amsg I am now back from - [Reason] %awaysysmsg since %time
    nick %awaysysmenick
    else {
      echo -a You are not set as away
    }
  }
}