Mine

Alias:
bbl {
  set %hoe on
  set %time $ctime
  /away 12«14 Away 12» $1-
  /set %message $1-
  amsg 5,15,145,155,05,155,145,115,1 -15,1=(4Away15) I am now away:~ 4Reason: 7 %message 15=- 4,125,15,145,155,05,155,145,1
  /nick Russ|Away
}
back {
  set %hoe off
  /away
  /amsg  5,15,145,155,05,155,145,115,1 -15,1=(4Back15)  4Reason i was away:~ 7 %message $+ , 14I was gone for7 $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) 15=- 4,125,15,145,155,05,155,145,1
  /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 5,15,145,155,05,155,145,115,1 -15,1=I am currently Away:7 %message 5,1=- 125,15,145,155,05,155,145,1

    /msg $nick 5,15,145,155,05,155,145,115,1 -15,1=I went to away 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) 0ago feel free to leave me a message as i am recording all pm's.5,1=- 125,15,145,155,05,155,145,1

else { halt } } }
on *:TEXT:*Pinky:#: { if (%hoe == on) { notice $nick 5,15,145,155,05,155,145,115,1 -15,1=Sorry7 $nick $+ ,14 I am not here. 7Reason:  %message 14I have been gone for: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) 5,1=- 125,15,145,155,05,155,145,1 } }
on *:TEXT:*Pink:#: { if (%hoe == on) { notice $nick 5,15,145,155,05,155,145,115,1 -15,1=Sorry7 $nick $+ ,14 I am not here. 7Reason:  %message 14I have been gone for: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) 5,1=- 125,15,145,155,05,155,145,1 } } 
on *:TEXT:*Russell:#: { if (%hoe == on) { notice $nick 5,15,145,155,05,155,145,115,1 -15,1=Sorry7 $nick $+ ,14 I am not here. 7Reason:  %message 14I have been gone for: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) 5,1=- 125,15,145,155,05,155,145,1 } }
on *:TEXT:*Russ:#: { if (%hoe == on) { notice $nick 5,15,145,155,05,155,145,115,1 -15,1=Sorry7 $nick $+ ,14 I am not here. 7Reason:  %message 14I have been gone for: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) 5,1=- 125,15,145,155,05,155,145,1 } }