diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-06-07 18:43:58 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-06-07 18:43:58 +0000 |
commit | 278ff525686374c51d542e608ee612da8cdaec6d (patch) | |
tree | 48da11dffc37e5212c32b057c5e75f0577574f0e /Game/Code/Classes/USingScores.pas | |
parent | 886f2893fba13ad058ee18f15a306e49456bd8c5 (diff) | |
download | usdx-278ff525686374c51d542e608ee612da8cdaec6d.tar.gz usdx-278ff525686374c51d542e608ee612da8cdaec6d.tar.xz usdx-278ff525686374c51d542e608ee612da8cdaec6d.zip |
just some cleanup
- replaced many German and Polish comments
- replaced many cryptic var-names
- IlNut replaced with LengthNote
- renamed the global var "Filename" to "ConversionFilename" to prevent unintended use of it
- more readable code (hopefully), especially NewNote and OnSentenceEnd
- added some comments on elementary classes/records and their fields
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1137 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/USingScores.pas')
-rw-r--r-- | Game/Code/Classes/USingScores.pas | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/Game/Code/Classes/USingScores.pas b/Game/Code/Classes/USingScores.pas index dd326356..645f0f6e 100644 --- a/Game/Code/Classes/USingScores.pas +++ b/Game/Code/Classes/USingScores.pas @@ -22,7 +22,7 @@ uses UThemes, // but not testet yet // ////////////////////////////////////////////////////////////// -//Some Constances containing Options that could change by time +//Some constants containing options that could change by time const MaxPlayers = 6; //Maximum of Players that could be added MaxPositions = 6; //Maximum of Score Positions that could be added @@ -853,14 +853,16 @@ var Diff: Real; begin //Only Draw if Player has a Position - If Players[Index].Position <> high(byte) then + if Players[Index].Position <> high(byte) then begin //Only Draw if Player is on Cur Screen - If ((Players[Index].Position AND 128) = 0) = (ScreenAct = 1) AND (Players[index].RBVisible AND Players[index].Visible) then + if (((Players[Index].Position and 128) = 0) = (ScreenAct = 1) and + Players[index].RBVisible and + Players[index].Visible) then begin Position := @Positions[Players[Index].Position and 127]; - If (Enabled AND Players[Index].Enabled) then + if (Enabled AND Players[Index].Enabled) then begin //Move Position if Enabled Diff := Players[Index].RBTarget - Players[Index].RBPos; @@ -871,25 +873,25 @@ begin end; //Get Colors for RatingBar - If Players[index].RBPos <=0.22 then + if (Players[index].RBPos <= 0.22) then begin R := 1; G := 0; B := 0; end - Else If Players[index].RBPos <=0.42 then + else if (Players[index].RBPos <= 0.42) then begin R := 1; G := Players[index].RBPos*5; B := 0; end - Else If Players[index].RBPos <=0.57 then + else if (Players[index].RBPos <= 0.57) then begin R := 1; G := 1; B := 0; end - Else If Players[index].RBPos <=0.77 then + else if (Players[index].RBPos <= 0.77) then begin R := 1-(Players[index].RBPos-0.57)*5; G := 1; |