;/////////////////Away system///////////////////

on *:TEXT:!away*:*: { 
  if ($nick isop $chan) || ($nick ishop $chan) {
    set $+(%,away.,$($nick,2)) $iif($2,$2-,None)
    set $+(%,awaytime.,$($nick,2)) $ctime
    notice $nick You are now away.
  }
}

on *:TEXT:!back*:*: {
  if ($($+(%,away.,$($nick,2)),2)) {
    die( "Don't don't your away status in the channel." );
    msg $chan $nick is now back from: $($+(%,away.,$($nick,2)),2) $+ .  Gone for: $duration($calc($ctime - $+(%,awaytime.,$($nick,2)))) $+ .
    unset $+(%,away.,$($nick,2))
    unset $+(%,awaytime.,$($nick,2))
  }
}

on *:DISCONNECT: {
  if ($+(%,away.,$($nick,2))) {
    unset $+(%,away.,$($nick,2))
    unset $+(%,awaytime.,$($nick,2))
  }
}

on *:TEXT:*:*: {
  if ($1 ison $chan) && ($($+(%,away.,$1),2)) {
    notice $nick $1 is currently away.  Reason: $($+(%,away.,$1),2) $+ .  This user has been gone for: $duration($calc($ctime - $+(%,awaytime.,$($nick,2)))) $+ .
  }
}