Mine

alias Gone { 
  set %away on 
  set %awaytime $ctime 
  /away 6[ 14iAway14 6]6 $1- 
  set %awaymessage $1- 
  /amsg 6†14†6†14 6[14A6]14way 6[14F6]14rom 6[14K6]14eyboard 6-14 $me is now away 6-14 %awaymessage $+ 6 -14 PM Logging ON 6†14†6† 
  /nick iCarly 
} 
alias bak { 
  set %away off 
  /away 
  /amsg 6†14†6†14 6[14B6]14ack 6[14A6]14t 6[14C6]14omputer 6[14K6]14? 6-14 $me is now back from 6-14 %awaymessage $+ 6-14 I was gone for $replace($duration($calc($ctime - %awaytime)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) $+ 6 -14 PM Logging OFF 6†14†6† 
  unset %awaymessage 
  unset %awaytime 
  /remove AwayDisabler.txt 
  /nick iMagic 
} 
on *:TEXT:*:#,?: { 
  if (%away == on) { 
    if ($me != iMagic) { 
      if ($1- == Dante) || ($1- == $me) { 
        if ($read(AwayDisabler.txt,$nick)) { 
          halt 
        } 
        else { 
          write AwayDisabler.txt $nick 
          write AwayLogger.txt $asctime(dddd~mmm~d~yyy:h:n:s:tt) $nick $1- 
          timer 1 600 /write -ds $+ $nick AwayDisabler.txt 
          notice $nick 6†14†6† 14Sorry $nick $+ 6-14 $me is not here 6-14 Reason6:14 %awaymessage 6-14 I have been gone for6:14 $replace($duration($calc($ctime - %awaytime)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) 6-14 I will get back to you ASAP 6-14 PM Logging ON  6†14†6† 
        } 
      } 
    } 
  }