AFK Script

/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 ] No Reason Given
    set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .afktime ] $ctime
    away $null
    ame is now AFK. Reason: No Reason Given
    nick $me $+ |AFK
  }
  else {
    set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .reason ] No Reason Given
    set %away. [ $+ [ $network ] $+ . $+ [ $me ] $+ .afktime ] $ctime
    away $null
    ame is now AFK. Reason: No Reason Given
    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.
}
}