alias aw {
  set %away-nick $nick
  away $?="Enter away message:" 
  amsg 2 $me 1 is now away: 7 $! -  1 $time
  nick $+($me,$chr(124),Away,$chr(124))
  set %away-time $ctime
}

alias ba {
  amsg 2 $me 1 is back: 7 $! - $duration($calc($timce - %away),2)
  nick %away-nick
}