From a7d0970a2e7dec907fccbc2d63ffb5cb799a7505 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Sat, 30 Oct 2010 11:22:25 +0000 Subject: - correct drawing of short notes in 4/6-player mode on one screen - rimshot022b.mp3 + 15db - changed fonts: higher resolution esp. for medley countdown - some other bugfixes and corrections - update of installer files git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2699 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UFiles.pas | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Game/Code/Classes/UFiles.pas') diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas index ebeb1314..93e745e5 100644 --- a/Game/Code/Classes/UFiles.pas +++ b/Game/Code/Classes/UFiles.pas @@ -55,6 +55,7 @@ var PlayListPath: string; RecordingsPath: string; SessionLogPath: string; + FontPath: string; SongFile: TextFile; // all procedures in this unit operates on this file FileLineNo: integer; //Line which is readed at Last, for error reporting @@ -91,6 +92,7 @@ begin PlaylistPath := GamePath + 'Playlists\'; RecordingsPath := GamePath + 'Recordings\'; SessionLogPath := GamePath + 'SessionLog\'; + FontPath := GamePath + 'Fonts\'; Writeable := true; @@ -125,6 +127,9 @@ begin If Writeable And (not DirectoryExists(SessionLogPath)) then Writeable := ForceDirectories(SessionLogPath); + If Writeable And (not DirectoryExists(FontPath)) then + Writeable := ForceDirectories(FontPath); + if not Writeable then Log.LogError('Error: Dir is Readonly'); @@ -1334,7 +1339,7 @@ begin begin for J := I+1 to num_lines - 1 do begin - if sentences[I]=sentences[J] then + if (sentences[I]<>'') and (sentences[I]=sentences[J]) then begin temp_series.start := I; temp_series.end_ := I; @@ -1346,7 +1351,7 @@ begin for K := 1 to max do begin - if sentences[I+K]=sentences[J+K] then + if (sentences[I+K]<>'') and (sentences[I+K]=sentences[J+K]) then temp_series.end_ := I+K else break; -- cgit v1.2.3