Fixed a Bug in PartyMode that causes that Players are not chossen fair

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@136 b956fd51-792f-4845-bead-9b4dfca2ff2c

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;