diff options
| author | mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-04-17 21:19:31 +0000 |
|---|---|---|
| committer | mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2007-04-17 21:19:31 +0000 |
| commit | 1c5357580b64fb3573728803e11b769cecb5f45a (patch) | |
| tree | 87c03a241741744a3d183a8abfb8f5c535625e83 /Game/Code/Screens/UScreenScore.pas | |
| parent | 7cbb58f6fe6cd8d81e21d6e0b1ebdc2fd872b773 (diff) | |
| download | usdx-1c5357580b64fb3573728803e11b769cecb5f45a.tar.gz usdx-1c5357580b64fb3573728803e11b769cecb5f45a.tar.xz usdx-1c5357580b64fb3573728803e11b769cecb5f45a.zip | |
Bugfix: Scores where not shown correctly when in 4 or 6 player mode (UScreenScore.pas), some more effort should be needed to draw the score bars in this mode correctly (but not now)
Theme/Skin: Playerboxes in score screen are now draw in player color (just affected the 4 and 6 player mode)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@110 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Screens/UScreenScore.pas')
| -rw-r--r-- | Game/Code/Screens/UScreenScore.pas | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/Game/Code/Screens/UScreenScore.pas b/Game/Code/Screens/UScreenScore.pas index 2c018b96..72c42cb8 100644 --- a/Game/Code/Screens/UScreenScore.pas +++ b/Game/Code/Screens/UScreenScore.pas @@ -574,8 +574,23 @@ begin while (Length(S)<4) do S := '0' + S;
Text[TextNotesScore[Item]].Text := S;
- while (Length(S)<5) do S := '0' + S;
- Text[TextTotalScore[Item]].Text := S;
+// while (Length(S)<5) do S := '0' + S;
+// Text[TextTotalScore[Item]].Text := S;
+
+//fixed: line bonus and golden notes don't show up,
+// another bug: total score was shown without added golden-, linebonus
+ S := IntToStr(Player[P].ScoreTotalI);
+ while (Length(S)<5) do S := '0' + S;
+ Text[TextTotalScore[Item]].Text := S;
+
+ S := IntToStr(Player[P].ScoreLineI);
+ while (Length(S)<4) do S := '0' + S;
+ Text[TextLineBonusScore[Item]].Text := S;
+
+ S := IntToStr(Player[P].ScoreGoldenI);
+ while (Length(S)<4) do S := '0' + S;
+ Text[TextGoldenNotesScore[Item]].Text := S;
+//end of fix
LoadColor(
Text[TextName[Item]].ColR,
|