From 2c905475689bba8c61b32b24bc19406be8abe190 Mon Sep 17 00:00:00 2001 From: albertjan Date: Mon, 17 Feb 2014 20:53:09 +0100 Subject: [PATCH] Copy paste bug. Oops! --- vb6/Trivia/clsGame.cls | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/vb6/Trivia/clsGame.cls b/vb6/Trivia/clsGame.cls index f7ec5735e4..b046d701a0 100644 --- a/vb6/Trivia/clsGame.cls +++ b/vb6/Trivia/clsGame.cls @@ -139,15 +139,15 @@ Private Function CurrentCategory() CurrentCategory = "Science" Exit Function End If - If iaPlaces(iCurrentPlayer) = 1 Then + If iaPlaces(iCurrentPlayer) = 2 Then CurrentCategory = "Sports" Exit Function End If - If iaPlaces(iCurrentPlayer) = 5 Then + If iaPlaces(iCurrentPlayer) = 6 Then CurrentCategory = "Sports" Exit Function End If - If iaPlaces(iCurrentPlayer) = 9 Then + If iaPlaces(iCurrentPlayer) = 10 Then CurrentCategory = "Sports" Exit Function End If