rendered paste body; 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)
}