Away Script

;Created by Spencer from SwiftIRC
Alias away {
  if ($away == $false) {
    set %awayctime $ctime
    set %awayreason $$1-
    set %awaytime $+($time,$chr(40),$asctime(zzz),$chr(41))
    away %awayreason - %awaytime
    ame is away for $+(,%awayreason,,.) Left at $+(%awaytime,.)
  }
  else {
    away
    unset %away*
    unset %hilite.*
  }
}
Alias back {
  if ($away != $false) {
    if (%awayctime) || (%awayreason) || (%awaytime) {
      set %awayduration $duration($calc($ctime - %awayctime)) {
        ame is back from $+(,%awayreason,,.) Been away for $+(%awayduration,.)
        away
        unset %away*
        unset %hilite.*
      }
    }
  }
}
on *:TEXT:*:#: {
  if ($me isin $1- || Spencer isin $1-) {
    if ($away == $true) {
      if (!%hilite. [ $+ [ $address($nick,3) ] ] ) {
        notice $nick I'm away for $+(,%awayreason,,.) Been away for $duration($calc($ctime - %awayctime)) $+ .
        set %hilite. $+ $address($nick,3) 1
      }
    }
  } 
}
Alias daway {
  away $$1-
}
on *:DISCONNECT: {
  set %network $network
}
on *:CONNECT: {
  if (%network && %network == $network) {
    daway %awayreason
    unset %network
  }
}