; SITE CONFIG
menu * {
  &Trader
  .&Site Manager
  ..Add Site:addsite
  ..Delete Site:delsite
  ..-
  ..Enable Site:enablesite
  ..Disable Site:disablesite
  .&Trader Manager
  ..Enable Trader:set %tstatus on 
  ..Disable Trader:set %tstatus off
  ..-
  ..Show Stats:fstats
  ..Trader Info:tinfo
  .Update IP:gip
  .Say Addline:gaddline
}

alias gaddline {
  echo -a site adduser user pass ident@ $+ %gip
  echo -a Your IP is: $ip
  tlog CONFIG Outputted addline
}


alias tlog { 
  if ($1 == TRADER) {
    write trader/tradelog.log  $adate $time - $2-
  }
  else {
    write trader/trader.log ( $+ $1 $+ ) $adate $time - $2-  
  }
}

alias tinfo {
  echo -a (  TradeProg ALPHA B3)
}

alias addsite { 
  var %sname $?="Site Name:"
  var %scountry $?="Country:"
  var %sspeed $?="Speed:"
  var %sstatus $?!="Enabled?"
  writeini -n trader/sites.ini %sname Country %scountry
  writeini -n trader/sites.ini %sname Speed %sspeed
  if (%sstatus == $true) {
    writeini -n trader/sites.ini %sname Status Online
  } 
  elseif (%sstatus == $false) {
    writeini -n trader/sites.ini %sname Status Offline
  }
  echo -a Creating RULES direcotry if not there already.
  mkdir trader/RULES
  echo -a Done.
  echo -a Creating Rules Directory for %sname . . .
  mkdir trader/RULES/ $+ %sname
  echo -a Done . . . Output Folder: trader/RULES/ $+ %sname
  tlog CONFIG Added site %sname
}

alias delsite {
  var %sname $?="Site Name:"
  echo -a Cleaning up folders and files . . .
  remini trader/sites.ini %sname
  remove trader/RULES/ $+ %sname $+ /allow.txt
  remove trader/RULES/ $+ %sname $+ /skip.txt
  rmdir trader/RULES/ $+ %sname
  echo -a Done!
  tlog CONFIG Deleted site %sname
}

alias enablesite {
  var %sname $?="Site Name:"
  writeini -n trader/sites.ini %sname Status Online
  tlog CONFIG Enabled site %sname
}

alias disablesite {
  var %sname $?="Site Name:"
  writeini -n trader/sites.ini %sname Status Offline
  tlog CONFIG Disabled site %sname
}

alias fstats {
  while ($exists(%[FRush]Dir $+ RushCfg.xml) == $false) { set %[FRush]Dir $sdir(c:\,Select your FTPRush's folder) }

  var %line = $read(%[FRush]Dir $+ rushcfg.xml,w,*<TSTATS START="*" UP="*" DN="*" FXP="*" />*)
  var %[FtpRSTS]tmpdate = $gettok(%line,2,34)
  var %[FtpRSTS]UP = $gettok(%line,4,34)
  var %[FtpRSTS]DN = $gettok(%line,6,34)
  var %[FtpRSTS]FXP = $gettok(%line,8,34)
  var %[FtpRSTS]date = $ctime($and($calc(%[FtpRSTS]tmpdate /65536),31) $+ $chr(47) $+ $and($calc(%[FtpRSTS]tmpdate /2097152),15) $+ $chr(47) $+ $left($calc(%[FtpRSTS]tmpdate /33554432 +1980),4))
  var %[FtpRSTS]days = $calc(($ctime - %[FtpRSTS]date)/86400)
  echo - I have 3Uploaded7 $bytes(%[FtpRSTS]UP,3).suf - 3Downloaded7 $bytes(%[FtpRSTS]DN,3).suf - 3FXPed7 $bytes(%[FtpRSTS]FXP,3).suf - since 3 $asctime(%[FtpRSTS]date,d/mm/yyyy)
  echo - Average of 7 $bytes($calc(%[FtpRSTS]UP / %[FtpRSTS]days),3).suf $+ /day 3Uploaded,7 $bytes($calc(%[FtpRSTS]DN / %[FtpRSTS]days),3).suf $+ /day 3Downloaded,7 $bytes($calc(%[FtpRSTS]FXP / %[FtpRSTS]days),3).suf $+ /day 3FXPed for3 %[FtpRSTS]days days. 
  tlog mIRC Outputted FTPRush stats to $chan
}

alias gip {
  set %gip $?="IP - Connected IP -> [ $ip ] $crlf $+ Input Example: 10.15.35.*"
  echo -a Your IP is now: %gip
  tlog CONFIG Updated IP to %gip
}


;TRADER CODE

on *:TEXT:*ONTIME*:#CHANNEL:{
  if ($nick == PREBOT) {
    var %strip $strip($1-)
    var %new $remove($gettok(%strip,1,32),$chr(91),$chr(93))
    var %release $gettok(%strip,5,32)
    var %section $gettok(%strip,3,32)
    var %pretime $gettok(%strip,7,32))
    if (%new == ONTIME) && (%tstatus = on) {
      if (*s* iswm %pretime) {
        window -g1 @Trades
        aline @Trades $timestamp 4[15NEW RELEASE4] 15:: 14Release:15 %release 4• 14PRE:9 OK %pretime 
        tchain %section %release
      }
      else {
        window -g1 @Trades 
        aline @Trades $timestamp 4[15NEW RELEASE4] 15:: 14Release:15 %release 4• 14PRE:4 FAILED %pretime 
        tlog TRADER FAILED TRADE :: $3 -> $4 - $2 ( $+ $1 $+ ) 
      }
    }
  }
}

