Miscellany

ON *:INPUT:*: {
  if ($1 == .away) { 
    set %awayctime $ctime 
    set %awaytime $asctime(hh:nn:ss TT) 
    set %reason $2- 
    set %away on
    /away %reason
    /write away.txt $ctime
    /amsg *** $me is Away - Reason: %reason - Left at: $asctime(hh:nn:ss TT) *** 
  } 
  if ($1 == .back) { 
    /amsg *** $me is Back - Reason left: %reason - Left at: %awaytime - Time gone: $duration($calc($ctime - $read(away.txt))  - Time Now: $asctime(hh:nn:ss TT) 
    unset %awaytime 
    unset %reason 
    set %away off
  } 
}