Untitled

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
  amsg 14[3AWAY14]1 Reason: %res
  nick %awayid $+ |Afk
  away $did(1)
}
on *:dialog:AwayDialog:sclick:5: {
  away
  set %awaypm off
  nick %away
  amsg 14[3AWAY14]1 Im back from %res $+ . I was gone for $duration($calc($ctime - %awaytime))
}