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

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.

Browse Source
This commit is contained in:
moosecrab 2022-04-28 20:15:53 -07:00
parent f23ef8ad91
commit 2c10c2bc08
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
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.11" 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"
@ -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