Stuff

alias away { 
  haltdef
  amsg $me is now away, left at $fulldate
  set %reftat $fulldate
  set %leftat 0
  set %leftmin 0
  set %leftour 0
  set %secon on
  .timer 0 1 90210
  set %reasongone $1-
}
alias 90210 { 
  if (%leftat > 59) {
    unset %secon
    set %minson on
    inc %leftmin 1
    unset %leftat
    set %leftat 0
  }
  if (%leftmin > 59) {
    unset %minson 
    set %hron on
    unset %leftmin
    inc %leftour 1
  }
  inc %leftat 1
}
alias back {
  haltdef
  if (%secon == on) {
    amsg $me is now back. I left at %reftat for %reasongone $+ , and have been gone %leftat seconds.
  }
  if (%minson == on) {
    amsg $me is now back. I left at %reftat for %reasongone $+ , and have been gone %leftmin minutes and %leftat seconds.
  }
  if (%hron == on) {
    amsg $me is now back. I left at %reftat for %reasongone $+ , and have been gone %leftour hours, %leftmin minutes and %leftat seconds.
  }
  unset %reftat
  unset %leftat
  unset %leftmin
  unset %leftour
  unset %minson
  unset %secon
  unset %hron
}