Away Script

Alias away {
  if ($network == SwiftIRC) {
    if ($away == $false) {
      set %AA $ctime
      set %AB $asctime(mmm dd)
      set %AC $asctime(hh:nn:sstt)
      set %AD $$1-
      away Away for: %AD - Left on %AB at %AC
      ame is away for: %AD - Left on %AB at %AC $+ .
    }
    if ($away == $true) {
      set %AE $duration($calc($ctime - %AA))
      ame is back from: %AD - Left on %AB at %AC - Gone for %AE $+ .
      away
      unset %AA
      unset %AB
      unset %AC
      unset %AD
      unset %AE
    }
  }
}
on *:DISCONNECT: { 
  if (%AA) {
    unset %AA
  }
  if (%AB) {
    unset %AB
  }
  if (%AC) {
    unset %AC
  }
  if (%AD) {
    unset %AD
  }
  if (%AE) {
    unset %AE
  }
}