on *:TEXT:!away *:#: {
  if (%status. [ $+ [ $nick ] ] == back) {
    set %reason $$2-
    msg $chan $nick is now away, reason: %reason
    set %status. [ $+ [ $nick ] ] away
    set %awaytime. [ $+ [ $nick ] ] $ctime
  }
}
on *:TEXT:*:#: {
  if (%status. [ $+ [ $nick ] ] == away) {
    msg $chan $nick is now back from: %reason $+ . Total time gone: $duration($calc(%awaytime. [ $+ [ $nick ] ] - $ctime))
    unset %reason
    set %status. [ $+ [ $nick ] ] back
  }
}