From 231559df1075ccfdd4f073cbc779a19d1b4f8da9 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 16 May 2009 21:43:47 +0000
Subject: adapted ScreenPartyScore a fix in TPartyGame.GenScores

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1743 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Lua/src/base/UParty.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Lua/src/base/UParty.pas')

diff --git a/Lua/src/base/UParty.pas b/Lua/src/base/UParty.pas
index 713cfc33..1ec0f82d 100644
--- a/Lua/src/base/UParty.pas
+++ b/Lua/src/base/UParty.pas
@@ -365,7 +365,7 @@ end;
 //----------
 procedure TPartyGame.GenScores;
 var
-  I: byte;
+  I: Integer;
 begin
   if (Length(Teams) = 2) then
   begin // score generation for 2 teams, winner gets 1 point
@@ -524,6 +524,8 @@ begin
         Self.Rounds[I].Mode := GetRandomMode;
 
       Self.Rounds[I].AlreadyPlayed := False;
+
+      SetLength(Self.Rounds[I].Ranking, 0);
     end;
 
     // get the party started!11
-- 
cgit v1.2.3