From aa006bc319af1af81c5c703209ba81f4f517fc77 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 4 Apr 2010 17:34:31 +0000
Subject: *NEW: Press Left-Ctrl + * (* on Numpad) or Left-Ctrl + R to Shuffle
 Player Names in Classic Party Mode "Team- and Player Names"-Screen *NEW: Set
 "NewPartyPoints" in config.ini to "On" to give Winner Team 2Points and 2nd
 placed Team 1Point while playing with 3 Teams (default=on) thx to merc!

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2214 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UParty.pas | 41 +++++++++++++++++++++++++++++++++++++----
 1 file changed, 37 insertions(+), 4 deletions(-)

(limited to 'Game/Code/Classes/UParty.pas')

diff --git a/Game/Code/Classes/UParty.pas b/Game/Code/Classes/UParty.pas
index a843c393..db0328aa 100644
--- a/Game/Code/Classes/UParty.pas
+++ b/Game/Code/Classes/UParty.pas
@@ -2,7 +2,7 @@ unit UParty;
 
 interface
 
-uses ModiSDK;
+uses ModiSDK, UIni;
 
 type
   TRoundInfo = record
@@ -53,6 +53,7 @@ type
 
 var
   PartySession: TParty_Session;
+    Placings: Array [0..5] of Byte;
 
 implementation
 
@@ -320,7 +321,7 @@ end;
 //----------
 procedure TParty_Session.EndRound;
 var
-  I, MaxScore: Integer;
+  I, J, MaxScore: Integer;
 begin
   //Copy Winner
   if Rounds[CurRound].Medley then
@@ -362,8 +363,40 @@ begin
       Rounds[CurRound].Winner := 0;
   end else
     Rounds[CurRound].Winner := ScreenSingModi.Winner;
+
   //Set Scores
-  GenScores;
+
+  if (Ini.NewPartyPoints = 1) then
+  begin
+
+    MaxScore := 0;
+    for I := 0 to ScreenSingModi.PlayerInfo.NumPlayers-1 do
+      if (ScreenSingModi.PlayerInfo.Playerinfo[I].Score > MaxScore) then
+        MaxScore := ScreenSingModi.PlayerInfo.Playerinfo[I].Score;
+
+
+    if (MaxScore > 0) then
+    begin
+      //New Points
+      //Get Placings
+      for I := 0 to Teams.NumTeams-1 do
+      begin
+        Placings[I] := 0;
+        for J := 0 to Teams.NumTeams-1 do
+          If (ScreenSingModi.PlayerInfo.Playerinfo[J].Score > ScreenSingModi.PlayerInfo.Playerinfo[I].Score) then
+            Inc(Placings[I]);
+      end;
+
+      for I := 0 to Teams.NumTeams-1 do
+        Teams.Teaminfo[I].Score := Teams.Teaminfo[I].Score + ((Placings[I] - (Teams.NumTeams-1)) * -1);
+    end
+  end
+  else
+    //Old Points
+    GenScores;
+
+
+
 
   //Increase TimesPlayed 4 all Players
   For I := 0 to Teams.NumTeams-1 do
@@ -402,4 +435,4 @@ begin
     Result[I] := ATeams[I].TeamNum;
 end;
 
-end.
+end.
\ No newline at end of file
-- 
cgit v1.2.3