From 05c25746d8bc1f313c2b6f07b8d34e8a8a71df9b Mon Sep 17 00:00:00 2001 From: jaybinks Date: Fri, 7 Mar 2008 01:28:59 +0000 Subject: File removed as per cru#CR-1 git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@926 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UPliki.pas | 836 ------------------------------------------- 1 file changed, 836 deletions(-) delete mode 100644 Game/Code/Classes/UPliki.pas (limited to 'Game/Code/Classes/UPliki.pas') diff --git a/Game/Code/Classes/UPliki.pas b/Game/Code/Classes/UPliki.pas deleted file mode 100644 index 6806e89f..00000000 --- a/Game/Code/Classes/UPliki.pas +++ /dev/null @@ -1,836 +0,0 @@ -//DO WE NEED THIS FILE??? - -unit UPliki; - -interface - -{$I switches.inc} - -uses USongs, SysUtils, ULog, UMusic; - -procedure InitializePaths; -function ReadHeader(var Song: TSong): boolean; -function SkanujPlik(var Song: TSong): boolean; -procedure CzyscNuty; -function WczytajCzesci(Name: string): boolean; -function SaveSong(Song: TSong; Czesc: TCzesci; Name: string; Relative: boolean): boolean; -function SaveSongDebug(Song: TSong; Czesc: TCzesci; Name: string; Relative: boolean): boolean; - -var - GamePath: string; - SoundPath: string; - SongPath: string; - LogPath: string; - ThemePath: string; - ScreenshotsPath: string; - CoversPath: string; - LanguagesPath: string; - PluginPath: string; - PlayListPath: string; - - Plik: TextFile; // all procedures in this unit operates on this file - PlikC: char; - Lineno: integer; - - // variables available for all procedures - Base: array[0..1] of integer; - Rel: array[0..1] of integer; - Mult: integer; - MultBPM: integer; - -implementation - -uses TextGL, UIni, UMain, math; - -procedure InitializePaths; -begin - GamePath := ExtractFilePath(ParamStr(0)); - SoundPath := GamePath + 'Sounds\'; - SongPath := GamePath + 'Songs\'; - LogPath := GamePath; - ThemePath := GamePath + 'Themes\'; - ScreenshotsPath := GamePath + 'Screenshots\'; - CoversPath := GamePath + 'Covers\'; - LanguagesPath := GamePath + 'Languages\'; - - //Modi Loader - PluginPath := GamePath + 'Plugins\'; - PlaylistPath := GamePath + 'Playlists\'; -end; - -function ReadHeader(var Song: TSong): boolean; -var - TempC: char; - Tekst: string; - Done: integer; -begin - // clear - Song.Title := ''; - Song.Artist := ''; - Song.Genre := 'Unknown'; - Song.Edition := 'Unknown'; - Song.Language := 'Unknown'; //Language Patch - Song.Mp3 := ''; - Song.BPM := 0; - Song.GAP := 0; - Song.Start := 0; - Song.Finish := 0; - Song.Background := ''; - Song.Video := ''; - Song.VideoGAP := 0; - Song.NotesGAP := 0; - Song.Resolution := 4; - - //Creator Patch - Song.Creator := ''; - - Done := 0; - - //Editor Error Reporting Hack - LineNo := 0; - try - - // read - Read(Plik, PlikC); - while (PlikC = '#') do begin - ReadLn(Plik, Tekst); - - //Editor Error Reporting Hack - Inc (LineNo); - - //Header Improvements Patch - - if UpperCase(Copy(Tekst, 1, 6)) = 'TITLE:' then begin - Delete(Tekst, 1, 6); - Song.Title := Trim(Tekst); - Tekst := ''; - Done := Done or 1; - end - - else if UpperCase(Copy(Tekst, 1, 7)) = 'ARTIST:' then begin - Delete(Tekst, 1, 7); - Song.Artist := Trim(Tekst); - Tekst := ''; - Done := Done or 2; - end - - else if UpperCase(Copy(Tekst, 1, 4)) = 'MP3:' then begin - Delete(Tekst, 1, 4); - Song.Mp3 := Trim(Tekst); - Tekst := ''; - Done := Done or 4; - end - - else if UpperCase(Copy(Tekst, 1, 8)) = 'CREATOR:' then begin // this goes for edit - Delete(Tekst, 1, 8); - Song.Creator := Trim(Tekst); - Tekst := ''; - end - - else if UpperCase(Copy(Tekst, 1, 6)) = 'GENRE:' then begin // this goes for edit - Delete(Tekst, 1, 6); - Song.Genre := Trim(Tekst); - Tekst := ''; - end - - else if UpperCase(Copy(Tekst, 1, 8)) = 'EDITION:' then begin // this goes for edit - Delete(Tekst, 1, 8); - Song.Edition := Trim(Tekst); - Tekst := ''; - end - - else if UpperCase(Copy(Tekst, 1, 9)) = 'LANGUAGE:' then begin // this goes for edit - Delete(Tekst, 1, 9); - Song.Language := Trim(Tekst); - Tekst := ''; - end - - else if UpperCase(Copy(Tekst, 1, 6)) = 'COVER:' then begin - Delete(Tekst, 1, 6); - Song.Cover := Trim(Tekst); - Tekst := ''; - end - - else if UpperCase(Copy(Tekst, 1, 11)) = 'BACKGROUND:' then begin - Delete(Tekst, 1, 11); - Song.Background := Trim(Tekst); - Tekst := ''; - end - - else if UpperCase(Copy(Tekst, 1, 6)) = 'VIDEO:' then begin - Delete(Tekst, 1, 6); - Song.Video := Trim(Tekst); - Tekst := ''; - end - - else if UpperCase(Copy(Tekst, 1, 9)) = 'VIDEOGAP:' then begin - Delete(Tekst, 1, 9); - - //Change . to , Mod by Whiteshark :P - if (Pos('.',Tekst) <> 0) then - begin - Tekst[Pos('.',Tekst)] := ','; - //Little Annonce for the User - Log.LogError('VideoGap Seperator wrong in SongHeader: ' + Song.FileName + ' [Corrected for this Session]'); - end; - - Song.VideoGAP := StrToFloat(Tekst); - Tekst := '' - end - - else if UpperCase(Copy(Tekst, 1, 9)) = 'NOTESGAP:' then begin - Delete(Tekst, 1, 9); - Song.NotesGAP := StrToInt(Tekst); - Tekst := '' - end - - else if UpperCase(Copy(Tekst, 1, 9)) = 'RELATIVE:' then begin - Delete(Tekst, 1, 9); - if LowerCase(Tekst) = 'yes' then Song.Relative := true; - end - - else if UpperCase(Copy(Tekst, 1, 6)) = 'START:' then begin - Delete(Tekst, 1, 6); - Song.Start := StrToFloat(Tekst); -// Muzyka.Start := StrToInt(Tekst); - end - - else if UpperCase(Copy(Tekst, 1, 4)) = 'END:' then begin - Delete(Tekst, 1, 4); - Song.Finish := StrToInt(Tekst); - end - - else if UpperCase(Copy(Tekst, 1, 11)) = 'RESOLUTION:' then begin - Delete(Tekst, 1, 11); - Song.Resolution := StrToInt(Tekst); - end - - else if UpperCase(Copy(Tekst, 1, 4)) = 'BPM:' then begin - Delete(Tekst, 1, 4); - -// Muzyka.BPMOld := StrToFloat(Tekst) * Mult * MultBPM; // old system - - (* new system with variable BPM *) -// Muzyka.BPMOld := 50; - - //Change . to , Mod by Whiteshark :P - if (Pos('.',Tekst) <> 0) then - begin - Tekst[Pos('.',Tekst)] := ','; - //Little Annonce for the User - Log.LogError('BPM Seperator wrong in SongHeader: ' + Song.FileName + ' [Corrected for this Session]'); - end; - - SetLength(Song.BPM, 1); - Song.BPM[0].StartBeat := 0; - Song.BPM[0].BPM := StrToFloat(Tekst) * Mult * MultBPM; - Tekst := ''; - Done := Done or 8; - end - - else if UpperCase(Copy(Tekst, 1, 4)) = 'GAP:' then begin - Delete(Tekst, 1, 4); - Song.GAP := StrToFloat(Tekst); - Tekst := ''; -// Muzyka.GAP := StrToFloat(Tekst); -// Done := Done or 16; - end; - - //Header Improvements Patch Ende - - Read(Plik, PlikC); - end; - - //Editor Error Reporting Hack - except //An Error happened<- bad english :P - Log.LogError('An Error occured reading Line ' + inttostr(LineNo) + ' from SongHeader: ' + Song.FileName); - Halt; - end; - //Editor Error Reporting Hack End - - if Song.Background = '' then begin - Song.Background := Songs.FindSongFile(Song.Path, '*[BG].jpg'); - end; - - if (Done and 15) = 15 then Result := true - else Result := false; -end; - -function SkanujPlik(var Song: TSong): boolean; -var - Done: integer; - Tekst: string; - C: integer; // category - P: integer; // position -begin -// try - AssignFile(Plik, Song.Path + Song.FileName); - Reset(Plik); - - Result := ReadHeader(Song); - -{ ReadLn(Plik, Tekst); - while (Copy(Tekst, 1, 1) = '#') do begin - if Copy(Tekst, 1, 10) = '#CATEGORY:' then begin - Delete(Tekst, 1, 10); - - Trim(Tekst); - while (Length(Tekst) > 0) do begin - C := Length(Song.Category); - SetLength(Song.Category, C+1); - - P := Pos(',', Tekst); - if P = 0 then P := Length(Tekst); - Song.Category[C] := Copy(Tekst, 1, P); - - Delete(Tekst, 1, P); - Trim(Tekst); - end; - - end;} - - -end; - -procedure CzyscNuty; -var - Pet: integer; -begin - SetLength(Czesci, Length(Player)); - SetLength(AktSong.BPM, 0); - for Pet := 0 to High(Player) do begin - SetLength(Czesci[Pet].Czesc, 1); - SetLength(Czesci[Pet].Czesc[0].Nuta, 0); - Czesci[Pet].Czesc[0].Lyric := ''; - Czesci[Pet].Czesc[0].LyricWidth := 0; - Player[pet].Score := 0; - Player[pet].IlNut := 0; - Player[pet].HighNut := -1; - end; -end; - -procedure DodajNute(NrCzesci: integer; TypeP: char; StartP, DurationP, NoteP: integer; LyricS: string); -var - Space: boolean; -begin - case Ini.Solmization of - 1: // european - begin - case (NoteP mod 12) of - 0..1: LyricS := ' do '; - 2..3: LyricS := ' re '; - 4: LyricS := ' mi '; - 5..6: LyricS := ' fa '; - 7..8: LyricS := ' sol '; - 9..10: LyricS := ' la '; - 11: LyricS := ' si '; - end; - end; - 2: // japanese - begin - case (NoteP mod 12) of - 0..1: LyricS := ' do '; - 2..3: LyricS := ' re '; - 4: LyricS := ' mi '; - 5..6: LyricS := ' fa '; - 7..8: LyricS := ' so '; - 9..10: LyricS := ' la '; - 11: LyricS := ' shi '; - end; - end; - 3: // american - begin - case (NoteP mod 12) of - 0..1: LyricS := ' do '; - 2..3: LyricS := ' re '; - 4: LyricS := ' mi '; - 5..6: LyricS := ' fa '; - 7..8: LyricS := ' sol '; - 9..10: LyricS := ' la '; - 11: LyricS := ' ti '; - end; - end; - end; // case - -// Log.LogStatus('Czesc: ' + IntToStr(Czesci[NrCzesci].High), 'DodajNute'); -// Log.LogStatus('Dodano: [' + IntToStr(NrCzesci) + '] ' + IntToStr(StartP) + ' ' -// + IntToStr(DurationP) + ' '+ IntToStr(NoteP) + ' ' + LyricS, 'DodajNute'); - -{ Delete(LyricS, 1, 1); - Space := false; - if Copy(LyricS, Length(LyricS), 1) = ' ' then begin - Space := true; - Delete(LyricS, Length(LyricS), 1); - end; - if LyricS = 'a' then LyricS := chr($B1); - if LyricS = 'i' then LyricS := chr($B2); - if LyricS = 'u' then LyricS := chr($B3); - if LyricS = 'e' then LyricS := chr($B4); - if LyricS = 'o' then LyricS := chr($B5); - - if LyricS = 'ka' then LyricS := chr($B6); - if LyricS = 'ki' then LyricS := chr($B7); - if LyricS = 'ku' then LyricS := chr($B8); - if LyricS = 'ke' then LyricS := chr($B9); - if LyricS = 'ko' then LyricS := chr($BA); - - if LyricS = 'ga' then LyricS := chr($B6) + chr($DE); - if LyricS = 'gi' then LyricS := chr($B7) + chr($DE); - if LyricS = 'gu' then LyricS := chr($B8) + chr($DE); - if LyricS = 'ge' then LyricS := chr($B9) + chr($DE); - if LyricS = 'go' then LyricS := chr($BA) + chr($DE); - - if LyricS = 'sa' then LyricS := chr($BB); - if LyricS = 'shi' then LyricS := chr($BC); - if LyricS = 'su' then LyricS := chr($BD); - if LyricS = 'se' then LyricS := chr($BE); - if LyricS = 'so' then LyricS := chr($BF); - - if LyricS = 'za' then LyricS := chr($BB) + chr($DE); - if LyricS = 'ji' then LyricS := chr($BC) + chr($DE); - if LyricS = 'zu' then LyricS := chr($BD) + chr($DE); - if LyricS = 'ze' then LyricS := chr($BE) + chr($DE); - if LyricS = 'zo' then LyricS := chr($BF) + chr($DE); - - if LyricS = 'ta' then LyricS := chr($C0); - if LyricS = 'chi' then LyricS := chr($C1); - if LyricS = 'tsu' then LyricS := chr($C2); - if LyricS = 'te' then LyricS := chr($C3); - if LyricS = 'to' then LyricS := chr($C4); - - if LyricS = 'da' then LyricS := chr($C0) + chr($DE); -// if LyricS = 'ji' then LyricS := chr($C1) + chr($DE); -// if LyricS = 'zu' then LyricS := chr($C2) + chr($DE); - if LyricS = 'de' then LyricS := chr($C3) + chr($DE); - if LyricS = 'do' then LyricS := chr($C4) + chr($DE); - - if LyricS = 'na' then LyricS := chr($C5); - if LyricS = 'ni' then LyricS := chr($C6); - if LyricS = 'nu' then LyricS := chr($C7); - if LyricS = 'ne' then LyricS := chr($C8); - if LyricS = 'no' then LyricS := chr($C9); - - if LyricS = 'ha' then LyricS := chr($CA); - if LyricS = 'hi' then LyricS := chr($CB); - if LyricS = 'hu' then LyricS := chr($CC); - if LyricS = 'he' then LyricS := chr($CD); - if LyricS = 'ho' then LyricS := chr($CE); - - if LyricS = 'ba' then LyricS := chr($CA) + chr($DE); - if LyricS = 'bi' then LyricS := chr($CB) + chr($DE); - if LyricS = 'bu' then LyricS := chr($CC) + chr($DE); - if LyricS = 'be' then LyricS := chr($CD) + chr($DE); - if LyricS = 'bo' then LyricS := chr($CE) + chr($DE); - - if LyricS = 'pa' then LyricS := chr($CA) + chr($DF); - if LyricS = 'pi' then LyricS := chr($CB) + chr($DF); - if LyricS = 'pu' then LyricS := chr($CC) + chr($DF); - if LyricS = 'pe' then LyricS := chr($CD) + chr($DF); - if LyricS = 'po' then LyricS := chr($CE) + chr($DF); - - if LyricS = 'ma' then LyricS := chr($CF); - if LyricS = 'mi' then LyricS := chr($D0); - if LyricS = 'mu' then LyricS := chr($D1); - if LyricS = 'me' then LyricS := chr($D2); - if LyricS = 'mo' then LyricS := chr($D3); - - if LyricS = 'ya' then LyricS := chr($D4); - if LyricS = 'yu' then LyricS := chr($D5); - if LyricS = 'yo' then LyricS := chr($D6); - - if LyricS = 'ra' then LyricS := chr($D7); - if LyricS = 'ri' then LyricS := chr($D8); - if LyricS = 'ru' then LyricS := chr($D9); - if LyricS = 're' then LyricS := chr($DA); - if LyricS = 'ro' then LyricS := chr($DB); - - if LyricS = 'wa' then LyricS := chr($DC); - if LyricS = 'n' then LyricS := chr($DD); - - LyricS := ' ' + LyricS; - if Space then LyricS := LyricS + ' ';} - - - - with Czesci[NrCzesci].Czesc[Czesci[NrCzesci].High] do begin - SetLength(Nuta, Length(Nuta) + 1); - IlNut := IlNut + 1; - HighNut := HighNut + 1; - Muzyka.IlNut := Muzyka.IlNut + 1; - - Nuta[HighNut].Start := StartP; - if IlNut = 1 then begin - StartNote := Nuta[HighNut].Start; - if Czesci[NrCzesci].Ilosc = 1 then - Start := -100; -// Start := Nuta[HighNut].Start; - end; - - Nuta[HighNut].Dlugosc := DurationP; - Muzyka.DlugoscNut := Muzyka.DlugoscNut + Nuta[HighNut].Dlugosc; - - // back to the normal system with normal, golden and now freestyle notes - case TypeP of - 'F': Nuta[HighNut].Wartosc := 0; - ':': Nuta[HighNut].Wartosc := 1; - '*': Nuta[HighNut].Wartosc := 2; - end; - Czesci[NrCzesci].Wartosc := Czesci[NrCzesci].Wartosc + Nuta[HighNut].Dlugosc * Nuta[HighNut].Wartosc; - - Nuta[HighNut].Ton := NoteP; - if Nuta[HighNut].Ton < Base[NrCzesci] then Base[NrCzesci] := Nuta[HighNut].Ton; - Nuta[HighNut].TonGamy := Nuta[HighNut].TonGamy mod 12; - - Nuta[HighNut].Tekst := Copy(LyricS, 2, 100); - Lyric := Lyric + Nuta[HighNut].Tekst; - - if TypeP = 'F' then - Nuta[HighNut].FreeStyle := true; - - Koniec := Nuta[HighNut].Start + Nuta[HighNut].Dlugosc; - end; // with -end; - -procedure NewSentence(NrCzesciP: integer; Param1, Param2: integer); -var -I: Integer; -begin -// Log.LogStatus('IlCzesci: ' + IntToStr(Czesci[NrCzesciP].Ilosc), 'NewSentece'); -// Log.LogStatus('Dane: ' + IntToStr(NrCzesciP) + ' ' + IntToStr(Param1) + ' ' + IntToStr(Param2) , 'NewSentece'); - - // stara czesc //Alter Satz //Update Old Part - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].BaseNote := Base[NrCzesciP]; - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].LyricWidth := glTextWidth(PChar(Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Lyric)); - - //Total Notes Patch - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].TotalNotes := 0; - for I := low(Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Nuta) to high(Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Nuta) do - begin - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].TotalNotes := Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].TotalNotes + Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Nuta[I].Dlugosc * Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Nuta[I].Wartosc; - end; - //Log.LogError('Total Notes(' + inttostr(Czesci[NrCzesciP].High) +'): ' + inttostr(Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].TotalNotes)); - //Total Notes Patch End - - - // nowa czesc //Neuer Satz //Update New Part - SetLength(Czesci[NrCzesciP].Czesc, Czesci[NrCzesciP].Ilosc + 1); - Czesci[NrCzesciP].High := Czesci[NrCzesciP].High + 1; - Czesci[NrCzesciP].Ilosc := Czesci[NrCzesciP].Ilosc + 1; - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].HighNut := -1; - - if not AktSong.Relative then - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Start := Param1; - - if AktSong.Relative then begin - Czesci[NrCzesciP].Czesc[Czesci[NrCzesciP].High].Start := Param1; - Rel[NrCzesciP] := Rel[NrCzesciP] + Param2; - end; - - Base[NrCzesciP] := 100; // high number -end; - -function WczytajCzesci(Name: string): boolean; -var - TempC: char; - Tekst: string; - CP: integer; // Current Player (0 or 1) - Pet: integer; - Both: boolean; - Param1: integer; - Param2: integer; - Param3: integer; - ParamS: string; - I: Integer; -begin - Result := false; - - if not FileExists(Name) then begin - Log.LogError('File not found: "' + Name + '"', 'WczytajCzesci'); - exit; - end; - - try - MultBPM := 4; // 4 - mnoznik dla czasu nut - Mult := 1; // 4 - dokladnosc pomiaru nut - Base[0] := 100; // high number -// Base[1] := 100; // high number - Czesci[0].Wartosc := 0; -// Czesci[1].Wartosc := 0; // here was the error in 0.3.2 - AktSong.Relative := false; - - Rel[0] := 0; -// Rel[1] := 0; - CP := 0; - Both := false; - if Length(Player) = 2 then Both := true; - - FileMode := fmOpenRead; - AssignFile(Plik, Name); - Reset(Plik); - - ReadHeader(AktSong); -(* if AktSong.Title = 'Hubba Hubba Zoot Zoot' then begin - Mult := 2; - AktSong.BPM[0].BPM := AktSong.BPM[0].BPM * 2; - end;*) - - SetLength(Czesci, 2); - for Pet := 0 to High(Czesci) do begin - SetLength(Czesci[Pet].Czesc, 1); - Czesci[Pet].High := 0; - Czesci[Pet].Ilosc := 1; - Czesci[Pet].Akt := 0; - Czesci[Pet].Resolution := AktSong.Resolution; - Czesci[Pet].NotesGAP := AktSong.NotesGAP; - Czesci[Pet].Czesc[0].IlNut := 0; - Czesci[Pet].Czesc[0].HighNut := -1; - end; - -// TempC := ':'; - TempC := PlikC; // read from backup variable, don't use default ':' value - - while (TempC <> 'E') do begin - Inc(LineNo); - if (TempC = ':') or (TempC = '*') or (TempC = 'F') then begin - // wczytuje nute - Read(Plik, Param1); - Read(Plik, Param2); - Read(Plik, Param3); - Read(Plik, ParamS); - - // dodaje nute - if not Both then - // P1 - DodajNute(0, TempC, (Param1+Rel[0]) * Mult, Param2 * Mult, Param3, ParamS) - else begin - // P1 + P2 - DodajNute(0, TempC, (Param1+Rel[0]) * Mult, Param2 * Mult, Param3, ParamS); - DodajNute(1, TempC, (Param1+Rel[1]) * Mult, Param2 * Mult, Param3, ParamS); - end; - end; // if - if TempC = '-' then begin - // reads sentence - Read(Plik, Param1); - if AktSong.Relative then Read(Plik, Param2); // read one more data for relative system - - // new sentence - if not Both then - // P1 - NewSentence(0, (Param1 + Rel[0]) * Mult, Param2) - else begin - // P1 + P2 - NewSentence(0, (Param1 + Rel[0]) * Mult, Param2); - NewSentence(1, (Param1 + Rel[1]) * Mult, Param2); - end; - - end; // if - - if TempC = 'B' then begin - SetLength(AktSong.BPM, Length(AktSong.BPM) + 1); - Read(Plik, AktSong.BPM[High(AktSong.BPM)].StartBeat); - AktSong.BPM[High(AktSong.BPM)].StartBeat := AktSong.BPM[High(AktSong.BPM)].StartBeat + Rel[0]; - - Read(Plik, Tekst); - AktSong.BPM[High(AktSong.BPM)].BPM := StrToFloat(Tekst); - AktSong.BPM[High(AktSong.BPM)].BPM := AktSong.BPM[High(AktSong.BPM)].BPM * Mult * MultBPM; - end; - - - if not Both then begin - Czesci[CP].Czesc[Czesci[CP].High].BaseNote := Base[CP]; - Czesci[CP].Czesc[Czesci[CP].High].LyricWidth := glTextWidth(PChar(Czesci[CP].Czesc[Czesci[CP].High].Lyric)); - //Total Notes Patch - Czesci[CP].Czesc[Czesci[CP].High].TotalNotes := 0; - for I := low(Czesci[CP].Czesc[Czesci[CP].High].Nuta) to high(Czesci[CP].Czesc[Czesci[CP].High].Nuta) do - begin - Czesci[CP].Czesc[Czesci[CP].High].TotalNotes := Czesci[CP].Czesc[Czesci[CP].High].TotalNotes + Czesci[CP].Czesc[Czesci[CP].High].Nuta[I].Dlugosc * Czesci[CP].Czesc[Czesci[CP].High].Nuta[I].Wartosc; - end; - //Total Notes Patch End - end else begin - for Pet := 0 to High(Czesci) do begin - Czesci[Pet].Czesc[Czesci[Pet].High].BaseNote := Base[Pet]; - Czesci[Pet].Czesc[Czesci[Pet].High].LyricWidth := glTextWidth(PChar(Czesci[Pet].Czesc[Czesci[Pet].High].Lyric)); - //Total Notes Patch - Czesci[Pet].Czesc[Czesci[Pet].High].TotalNotes := 0; - for I := low(Czesci[Pet].Czesc[Czesci[Pet].High].Nuta) to high(Czesci[Pet].Czesc[Czesci[Pet].High].Nuta) do - begin - Czesci[Pet].Czesc[Czesci[Pet].High].TotalNotes := Czesci[Pet].Czesc[Czesci[Pet].High].TotalNotes + Czesci[Pet].Czesc[Czesci[Pet].High].Nuta[I].Dlugosc * Czesci[Pet].Czesc[Czesci[Pet].High].Nuta[I].Wartosc; - end; - //Total Notes Patch End - end; - end; - - Read(Plik, TempC); - end; // while} - - CloseFile(Plik); - except - Log.LogError('Error Loading File: "' + Name + '" in Line ' + inttostr(LineNo)); - exit; - end; - - Result := true; -end; - -function SaveSong(Song: TSong; Czesc: TCzesci; Name: string; Relative: boolean): boolean; -var - C: integer; - N: integer; - S: string; - B: integer; - RelativeSubTime: integer; - NoteState: String; - -begin -// Relative := true; // override (idea - use shift+S to save with relative) - AssignFile(Plik, Name); - Rewrite(Plik); - - WriteLn(Plik, '#TITLE:' + Song.Title + ''); - WriteLn(Plik, '#ARTIST:' + Song.Artist); - - if Song.Creator <> '' then WriteLn(Plik, '#CREATOR:' + Song.Creator); - if Song.Edition <> 'Unknown' then WriteLn(Plik, '#EDITION:' + Song.Edition); - if Song.Genre <> 'Unknown' then WriteLn(Plik, '#GENRE:' + Song.Genre); - if Song.Language <> 'Unknown' then WriteLn(Plik, '#LANGUAGE:' + Song.Language); - if Song.Cover <> '' then WriteLn(Plik, '#COVER:' + Song.Cover); - - WriteLn(Plik, '#MP3:' + Song.Mp3); - - if Song.Background <> '' then WriteLn(Plik, '#BACKGROUND:' + Song.Background); - if Song.Video <> '' then WriteLn(Plik, '#VIDEO:' + Song.Video); - if Song.VideoGAP <> 0 then WriteLn(Plik, '#VIDEOGAP:' + FloatToStr(Song.VideoGAP)); - if Song.Resolution <> 4 then WriteLn(Plik, '#RESOLUTION:' + IntToStr(Song.Resolution)); - if Song.NotesGAP <> 0 then WriteLn(Plik, '#NOTESGAP:' + IntToStr(Song.NotesGAP)); - if Song.Start <> 0 then WriteLn(Plik, '#START:' + FloatToStr(Song.Start)); - if Song.Finish <> 0 then WriteLn(Plik, '#END:' + IntToStr(Song.Finish)); - if Relative then WriteLn(Plik, '#RELATIVE:yes'); - - WriteLn(Plik, '#BPM:' + FloatToStr(Song.BPM[0].BPM / 4)); - WriteLn(Plik, '#GAP:' + FloatToStr(Song.GAP)); - - RelativeSubTime := 0; - for B := 1 to High(AktSong.BPM) do - WriteLn(Plik, 'B ' + FloatToStr(AktSong.BPM[B].StartBeat) + ' ' + FloatToStr(AktSong.BPM[B].BPM/4)); - - for C := 0 to Czesc.High do begin - for N := 0 to Czesc.Czesc[C].HighNut do begin - with Czesc.Czesc[C].Nuta[N] do begin - - - //Golden + Freestyle Note Patch - case Czesc.Czesc[C].Nuta[N].Wartosc of - 0: NoteState := 'F '; - 1: NoteState := ': '; - 2: NoteState := '* '; - end; // case - S := NoteState + IntToStr(Start-RelativeSubTime) + ' ' + IntToStr(Dlugosc) + ' ' + IntToStr(Ton) + ' ' + Tekst; - - - WriteLn(Plik, S); - end; // with - end; // N - - if C < Czesc.High then begin // don't write end of last sentence - if not Relative then - S := '- ' + IntToStr(Czesc.Czesc[C+1].Start) - else begin - S := '- ' + IntToStr(Czesc.Czesc[C+1].Start - RelativeSubTime) + - ' ' + IntToStr(Czesc.Czesc[C+1].Start - RelativeSubTime); - RelativeSubTime := Czesc.Czesc[C+1].Start; - end; - WriteLn(Plik, S); - end; - - end; // C - - - WriteLn(Plik, 'E'); - CloseFile(Plik); -end; - -function SaveSongDebug(Song: TSong; Czesc: TCzesci; Name: string; Relative: boolean): boolean; -var - C: integer; - N: integer; - S: string; - STon: integer; - SLen: integer; - NTot: integer; - PlikB: TextFile; - LastTime: integer; -begin - AssignFile(Plik, Name); - Rewrite(Plik); - - AssignFile(PlikB, 'C:\song db.asm'); - Rewrite(PlikB); - - NTot := 0; - LastTime := 0; - - for C := 0 to Czesc.High do begin - WriteLn(Plik, '; ' + IntToStr(C)); - - for N := 0 to Czesc.Czesc[C].HighNut do begin - with Czesc.Czesc[C].Nuta[N] do begin - - // timespace - if LastTime < Start then begin - STon := 0; - SLen := Round((Start - LastTime) * 16320 / 255 / 12); - WriteLn(PlikB, ' .dw ' + IntToStr(STon + SLen*256) + ' ; timespace (0, ' + IntToStr(SLen) + ')'); - - end; - - - - // ton - STon := Round(98940/(2*261.62*Power(1.05946309436, Ton))); - S := ' ldi R18, ' + IntToStr(STon); - if STon > 255 then begin - beep; - S := '!!!!' + S; - end; - WriteLn(Plik, S); - - // length - //ldi R19, 43 - SLen := Round(Dlugosc * 16320 / STon / 12); - S := ' ldi R19, ' + IntToStr(SLen); - if SLen > 255 then begin - beep; - S := '!!!!' + S; - end; - WriteLn(Plik, S); - - // function - S := ' rcall playtone'; - WriteLn(Plik, S); - - // song dw - WriteLn(PlikB, ' .dw ' + IntToStr(STon + SLen*256)); - - - LastTime := Start + Dlugosc; - Inc(NTot); - - end; // with - end; // N - WriteLn(Plik, ''); - WriteLn(PlikB, ''); - end; // C - - WriteLn(Plik, '; nut ' + IntToStr(NTot)); - WriteLn(Plik, '; bajtów ' + IntToStr(8*NTot)); - - WriteLn(PlikB, ' .dw 0'); - WriteLn(PlikB, '; nut ' + IntToStr(NTot)); - WriteLn(PlikB, '; bajtów ' + IntToStr(2*NTot)); - - - CloseFile(Plik); - CloseFile(PlikB); -end; - -end. -- cgit v1.2.3