From ac12e8ff541b2d30f0b5dd070f83fc43d9b2116d Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Sun, 4 Jul 2010 17:06:14 +0000 Subject: - possible/remainings score bar in singscreen: red at start, decreasing with lost score, filling green from left with score - added session log. log all played songs with player names and score - fixed calculation of possible scores - change tabs on/off: now with CTRL+T (songscreen) git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2573 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UFiles.pas | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'Game/Code/Classes/UFiles.pas') diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas index 242fe092..a8fa8076 100644 --- a/Game/Code/Classes/UFiles.pas +++ b/Game/Code/Classes/UFiles.pas @@ -41,6 +41,7 @@ var PluginPath: string; PlayListPath: string; RecordingsPath: string; + SessionLogPath: string; SongFile: TextFile; // all procedures in this unit operates on this file FileLineNo: integer; //Line which is readed at Last, for error reporting @@ -74,6 +75,7 @@ begin PluginPath := GamePath + 'Plugins\'; PlaylistPath := GamePath + 'Playlists\'; RecordingsPath := GamePath + 'Recordings\'; + SessionLogPath := GamePath + 'SessionLog\'; Writeable := true; @@ -105,6 +107,9 @@ begin If Writeable And (not DirectoryExists(RecordingsPath)) then Writeable := ForceDirectories(RecordingsPath); + If Writeable And (not DirectoryExists(SessionLogPath)) then + Writeable := ForceDirectories(SessionLogPath); + if not Writeable then Log.LogError('Error: Dir is Readonly'); -- cgit v1.2.3