Mine

on *:TEXT:*:?: { write privlog.txt $asctime(dddd~mmm~d~yyy:h:n:s:tt) $nick $1-
  if ( $nick == %plast ) { halt }
  elseif ( %hoe == on ) {
    set %plast $nick
    /notice $nick 4I am currently away:14 %message
    /notice $nick 14I went to away mode4 $replace($duration($calc($ctime - %time)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) 14ago feel free to leave me a message    
    else { halt }
  }  
}

on *:TEXT:*fusey*:#: {
  if (%hoe == on) { /notice $nick 4Sorry $nick 14 I'm not here for this reason :4 %message 14 gone for:4 $replace($duration($calc($ctime - %time)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) }
}
on *:TEXT:*fus*:#: {
  if (%hoe == on) { /notice $nick 4Sorry $nick 14 I'm not here for this reason :4 %message  14 gone for:4 $replace($duration($calc($ctime - %time)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) }
}

alias gone {
  /set %oldnick $me  
  /set %hoe on
  /set %time $ctime
  /away $1-
  /set %message $1-
  /nick Fus|Away
  /amsg 6¤ 7Away6 ¤7 Reason6 ¤7 %message 6¤ 
}
alias bk {
  set %hoe off
  /away
  /nick %oldnick
  /amsg 6¤ 7Back6 ¤ 7I was away for this reason6 ¤7  %message  6¤7 Duration6 ¤7 $replace($duration($calc($ctime - %time)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) 6¤