Someone

alias afk { set %awaytext $?="Enter Away Reason" | set %awaygone $ctime | set %away 1 | amsg 7[ 14NOW AWAY 7]14 Reason:7 %awaytext  | /nick Deio|Away }

on *:TEXT:*Deio*:#: { if ( %away == 1) { /afknotice } }

alias afknotice { notice $nick 14I am currently away. Reason: 7 %awaytext 14- Left at: 7 $time $+ 14 -7 $date 14- Away for: 7 $replace($duration($calc($ctime - %awaygone)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s)  }

alias back { amsg 7[ 14Back 7]14 Reason:7 %awaytext 14Gone for:7 $replace($duration($calc($ctime - %awaygone)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) | unset %awaytext | unset %awaygone | unset %away  | /nick Deiophobus }