alias away {
  set %maway on
  set %nnick $1
  set %awayr $2-
  set %awayt $ctime
  /nick njbot| $+ %nnick
/amsg 4Global:12 I am now away 4Reason:12 %awayr }

alias back {
  /nick njbot
  /amsg 4Global:12 I am now back 4From:12 %awayr 4Time Gone:12 $duration($calc($ctime - %awayt))
  set %maway off
  unset %nnick
  unset %awayr
unset %awayt }

on *:text:*nj*:#:{ if (%maway == on) {
    notice $nick 12I am away 4Reason:12 %awayr 4Been Gone:12 $duration($calc($ctime - %awayt))
} }