Mine

menu channel {
  .Away
  ..Set Away: { { set %reason $$?="Please type in your reason for being away."  
      set %time $ctime
      set %away yes
      away %reason ~ left at: $asctime(mmmm dd @ hh:nn:ss tt) %gmt 
  amsg 7 $+ $me 5 is currently AWAY:14 %reason 5left at:4 $asctime(mmmm dd @ hh:nn:ss tt) %gmt } }
  ..Return: { {
      amsg 7 $+ $me 5is BACK from14 %reason $+ 5. Gone for:4 $duration($calc($ctime - %time)) 
      timer 1 1 unset %reason && unset %time && unset %away 
      away
      set %awaynicks $hget(awaynicks/1, %nick).item
      msg $me People whom have messaged me while away: %awaynicks
  timer 1 1 hfree -sw awaynicks }  }
..Set Zone: {{  set %gmt GMT $$?="Type in your timezone." } }

on *:text:*:#: {
  if ( $1 == $me && %away == yes ) {
    notice $nick Hello,7 $nick $+ . I am currently AWAY:14 %reason 5Gone for:4 $duration($calc($ctime - %time)) 
    timer 1 1 notice $nick 12I have been notified that you request my presence.
    var %nick = $nick
    /hadd -sm awaynicks nicks %nick
  }
}