alias afk {
    set %away.reason $1-
    set %away.time $ctime
    say 14(02AFK14) 02I am now AFK. Why? $+(14,$1-,.,) 02I left you at [ $+(14,$time,) 02]
    !away $+(02,$1-)
  }

  alias back {
    say 14(02BACK14) 02I have returned to you from $+(14,%away.reason,.,) 02I was gone for  [ $+(14,$duration($calc($ctime - %away.time)),) 02]
    !away
    unset %away.*
  }

  on *:text:*:*:{
    if ($away) && ($me isin $1-) {
      .notice $nick 14(02AFK14) 02I am currently AFK. Why? $+(14,%away.reason,.,) 02I've been gone for [ $+(14,$duration($calc($ctime - %away.time)),) 02]
    }
  }