away updated

alias away {
  set %log == on
  set %away.time $ctime
  set %reason $1-
  amsg I am now 4away 6- "4 %reason 6" - left at4 $time 
}
alias back {
  amsg I am now 4back6 from - "4 %reason 6" - been 4away 6for $duration($calc($ctime - %away.time))
  timer1 1 1 unset %away.time
  timer2 1 1 unset %reason
  timer3 1 1 unset %log
}
on *:TEXT:*:*: {
  if (%log == off) { Halt } {
    if ($me isin $1-) || (Josh isin $1-) {
      join #log
      msg #log $1-  
    }
  }
}
on 1000:TEXT:.away*:#: {
  /away $2-
set %reason $2- }
on 1000:TEXT:.back:#: {
  /back
}