aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenScore.pas26
1 files changed, 16 insertions, 10 deletions
diff --git a/Game/Code/Screens/UScreenScore.pas b/Game/Code/Screens/UScreenScore.pas
index ff0c87e0..1473f897 100644
--- a/Game/Code/Screens/UScreenScore.pas
+++ b/Game/Code/Screens/UScreenScore.pas
@@ -28,6 +28,8 @@ const
EaseOut_MaxSteps : real = 40; // that's the speed of the bars (10 is fast | 100 is slower)
+ BarRaiseSpeed : integer = 100; // This is given in MilliSeconds; -> one frame every 100 milliseconds, IE 10 frames per second
+
type
TPlayerScoreScreenTexture = record // holds all colorized textures for up to 6 players
//Bar textures
@@ -53,7 +55,7 @@ type
BarGolden_ActualHeight : Real;
end;
- TPlayerScoreRatingPics = record // a fine array of the rating pictures
+ TPlayerScoreRatingPics = record // a fine array of the rating pictures
RatePic_X :Real;
RatePic_Y :Real;
RatePic_Height :Real;
@@ -253,13 +255,13 @@ end;
procedure TScreenScore.onShow;
var
P: integer; // player
- PP: integer; // another player variable
+ PP: integer; // players_play
S: string;
I: integer;
Lev: real;
Skip: integer;
V: array[1..6] of boolean; // visibility array
- MaxH: real; // maximum height of score bar
+ MaxH: real; // maximum height of score bar
Wsp: real;
ArrayStartModifier :integer;
begin
@@ -451,7 +453,7 @@ begin
end;
}
inherited Draw;
- {*
+
player[0].ScoreI := 7000;
player[0].ScoreLineI := 2000;
player[0].ScoreGoldenI := 1000;
@@ -461,14 +463,18 @@ inherited Draw;
player[1].ScoreLineI := 1100;
player[1].ScoreGoldenI := 900;
player[1].ScoreTotalI := 4500;
- *}
// Let's arise the bars
- CurrentTime := GetTickCount div 33; // TODO: use cross-plattform SDL_GetTicks() instead
- if ((CurrentTime <> OldTime) and ShowFinish ) then
- begin
- OldTime := CurrentTime;
+
+
+// Ask SDL for the time in milliseconds
+CurrentTime := SDL_GetTicks();
+
+if (((CurrentTime - OldTime) > BarRaiseSpeed) and ShowFinish ) then
+begin
+// set next frame as current frame
+OldTime := CurrentTime;
for PlayerCounter := 1 to PlayersPlay do
begin
@@ -654,7 +660,7 @@ begin
end;
end;
{{$ELSE}{
- case (Player[P].ScoreTotalI-1) of
+ case (Player[Playernumber-1].ScoreTotalI-1) of
0..2000: Text[TextScore[fu]].Text := 'Tone Deaf';
2010..4000: Text[TextScore[fu]].Text := 'Amateur';
4010..6000: Text[TextScore[fu]].Text := 'Rising Star';