Miscellany

alias away { 
  $iif($2,set %awayreason $2-,set %awayreason Back Later (No Reason))
  set %awayaway 1
  set %awayfnick $me
  set %awaysnick $1
  set %awayctime $ctime
  nick %awaysnick
  amsg 13«12(14Away From My Computer12)13» 13«12(14Reason13: %awayreason $+ 12)13» 13«12(14I Left At: $time(14hh13:14nn13:14ss13:14TT) $+  12)13» | halt
}
alias back { 
  nick %awayfnick
  amsg 13«12(14Back At My Computer12)13» 13«12(14Reason13: %awayreason $+  12)13» 13«12(14I Was Away For13: $regsubex($duration($calc($ctime - %awayctime)),/(\d+|\w+)/g,$chr(3) $+ $iif(2 \\ \n,13,14)\1) $+  12)13» | halt
  /unset %away*
}