Mine

alias gone { away $1 | set %awaymsg $1 | set %away $ctime | ame is now away - $1 - Left at: $time(hh:nn:ss TT) }
alias back {
if (!%awaymsg) { halt }
else { away | ame is now back from %awaymsg - Time Gone: $duration($calc($ctime - %away)) | set %awaymsg }
}