moosecrap/PepperBet
1
0
Fork 0
Code Issues Pull Requests Releases 2 Wiki Activity

Compare commits

base: moosecrap:master
Branches Tags
moosecrap:master
moosecrap:v1.10
moosecrap:v1.9.12
..
compare: moosecrap:v1.10
Branches Tags
moosecrap:master
moosecrap:v1.10
moosecrap:v1.9.12

No commits in common. "master" and "v1.10" have entirely different histories.
master ... v1.10

2 changed files with 5 additions and 5 deletions
Show Stats Expand all files Collapse all files

8
PepperBet/PepperBet.vb
View File

@ -2,7 +2,7 @@
'Seconds between updates 'Seconds between updates
Const updatedelay = 2 Const updatedelay = 2
Const version As String = "1.12" Const version As String = "1.10"
Const downloadurl As String = "https://long-cat.net/projects/pepperbet/pepperbet.exe?v=" & version Const downloadurl As String = "https://long-cat.net/projects/pepperbet/pepperbet.exe?v=" & version
Const versionurl As String = "https://long-cat.net/projects/pepperbet/version.txt?v=" & version Const versionurl As String = "https://long-cat.net/projects/pepperbet/version.txt?v=" & version
Const dbfilename As String = "pepperdata.xml" Const dbfilename As String = "pepperdata.xml"
@ -116,7 +116,7 @@
While xdoc Is Nothing While xdoc Is Nothing
Try Try
xdoc = Newtonsoft.Json.JsonConvert.DeserializeXmlNode(wc.DownloadString("https://www.saltybet.com/state.json"), "saltybet") xdoc = Newtonsoft.Json.JsonConvert.DeserializeXmlNode(wc.DownloadString("http://www.saltybet.com/state.json"), "saltybet")
Catch ex As Exception Catch ex As Exception
xdoc = Nothing xdoc = Nothing
System.Threading.Thread.Sleep(1500) System.Threading.Thread.Sleep(1500)
@ -130,7 +130,7 @@
If Not bootstrap Then 'dont reload state.json if we're in bootstrap mode If Not bootstrap Then 'dont reload state.json if we're in bootstrap mode
Try Try
xdoc = Newtonsoft.Json.JsonConvert.DeserializeXmlNode(wc.DownloadString("https://www.saltybet.com/state.json"), "saltybet") xdoc = Newtonsoft.Json.JsonConvert.DeserializeXmlNode(wc.DownloadString("http://www.saltybet.com/state.json"), "saltybet")
Catch ex As Exception Catch ex As Exception
xdoc = Nothing xdoc = Nothing
End Try End Try
@ -449,7 +449,7 @@
Dim rcount As Integer = 0 Dim rcount As Integer = 0
Dim j As Integer = 0 Dim j As Integer = 0
While j < TheList.Count While j < TheList.Count
If TheList(j).RD = 350 OrElse TheList(j).RD = 290.230506091092 OrElse TheList(j).K = 1500 OrElse TheList(j).K = 1662.2120026057642 OrElse TheList(j).K = 1337.7879973942358 Then If TheList(j).RD = 350 OrElse TheList(j).RD = 290.230506091092 OrElse TheList(j).K = 1500 OrElse TheList(j).K = 1662.2120026057642 OrElse TheList(j).K = 1337.7879973942358 OrElse (((match - TheList(j).LastMatch) > 60000) And (TheList(j).RD > 250)) Then
TheList.RemoveAt(j) TheList.RemoveAt(j)
rcount += 1 rcount += 1
Else Else

BIN
lib/Newtonsoft.Json.pdb
View File

Binary file not shown.