menu channel {
  Away Script
  .Away:/afk
  .Back:/back
}
alias afk {
  set %awaygone $ctime
  set %awayreason $$?="Reason:"
  ame is now away:  %awayreason  left at $asctime(hh:nn TT)     
  away Away: %awayreason
}
alias back {
  ame is now back:  %awayreason  I was gone for: $replace($duration($calc($ctime - %awaygone)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) 
  away
  unset %awaygone
  unset %idlenick
  unset %awayreason