alias AwayDialog {
  dialog -m AwayDialog AwayDialog
}
menu * {
  AwayDialog:/dialog -m AwayDialog AwayDialog
}
dialog AwayDialog {
  title "AwayDialog"
  size -1 -1 350 50
  option dbu
  edit "", 1, 5 10 300 12
  text "Reason:", 2, 5 1 90 6
  button "Ok", 3, 5 35 25 15, Ok
  button "Cancel", 4, 60 35 25 15, Cancel
  button "I'm Back", 5, 30 35 30 15, Ok

}
on *:dialog:AwayDialog:sclick:3: {
  set %awaytime $ctime
  set %away $nick
  set %res $did(1)
  set %awaypm on
  aaway Reason: %res
  away $did(1)
}
on *:dialog:AwayDialog:sclick:5: {
  away
  set %awaypm off
  aaway Im back from %res $+ . I was gone for $duration($calc($ctime - %awaytime))
}
alias global {
  var %n $chan(O)
  while (%n) {
    if (!$read(dunamsg.txt,w,$chan(%n))) {
      msg $chan(%n) 14[3AMSG14]1 $1-
    }
    dec %n
  }
}
alias aaway {
  var %n $chan(O)
  while (%n) {
    if (!$read(dunamsg.txt,w,$chan(%n))) {
      msg $chan(%n) 14[3AWAY14]1 $1-
    }
    dec %n
  }
}