♥ Hope this is what you were looking for ;) ♥

gone {
  /set %oldnick $me  
  /set %hoe on
  /set %time $ctime
  /away $1-
  /set %message $1-
  /nick Sassy|Away
  /amsg 10(Away10) Reason: 10( %message 10) PM Logging: 10(on10)
}
bac {
  set %hoe off
  /back
  /nick %oldnick
  /amsg 10(Back10) I was away for this reason: 10( %message 10) (Duration): $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)   
}
busy {
  /set %oldnick $me  
  /set %busy on
  /set %time $ctime
  /away $1-
  /set %message $1-
  /nick Sassy|Busy
  /amsg 10(Busy10) Reason: 10( %message 10) PM Logging: 10(on10)
}
bab {
  set %busy off
  /back
  /nick %oldnick
  /amsg 10(Back10) Done with: 10( %message 10) (Duration): $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)   
}