Someone

menu status,channel,query,menubar,nicklist { 
  $iif(%aw.on == 1,Back) { back }
  $iif(%aw.on != 1,Away) { away }

}
alias away {
  set %aw.estreturn $$?="When will you return?"
  set %aw.msg $$?="Away Message"
  set %aw.prevnick $me
  set %aw.line is going away $chr(91) %aw.msg $chr(93) $chr(91) Will Return: %aw.estreturn $chr(93)
  //ame %aw.line
  /set %aw.time $ctime
  /set %aw.on 1
  /nick $me $+ |AFK
}
alias back {
  if (%aw.on != 1) { return }
  //nick %aw.prevnick
  /.timer 1 1  //ame is back $chr(91) Away For: $duration($calc( $ctime - %aw.time ),1) $chr(93)
  unset %aw.*
  return
}
on *:input:#:{ back }
on *:TEXT:* $me *:#:if (%aw.on == 1) notice $nick Im away %aw.msg
on *:TEXT:*:?:if (%aw.on == 1) msg $nick Im away %aw.msg
on *:Disconnect: unset %aw*