Away Script

[chain]

menu menubar {
  Away
  .On:/set %atime $ctime | set %reason $?="Enter reason" | ame is [Away] [Reason: %reason $+ ] [Time: $time $+ ]
  .Off:/ame is [Back] [From: %reason $+ ] [Gone for: $duration($calc($ctime - %atime)) $+ ] | unset %reason | unset %atime($calc($ctime - %atime)) ]
}