diff options
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/Classes/USong_Txt.pas | 438 |
1 files changed, 438 insertions, 0 deletions
diff --git a/Game/Code/Classes/USong_Txt.pas b/Game/Code/Classes/USong_Txt.pas new file mode 100644 index 00000000..23171517 --- /dev/null +++ b/Game/Code/Classes/USong_Txt.pas @@ -0,0 +1,438 @@ +unit USong_Txt; + +interface + +{$IFDEF FPC} + {$MODE Delphi} +{$ENDIF} + +{$I switches.inc} + + +uses + Classes, + SysUtils, + USong_TextFile; + +type + {******************* + Child of the new TSong class. + implements methods to load a song form a txt file (ultrastar file format) + *******************} + TSong_Txt = class(TSong_TextFile) + public + Procedure ReadHeader; override; //Reads Fileheader (Implemented by Child only) + Procedure ReadFile; override; //Reads complete File (Header + Notes) (Implemented by Child only) + Procedure WriteFile; override; //Writes complete File (Header + Notes) (Implemented by Child only) + end; + +implementation + +uses + UMusic, + UMain, + UPlatform, + ULog; + +type + TTags = (ArtistTag, TitleTag, Mp3Tag, BPMTag); + +//-------- +// Reads Fileheader +//-------- +Procedure TSong_Txt.ReadHeader; +var + started: Boolean; + line, key, value: String; + FloatValue: Real; + FoundTags: Set of TTags; + + // splits a headerline in key an value + // returns true on success and false if this is not a valid headerline + Function SplitHeaderLine(const Line: String; var Key, Value: String): Boolean; + var + idx: Integer; + begin + Result := False; + + idx := Pos(':', Line); + if idx > 0 then + begin + Key := Uppercase(Trim(Copy(Line, 2, idx - 2))); //Uppercase is for Case Insensitive Checks + Value := Trim(Copy(Line, idx + 1,Length(Line) - idx)); + + if (Length(Key) > 0) AND (Length(Value) > 0) then + Result := True + end; + end; + + function song_StrToFloat(const aValue : String): Extended; + var + lValue: String; + begin + lValue := aValue; + + if (Pos(',', lValue) <> 0) then + lValue[Pos(',', lValue)] := '.'; + + Result := StrToFloatDef(lValue, 0); + end; + +begin + if not OpenSongFile then + exit; + + started := False; + FoundTags := []; + + while isDataAvailable do + begin + line := GetNextLine(); + + // break if header has finished + if started AND ((Length(line) > 0) AND (not (line[1] = '#'))) then + break; + + // skip invalid lines at beginning + if (not started) AND (line[1] = '#') then + started := True; + + // parse line + if started then + begin + if (Length(line) > 0) AND not SplitHeaderLine(line, key, value) then + begin + Log.LogError('Invalide line in Header of file: ' + FilePath + FileName); + Log.LogError('Line: ' + line); + break; + end; + + {$IFDEF UTF8_FILENAMES} + if ((Key = 'MP3') or (Key = 'BACKGROUND') or (Key = 'COVER') or (Key = 'VIDEO')) then + Value := Utf8Encode(Value); + {$ENDIF} + + //Title + if (Key = 'TITLE') then + begin + Title := Value; + FoundTags := FoundTags + [TitleTag]; + continue; + end; + + //Artist + if (Key = 'ARTIST') then + begin + Artist := Value; + FoundTags := FoundTags + [ArtistTag]; + continue; + end; + + //MP3 File //Test if Exists + if (Key = 'MP3') then + begin + if FileExists(FilePath + Value) then + begin + Mp3 := FilePath + Value; + FoundTags := FoundTags + [Mp3Tag]; + end + else + Log.LogError('Can''t find MP3 File: ' + FilePath + Value + ' in Song: ' + FilePath + FileName); + continue; + end; + + //Beats per Minute + if (Key = 'BPM') then + begin + FloatValue := song_StrtoFloat( Value ) * Mult * MultBPM; + + if FloatValue <> 0 then + begin + SetLength(BPM, 1); + BPM[0].StartBeat := 0; + BPM[0].BPM := floatValue; + FoundTags := FoundTags + [BPMTag]; + end; + + continue; + end; + + //--------- + //Additional Header Information + //--------- + + // Gap + if (Key = 'GAP') then + begin + GAP := song_StrtoFloat( Value ); + + continue; + end; + + //Cover Picture + if (Key = 'COVER') then + begin + if FileExists(FilePath + Value) then + Cover := FilePath + Value + else + Log.LogError('Can''t find Cover File: ' + FilePath + Value + ' in Song: ' + FilePath + FileName); + + continue; + end; + + //Background Picture + if (Key = 'BACKGROUND') then + begin + if FileExists(FilePath + Value) then + Background := FilePath + Value + else + Log.LogError('Can''t find Background File: ' + FilePath + Value + ' in Song: ' + FilePath + FileName); + + continue; + end; + + // Video File + if (Key = 'VIDEO') then + begin + if FileExists(FilePath + Value) then + Video := FilePath + Value + else + Log.LogError('Can''t find Video File: ' + FilePath + Value + ' in Song: ' + FilePath + FileName); + + continue; + end; + + // Video Gap + if (Key = 'VIDEOGAP') then + begin + VideoGAP := song_StrtoFloat(Value); + continue; + end; + + //Genre Sorting + if (Key = 'GENRE') then + begin + Genre := Value; + continue; + end; + + //Edition Sorting + if (Key = 'EDITION') then + begin + Edition := Value; + continue; + end; + + //Creator Tag + if (Key = 'CREATOR') then + begin + Creator := Value; + continue; + end; + + //Language Sorting + if (Key = 'LANGUAGE') then + begin + Language := Value; + continue; + end; + + // Song Start + if (Key = 'START') then + begin + Start := song_StrtoFloat( Value ); + continue; + end; + + // Song Ending + if (Key = 'END') then + begin + TryStrtoInt(Value, Finish); + continue; + end; + + // Resolution + if (Key = 'RESOLUTION') then + begin + TryStrtoInt(Value, Resolution); + continue; + end; + + // Notes Gap + if (Key = 'NOTESGAP') then + begin + TryStrtoInt(Value, NotesGAP); + continue; + end; + + // Relative Notes + if (Key = 'RELATIVE') AND (uppercase(Value) = 'YES') then + begin + Relative := True; + continue; + end; + + end; // if started + end; // while + + if Cover = '' then + begin + Cover := platform.FindSongFile(FilePath, '*[CO].jpg'); + end; + + // check if all required infos are given + if not (BPMTag in FoundTags) then + Log.LogError('BPM Tag missing: ' + FilePath + FileName); + + if not (MP3Tag in FoundTags) then + Log.LogError('MP3 Tag missing or invalid file: ' + FilePath + FileName); + + if not (ArtistTag in FoundTags) then + Log.LogError('Artist Tag missing: ' + FilePath + FileName); + + if not (TitleTag in FoundTags) then + Log.LogError('Title Tag missing: ' + FilePath + FileName); + + CloseSongFile(); +end; + +//-------- +// Reads complete File (Header + Notes) +//-------- +Procedure TSong_Txt.ReadFile; +var + Line: String; + NotesRead: Boolean; + Values: TStringList; + + Procedure ParseDelimited(const StringList: TStringList; const Value: String; const Delimiter: String; const MaxParts: Integer); + var + idx: Integer; + Source: String; + Delta: Integer; + begin + Delta := Length(Delimiter); + Source := Value; + StringList.BeginUpdate; + StringList.Clear; + try + while ((Pos(Delimiter, Source) > 0) OR ((MaxParts > 0) AND (StringList.count+1 >= MaxParts))) do + begin + idx := Pos(Delimiter, Source); + StringList.Add(Copy(Source,0,idx-1)); + Source := Copy(Source,idx+Delta, MaxInt); + end; + + if (Length(Source) > 0) then + StringList.Add(Source); + finally + StringList.EndUpdate; + end; + end; + +begin + // read Header + Self.ReadHeader; + + OpenSongFile(); + + ResetLyrics; + NotesRead := False; + + while isDataAvailable do + begin + line := GetNextLine(); + + // end of song + if (line[1] = 'E') then + break; + + // skip invalid lines + if (line[1] <> ':') OR (line[1] <> 'F') OR (line[1] <> '*') OR (line[1] <> '-') OR (line[1] <> 'B') then + continue; + + // aktuelle Zeile in einzelne Werte aufteilen + Values := TStringList.Create; + ParseDelimited(Values, line, ' ', 5); + + try + if (line[1] = '-') then + if (not NotesRead) then + // skip newline if no notes before + continue + else + begin + // new lyric line + // param count: 1 (relative: 2) + + if (Values.Count > 2) then + // relativ offset + begin + // P1 + AddLyricLine(0, StrToInt(Values[1]), StrToInt(Values[2])); + + // P2 + if Length(Player) = 2 Then + AddLyricLine(1, StrToInt(Values[1]), StrToInt(Values[2])) + end + else + begin + AddLyricLine(0, StrToInt(Values[1])); + + // P2 + if Length(Player) = 2 then + AddLyricLine(1, StrToInt(Values[1])) + end; + end; + + // new BPM set + if (line[1] = 'B') then + begin + // param count: 2 + {SetLength(BPM, Length(BPM) + 1); + Read(SongFile, BPM[High(BPM)].StartBeat); + BPM[High(BPM)].StartBeat := BPM[High(BPM)].StartBeat + Rel[0]; + + ReadLn(SongFile, Text); + BPM[High(BPM)].BPM := StrToFloat(Text); + BPM[High(BPM)].BPM := BPM[High(BPM)].BPM * Mult * MultBPM;} + end; + + if (line[1] = ':') OR (line[1] = '*') OR (line[1] = 'F') then + begin + // param count: 4 + if (Values.Count < 5) then + Log.LogError('Error parsing line: ' + line, 'Not enough arguments.') + else + begin + // Check for ZeroNote + if StrToInt(Values[2]) = 0 then + Log.LogError('Found ZeroNote: "' + line + '" -> Note ignored!') + else + begin + // P1 + AddNote(0, line[1], StrToInt(Values[1]), StrToInt(Values[2]), StrToInt(Values[3]), Values[4]); + + // P2 + if Length(Player) = 2 then + AddNote(1, line[1], StrToInt(Values[1]), StrToInt(Values[2]), StrToInt(Values[3]), Values[4]); + end; + end; + end; + except + on E : Exception do + Log.LogError('Error parsing line: ' + line, E.ClassName + ': ' + E.Message); + end; + end; + + CloseSongFile(); +end; + +//-------- +// Writes complete File (Header + Notes) +//-------- +Procedure TSong_Txt.WriteFile; +begin +end; + +end.
\ No newline at end of file |