Anonymous

dialog away_dia {
  title "Away"
  size -1 -1 80 20
  option dbu
  edit "Reason", 1, -1 -1 82 11, return
  button "Away", 2, 0 9 37 12
  button "Back", 3, 44 9 37 12
  button "C", 4, 36 9 9 11 close
}
on *:dialog:away_dia:sclick:2:{
  amsg [Away] Reason ( $+ $did(1) $+ ) - Left At ( $+ $fulldate $+ )
  set %awa.time $ctime
  set %awa.reason $did(1)
  set %awa.date $fulldate
  set %awa on
} 
on *:dialog:away_dia:sclick:3:{
  if (%awa == on) {
    amsg [Back] Reason ( $+ %awa.reason $+ ) - Left ( $+ %awa.date $+ ) - Gone For ( $+ $duration($calc($ctime - %awa.time)) $+ )
    set %awa off 
  }
}
ALIAS awaysys { dialog -m away_dia away_dia }
ALIAS away {
  amsg [Away] Reason ( $+ $1- $+ ) - Left At ( $+ $fulldate $+ )
  set %away.time $ctime
  set %away.reason $1-
  set %away.date $fulldate
  set %away on
}
ALIAS back {
  if (%away == on) {
    amsg [Back] Reason ( $+ %away.reason $+ ) - Left ( $+ %away.date $+ ) - Gone For ( $+ $duration($calc($ctime - %away.time)) $+ )
    set %away off
  }
}