From 2c10c2bc08fbf1eb62b61942027d6aa8ea3ffbc9 Mon Sep 17 00:00:00 2001 From: moosecrab Date: Thu, 28 Apr 2022 20:15:53 -0700 Subject: [PATCH] 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. --- PepperBet/PepperBet.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/PepperBet/PepperBet.vb b/PepperBet/PepperBet.vb index b946ce6..ab3c680 100755 --- a/PepperBet/PepperBet.vb +++ b/PepperBet/PepperBet.vb @@ -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