alias afk {
    set %awayme $me | set %awayreason $1- | set %awaytime $ctime
    /amsg 14(2AFK14)2I am now AFK. Why?14 %awayreason 2. I left you at [ $+ 14 %awaytime $+ 2]
    /away 2 %awayreason
  }

  alias /back {
    /amsg 14(2BACK14)2I have returned to you from:14 %awayreason 2. I was gone for 14 $duration($calc($ctime - %away.time)) 2.
    /away 
    unset %awayme | unset %awayreason | unset %awaytime
  }

  on *:TEXT:*:#:{
    if ( %awayme isin $1- && %awayme != $null ) {
      .notice $nick (2AFK14)2I am now AFK. Why?14 %awayreason 2. I left you at [ $+ 14 %awaytime $+ 2]
 }