Someone

alias gone { amsg 14» 12Away 14« 12[ 14Reason: $1- 12] [ 14Left at: $time(hh:nn:ss TT) EST 12] 14» 12Away 14« | set %awayreason $1- | set %ltime $time(hh:nn:ss TT) | set %ctime $ctime | nick |Dave|`AFK }
alias back { amsg 14» 12Back 14« 12[ 14Reason: %awayreason 12] [ 14Left at: %ltime EST 12] [ 14Gone for: $duration($calc($ctime - %ctime)) 12] 14» 12Back 14« | nick |Dave| }