<%
Option Explicit
On Error Resume Next
''Server.ScriptTimeout = 5
Dim strPrgUrl
Dim strError, bolShowIntegers
Dim intProg(10), intProgTotal
strPrgUrl = "http://progressives.realtimegaming.com/txt.txt"
intProgTotal = 0
intProg(0) = 0
intProg(1) = 0
intProg(2) = 0
intProg(3) = 0
intProg(4) = 0
intProg(5) = 0
intProg(6) = 0
intProg(7) = 0
intProg(8) = 0
intProg(9) = 0
intProg(10) = 0
GetProgressivesInfo GetUrlContent(strPrgUrl)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Functions & Subs
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub GetProgressivesInfo(strToFormatP)
Dim intI, objA, strT
objA = Split(strToFormatP,"&")
For intI = 0 To UBound(objA)
strT = objA(intI)
If Len(strT) > 0 Then
GetTotalGame strT
End If
Next
End Sub
Sub GetTotalGame(strLineP)
Dim objB
objB = Split(strLineP,"=")
If UBound(objB) > 0 Then
Select Case objB(0)
Case "CStud"
intProg(0) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + intProg(0)
Case "LER"
intProg(1) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + intProg(1)
Case "GBB_25c"
intProg(2) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + intProg(2)
Case "GBB_$1"
intProg(3) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + intProg(3)
Case "Crazy_Dragon_$1"
intProg(4) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + intProg(4)
Case "Light_Speed_25c"
intProg(5) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + intProg(5)
Case "IRIS"
intProg(6) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + intProg(6)
Case "Card_Shark_1c"
intProg(7) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + intProg(7)
Case "Shopping_Spree_25c"
intProg(8) = Round(objB(1) + GetRandomNumber(99),2)
intProgTotal = intProgTotal + (intProg(8)*2)
Case "WinAMillion_$5"
intProg(9) = Round(objB(1) + GetRandomNumber(99),2)
''intProgTotal = intProgTotal + intProg(9)
End Select
End If
End Sub
Function GetUrlContent(strUrlP)
On Error Resume Next
Dim objHttp
Set objHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
''SetTimeouts (ResolveTimeout,ConnectTimeout,SendTimeout,ReceiveTimeout)
''objHttp.SetTimeouts 100, 100, 100, 100
objHttp.Open "GET", strUrlP
objHttp.Send
If Err <> 0 Then
GetUrlContent = 0
Else
GetUrlContent = objHttp.ResponseText
End If
Set objHttp = Nothing
End Function
Function GetRandomNumber(intRndP)
Dim RndNumber
Randomize
RndNumber = Rnd
GetRandomNumber = RndNumber
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' End
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
//////////////////////////////////////////
// Customizations
//////////////////////////////////////////
// font or style. i.e. strIni = '';
var strIni = '';
// End of font of style. i.e.: strEnd = '';
var strEnd = '';
var intPrg;
var intTime;
var intProgTot = 0;
intPrg = new Array(10);
intTime = new Array(10);
intProgTot = <%=intProgTotal%>; // Total Progressives
intPrg[0] = <%=intProg(0)%>; // CStud
intPrg[1] = <%=intProg(1)%>; // LERide
intPrg[2] = <%=intProg(2)%>; // GTBB 25c
intPrg[3] = <%=intProg(3)%>; // GTBB $1
intPrg[4] = <%=intProg(4)%>; // Dragon
intPrg[5] = <%=intProg(5)%>; // Light Speed
intPrg[6] = <%=intProg(6)%>; // IRIS
intPrg[7] = <%=intProg(7)%>; // Card Shark
intPrg[8] = <%=intProg(8)%>; // SS
intPrg[9] = <%=intProg(8)%>; // MidLife
intPrg[10] = <%=intProg(9)%>; // WinAM
intTime[0] = 700;
intTime[1] = 800;
intTime[2] = 1000;
intTime[3] = 2000;
intTime[4] = 1200;
intTime[5] = 900;
intTime[6] = 1100;
intTime[7] = 1000;
intTime[8] = 950;
intTime[9] = 950;
intTime[10] = 5000;
function FormatCurrency(intNumberP){
var workNum, workStr, dStr, dNum, pStr, dLen;
workNum = Math.abs(Math.round(intNumberP * 100) / 100);
workStr = "" + workNum;
if (workStr.indexOf(".") == -1) {
workStr = workStr + ".00";
} // end if
dStr = workStr.substr(0, workStr.indexOf("."));
dNum = dStr - 0;
for (pStr = workStr.substr(workStr.indexOf(".")); pStr.length < 3; pStr = pStr + "0") {
} // end of for
if (dNum >= 1000) {
dLen = dStr.length;
dStr = parseInt("" + dNum / 1000) + "," + dStr.substring(dLen - 3, dLen);
} // end if
if (dNum >= 1000000) {
dLen = dStr.length;
dStr = parseInt("" + dNum / 1000000) + "," + dStr.substring(dLen - 7, dLen);
} // end if
var i = 0;
for (i = 1; i < 100; i++) {
} // end of for
if (dNum >= 1000000000) {
dLen = dStr.length;
dStr = parseInt("" + dNum / 1000000000) + "," + dStr.substring(dLen - 11, dLen);
} // end if
return "$" + dStr + pStr;
}
function UpdatePrgNumber(intIdP){
intPrg[intIdP] = Number(intPrg[intIdP]) + 0.010000;
if(document.all){
switch(intIdP){
case 0:
prg0.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 1:
prg1.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 2:
prg2.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 3:
prg3.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 4:
prg4.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 5:
prg5.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 6:
prg6.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 7:
prg7.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 8:
prg8.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 9:
prg9.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
case 10:
prg10.innerHTML = strIni + FormatCurrency(intPrg[intIdP]) + strEnd;
break;
}
setTimeout("UpdatePrgNumber(" + intIdP + ");",intTime[intIdP]);
}
}
function PrintPrgNumber(intIdP){
var strNumber = "";
var strId = "prg" + intIdP;
strNumber = FormatCurrency(intPrg[intIdP]);
document.write('' + strIni + strNumber + strEnd + '
');
if(document.all){
setTimeout("UpdatePrgNumber(" + intIdP + ");",intTime[intIdP]);
}
}
// Total PRG Functions
function UpdateTotalPrg(){
var intAmount = 0;
for(var intI = 0; intI <= 9; intI++){
intAmount += intPrg[intI];
}
prg_total.innerHTML = strIni + FormatCurrency(intAmount) + strEnd;
setTimeout("UpdateTotalPrg();",700);
}
function PrintPrgTotal(){
var strNumber = strNumber = FormatCurrency(intProgTot);;
document.write('' + strIni + strNumber + strEnd + '
');
if(document.all){
setTimeout("UpdateTotalPrg();",700);
}
}