From 4aa6a474ad3f38bdaccfd76b899e2b9142bea95b Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Sat, 6 Mar 2010 17:11:31 +0000 Subject: allow FreeStyle notes with zero length git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2178 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UFiles.pas | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'Game/Code/Classes/UFiles.pas') 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; -- cgit v1.2.3