Something

on *:TEXT:*:?: { if ($me == `{vbot}) { halt } else { 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  4(1Away4)1: %message
    /msg $nick 4(1duration4)1 $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) 4(1feel free to leave me a message4)1 }    
    else { halt }
  }
}

on *:TEXT:*chris*:#: {
  if (%hoe == on) { /notice $nick I am currently Away 4(1Reason4)1 : %message 4(1Duration4)1 :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:*bara*:#: {
  if (%hoe == on) { /notice $nick I am currently Away 4(1Reason4) : %message $sbr(Duration) :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 `{Away}
  /amsg 4(Away4) Reason: ( %message ) PM Logging: (on)
}
alias bac {
  set %hoe off
  /back
  /nick %oldnick
  /amsg 4(Back4) I was away for this reason: ( %message ) (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)   
}