alias aw {
  if ($1 isnum) { set %away.timer $1 }
  if ($1-) { set %reason $1- }
  else { set %reason None Set }
  unset %aw.time
  inc -c %aw.time
  away %reason
  nick Justine|Away
amsg 14[13»AWAY«14] I am now away,13 %reason $+ . 14 Left at13 $time $+ . }


alias ba {
  nick Justine
  amsg 14[13»BACK«14] I am now back from13 %reason $+ 14. Was gone for13 $duration(%aw.time) $+ . 
  .timer_away off
  unset %reason %aw.time %away.timer
  away
}
on *:TEXT:Justine:*:{
  if ($1 == Justine) && (%Away. [ $+ [ $Me ] ] != $null) {
    notice $nick 14[13»AWAY«14] I am now away,13 %reason $+ . 14 Left at13 $time $+ . }
  }

unset %told* }