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

Compare commits

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

3 Commits
v1.10 ... master

Author SHA1 Message Date
moosecrab
2c10c2bc08 Removed a part of the cleanup function that would remove some very old, but real characters. I'd like to keep these in the DB for legacy purposes. 2022-04-28 20:15:53 -07:00
moosecrab
f23ef8ad91 Switched the fetch request to state.json to use HTTPS to avoid uneeded redirects. 2020-06-27 01:39:07 -07:00
moosecrab
83c6c681ca Adding static .pdb for JSON library 2020-02-25 14:40:13 -08:00
2 changed files with 5 additions and 5 deletions
Show Stats Expand all files Collapse all files

10
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.10" Const version As String = "1.12"
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("http://www.saltybet.com/state.json"), "saltybet") xdoc = Newtonsoft.Json.JsonConvert.DeserializeXmlNode(wc.DownloadString("https://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("http://www.saltybet.com/state.json"), "saltybet") xdoc = Newtonsoft.Json.JsonConvert.DeserializeXmlNode(wc.DownloadString("https://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 OrElse (((match - TheList(j).LastMatch) > 60000) And (TheList(j).RD > 250)) 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 Then
TheList.RemoveAt(j) TheList.RemoveAt(j)
rcount += 1 rcount += 1
Else Else
@ -660,7 +660,7 @@
End If End If
End While End While
If qstr = "" Then If qstr = "" Then
found = False found = False

BIN
lib/Newtonsoft.Json.pdb Executable file
View File

Binary file not shown.