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 %told*
  back
}

on *:TEXT:Justine:*:{
  if (($1 == Justine) && ($left($1,1) isupper)) && (%Away. [ $+ [ $Me ] ] != $null) {
    notice $nick 12I Am 14AWAY12 - [14 %Away. [ $+ [ $Me ] ] 12] 12- I have Been Away For 12[14 $duration($calc($ctime - %AwayTime. [ $+ [ $Me ] ] $ctime )) 12]
  }
}