/afk {
  if (!$1) {
    if ($away) {
      unset %away. [ $+ [ $network ] $+ . $+ [ $left($me,$calc($len($me) - 4))) ] $+ .reason ]
      unset %away. [ $+ [ $network ] $+ . $+ [ $left($me,$calc($len($me) - 4))) ] $+ .afktime ]
      set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .reason ] $null
      set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .afktime ] $ctime
      away $null
      ame is now AFK. Reason: $null
      nick $me $+ |AFK
    }
    else {
      set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .reason ] $null
      set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .afktime ] $ctime
      away $null
      ame is now AFK. Reason: $null
      nick $me $+ |AFK
    }
  }
  else {
    if ($away) {
      unset %away. [ $+ [ $network ] $+ . $+ [ $left($me,$calc($len($me) - 4))) ] $+ .reason ]
      unset %away. [ $+ [ $network ] $+ . $+ [ $left($me,$calc($len($me) - 4))) ] $+ .afktime ]
      set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .reason ] $1-
      set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .afktime ] $ctime
      away $1-
      ame is now AFK. Reason: $1-
      nick $me $+ |AFK
    }
    else {
      set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .reason ] $1-
      set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .afktime ] $ctime
      away $1-
      ame is now AFK. Reason: $1-
      nick $me $+ |AFK
    }
  }
}
/back {
  if ($away) {
    var %away.me = $iif($right($me,4) = |AFK,$mid($me,1,-4),$me)
    ame is back from " $+ $eval($+($chr(37),away.,$network,.,%away.me,.reason),2) $+ " $+ . Gone for $duration($calc($ctime - $eval($+($chr(37),away.,$network,.,%away.me,.afktime),2) ))
    away
    nick %away.me
    timer 1 3 unset $+($chr(37),away.,$network,.,%away.me,.*)
  }
  else {
    echo Error: AFK unset.
  }
}