aaway { if (%Away. [ $+ [ $me ] ] != $null) { 
  echo 4 -t 2 You're Already Set As Away =o OMGAWD! }
  else {
    set %Away. [ $+ [ $me ] ] $$?="Reason For Being Away"
    set %AwayTime. [ $+ [ $me ] ] $ctime
    set %AmIAway. [ $+ [ $me ] ] Yes
    set %LeaveTime $calc($replace($time($GMT),:,$null) - 80000)
    set %LeaveTime $left(%LeaveTime ,2) $+ : $+ $replace($left(%LeaveTime,-4),$left(%LeaveTime,-2),:) $+ $left(%LeaveTime,-2)
    away 4,1\1,4\7,4\4,7\8,7\7,8\0,8\8,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 9 ¤ 0  %Away. [ $+ [ $me ] ] 9 ¤ 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-8,0/0,8/7,8/8,7/4,7/7,4/1,4/4,1/ 
    amsg  12I Am Now 15AWAY12 - [15 %Away. [ $+ [ $me ] ] 12] 12- Left At: 12[15 %LeaveTime GMT 12]
  }
}

alias bback { if (%Away. [ $+ [ $me ] ] == $null) {
  echo 4 -t 2You're Not Set As Away =o You Must Do That First! }
  else {
    away 
    amsg 12I Am Now15 BACK12 From [15 %Away. [ $+ [ $Me ] ] 12] - 12I Was Away For [15 $duration($calc($ctime - %AwayTime. [ $+ [ $Me ] ] $ctime )) 12]
    unset %Away. [ $+ [ $Me ] ]
    unset %AwayTime. [ $+ [ $Me ] ]
    unset %LeaveTime
    set %AmIAway.[ $+ [ $Me ] ] No
  }
}

on *:TEXT:Joe:*:{
  if ($1 == Joe) && (%Away. [ $+ [ $Me ] ] != $null) {
    notice $nick 12I Am 15AWAY12 - [15 %Away. [ $+ [ $me ] ] 12] 12- I have Been Away For 12[15 $duration($calc($ctime - %AwayTime. [ $+ [ $me ] ] $ctime )) 12]
  }
}