mel

alias amsg {

  var %a = 1

  while ($($+($chr(36),%a),2)) {

    var %text = %text $+(6,$upper($left($($+($chr(36),%a),2),1)),6,$right($($+($chr(36),%a),2),-1))

    inc %a

  }

  /amsg 13[ 6AMSG 13] %text
}
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:*mel*:#: {
  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:*$me*:#: {
  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 renegat
  /amsg ( Away ) Reason: ( %message ) PM Logging: (on)
}
alias back {
  set %hoe off
  /back
  /nick %oldnick
  /amsg ( Back ) 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)   
}