Stuff

ON *:INPUT:*: {
  if ($me == [I]bot) { Halt }
  if ($1 == .away) { 
    set %awayctime $ctime 
    set %awaytime $asctime(hh:nn:ss TT) 
    set %reason $2- 
    set %away on
    away %reason
    /write store.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) 
    /write -c Store.txt
    unset %awaytime 
    unset %reason 
    set %away off
  } 
}