aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UParty.pas12
1 files changed, 9 insertions, 3 deletions
diff --git a/Game/Code/Classes/UParty.pas b/Game/Code/Classes/UParty.pas
index 946aca77..b07ad5ad 100644
--- a/Game/Code/Classes/UParty.pas
+++ b/Game/Code/Classes/UParty.pas
@@ -55,7 +55,7 @@ var
end;
TeamMode: Boolean;
Len: Integer;
- I: Integer;
+ I, J: Integer;
function GetRandomPlugin: Byte;
var
@@ -107,7 +107,7 @@ begin
PlayersPlay := Teams.NumTeams;
- //Get Teammode and Set Joker
+ //Get Teammode and Set Joker, also set TimesPlayed
TeamMode := True;
For I := 0 to Teams.NumTeams-1 do
begin
@@ -115,6 +115,11 @@ begin
begin
TeamMode := False;
end;
+ //Set Player Attributes
+ For J := 0 to Teams.TeamInfo[I].NumPlayers-1 do
+ begin
+ Teams.TeamInfo[I].Playerinfo[J].TimesPlayed := 0;
+ end;
Teams.Teaminfo[I].Joker := Round(NumRounds*0.7);
Teams.Teaminfo[I].Score := 0;
end;
@@ -156,6 +161,7 @@ var
begin
LowestTP := high(Byte);
NumPwithLTP := 0;
+ Result := 0;
//Search for Players that have not often played yet
For I := 0 to Teams.Teaminfo[Team].NumPlayers-1 do
@@ -323,7 +329,7 @@ begin
//Increase TimesPlayed 4 all Players
For I := 0 to Teams.NumTeams-1 do
- Inc(Teams.Teaminfo[I].Playerinfo[Teams.Teaminfo[0].CurPlayer].TimesPlayed);
+ Inc(Teams.Teaminfo[I].Playerinfo[Teams.Teaminfo[I].CurPlayer].TimesPlayed);
end;