alias AwayDialog { 
  dialog -m AwayDialog AwayDialog
} 
menu * { 
  AwayDialog:/dialog -m AwayDialog AwayDialog
}
dialog AwayDialog {
  title "AwayDialog"
  size -1 -1 100 50
  option dbu
  edit "", 1, 5 10 90 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

}
on *:dialog:AwayDialog:sclick:3: {
  set %awaytime $ctime
  set %away $nick
  ame 7is now 7Away. Reason:7 $did(1) 
  nick $me $+ |Away
  away $did(1)
}
on *:dialog:AwayDialog:sclick:5: {
  away
  nick %away
  ame 7is now 7back. I 7was gone 7for $duration($calc($ctime - %awaytime))
}