Mine

alias bbl {
  /set %away.reason $1-
  /set %away.time $replace($ctime,13,1,14,2,15,3,16,4,17,5,18,6,19,7,20,8,21,9,22,10,23,11,24,12)
  /nick hohoho|away
  /amsg i am now gone. gone because (,$1-,.,) left at $time
  .away $1-
}

alias /back {
  /nick hohoho865
  /amsg i am now back from %away.reason i was gone for $duration($calc($ctime - %away.time))
}

on *:TEXT:*:*:{
  if ($away) && ($me isin $1-) {
    /notice $nick i am now gone. gone because %away.reason $+ . i have been gone for $duration($calc($ctime - %away.time))
  }
}