Someone

on *:text:!away*:#:{
  /set %time $asctime 
  /set %reason. $+ $nick $2-
  /set %away. $+ $nick
  /describe $chan $nick is Now Away: Reason: %reason. [ $+ [ $nick ] ] Left at: %time . 
}
on *:text:!back*:#:{
  if (%away. $+ $nick) {
    /describe $chan $nick is back . Reason: %reason. [ $+ [ $nick ] ] Left at: %time Gone for $duration($calc(($ctime - $ctime(%time)))) 
    /unset %away. $+ $nick
    /unset %reason. $+ $nick 
  }
}