New class for score management

  -Scores are raised when PopUp slides under the scorebg
  -1 to 6 Player support (even 5 Players(not supported by Core atm))
  -Display 3 Players instead of 2 when 4 Players are set in the Options and Screens=2

Ratingbar is not drawn by class atm.
Have to be done


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

1 files changed, 452 insertions, 451 deletions

diff --git a/Game/Code/Screens/UScreenSingModi.pas b/Game/Code/Screens/UScreenSingModi.pas
index 455d7b40..44615662 100644
--- a/Game/Code/Screens/UScreenSingModi.pas
+++ b/Game/Code/Screens/UScreenSingModi.pas
@@ -1,4 +1,4 @@
-unit UScreenSingModi;
+unit UScreenSingModi;

 
 interface
 
@@ -158,456 +158,456 @@ begin
 end;
 
 procedure TScreenSingModi.onShow;
-var
-  I: Integer;
-begin
-
-  PlayersPlay := TeamInfo.NumTeams;
-
-  if DLLMan.Selected.LoadSong then //Start with Song
-  begin
-    inherited;
-  end
-  else //Start Without Song
-  begin
-    Music.CaptureStart;
-  end;
-
-//Set Playerinfo
-  PlayerInfo.NumPlayers := PlayersPlay;
-  for I := 0 to PlayerInfo.NumPlayers-1 do
-  begin
-    PlayerInfo.Playerinfo[I].Name    := PChar(Ini.Name[I]);
-    PlayerInfo.Playerinfo[I].Score   := 0;
-    PlayerInfo.Playerinfo[I].Bar     := 50;
-    PlayerInfo.Playerinfo[I].Enabled := True;
-  end;
-
-  for I := PlayerInfo.NumPlayers to high(PlayerInfo.Playerinfo) do
-  begin
-    PlayerInfo.Playerinfo[I].Score:=  0;
-    PlayerInfo.Playerinfo[I].Bar :=  0;
-    PlayerInfo.Playerinfo[I].Enabled := False;
-  end;
-
-  Case PlayersPlay of
-    1: begin
-      PlayerInfo.Playerinfo[0].PosX := Static[StaticP1ScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[0].PosY := Static[StaticP1ScoreBG].Texture.Y + Static[StaticP1ScoreBG].Texture.H;
-    end;
-    2,4: begin
-      PlayerInfo.Playerinfo[0].PosX := Static[StaticP1TwoPScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[0].PosY := Static[StaticP1TwoPScoreBG].Texture.Y + Static[StaticP1TwoPScoreBG].Texture.H;
-      PlayerInfo.Playerinfo[2].PosX := Static[StaticP1TwoPScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[2].PosY := Static[StaticP1TwoPScoreBG].Texture.Y + Static[StaticP1TwoPScoreBG].Texture.H;
-      PlayerInfo.Playerinfo[1].PosX := Static[StaticP2RScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[1].PosY := Static[StaticP2RScoreBG].Texture.Y + Static[StaticP2RScoreBG].Texture.H;
-      PlayerInfo.Playerinfo[3].PosX := Static[StaticP2RScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[3].PosY := Static[StaticP2RScoreBG].Texture.Y + Static[StaticP2RScoreBG].Texture.H;
-    end;
-    3,6: begin
-      PlayerInfo.Playerinfo[0].PosX := Static[StaticP1ThreePScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[0].PosY := Static[StaticP1ThreePScoreBG].Texture.Y + Static[StaticP1ThreePScoreBG].Texture.H;
-      PlayerInfo.Playerinfo[3].PosX := Static[StaticP1ThreePScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[3].PosY := Static[StaticP1ThreePScoreBG].Texture.Y + Static[StaticP1ThreePScoreBG].Texture.H;
-      PlayerInfo.Playerinfo[1].PosX := Static[StaticP2MScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[1].PosY := Static[StaticP2MScoreBG].Texture.Y + Static[StaticP2MScoreBG].Texture.H;
-      PlayerInfo.Playerinfo[4].PosX := Static[StaticP2MScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[4].PosY := Static[StaticP2MScoreBG].Texture.Y + Static[StaticP2MScoreBG].Texture.H;
-      PlayerInfo.Playerinfo[2].PosX := Static[StaticP3RScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[2].PosY := Static[StaticP3RScoreBG].Texture.Y + Static[StaticP3RScoreBG].Texture.H;
-      PlayerInfo.Playerinfo[5].PosX := Static[StaticP3RScoreBG].Texture.X;
-      PlayerInfo.Playerinfo[5].PosY := Static[StaticP3RScoreBG].Texture.Y + Static[StaticP3RScoreBG].Texture.H;
-    end;
-  end;
-
-  // play music (I)
-  //Music.CaptureStart;
-  //Music.MoveTo(AktSong.Start);
-
-  //Init Plugin
-  if not DLLMan.PluginInit(TeamInfo, PlayerInfo, ToSentences(Czesci[0]), LoadTex, Print, LoadSound, PlaySound) then
-  begin
-    //Fehler
-    Log.LogError('Could not Init Plugin');
-    Halt;
-  end;
-
-  // Set Background (Little Workaround, maybe change sometime)
-  if (DLLMan.Selected.LoadBack) AND (DLLMan.Selected.LoadSong) then
-    ScreenSing.Tex_Background := Tex_Background;
-
-  Winner := 0;
-
-  //Set Score Visibility
-  if PlayersPlay = 1 then begin
-    Text[TextP1Score].Visible := DLLMan.Selected.ShowScore;
-    Static[StaticP1ScoreBG].Visible := DLLMan.Selected.ShowScore;
-  end;
-
-  if (PlayersPlay = 2) OR (PlayersPlay = 4) then begin
-    Text[TextP1TwoPScore].Visible := DLLMan.Selected.ShowScore;
-    Static[StaticP1TwoPScoreBG].Visible := DLLMan.Selected.ShowScore;
-
-    Text[TextP2RScore].Visible := DLLMan.Selected.ShowScore;
-    Static[StaticP2RScoreBG].Visible := DLLMan.Selected.ShowScore;
-  end;
-
-  if (PlayersPlay = 3) OR (PlayersPlay = 6) then begin
-    Text[TextP1ThreePScore].Visible := DLLMan.Selected.ShowScore;
-    Static[StaticP1ThreePScoreBG].Visible := DLLMan.Selected.ShowScore;
-
-    Text[TextP2MScore].Visible := DLLMan.Selected.ShowScore;
-    Static[StaticP2MScoreBG].Visible := DLLMan.Selected.ShowScore;
-
-    Text[TextP3RScore].Visible := DLLMan.Selected.ShowScore;
-    Static[StaticP3RScoreBG].Visible := DLLMan.Selected.ShowScore;
-  end;
-end;
-
-function TScreenSingModi.Draw: boolean;
-var
-  Min:    integer;
-  Sec:    integer;
-  Tekst:  string;
-  S, I:      integer;
-  T:      integer;
-begin
-//Set Playerinfo
-  PlayerInfo.NumPlayers := PlayersPlay;
-  for I := 0 to PlayerInfo.NumPlayers-1 do
-  begin
-    PlayerInfo.Playerinfo[I].Name := PChar(Player[I].Name);
-    if PlayerInfo.Playerinfo[I].Enabled then
-    begin
-      if (Player[I].ScoreTotalI<=10000) then
-        PlayerInfo.Playerinfo[I].Score:=  Player[I].ScoreTotalI;
-      PlayerInfo.Playerinfo[I].Bar :=  Player[I].ScorePercent;
-    end;
-  end;
-
-//Show Score
-if DLLMan.Selected.ShowScore then
-begin
-  //ScoreBG Mod
-  // set player colors
-  if PlayersPlay = 4 then begin
-    if ScreenAct = 1 then begin
-      LoadColor(Static[StaticP1TwoP].Texture.ColR, Static[StaticP1TwoP].Texture.ColG,
-      Static[StaticP1TwoP].Texture.ColB, 'P1Dark');
-      LoadColor(Static[StaticP2R].Texture.ColR, Static[StaticP2R].Texture.ColG,
-      Static[StaticP2R].Texture.ColB, 'P2Dark');
-
-
-
-      LoadColor(Static[StaticP1TwoPScoreBG].Texture.ColR, Static[StaticP1TwoPScoreBG].Texture.ColG,
-      Static[StaticP1TwoPScoreBG].Texture.ColB, 'P1Dark');
-      LoadColor(Static[StaticP2RScoreBG].Texture.ColR, Static[StaticP2RScoreBG].Texture.ColG,
-      Static[StaticP2RScoreBG].Texture.ColB, 'P2Dark');
-
-
-
-    end;
-    if ScreenAct = 2 then begin
-      LoadColor(Static[StaticP1TwoP].Texture.ColR, Static[StaticP1TwoP].Texture.ColG,
-        Static[StaticP1TwoP].Texture.ColB, 'P3Dark');
-      LoadColor(Static[StaticP2R].Texture.ColR, Static[StaticP2R].Texture.ColG,
-        Static[StaticP2R].Texture.ColB, 'P4Dark');
-
-
-
-      LoadColor(Static[StaticP1TwoPScoreBG].Texture.ColR, Static[StaticP1TwoPScoreBG].Texture.ColG,
-        Static[StaticP1TwoPScoreBG].Texture.ColB, 'P3Dark');
-      LoadColor(Static[StaticP2RScoreBG].Texture.ColR, Static[StaticP2RScoreBG].Texture.ColG,
-        Static[StaticP2RScoreBG].Texture.ColB, 'P4Dark');
-
-
-
-     end;
-  end;
-
-  if PlayersPlay = 6 then begin
-    if ScreenAct = 1 then begin
-      LoadColor(Static[StaticP1ThreeP].Texture.ColR, Static[StaticP1ThreeP].Texture.ColG,
-        Static[StaticP1ThreeP].Texture.ColB, 'P1Dark');
-      LoadColor(Static[StaticP2M].Texture.ColR, Static[StaticP2M].Texture.ColG,
-        Static[StaticP2R].Texture.ColB, 'P2Dark');
-      LoadColor(Static[StaticP3R].Texture.ColR, Static[StaticP3R].Texture.ColG,
-        Static[StaticP3R].Texture.ColB, 'P3Dark');
-
-
-
-      LoadColor(Static[StaticP1ThreePScoreBG].Texture.ColR, Static[StaticP1ThreePScoreBG].Texture.ColG,
-        Static[StaticP1ThreePScoreBG].Texture.ColB, 'P1Dark');
-      LoadColor(Static[StaticP2MScoreBG].Texture.ColR, Static[StaticP2MScoreBG].Texture.ColG,
-        Static[StaticP2RScoreBG].Texture.ColB, 'P2Dark');
-      LoadColor(Static[StaticP3RScoreBG].Texture.ColR, Static[StaticP3RScoreBG].Texture.ColG,
-        Static[StaticP3RScoreBG].Texture.ColB, 'P3Dark');
-
-
-
-    end;
-    if ScreenAct = 2 then begin
-      LoadColor(Static[StaticP1ThreeP].Texture.ColR, Static[StaticP1ThreeP].Texture.ColG,
-        Static[StaticP1ThreeP].Texture.ColB, 'P4Dark');
-      LoadColor(Static[StaticP2M].Texture.ColR, Static[StaticP2M].Texture.ColG,
-        Static[StaticP2R].Texture.ColB, 'P5Dark');
-      LoadColor(Static[StaticP3R].Texture.ColR, Static[StaticP3R].Texture.ColG,
-        Static[StaticP3R].Texture.ColB, 'P6Dark');
-
-
-
-
-      LoadColor(Static[StaticP1ThreePScoreBG].Texture.ColR, Static[StaticP1ThreePScoreBG].Texture.ColG,
-        Static[StaticP1ThreePScoreBG].Texture.ColB, 'P4Dark');
-      LoadColor(Static[StaticP2MScoreBG].Texture.ColR, Static[StaticP2MScoreBG].Texture.ColG,
-        Static[StaticP2RScoreBG].Texture.ColB, 'P5Dark');
-      LoadColor(Static[StaticP3RScoreBG].Texture.ColR, Static[StaticP3RScoreBG].Texture.ColG,
-        Static[StaticP3RScoreBG].Texture.ColB, 'P6Dark');
-
-
-
-
-    end;
-  end;
-  //end ScoreBG Mod
-
-// set player names (for 2 screens and only Singstar skin)
-  if ScreenAct = 1 then begin
-    Text[TextP1].Text       := 'P1';
-    Text[TextP1TwoP].Text   := 'P1'; // added for ps3 skin
-    Text[TextP1ThreeP].Text := 'P1'; // added for ps3 skin
-    Text[TextP2R].Text      := 'P2';
-    Text[TextP2M].Text      := 'P2';
-    Text[TextP3R].Text      := 'P3';
-  end;
-
-  if ScreenAct = 2 then begin
-    case PlayersPlay of
-      4:  begin
-            Text[TextP1TwoP].Text := 'P3';
-            Text[TextP2R].Text := 'P4';
-          end;
-      6:  begin
-            Text[TextP1ThreeP].Text := 'P4';
-            Text[TextP2M].Text := 'P5';
-            Text[TextP3R].Text := 'P6';
-          end;
-    end; // case
-  end; // if
-
-
-  // stereo   <- and where iss P2M? or P3?
-  Static[StaticP1].Texture.X := Static[StaticP1].Texture.X + 10*ScreenX;
-  Static[StaticP1ScoreBG].Texture.X := Static[StaticP1ScoreBG].Texture.X + 10*ScreenX;
-
-  Text[TextP1].X := Text[TextP1].X + 10*ScreenX;
-  Text[TextP1Score].X := Text[TextP1Score].X + 10*ScreenX;
-
-  Static[StaticP2R].Texture.X := Static[StaticP2R].Texture.X + 10*ScreenX;
-  Static[StaticP2RScoreBG].Texture.X := Static[StaticP2RScoreBG].Texture.X + 10*ScreenX;
-
-  Text[TextP2R].X := Text[TextP2R].X + 10*ScreenX;
-  Text[TextP2RScore].X := Text[TextP2RScore].X + 10*ScreenX;
-
-  // .. and scores
-  if PlayersPlay = 1 then begin
-    Tekst := IntToStr(Player[0].ScoreTotalI);
-    while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-    Text[TextP1Score].Text := Tekst;
-  end;
-
-  if PlayersPlay = 2 then begin
-    Tekst := IntToStr(Player[0].ScoreTotalI);
-    while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-    Text[TextP1TwoPScore].Text := Tekst;
-
-    Tekst := IntToStr(Player[1].ScoreTotalI);
-    while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-    Text[TextP2RScore].Text := Tekst;
-  end;
-
-  if PlayersPlay = 3 then begin
-    Tekst := IntToStr(Player[0].ScoreTotalI);
-    while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-    Text[TextP1ThreePScore].Text := Tekst;
-
-    Tekst := IntToStr(Player[1].ScoreTotalI);
-    while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-    Text[TextP2MScore].Text := Tekst;
-
-    Tekst := IntToStr(Player[2].ScoreTotalI);
-    while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-    Text[TextP3RScore].Text := Tekst;
-  end;
-
-  if PlayersPlay = 4 then begin
-    if ScreenAct = 1 then begin
-      Tekst := IntToStr(Player[0].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP1TwoPScore].Text := Tekst;
-
-      Tekst := IntToStr(Player[1].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP2RScore].Text := Tekst;
-    end;
-    if ScreenAct = 2 then begin
-      Tekst := IntToStr(Player[2].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP1TwoPScore].Text := Tekst;
-
-      Tekst := IntToStr(Player[3].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP2RScore].Text := Tekst;
-    end;
-  end;
-
-  if PlayersPlay = 6 then begin
-    if ScreenAct = 1 then begin
-      Tekst := IntToStr(Player[0].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP1ThreePScore].Text := Tekst;
-
-      Tekst := IntToStr(Player[1].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP2MScore].Text := Tekst;
-
-      Tekst := IntToStr(Player[2].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP3RScore].Text := Tekst;
-    end;
-    if ScreenAct = 2 then begin
-      Tekst := IntToStr(Player[3].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP1ThreePScore].Text := Tekst;
-
-      Tekst := IntToStr(Player[4].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP2MScore].Text := Tekst;
-
-      Tekst := IntToStr(Player[5].ScoreTotalI);
-      while Length(Tekst) < 5 do Tekst := '0' + Tekst;
-      Text[TextP3RScore].Text := Tekst;
-    end;
-  end;
-
-end; //ShowScore
-
-  for S := 1 to 1 do
-    Static[S].Texture.X := Static[S].Texture.X + 10*ScreenX;
-
-  for T := 0 to 1 do
-    Text[T].X := Text[T].X + 10*ScreenX;
-
-if DLLMan.Selected.LoadSong then
-begin
-  // update static menu with time ...
-  Min := Round(Czas.Teraz) div 60;
-  Sec := Round(Czas.Teraz) mod 60;
-  Text[TextTimeText].Text := '';
-  if Min < 10 then Text[TextTimeText].Text := '0';
-  Text[TextTimeText].Text := Text[TextTimeText].Text + IntToStr(Min) + ':';
-  if Sec < 10 then Text[TextTimeText].Text := Text[TextTimeText].Text + '0';
-  Text[TextTimeText].Text := Text[TextTimeText].Text + IntToStr(Sec);
-end;
-
-  // draw static menu (BG)
-  DrawBG;
-
-  //Draw Background
-  if (DllMan.Selected.LoadSong) AND (DllMan.Selected.LoadBack) then
-    SingDrawBackground;
-
-  // comment by blindy: wo zum henker wird denn in diesem screen ein video abgespielt?
-  // update and draw movie
-  // <mog> wie wo wadd? also in der selben funktion in der uscreensing kommt des video in der zeile 995, oder was wollteste wissen? :X
-{  if ShowFinish and AktSong.VideoLoaded AND DllMan.Selected.LoadVideo then begin
-    UpdateSmpeg; // this only draws
-  end;}
-
-  // draw static menu (FG)
-  DrawFG;
-
-  if ShowFinish then begin
-    if DllMan.Selected.LoadSong then
-    begin
-      if (not Music.Finished) and ((AktSong.Finish = 0) or (Czas.Teraz*1000 <= AktSong.Finish)) then begin
-        //Pause Mod:
-        if not Paused then
-          Sing(Self);       // analyze song
-      end else begin
-        if not FadeOut then begin
-          Finish;
-          FadeOut := true;
-          FadeTo(@ScreenPartyScore);
-        end;
-      end;
-    end;
-  end;
-
-  // draw custom items
-  SingModiDraw(PlayerInfo);  // always draw
-
-  //GoldenNoteStarsTwinkle Mod
-    GoldenRec.SpawnRec;
-  //GoldenNoteStarsTwinkle Mod
-
-  //Update PlayerInfo
-  for I := 0 to PlayerInfo.NumPlayers-1 do
-  begin
-    if PlayerInfo.Playerinfo[I].Enabled then
-    begin
-      PlayerInfo.Playerinfo[I].Bar :=  Player[I].ScorePercent;
-      PlayerInfo.Playerinfo[I].Score := Player[I].ScoreTotalI;
-    end;
-  end;
-
-  if ((ShowFinish) AND (NOT Paused)) then
-  begin
-    if not DLLMan.PluginDraw(Playerinfo, Czesci[0].Akt) then
-    begin
-      if not FadeOut then begin
-          Finish;
-          FadeOut := true;
-          FadeTo(@ScreenPartyScore);
-      end;
-    end;   
-  end;
-
-  //Change PlayerInfo/Changeables
-  for I := 0 to PlayerInfo.NumPlayers-1 do
-  begin
-    if (Player[I].ScoreTotalI <> PlayerInfo.Playerinfo[I].Score) then
-    begin
-      //Player[I].ScoreTotal   := Player[I].ScoreTotal + (PlayerInfo.Playerinfo[I].Score - Player[I].ScoreTotalI);
-      Player[I].ScoreTotalI := PlayerInfo.Playerinfo[I].Score;
-    end;
-    if (PlayerInfo.Playerinfo[I].Bar <> Player[I].ScorePercent) then
-      Player[I].ScorePercentTarget := PlayerInfo.Playerinfo[I].Bar;
-  end;
-
-  // back stereo
-  Static[StaticP1].Texture.X := Static[StaticP1].Texture.X - 10*ScreenX;
-  Static[StaticP1ScoreBG].Texture.X := Static[StaticP1ScoreBG].Texture.X - 10*ScreenX;
-
-  Text[TextP1].X := Text[TextP1].X - 10*ScreenX;
-  Text[TextP1Score].X := Text[TextP1Score].X - 10*ScreenX;
-
-
-  Static[StaticP2R].Texture.X := Static[StaticP2R].Texture.X - 10*ScreenX;
-  Static[StaticP2RScoreBG].Texture.X := Static[StaticP2RScoreBG].Texture.X - 10*ScreenX;
-
-  Text[TextP2R].X := Text[TextP2R].X - 10*ScreenX;
-  Text[TextP2RScore].X := Text[TextP2RScore].X - 10*ScreenX;
-
-
-  for S := 1 to 1 do
-    Static[S].Texture.X := Static[S].Texture.X - 10*ScreenX;
-
-  for T := 0 to 1 do
-    Text[T].X := Text[T].X - 10*ScreenX;
-
-
+var

+  I: Integer;

+begin

+

+  PlayersPlay := TeamInfo.NumTeams;

+

+  if DLLMan.Selected.LoadSong then //Start with Song

+  begin

+    inherited;

+  end

+  else //Start Without Song

+  begin

+    Music.CaptureStart;

+  end;

+

+//Set Playerinfo

+  PlayerInfo.NumPlayers := PlayersPlay;

+  for I := 0 to PlayerInfo.NumPlayers-1 do

+  begin

+    PlayerInfo.Playerinfo[I].Name    := PChar(Ini.Name[I]);

+    PlayerInfo.Playerinfo[I].Score   := 0;

+    PlayerInfo.Playerinfo[I].Bar     := 50;

+    PlayerInfo.Playerinfo[I].Enabled := True;

+  end;

+

+  for I := PlayerInfo.NumPlayers to high(PlayerInfo.Playerinfo) do

+  begin

+    PlayerInfo.Playerinfo[I].Score:=  0;

+    PlayerInfo.Playerinfo[I].Bar :=  0;

+    PlayerInfo.Playerinfo[I].Enabled := False;

+  end;

+

+  {Case PlayersPlay of

+    1: begin

+      PlayerInfo.Playerinfo[0].PosX := Static[StaticP1ScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[0].PosY := Static[StaticP1ScoreBG].Texture.Y + Static[StaticP1ScoreBG].Texture.H;

+    end;

+    2,4: begin

+      PlayerInfo.Playerinfo[0].PosX := Static[StaticP1TwoPScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[0].PosY := Static[StaticP1TwoPScoreBG].Texture.Y + Static[StaticP1TwoPScoreBG].Texture.H;

+      PlayerInfo.Playerinfo[2].PosX := Static[StaticP1TwoPScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[2].PosY := Static[StaticP1TwoPScoreBG].Texture.Y + Static[StaticP1TwoPScoreBG].Texture.H;

+      PlayerInfo.Playerinfo[1].PosX := Static[StaticP2RScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[1].PosY := Static[StaticP2RScoreBG].Texture.Y + Static[StaticP2RScoreBG].Texture.H;

+      PlayerInfo.Playerinfo[3].PosX := Static[StaticP2RScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[3].PosY := Static[StaticP2RScoreBG].Texture.Y + Static[StaticP2RScoreBG].Texture.H;

+    end;

+    3,6: begin

+      PlayerInfo.Playerinfo[0].PosX := Static[StaticP1ThreePScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[0].PosY := Static[StaticP1ThreePScoreBG].Texture.Y + Static[StaticP1ThreePScoreBG].Texture.H;

+      PlayerInfo.Playerinfo[3].PosX := Static[StaticP1ThreePScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[3].PosY := Static[StaticP1ThreePScoreBG].Texture.Y + Static[StaticP1ThreePScoreBG].Texture.H;

+      PlayerInfo.Playerinfo[1].PosX := Static[StaticP2MScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[1].PosY := Static[StaticP2MScoreBG].Texture.Y + Static[StaticP2MScoreBG].Texture.H;

+      PlayerInfo.Playerinfo[4].PosX := Static[StaticP2MScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[4].PosY := Static[StaticP2MScoreBG].Texture.Y + Static[StaticP2MScoreBG].Texture.H;

+      PlayerInfo.Playerinfo[2].PosX := Static[StaticP3RScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[2].PosY := Static[StaticP3RScoreBG].Texture.Y + Static[StaticP3RScoreBG].Texture.H;

+      PlayerInfo.Playerinfo[5].PosX := Static[StaticP3RScoreBG].Texture.X;

+      PlayerInfo.Playerinfo[5].PosY := Static[StaticP3RScoreBG].Texture.Y + Static[StaticP3RScoreBG].Texture.H;

+    end;

+  end;       }

+

+  // play music (I)

+  //Music.CaptureStart;

+  //Music.MoveTo(AktSong.Start);

+

+  //Init Plugin

+  if not DLLMan.PluginInit(TeamInfo, PlayerInfo, ToSentences(Czesci[0]), LoadTex, Print, LoadSound, PlaySound) then

+  begin

+    //Fehler

+    Log.LogError('Could not Init Plugin');

+    Halt;

+  end;

+

+  // Set Background (Little Workaround, maybe change sometime)

+  if (DLLMan.Selected.LoadBack) AND (DLLMan.Selected.LoadSong) then

+    ScreenSing.Tex_Background := Tex_Background;

+

+  Winner := 0;

+

+  //Set Score Visibility

+  {if PlayersPlay = 1 then begin

+    Text[TextP1Score].Visible := DLLMan.Selected.ShowScore;

+    Static[StaticP1ScoreBG].Visible := DLLMan.Selected.ShowScore;

+  end;

+

+  if (PlayersPlay = 2) OR (PlayersPlay = 4) then begin

+    Text[TextP1TwoPScore].Visible := DLLMan.Selected.ShowScore;

+    Static[StaticP1TwoPScoreBG].Visible := DLLMan.Selected.ShowScore;

+

+    Text[TextP2RScore].Visible := DLLMan.Selected.ShowScore;

+    Static[StaticP2RScoreBG].Visible := DLLMan.Selected.ShowScore;

+  end;

+

+  if (PlayersPlay = 3) OR (PlayersPlay = 6) then begin

+    Text[TextP1ThreePScore].Visible := DLLMan.Selected.ShowScore;

+    Static[StaticP1ThreePScoreBG].Visible := DLLMan.Selected.ShowScore;

+

+    Text[TextP2MScore].Visible := DLLMan.Selected.ShowScore;

+    Static[StaticP2MScoreBG].Visible := DLLMan.Selected.ShowScore;

+

+    Text[TextP3RScore].Visible := DLLMan.Selected.ShowScore;

+    Static[StaticP3RScoreBG].Visible := DLLMan.Selected.ShowScore;

+  end; }

+end;

+

+function TScreenSingModi.Draw: boolean;

+var

+  Min:    integer;

+  Sec:    integer;

+  Tekst:  string;

+  S, I:      integer;

+  T:      integer;

+begin

+//Set Playerinfo

+  PlayerInfo.NumPlayers := PlayersPlay;

+  for I := 0 to PlayerInfo.NumPlayers-1 do

+  begin

+    PlayerInfo.Playerinfo[I].Name := PChar(Player[I].Name);

+    if PlayerInfo.Playerinfo[I].Enabled then

+    begin

+      if (Player[I].ScoreTotalI<=10000) then

+        PlayerInfo.Playerinfo[I].Score:=  Player[I].ScoreTotalI;

+      PlayerInfo.Playerinfo[I].Bar :=  Player[I].ScorePercent;

+    end;

+  end;

+

+//Show Score

+if DLLMan.Selected.ShowScore then

+begin

+  {//ScoreBG Mod

+  // set player colors

+  if PlayersPlay = 4 then begin

+    if ScreenAct = 1 then begin

+      LoadColor(Static[StaticP1TwoP].Texture.ColR, Static[StaticP1TwoP].Texture.ColG,

+      Static[StaticP1TwoP].Texture.ColB, 'P1Dark');

+      LoadColor(Static[StaticP2R].Texture.ColR, Static[StaticP2R].Texture.ColG,

+      Static[StaticP2R].Texture.ColB, 'P2Dark');

+

+

+

+      LoadColor(Static[StaticP1TwoPScoreBG].Texture.ColR, Static[StaticP1TwoPScoreBG].Texture.ColG,

+      Static[StaticP1TwoPScoreBG].Texture.ColB, 'P1Dark');

+      LoadColor(Static[StaticP2RScoreBG].Texture.ColR, Static[StaticP2RScoreBG].Texture.ColG,

+      Static[StaticP2RScoreBG].Texture.ColB, 'P2Dark');

+

+

+

+    end;

+    if ScreenAct = 2 then begin

+      LoadColor(Static[StaticP1TwoP].Texture.ColR, Static[StaticP1TwoP].Texture.ColG,

+        Static[StaticP1TwoP].Texture.ColB, 'P3Dark');

+      LoadColor(Static[StaticP2R].Texture.ColR, Static[StaticP2R].Texture.ColG,

+        Static[StaticP2R].Texture.ColB, 'P4Dark');

+

+

+

+      LoadColor(Static[StaticP1TwoPScoreBG].Texture.ColR, Static[StaticP1TwoPScoreBG].Texture.ColG,

+        Static[StaticP1TwoPScoreBG].Texture.ColB, 'P3Dark');

+      LoadColor(Static[StaticP2RScoreBG].Texture.ColR, Static[StaticP2RScoreBG].Texture.ColG,

+        Static[StaticP2RScoreBG].Texture.ColB, 'P4Dark');

+

+

+

+     end;

+  end;

+

+  if PlayersPlay = 6 then begin

+    if ScreenAct = 1 then begin

+      LoadColor(Static[StaticP1ThreeP].Texture.ColR, Static[StaticP1ThreeP].Texture.ColG,

+        Static[StaticP1ThreeP].Texture.ColB, 'P1Dark');

+      LoadColor(Static[StaticP2M].Texture.ColR, Static[StaticP2M].Texture.ColG,

+        Static[StaticP2R].Texture.ColB, 'P2Dark');

+      LoadColor(Static[StaticP3R].Texture.ColR, Static[StaticP3R].Texture.ColG,

+        Static[StaticP3R].Texture.ColB, 'P3Dark');

+

+

+

+      LoadColor(Static[StaticP1ThreePScoreBG].Texture.ColR, Static[StaticP1ThreePScoreBG].Texture.ColG,

+        Static[StaticP1ThreePScoreBG].Texture.ColB, 'P1Dark');

+      LoadColor(Static[StaticP2MScoreBG].Texture.ColR, Static[StaticP2MScoreBG].Texture.ColG,

+        Static[StaticP2RScoreBG].Texture.ColB, 'P2Dark');

+      LoadColor(Static[StaticP3RScoreBG].Texture.ColR, Static[StaticP3RScoreBG].Texture.ColG,

+        Static[StaticP3RScoreBG].Texture.ColB, 'P3Dark');

+

+

+

+    end;

+    if ScreenAct = 2 then begin

+      LoadColor(Static[StaticP1ThreeP].Texture.ColR, Static[StaticP1ThreeP].Texture.ColG,

+        Static[StaticP1ThreeP].Texture.ColB, 'P4Dark');

+      LoadColor(Static[StaticP2M].Texture.ColR, Static[StaticP2M].Texture.ColG,

+        Static[StaticP2R].Texture.ColB, 'P5Dark');

+      LoadColor(Static[StaticP3R].Texture.ColR, Static[StaticP3R].Texture.ColG,

+        Static[StaticP3R].Texture.ColB, 'P6Dark');

+

+

+

+

+      LoadColor(Static[StaticP1ThreePScoreBG].Texture.ColR, Static[StaticP1ThreePScoreBG].Texture.ColG,

+        Static[StaticP1ThreePScoreBG].Texture.ColB, 'P4Dark');

+      LoadColor(Static[StaticP2MScoreBG].Texture.ColR, Static[StaticP2MScoreBG].Texture.ColG,

+        Static[StaticP2RScoreBG].Texture.ColB, 'P5Dark');

+      LoadColor(Static[StaticP3RScoreBG].Texture.ColR, Static[StaticP3RScoreBG].Texture.ColG,

+        Static[StaticP3RScoreBG].Texture.ColB, 'P6Dark');

+

+

+

+

+    end;

+  end;

+  //end ScoreBG Mod }

+

+// set player names (for 2 screens and only Singstar skin)

+  if ScreenAct = 1 then begin

+    Text[TextP1].Text       := 'P1';

+    Text[TextP1TwoP].Text   := 'P1'; // added for ps3 skin

+    Text[TextP1ThreeP].Text := 'P1'; // added for ps3 skin

+    Text[TextP2R].Text      := 'P2';

+    Text[TextP2M].Text      := 'P2';

+    Text[TextP3R].Text      := 'P3';

+  end;

+

+  if ScreenAct = 2 then begin

+    case PlayersPlay of

+      4:  begin

+            Text[TextP1TwoP].Text := 'P3';

+            Text[TextP2R].Text := 'P4';

+          end;

+      6:  begin

+            Text[TextP1ThreeP].Text := 'P4';

+            Text[TextP2M].Text := 'P5';

+            Text[TextP3R].Text := 'P6';

+          end;

+    end; // case

+  end; // if

+

+

+  // stereo   <- and where iss P2M? or P3?

+  Static[StaticP1].Texture.X := Static[StaticP1].Texture.X + 10*ScreenX;

+  Text[TextP1].X := Text[TextP1].X + 10*ScreenX;

+

+  {Static[StaticP1ScoreBG].Texture.X := Static[StaticP1ScoreBG].Texture.X + 10*ScreenX;

+  Text[TextP1Score].X := Text[TextP1Score].X + 10*ScreenX;}

+

+  Static[StaticP2R].Texture.X := Static[StaticP2R].Texture.X + 10*ScreenX;

+  Text[TextP2R].X := Text[TextP2R].X + 10*ScreenX;

+

+  {Static[StaticP2RScoreBG].Texture.X := Static[StaticP2RScoreBG].Texture.X + 10*ScreenX;

+  Text[TextP2RScore].X := Text[TextP2RScore].X + 10*ScreenX;}

+

+  // .. and scores

+  {if PlayersPlay = 1 then begin

+    Tekst := IntToStr(Player[0].ScoreTotalI);

+    while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+    Text[TextP1Score].Text := Tekst;

+  end;

+

+  if PlayersPlay = 2 then begin

+    Tekst := IntToStr(Player[0].ScoreTotalI);

+    while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+    Text[TextP1TwoPScore].Text := Tekst;

+

+    Tekst := IntToStr(Player[1].ScoreTotalI);

+    while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+    Text[TextP2RScore].Text := Tekst;

+  end;

+

+  if PlayersPlay = 3 then begin

+    Tekst := IntToStr(Player[0].ScoreTotalI);

+    while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+    Text[TextP1ThreePScore].Text := Tekst;

+

+    Tekst := IntToStr(Player[1].ScoreTotalI);

+    while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+    Text[TextP2MScore].Text := Tekst;

+

+    Tekst := IntToStr(Player[2].ScoreTotalI);

+    while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+    Text[TextP3RScore].Text := Tekst;

+  end;

+

+  if PlayersPlay = 4 then begin

+    if ScreenAct = 1 then begin

+      Tekst := IntToStr(Player[0].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP1TwoPScore].Text := Tekst;

+

+      Tekst := IntToStr(Player[1].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP2RScore].Text := Tekst;

+    end;

+    if ScreenAct = 2 then begin

+      Tekst := IntToStr(Player[2].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP1TwoPScore].Text := Tekst;

+

+      Tekst := IntToStr(Player[3].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP2RScore].Text := Tekst;

+    end;

+  end;

+

+  if PlayersPlay = 6 then begin

+    if ScreenAct = 1 then begin

+      Tekst := IntToStr(Player[0].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP1ThreePScore].Text := Tekst;

+

+      Tekst := IntToStr(Player[1].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP2MScore].Text := Tekst;

+

+      Tekst := IntToStr(Player[2].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP3RScore].Text := Tekst;

+    end;

+    if ScreenAct = 2 then begin

+      Tekst := IntToStr(Player[3].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP1ThreePScore].Text := Tekst;

+

+      Tekst := IntToStr(Player[4].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP2MScore].Text := Tekst;

+

+      Tekst := IntToStr(Player[5].ScoreTotalI);

+      while Length(Tekst) < 5 do Tekst := '0' + Tekst;

+      Text[TextP3RScore].Text := Tekst;

+    end;

+  end;   }

+

+end; //ShowScore

+

+  for S := 1 to 1 do

+    Static[S].Texture.X := Static[S].Texture.X + 10*ScreenX;

+

+  for T := 0 to 1 do

+    Text[T].X := Text[T].X + 10*ScreenX;

+

+if DLLMan.Selected.LoadSong then

+begin

+  // update static menu with time ...

+  Min := Round(Czas.Teraz) div 60;

+  Sec := Round(Czas.Teraz) mod 60;

+  Text[TextTimeText].Text := '';

+  if Min < 10 then Text[TextTimeText].Text := '0';

+  Text[TextTimeText].Text := Text[TextTimeText].Text + IntToStr(Min) + ':';

+  if Sec < 10 then Text[TextTimeText].Text := Text[TextTimeText].Text + '0';

+  Text[TextTimeText].Text := Text[TextTimeText].Text + IntToStr(Sec);

+end;

+

+  // draw static menu (BG)

+  DrawBG;

+

+  //Draw Background

+  if (DllMan.Selected.LoadSong) AND (DllMan.Selected.LoadBack) then

+    SingDrawBackground;

+

+  // comment by blindy: wo zum henker wird denn in diesem screen ein video abgespielt?

+  // update and draw movie

+  // <mog> wie wo wadd? also in der selben funktion in der uscreensing kommt des video in der zeile 995, oder was wollteste wissen? :X

+{  if ShowFinish and AktSong.VideoLoaded AND DllMan.Selected.LoadVideo then begin

+    UpdateSmpeg; // this only draws

+  end;}

+

+  // draw static menu (FG)

+  DrawFG;

+

+  if ShowFinish then begin

+    if DllMan.Selected.LoadSong then

+    begin

+      if (not Music.Finished) and ((AktSong.Finish = 0) or (Czas.Teraz*1000 <= AktSong.Finish)) then begin

+        //Pause Mod:

+        if not Paused then

+          Sing(Self);       // analyze song

+      end else begin

+        if not FadeOut then begin

+          Finish;

+          FadeOut := true;

+          FadeTo(@ScreenPartyScore);

+        end;

+      end;

+    end;

+  end;

+

+  // draw custom items

+  SingModiDraw(PlayerInfo);  // always draw

+

+  //GoldenNoteStarsTwinkle Mod

+    GoldenRec.SpawnRec;

+  //GoldenNoteStarsTwinkle Mod

+

+  //Update PlayerInfo

+  for I := 0 to PlayerInfo.NumPlayers-1 do

+  begin

+    if PlayerInfo.Playerinfo[I].Enabled then

+    begin

+      PlayerInfo.Playerinfo[I].Bar :=  Player[I].ScorePercent;

+      PlayerInfo.Playerinfo[I].Score := Player[I].ScoreTotalI;

+    end;

+  end;

+

+  if ((ShowFinish) AND (NOT Paused)) then

+  begin

+    if not DLLMan.PluginDraw(Playerinfo, Czesci[0].Akt) then

+    begin

+      if not FadeOut then begin

+          Finish;

+          FadeOut := true;

+          FadeTo(@ScreenPartyScore);

+      end;

+    end;   

+  end;

+

+  //Change PlayerInfo/Changeables

+  for I := 0 to PlayerInfo.NumPlayers-1 do

+  begin

+    if (Player[I].ScoreTotalI <> PlayerInfo.Playerinfo[I].Score) then

+    begin

+      //Player[I].ScoreTotal   := Player[I].ScoreTotal + (PlayerInfo.Playerinfo[I].Score - Player[I].ScoreTotalI);

+      Player[I].ScoreTotalI := PlayerInfo.Playerinfo[I].Score;

+    end;

+    if (PlayerInfo.Playerinfo[I].Bar <> Player[I].ScorePercent) then

+      Player[I].ScorePercentTarget := PlayerInfo.Playerinfo[I].Bar;

+  end;

+

+  // back stereo

+  Static[StaticP1].Texture.X := Static[StaticP1].Texture.X - 10*ScreenX;

+  Text[TextP1].X := Text[TextP1].X - 10*ScreenX;

+

+  {Static[StaticP1ScoreBG].Texture.X := Static[StaticP1ScoreBG].Texture.X - 10*ScreenX;

+  Text[TextP1Score].X := Text[TextP1Score].X - 10*ScreenX;}

+

+

+  Static[StaticP2R].Texture.X := Static[StaticP2R].Texture.X - 10*ScreenX;

+  Text[TextP2R].X := Text[TextP2R].X - 10*ScreenX;

+

+  {Static[StaticP2RScoreBG].Texture.X := Static[StaticP2RScoreBG].Texture.X - 10*ScreenX;

+  Text[TextP2RScore].X := Text[TextP2RScore].X - 10*ScreenX;}

+

+

+  for S := 1 to 1 do

+    Static[S].Texture.X := Static[S].Texture.X - 10*ScreenX;

+

+  for T := 0 to 1 do

+    Text[T].X := Text[T].X - 10*ScreenX;

+

+

 end;
 
 procedure TScreenSingModi.Finish;
@@ -667,3 +667,4 @@ begin
 end;
 
 end.
+>>>>>>> .r429