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
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 versionurl As String = "https://long-cat.net/projects/pepperbet/version.txt?v=" & version
Const dbfilename As String = "pepperdata.xml"
@ -449,7 +449,7 @@
Dim rcount As Integer = 0
Dim j As Integer = 0
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)
rcount += 1
Else