Something

on $*:TEXT:/^[!@](awayoff)/Si:#phoenix_elites-test,#phoenix_elites:{
  if (%off [ $+ [ $chan ] ] == off) { /notice $nick 2**[7ERROR2]** The command "07Away02" is already 07off02. }
  elseif ($nick isop #) || ($nick ishop #) {
    set %off [ $+ [ $chan ] ] off
    msg $chan 2**[07AWAY2]** The command "07Away02" is now 07off02.
    unset %on [ $+ [ $chan ] ]
    unset %away.*
  }
  else {
notice $nick 2**[07ERROR2]** Sorry07 $nick $+ 02, you do 07not02 have access to this 07command02. } }

on $*:TEXT:/^[!@](awayon)/Si:#phoenix_elites-test,#phoenix_elites:{
  if (%on [ $+ [ $chan ] ] == on) { /notice $nick 2**[07ERROR2]** The command "07Away02" is already 07on02. }
  elseif ($nick isop #) || ($nick ishop #) {
    set %on [ $+ [ $chan ] ] on
    msg $chan 2**[07AWAY2]** The command "07Away02" is now 07on02.
    unset %off [ $+ [ $chan ] ]
  }
  else {
notice $nick 02**[07ERROR02]** Sorry07 $nick $+ 02, you do 07not02 have access to this 07command02. } } 


on $*:TEXT:/^[!@](away)/Si:#phoenix_elites-test,#phoenix_elites:{
  if (%off [ $+ [ $chan ] ] == off) { /notice $nick 02**[07ERROR02]** The command "07Away02" is turned 07off02. Ask an 07Op02 or 07Halfop02 to type 07!awayon02, $&
    If this is an 07error02 please contact 07[-sophie-]02 or07 [-srankie-]02. }
  else {
    if (%away.on [ $+ [ $address($nick,2) ] ] == on) { /notice $nick 2**[07ERROR02]** You're 07already02 away. }
    else {
      if (!$2) && (%away.on [ $+ [ $address($nick,2) ] ] != on) && (%off [ $+ [ $chan ] ] != off) {
      /notice $nick 2**[07ERROR02]** You have 07not02 set any reason. }
      else {
        set %away.on [ $+ [ $address($nick,2) ] ] on
        set %away.rea [ $+ [ $nick ] ] $2-
        set %away.nick [ $+ [ $nick ] ] $nick
        set %away.time $ctime
      msg $chan 2**[07AWAY02]**07 %away.nick [ $+ [ $nick ] ] 02is now 07away02, reason;07 %away.rea [ $+ [ $nick ] ] $+ 02, time; $asctime(02[07HH02:07nn02:07ss02:07TT02]) } 
} } }

on $*:TEXT:/^[!@](back)/Si:#phoenix_elites-test,#phoenix_elites:{
  if (%off [ $+ [ $chan ] ] == off) { /notice $nick 2**[07ERROR02]** The command "07Away02" is turned 07off02. Ask an07 Op 02or07 Halfop02 to type 07!awayon02, $&
    If this is an 07error02 please contact 07[-sophie-]02 or07 [-srankie-]02. }
  else {
    if (%away.on [ $+ [ $address($nick,2) ] ] != on) {
    notice $nick 2**[07ERROR02]** You're 07not02 set as away. }
    else {
      msg $chan 2**[07BACK02]**07 %away.nick [ $+ [ $nick ] ] 02is now 07back02, reason;07 %away.rea [ $+ [ $nick ] ] $+ 02, time;07 $duration($calc($ctime - %away.time)))
      unset %away.*
} } }

on $*:TEXT:/^[!@](viewaway)/Si:#:{
  if (%off [ $+ [ $chan ] ] == off) { /notice $nick 2**[07ERROR02]** The command "07Away02" is turned 07off02. Ask an07 Op 02or07 Halfop02 to type 07!awayon02, $&
    If this is an 07error02 please contact 07[-sophie-]02 or07 [-srankie-]02. }
  else {
    if (!$2) && (%away.on [ $+ [ $address($nick,2) ] ] != on) { /notice $nick 2**[07ERROR02]** You're 07not02 set as away. }
    else {
      if (!$2) { /notice $nick 2**[07AWAY02]**07 %away.nick [ $+ [ $nick ] ] 02is 07away02, reason;07 %away.rea [ $+ [ $nick ] ] $+ 02, time;07 $duration($calc($ctime - %away.time))) }
      else {
        if ($2 != $null) && (%away.on [ $+ [ $address($2,2) ] ] != on) { /notice $nick 2**[07ERROR02]**07 $2- 02is 07not02 set as away. }
        else {
          if ($2 != $null) && (%away.on [ $+ [ $address($2,2) ] ] == on) { /notice $nick 2**[07AWAY02]**07 %away.nick [ $+ [ $2 ] ] 02is 07away02, reason;07 %away.rea [ $+ [ $2 ] ] $+ 02, time;07 $duration($calc($ctime - %away.time)))
          }