simple enough to get

alias afk { 
  set %away $me
  set %here $1-
  amsg %away is afk due to %here $asctime 
}
on *:text:$(* $+ $me $+ *):#: { 
  if ($me == %away)  { 
    .notice $nick Sorry $nick but I am away. Reason: %here $+ . To Leave a Message w/o color type !page <messagehere>
  } 
}
on *:text:!page*:#: { 
  if ($me == %away) {   
    query $me $nick said $2- at $asctime
  }
}
alias back { 
  amsg %away is now back from %here Was gone for $duration($nick(#,$me).idle) 
  unset %away 
  unset %here 
}