aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Lua/src/base/UParty.pas27
1 files changed, 21 insertions, 6 deletions
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;