From 1fcd567446dce6e5e02d802e26cf38a538092cf3 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 14 Apr 2007 16:54:30 +0000
Subject: Did Some Code Cleanup Fixed some Bugs in Party Mode Added a Better
 Round Plugin Selection

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@89 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UParty.pas | 120 +++++++++++++++++++++++++++++++++++++------
 1 file changed, 105 insertions(+), 15 deletions(-)

(limited to 'Game/Code/Classes')

diff --git a/Game/Code/Classes/UParty.pas b/Game/Code/Classes/UParty.pas
index da89ca8a..f5834dd8 100644
--- a/Game/Code/Classes/UParty.pas
+++ b/Game/Code/Classes/UParty.pas
@@ -22,7 +22,7 @@ type
 
     constructor Create;
 
-    procedure StartNewParty;
+    procedure StartNewParty(NumRounds: Byte);
     procedure StartRound;
     procedure EndRound;
     function  GetWinner: Byte;
@@ -47,14 +47,98 @@ end;
 //----------
 //StartNewParty - Clears the Class and Prepares for new Party
 //----------
-procedure TParty_Session.StartNewParty;
+procedure TParty_Session.StartNewParty(NumRounds: Byte);
+var
+  Plugins: Array of record
+    ID: Byte;
+    TimesPlayed: Byte;
+  end;
+  TeamMode: Boolean;
+  Len:  Integer;
+  I:  Integer;
+
+  function GetRandomPlugin: Byte;
+  var
+    LowestTP: Byte;
+    NumPwithLTP: Word;
+    I: Integer;
+    R: Word;
+  begin
+    LowestTP := high(Byte);
+    NumPwithLTP := 0;
+
+    //Search for Plugins not often played yet
+    For I := 0 to high(Plugins) do
+    begin
+      if (Plugins[I].TimesPlayed < lowestTP) then
+      begin
+        lowestTP := Plugins[I].TimesPlayed;
+        NumPwithLTP := 1;
+      end
+      else if (Plugins[I].TimesPlayed = lowestTP) then
+      begin
+        Inc(NumPwithLTP);
+      end;
+    end;
+
+    //Create Random No
+    R := Random(NumPwithLTP);
+
+    //Search for Random Plugin
+    For I := 0 to high(Plugins) do
+    begin
+      if Plugins[I].TimesPlayed = lowestTP then
+      begin
+        //Plugin Found
+        if (R = 0) then
+        begin
+          Result := Plugins[I].ID;
+          Inc(Plugins[I].TimesPlayed);
+          Break;
+        end;
+        
+        Dec(R);
+      end;
+    end;
+  end;
 begin
-//Set cur Round to Round 1
-CurRound := 255;
+  //Set cur Round to Round 1
+  CurRound := 255;
+
+  PlayersPlay := Teams.NumTeams;
 
-PlayersPlay := Teams.NumTeams;
-if isWinner(0,9) then
-  Log.LogError('Test');
+  TeamMode := True;
+  For I := 0 to Teams.NumTeams-1 do
+    if Teams.Teaminfo[I].NumPlayers < 2 then
+    begin
+      TeamMode := False;
+      Break;
+    end;
+
+  //Fill Plugin Array
+  SetLength(Plugins, 0);
+  For I := 0 to high(DLLMan.Plugins) do
+  begin
+    if TeamMode or (Not DLLMan.Plugins[I].TeamModeOnly)  then
+    begin //Add only Plugins Playable with cur. PlayerConfiguration
+      Len := Length(Plugins);
+      SetLength(Plugins, Len + 1);
+      Plugins[Len].ID := I;
+      Plugins[Len].TimesPlayed := 0;
+    end;
+  end;
+
+  //Set Rounds
+  If (Length(Plugins) >= 1) then
+  begin
+    SetLength (Rounds, NumRounds);
+    For I := 0 to NumRounds-1 do
+    begin
+      PartySession.Rounds[I].Plugin := GetRandomPlugin;
+      PartySession.Rounds[I].Winner := 255;
+    end;
+  end
+  else SetLength (Rounds, 0);
 end;
 
 //----------
@@ -65,10 +149,10 @@ var
   I, J: Integer;
   lowestTP: Byte;
 begin
-  //Get lowest TP
+  //Get lowest TimesPlayed
   lowestTP := high(Byte);
   J := -1;
-  for I := 0 to Teams.Teaminfo[Team].NumPlayers do
+  for I := 0 to Teams.Teaminfo[Team].NumPlayers-1 do
   begin
     if (Teams.Teaminfo[Team].Playerinfo[I].TimesPlayed < lowestTP) then
     begin
@@ -86,7 +170,7 @@ begin
     repeat
       Result := Random(Teams.Teaminfo[Team].NumPlayers);
     until (Teams.Teaminfo[Team].Playerinfo[Result].TimesPlayed = lowestTP)
-  else //Else Select the one wth lowest TP
+  else //Else Select the one with lowest TP
     Result:= J;
 end;
 
@@ -106,7 +190,7 @@ begin
     DllMan.LoadPlugin(Rounds[CurRound].Plugin);
 
     //Select Players
-    for I := 0 to Teams.NumTeams do
+    for I := 0 to Teams.NumTeams-1 do
       Teams.Teaminfo[I].CurPlayer := GetRandomPlayer(I);
 
     //Set ScreenSingModie Variables
@@ -142,7 +226,7 @@ procedure TParty_Session.GenScores;
 var
   I: Byte;
 begin
-  for I := 0 to Teams.NumTeams do
+  for I := 0 to Teams.NumTeams-1 do
   begin
     if isWinner(I, Rounds[CurRound].Winner) then
       Inc(Teams.Teaminfo[I].Score);
@@ -159,12 +243,18 @@ var
 begin
   if (Rounds[Round].Winner = 0) then
   begin
-    Result := 'Nobody';
+    Result := Language.Translate('PARTY_NOBODY');
+    exit;
+  end;
+
+  if (Rounds[Round].Winner = 255) then
+  begin
+    Result := Language.Translate('PARTY_NOTPLAYEDYET');
     exit;
   end;
 
   SetLength(Winners, 0);
-  for I := 0 to Teams.NumTeams do
+  for I := 0 to Teams.NumTeams-1 do
   begin
     if isWinner(I, Rounds[Round].Winner) then
     begin
@@ -188,7 +278,7 @@ begin
   GenScores;
 
   //Increase TimesPlayed 4 all Players
-  For I := 0 to Teams.NumTeams do
+  For I := 0 to Teams.NumTeams-1 do
     Inc(Teams.Teaminfo[I].Playerinfo[Teams.Teaminfo[0].CurPlayer].TimesPlayed);
 
 end;
-- 
cgit v1.2.3