alias away {
  set %awaysys Away for: $1- 
  set %away on
  set %awnotice
  set %awaynick $?=*"What away nick do you want to use while away?"
  set %backnick $?=*"what nick do you want on return?one time question)"
  nick %awaynick
  ame %awaysys 
  echo $+(10,[,$time(hh:mm:tt),],0) Now %awaysys
}

alias back {
  ame is back from: $remove(%awaysys,away,for,:) $+ .
  unset %awaysys
  nick %backnick
  unset %awaynotice
  set %away off
}
on *:TEXT:*:#:{
  if (%backnick isin $1-) {
    if($nick !isin %awaynotice) {
      set %awaynotice %awaynotice $+ , $+ $nick
      	notice $nick %awaysys (One time responce to Hilite)
    }
  }
  if (%awaynick isin $1-) {
    if($nick !isin %awaynotice) {
      set %awaynotice %awaynotice $+ , $+ $nick
      	notice $nick %awaysys (One time responce to Hilite)
    }
  }
}