Stuff

ON 1:TEXT:*COMPLETE*in*:#sitechan: {
  if ($nick == sitebot) {
    if ($window(@AutoTrades) != @AutoTrades) { /window -n @AutoTrades }
    var %section $strip($3)
    var %relname $strip($5)
    var %bookmark donotrace
    if (%section == TV-XVID:)     { %bookmark = TV-XVID }
    elseif (%section == XVID:)    { %bookmark = XVID }
    elseif (TV-HR isin %section) { %bookmark = TV-HR }
    elseif (TV-X264 isin %section) { %bookmark = TV-X264 }
    elseif (DVDR isin %section)  { %bookmark = %section }
    elseif (%section == XBOX)    { %bookmark = XBOX }
    elseif (GAMES isin %section) {
      if ((HDTV !isin %relname) && (DSR !isin %relname) && (PDTV !isin %relname )) {
        %bookmark = GAMES
      }
    }
    elseif (XXX isin %section) {
      if ((Pr0nStarS isin %relname) || (PORNOLATION isin %relname) || (DivXfacTory isin %relname)) {
        %bookmark = XXX
      }
    }
    skipallowcheck %relname somefilethatdoesntexist.txt allowy.txt
    if (%bookmark != donotrace) && ($result == OK) {
      if ((Festival !isin %relname) && (Internal !isin %relname) && (iNT !isin %relname) && (Subbed !isin %relname) && (Wrestling !isin %relname) && (W4F !isin %relname) && (Freeware !isin %relname) && (Shareware !isin %relname) && (Demo !isin %relname ) && (DVD9 !isin %relname) && (MDVDR !isin %relname)) {
        /dll Rushmirc.dll RushScript RushApp.FTP.Transfer(1, 'SRV1', ' $+ %bookmark $+ ', ' $+ %relname $+ ', 'SRV2', ' $+ %bookmark $+ ', ' $+ %relname $+ ', RS_APPEND or RS_LOGOUT, 'Covers;CD1;CD2;CD3;CD4;Sample;Subs', '', '', '', '([^\w]*100%[^\w]*)|([^\w]*-\sCOMPLETE\s\)[^\w]*)|([^\w]*-\sCOMPLETE\s-[^\w]*)', 50, 0, 0, RS_SORTDATE or RS_SORTDES, RS_SORTDATE or RS_SORTDES, 0, 0);
        /aline @AutoTrades $timestamp aourcesite -> mottakersite: %relname
      }
    }
  }
}

alias allowlist {
  ;$1=release
  ;$2=sllowlist
  if ((!$exists($2)) || ($lines($2) == 0)) return OKa
  var %allowlist.release $1
  var %allowlist.list $2
  var %allowlist.counter 1
  set %allowlist.end $lines(%allowlist.list)
  while (%allowlist.counter <= %allowlist.end) {
    set %allowlist.allow $read(%allowlist.list,%allowlist.counter)
    if (%allowlist.allow isin %allowlist.release) {
      unset %allowlist.*
      return OKa
    }
    inc %allowlist.counter
  }
  unset %allowlist.*
  return
}
alias skiplist {
  ;$1=release
  ;$2=skiplist
  if ((!$exists($2)) || ($lines($2) == 0)) return OKs
  var %skiplist.release $1
  var %skiplist.list $2
  var %skiplist.counter 1
  set %skiplist.end $lines(%skiplist.list)
  while (%skiplist.counter <= %skiplist.end) {
    set %skiplist.skip $read(%skiplist.list,%skiplist.counter)
    if (%skiplist.skip isin %skiplist.release) {
      unset %skiplist.*
      return SKIP
    }
    inc %skiplist.counter
  }
  unset %skiplist.*
  return OKs
}
alias skipallowcheck {
  skiplist $1 $2
  if ($result == OKs) { allowlist $1 $3 }
  if ($result == OKa) { return OK }
  return
}