Something

alias away {
  if ($away == $false) {
    if (!$1) {
      echo 3 -at You need a reason to go away.
    }
    else {
      !away $1-
      ame is now away - $1- - left at: $time
      set %away.time $ctime
    }
  }
  else {
    echo 3 -at You're already away.
  }
}

alias back {
  if ($away == $true) {
    ame is back from - $awaymsg - gone for: $duration($calc($ctime - %away.time),3)
    !away
    unset %away.*
  }
  else {
    echo 3 -at You're not away
  }
}

on *:text:*:*: {
  if ($away == $true) && ($highlight == $true) && (!%away. [ $+ [ $nick ] ]) {
    var %x = 1
    while (%x <= $highlight(0)) {
      if ($highlight(%x) isin $1-) {
        notice $nick $me is away - $awaymsg - gone for: $duration($calc($ctime - %away.time),3) -  one-time response to highlight.
        set %away. [ $+ [ $nick ] ] $time
        inc %x
      }
      else {
        inc %x
      }
    }
  }
}

on *:input:*: {
  if ($away == $true) && ($1 != /back) {
    echo 3 -at You are currently marked as being away.
  }
}