aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens/UScreenTop5.pas
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-03-23 17:40:06 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-03-23 17:40:06 +0000
commit95dc3d90b3eb11080fdcd5edae37cbd35c4ffb57 (patch)
tree87a06b3b4a909bf09bd0a105e742cae82cf4502d /Game/Code/Screens/UScreenTop5.pas
parent47c091672034720666ca036e181dcff494ba04ee (diff)
downloadusdx-95dc3d90b3eb11080fdcd5edae37cbd35c4ffb57.tar.gz
usdx-95dc3d90b3eb11080fdcd5edae37cbd35c4ffb57.tar.xz
usdx-95dc3d90b3eb11080fdcd5edae37cbd35c4ffb57.zip
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
Diffstat (limited to 'Game/Code/Screens/UScreenTop5.pas')
-rw-r--r--Game/Code/Screens/UScreenTop5.pas8
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;