Untitled

alias amsg { /gone
 
  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  13(1Away13)1: %message
    /msg $nick 13(1duration13)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) 13(1feel free to leave me a message13)1 }    
    else { halt }
  }
}
 
on *:TEXT:*mel*:#: {
  if (%hoe == on) { /notice $nick 6I am currently Away 13(6Reason13)6 : %message 13(6Duration13)6 :6 $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:*renegat*:#: {
  if (%hoe == on) { /notice $nick 6I am currently Away 13(6Reason13)6 : %message 13(6Duration13)6 :6 $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 [mel|away]
  /amsg ( Away ) Reason: ( %message ) 
}
alias back {
  set %hoe off
  /back
  /nick mel
  /amsg ( Back ) I was away for this reason: ( %message )
}