From bb273547540d3ee260456ad01b298bacac00f2ea Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 25 Apr 2009 17:36:54 +0000
Subject: some cosmetics some minor changes

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

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

diff --git a/Lua/src/base/UParty.pas b/Lua/src/base/UParty.pas
index cf2d873f..b2e31171 100644
--- a/Lua/src/base/UParty.pas
+++ b/Lua/src/base/UParty.pas
@@ -37,7 +37,7 @@ uses
   ULua;
 
 type
-  { array holds ids of modis or Party_Round_Random
+  { array holds ids of modes or Party_Round_Random
     its length defines the number of rounds
     it is used as argument for TPartyGame.StartParty }
   ARounds = array of integer;
@@ -51,7 +51,7 @@ type
   { element of APartyTeamRanking returned by TPartyGame.GetTeamRanking }
   TParty_TeamRanking = record
     Team: Integer; //< id of team
-    Rank: Integer; //< 1 to Length(Teams) e.g. 1 is for first place
+    Rank: Integer; //< 1 to Length(Teams) e.g. 1 is for placed first
   end;
   AParty_TeamRanking = Array of TParty_TeamRanking; //< returned by TPartyGame.GetTeamRanking
 
@@ -167,8 +167,12 @@ type
     procedure CallOnSing;
     procedure CallAfterSing;
 
-    { returns an array[1..6] of integer. the index stands for the placing,
-      value is the team number (in the team array) }
+    { returns an array[1..6] of TParty_TeamRanking.
+      the index stands for the placing,
+      team is the team number (in the team array)
+      rank is correct rank if some teams have the
+      same score. 
+      }
     function GetTeamRanking: AParty_TeamRanking;
 
     { returns a string like "Team 1 (and Team 2) win" }
@@ -226,14 +230,20 @@ end;
 
 { clears all party specific data previously stored }
 procedure TPartyGame.Clear;
+  var
+    I: Integer;
 begin
   bPartyGame := false; // no party game
-  CurRound := -1;
+  CurRound := low(integer);
 
   bPartyStarted := false; //game not startet
 
   SetLength(Teams, 0); //remove team info
   SetLength(Rounds, 0); //remove round info
+
+  // clear times played
+  for I := 0 to High(TimesPlayed) do
+    TimesPlayed[I] := 0;
 end;
 
 { private: some intelligent randomnes for plugins }
@@ -503,6 +513,7 @@ end;
   returns the number of the current round or -1 if last round has already
   been played }
 function TPartyGame.NextRound: integer;
+  var I: Integer;
 begin
   // some lines concerning the previous round
   if (CurRound >= 0) then
@@ -521,7 +532,11 @@ begin
   // some lines concerning the next round
   if (CurRound >= 0) then
   begin
-   Rounds[CurRound].Winner := 0; //< reset winner
+    // select player
+    for I := 0 to High(Teams) do
+      Teams[I].NextPlayer := GetRandomPlayer(I);
+      
+    Rounds[CurRound].Winner := 0; //< reset winner
   end;
 end;
 
-- 
cgit v1.2.3