Anonymous

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
    /msg $nick 4I am currently Away:14 %message
    /msg $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:*dj*:#: {
  if (%hoe == on) { /notice $nick 4Sorry $nick 14 im 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:*jord*:#: {
  if (%hoe == on) { /notice $nick 4Sorry $nick 14 im 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 dj|away
  /amsg 4»Away4« Reason: (4 %message )
}
alias back {
  set %hoe off
  /back
  /nick %oldnick
  /amsg 4»Back4« I was away for this reason: (4 %message ) (4Duration): $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)   
}