alias cya {
  set %away.time $ctime
  set %reason $1-
  ame Is Now 4Away Reason6-4 %reason 6- Left At4 $time 
}
alias hi {
  ame Is 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
}
on $*:TEXT:/(hamish|\Q $+ $me $+ \E)/Si:#:{
notice $nick I'm now away! I have been away for $duration($calc($ctime - %away.time)) $+ . Reason: %reason
}