Mine

alias away { if (!%stime) { amsg 7[14Away7] 14Reason:07 $capwords($1-) 14Left at:07 $time (14-6 GMT7) | set %time $time | set %stime $ctime($date $time) | set %away $capwords($1-) } }
alias back { if (%stime) { amsg 7[14Back7] 14From:07 %away 14Left at:07 %time (14-6 GMT7) 14Gone for:07 $duration( $calc($ctime($date $time)-%stime) ) | unset %away | unset %highlight | unset %time | unset %stime } }
on *:TEXT:*:#: {
  if (%stime) {
    if ( $nick iswm $remove(%highlight,$chr(124)) ) { halt }
    else {
      if (*baller* iswm $1- || *baller876543* iswm $1-) { 
        notice $nick I am currently away, if you leave a message in my PM i will get back to you when i return.
        set %highlight $+(%highlight,$chr(124),$nick)
      }
    }
  }
}
alias capwords {
  var %t
  var %x = 0
  while $1 != $numtok($1-,32) {
    inc %x 1
  var %t = %t $upper($left($gettok($1-,1,32),1)) $+ $right($gettok($1-,1,32),-1)  $gettok($1-,2-,32) } return %t
}