alias tchain {
  if ($1 == 0DAY) {
  }
  if ($1 == APPS) {

  }
  if ($1 == DVDR) {
 
  }
  if ($1 == GAMES) {

  }
  if ($1 == MP3) {
  }
  if ($1 == PS2) {
  
  }
  if ($1 == TV-XVID) {


  }
  if ($1 == TV-HR) {

  }
  if ($1 == VCD) {

  }
  if ($1 == XVID) {

  }
  if ($1 == XBOX) {

  }
  if ($1 == XBOX360) {
    ttrade $1 $2 SITE1 SITE2
  }
  if ($1 == XXX) {

  }
}

alias ttrade { 
  if ($tsettings($4,Status) == Online) {
    if ($tcheckglobal(skip,$4,$1,$2) == false) {
      if ($tcheck(allow,$4,$1,$2) == true) && ($tcheck(skip,$4,$1,$2) == false) {
        dll rushmirc.dll RushScript RushApp.FTP.Transfer(0, '', '', '', ' $+ $3 $+ ; $+ $4 $+ ', ' $+ $1 $+ ', ' $+ $2 $+ ', 0, 'CD1;CD2;CD3;SAMPLE;COVERS;Subs', '', '', '', '([^\w]*100%[^\w]*)|([^\w]*-\sCOMPLETE\s\)[^\w]*)|([^\w]*-\sCOMPLETE\s-[^\w]*)|(^COMPLETE$)|([^\w]*9[3-9]%[^\w]*)', 499, 0, 15, 0, 0, 3, 0);
        timerClearInactive 1 120 dll rushmirc.dll RushScript RushApp.FTP.RemoveQueue('','','',RS_WAITING);
        window -g1 @Trades 
        aline @Trades $timestamp 4[15Rules Passed4] 15:: 14Site:15 $4 4• 14Section:15 $1 4• 14Release:15 $2
        tlog TRADER TRADED $2 ( $+ $1 $+ ) - $3 -> $4
      } 
      else {
        window -g1 @Trades 
        aline @Trades $timestamp 4[15Rules Failed4] 15:: 14Site:15 $4 4• 14Section:15 $1 4• 14Release:15 $2
        tlog TRADER FAILED TRADE :: $3 -> $4 - $2 ( $+ $1 $+ ) 
      }
    }
    else {
      window -g1 @Trades 
      aline @Trades $timestamp 4[15Rules Failed4] 15:: 14Site:15 $4 4• 14Section:15 $1 4• 14Release:15 $2
      tlog TRADER FAILED TRADE :: $3 -> $4 - $2 ( $+ $1 $+ ) 
    }
  }
  else {
    window -g1 @Trades 
    aline @Trades $timestamp 4[15Rules Failed4] 15:: 14Site:15 $4 4• 14Section:15 $1 4• 14Release:15 $2 
    tlog TRADER FAILED TRADE :: $3 -> $4 - $2 ( $+ $1 $+ ) 
  }
} 

alias tcheck {
  var %ctype $1
  var %csite $2
  var %csection $3
  var %crelease $4
  var %ccount 1
  var %cmatch false

  while ($trules(%ctype,%csite,%ccount)) {
    if ($regex($trules(%ctype,%csite,%ccount),(.*)\|(.*)) >= 1 ) {
      if ( $regml(1) == %csection ) || ($regml(1) == *) {
        if ( $regml(2) iswm %crelease) {
          %cmatch = true
          break
        }
      }
    }
    inc %ccount
  }
  return %cmatch
}


alias tcheckglobal {
  var %dtype $1
  var %dsite $2
  var %dsection $3
  var %drelease $4
  var %dcount 1
  var %dmatch false

  while ($trulesglobal(%dtype,%dsite,%dcount)) {
    if ($regex($trulesglobal(%dtype,%dsite,%dcount),(.*)\|(.*)) >= 1 ) {
      if ( $regml(1) == %dsection ) || ($regml(1) == *) {
        if ( $regml(2) iswm %drelease) {
          %dmatch = true
          break
        }
      }
    }
    inc %dcount
  }
  return %dmatch
}

alias trules {
  return $read(trader\RULES\ $+ $2 $+ \ $+ $1 $+ .txt,$3)
}

alias trulesglobal {
  return $read(trader\RULES\ $+ $1 $+ .txt,$3)
}

alias tsettings {
  return $readini(trader\sites.ini,$1,$2)
}