on *:TEXT:!away*:#: {
  set %awaytime $fulldate
  /msg $chan $nick is now away: Reason: $2-
  /set %reason $2-
}
on *:TEXT:!back:#: {
  if ( %away ) {
    /msg $chan $nick is now back
    /msg $chan Reason: %away
    /msg $chan Time gone: $duration ( $calc (( $ctime - $ctime ( %awaytime ))))
    /unset %away
    /unset %awaytime
  }
}