aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Game/Code/Classes/UFiles.pas12
1 files changed, 10 insertions, 2 deletions
diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas
index c2ec467f..854ed9b0 100644
--- a/Game/Code/Classes/UFiles.pas
+++ b/Game/Code/Classes/UFiles.pas
@@ -699,9 +699,17 @@ begin
end;
bt := Czesci[p].Czesc[line].Nuta[note].Start;
- if (Czesci[p].Czesc[line].Nuta[note].Dlugosc<1) then
+ if (Czesci[p].Czesc[line].Nuta[note].Dlugosc<0) then
begin
- Log.LogError('Note length <1 in sentence ' + IntToStr(line+1) + ', on beat ' + IntToStr(Czesci[p].Czesc[line].Nuta[note].Start) +
+ Log.LogError('Note length <0 in sentence ' + IntToStr(line+1) + ', on beat ' + IntToStr(Czesci[p].Czesc[line].Nuta[note].Start) +
+ ' in song ' + AktSong.Path + AktSong.Filename);
+ if (Ini.LoadFaultySongs=0) then
+ Result := false;
+ end;
+
+ if (Czesci[p].Czesc[line].Nuta[note].Dlugosc=0) and not Czesci[p].Czesc[line].Nuta[note].FreeStyle then
+ begin
+ Log.LogError('Note length =0 in sentence ' + IntToStr(line+1) + ', on beat ' + IntToStr(Czesci[p].Czesc[line].Nuta[note].Start) +
' in song ' + AktSong.Path + AktSong.Filename);
if (Ini.LoadFaultySongs=0) then
Result := false;