;;--------------;;
;;Usage:        ;;
;;/afk REASON   ;;
;;/back         ;;
;;--------------;;
/afk {
  if (!$1) {
  away $null
  set %away.afktime $ctime
  set %away.reason $1-
  ame is now AFK. Reason: %away.reason
  set %orgnick $me
  nick $me $+ |AFK
  }
  else {
  away $1-
  set %away.afktime $ctime
  set %away.reason $1-
  ame is now AFK. Reason: %away.reason
  set %orgnick $me
  nick $me $+ |AFK
  }
}
/back {
  if (%away.reason == $null) && (%away.afktime == $null) {
    away
    ame is back from $null $+ . Gone for $null $+ .
    nick %orgnick
    unset %away.*
  }
  else {
    away
    ame is back from %away.reason $+ . Gone for $duration($calc($ctime - %away.afktime )) $+ .
    nick %orgnick
    unset %away.*
  }
}