Something

alias away_reason { return %away }
on *:text:*:?:{
  if ($away) {
    .msg $nick 15[4Amsg15] 7Away. 15[12Reason15] 1- 15[12 %away $+ 15 ]
  }
}
on *:TEXT:$($+(*,$me,*)):#:{
  if ($away)
    .msg $chan 15[4Amsg15] 7Away;;    15[12Reason15] 1- 12 $away_reason $+ }
  else { halt }

alias aw {
  if (!$away) {
     set %away $1-
     set %away.time $ctime
    .scid -a /away 15[4Amsg15] 7Away;;    15[12Reason15] 1- 12 %away    
    .scid -a /amsg 15[4Amsg15] 7Away;;    15[12Reason15] 1- 12 %away
  }
}
alias bk {
  if ($away) {
    .scid -a /amsg 15[4Amsg15] 7I am now back from: 12 %away 0- 7I was gone for:12 $duration($calc($ctime - %away.time))
    unset %away $1-
    .scid -a /away
  }
}
menu * {
  -
  [quickaway]
  .multiserver away system
  .$iif($away == $true,Return Back): /bk
  .$iif($away == $false,Go Away): /aw $$?="Enter Away Reason Or Press Cancel."
  -
}