aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-07 01:28:59 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-03-07 01:28:59 +0000
commit05c25746d8bc1f313c2b6f07b8d34e8a8a71df9b (patch)
tree35f346c0c9cf9129db817de749dbfa97fd5e83a6 /Game/Code
parenta4a4e6f4f5e56345adf07d26bad98181094bd56d (diff)
downloadusdx-05c25746d8bc1f313c2b6f07b8d34e8a8a71df9b.tar.gz
usdx-05c25746d8bc1f313c2b6f07b8d34e8a8a71df9b.tar.xz
usdx-05c25746d8bc1f313c2b6f07b8d34e8a8a71df9b.zip
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
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UPliki.pas836
1 files changed, 0 insertions, 836 deletions
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.