Some Changes on Database System and Header Reader

Fixed Bug: Scores with 0 are added to DB
Made a Class instead of many Functions
Fixed a Bug in UFiles, not reading Gap from Header correctly

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

1 files changed, 4 insertions, 4 deletions

diff --git a/Game/Code/Screens/UScreenTop5.pas b/Game/Code/Screens/UScreenTop5.pas
index 41f96281..94f3de1e 100644
--- a/Game/Code/Screens/UScreenTop5.pas
+++ b/Game/Code/Screens/UScreenTop5.pas
@@ -25,7 +25,7 @@ type
 

 implementation

 

-uses UGraphic, UScores, UMain, UIni;

+uses UGraphic, UDataBase, UMain, UIni;

 

 function TScreenTop5.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;

 begin

@@ -94,10 +94,10 @@ begin
   PMax := Ini.Players;

   if Ini.Players = 4 then Ini.Players := 5;

   for I := 0 to PMax do

-    AddScore(AktSong, Ini.Difficulty, Ini.Name[I], Round(Player[I].ScoreTotalI));

+    DataBase.AddScore(AktSong, Ini.Difficulty, Ini.Name[I], Round(Player[I].ScoreTotalI));

 

-  //WriteScore(AktSong);

-  ReadScore(AktSong);

+  DataBase.WriteScore(AktSong);

+  DataBase.ReadScore(AktSong);

 

   Text[TextArtistTitle].Text := AktSong.Artist + ' - ' + AktSong.Title;