Away Script

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}