on *:TEXT:!away *:#: {
  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) {
    set %whom %awaytime. [ $+ [ $nick ] ]
    msg $chan $nick is now back from: %reason $+ . Total time gone: $duration($calc($ctime - %whom))
    unset %reason
    unset %whom
    set %status. [ $+ [ $nick ] ] back
  }
}