Something

alias away {
  if (%areas != $null) {
    set %menick $me
    nick $me $+ |away
    ame is now away at $1-
    set %areas $1-
  }///////////////////////
  else echo -a your already away
}
alias back {
  if (%areas == $null) {
    nick %menick
    unset %menick
    unset %areas
    ame is now back from %areas
  }
  else echo -a your not away
}
on *:text:*:#:{
  if (%menick iswm $1-) {
    if (%areas != $null) {
      notice $nick %menick is away at %areas
    }
  }
}