Mine

on $*:TEXT:/^(bood1|blood)/Si:#:{ 
  if %bood == off { halt }
  if %bood == on {
    notice $nick $nick $+ , $me is currenlty away Reason %reason
  }
}

on $*:TEXT:/^[!@](setaway)/Si:#:{
  if ($nick == zwill) {
    set %reason $2
    set %bood on
    /amsg I am currently away Reason: %reason
  }
} 

on $*:TEXT:/^[!@](back)/Si:#:{
  if ($nick == zwill) {
    set %bood off
    /amsg I am currently back Reason: %reason
    unset %reason 
  }
}