Miscellany

afk {
  away %away.reason
  $iif($1,set %away.reason $1- ,set %away.reason No Reason)
  gmsg 7«6 I am now away 7•6 Reason: 4 $+ %away.reason $+  7•6 Left at: 4 $+ $time $+ 6(GMT) 7» 
  set %away.time $ctime 
  set %away on
}
back {
  if (%away == on) {
    away
    amsg 6[74A7msg6] 7« 6I am now Back from 7•6 4 $+ %away.reason $+  7•6 Gone for 4 $+ $duration($calc($ctime - %away.time)) $+  7» 
    unset %away.reason
    unset %away.time
    unset %away
  }
  else { /echo -a You are not marked as away }
}