All pastes #927225 Raw Edit

Away Script

public text v1 · immutable
·published 2008-03-04 02:59 UTC
rendered paste body
alias away {
  set %time $ctime
  set %reason $1-
  amsg 6,1I Am Now Away14,1  4,1Reason:14,1 %reason $+ 4 6I left at6 $asctime(h:nntt) PST
  nick $me $+ |Away
}
alias back { 
  amsg 6,1Back from14,1 %reason 6,1I was gone for $duration($calc($ctime - %time))
  unset %reason
  nick $me $- |Away
}