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]
}
}