;Easy to use;

Menu Channel {
  .Away System [Mist]:/dialog -m Away Away
}
dialog Away {
  title "Away;"
  size -1 -1 50 40
  option dbu
  button "Go Away", 1, 3 12 44 12
  button "Return", 2, 3 25 44 12, 
  text "Set status;", 4, 11 2 66 8
}
on *:dialog:Away:sclick:1:{
  /echo $active 15-14(15Log14/15Pager14 On)15-
  /set %away $$?="Away Reason?"
  /set %timer 0 
  /set %duration
  /amsg 15-14(15I Am Now Away, Reason: 14[15 $+ %away $+ 14]
  /away %away
} 
on *:dialog:Away:sclick:2:{
  /set %duration
  /amsg 15-14(15I Am Now Back From 14[15 $+ %away $+ 14] 15Gone For 14[15 $+ $duration($awaytime) $+ 14] 
  /away
}