Someone

alias /leave {
  set -e %time $ctime
  set -e %reason $iif($1,$1-,No Reason) 
}
alias /back { 
  if (%reason) {
    amsg Bood1 is now back $chr(124) %reason $chr(124) Gone for $duration($calc($ctime - %time))
    unset %time %reason
  }
}
on $*:TEXT:/bl?ood1?/Si:#:{ 
  if (%reason) { notice $nick Bood1 is currently away - %reason - Left at $asctime(%time,h:nn:ss TT) }
}