Alias:
bbl {
  set %hoe on
  set %time $ctime
  /away « Away » $1-
  /set %message $1-
  amsg (Away) I am now away:~ Reason:  %message 
  /nick Russ|Away
}
back {
  set %hoe off
  /away
  /amsg  (Back)  Reason i was away:~  %message $+ , I was gone for $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) 
  /nick Russell
  unset %message
  unset %time
}

Remote:
on *:TEXT:*:?: { write awaylog.txt $asctime(dddd~mmm~d~yyy:h:n:s:tt) $nick $1-
  if ( $nick == %plast ) { halt }
  elseif ( %hoe == on ) {
    set %plast $nick
    /msg $nick I am currently Away: %message 

    /msg $nick I went to away $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) ago feel free to leave me a message as i am recording all pm's.

else { halt } } 
on *:TEXT:*Pinky:#: { if (%hoe == on) { notice $nick Sorry $nick $+ , I am not here. Reason:  %message I have been gone for: $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:*Pink:#: { if (%hoe == on) { notice $nick Sorry $nick $+ , I am not here. Reason:  %message I have been gone for: $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:*Russell:#: { if (%hoe == on) { notice $nick Sorry $nick $+ , I am not here. Reason:  %message I have been gone for: $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:*Russ:#: { if (%hoe == on) { notice $nick Sorry $nick $+ , I am not here. Reason:  %message I have been gone for: $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)  } }