Usage:
To turn status to away, type /away [Your Reason here].
To turn status to normal, type /back

Version 2.5 Update:
-All variables should unset.
-Menu has been added for Channel, Nicklist, and the Status Screen.
*/

alias total_ame {
  var %orig.cid = $cid
  var %len = $scid(0)
  var %pos = 1
  while (%len != 0) {
    scid %pos
    ame $1-
    inc %pos 1
    dec %len 1
  }
  scid %orig.cid
  halt
}


on *:TEXT:*:*: { 
  if ($me isin $1-) {
    if (!%away.reason) { halt }
    else {
      if ($address($nick,2) isin %away.highlight) { halt }
      else {
        notice $nick I am away right now, $nick $+ ! I am at: %away.reason $+ . I have been gone for $duration($calc($ctime - %away.time),3) $+ . (One time response to Highlight.)
        set %away.highlight $address($nick,2) - %away.highlight
      }
    }
  }
}
on *:ACTION:*:*: { 
  if ($me isin $1-) {
    if (!%away.reason) { halt }
    else {
      if ($address($nick,2) isin %away.highlight) { halt }
      else {
        notice $nick I am away right now, $nick $+ ! I am at: %away.reason $+ . I have been gone for $duration($calc($ctime - %away.time),3) $+ . (One time response to Highlight.)
        set %away.highlight $address($nick,2) - %away.highlight
      }
    }
  }
}
alias away {
  if (!$1) { 
    set %away.reason $$?="Reason"   
    set %away.time $ctime
    total_ame is 11,1Away (5 $+ %away.reason $+ .)
  }
  else { 
    set %away.reason $$1-
    set %away.time $ctime
    total_ame is 11,1Away (5 $+ %away.reason $+ .)
  }
}
alias back {
  if (!%away.reason) { echo $active You are already Back, $me $+ ! }
  else {
    var %reason = %away.reason
    var %time = %away.time
    awayunset
    total_ame is 11,1back from $qt(5 $+ %reason $+ .) (Gone for $duration($calc($ctime - %time),3) $+ )
  }
}
menu channel,nicklist,status {
  Away
  .Away://away $$?="Reason" 
  .Back://back
}

alias awayunset {
  //unset %away.*
}