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.
