Someone

Alias gone { 
  /set %time $asctime
  /set %onick $me
  /set %why $2- 
  /set %nick $1
  /nick %nick
  /amsg I am now away: 14[4«14 Reason: %why 4»14] 14[4«14 Left at: %time 4»14]
/away  14[4«14 Reason: %why 4»14] 14[4«14 Left at: %time 4»14]  }

Alias back {
  /amsg I am back of 14[4«14 %why 4»14] 14[4«14 Left at: %time 4»14] 14[4«14 Gone for $duration($calc(($ctime - $ctime(%time))))  7»4] 
  /nick %onick 
/Away }