All pastes #492126 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-05-17 00:58 UTC
rendered paste body
ON *:INPUT:*: {
  if ($1 == .away) { 
    writeini -n Away.ini Away Ctime $ctime 
    writeini -n Away.ini Away Awaytime $asctime(hh:nn:ss TT) 
    writeini -n Away.ini Away Reason $2- 
    Writeini -n Away.ini Away Away on
    away $2-
    amsg *** $me is Away - Reason: %reason - Left at: $asctime(hh:nn:ss TT) *** 
  } 
  elseif ($1 == .back) { 
    amsg *** $me is Back - Reason left: $readini(Away.ini, -n, Away, Reason  - Left at: $readini(Away.ini, -n, Away, Awaytime) Gone: $duration($calc($ctime - $readini(away.ini, -n, Away, Ctime))  - Time Now: $asctime(hh:nn:ss) 
    writeini -n Away.ini Away Away off
  } 
}