From 262e2fd159ad63b7682992864987bb41a7814975 Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Wed, 24 Feb 2010 21:26:02 +0000 Subject: added experimental voice playback after singing git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2154 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenSing.pas | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'Game/Code/Screens/UScreenSing.pas') diff --git a/Game/Code/Screens/UScreenSing.pas b/Game/Code/Screens/UScreenSing.pas index 9bd89339..0469a017 100644 --- a/Game/Code/Screens/UScreenSing.pas +++ b/Game/Code/Screens/UScreenSing.pas @@ -814,7 +814,7 @@ end; procedure TScreenSing.LoadNextSong; var - P: integer; + P, I: integer; numNotes: integer; begin // load notes @@ -824,6 +824,10 @@ begin begin CatSongs.Selected := PlaylistMedley.Song[PlaylistMedley.CurrentMedleySong-1]; Music.Open(CatSongs.Song[CatSongs.Selected].Path + CatSongs.Song[CatSongs.Selected].Mp3); + end else + begin + for I := 0 to PlayersPlay - 1 do + Player[I].VoiceFile := ''; end; AktSong := CatSongs.Song[CatSongs.Selected]; @@ -1409,13 +1413,14 @@ begin if Ini.SavePlayback = 1 then begin Log.BenchmarkStart(0); + for I := 0 to PlayersPlay - 1 do begin points := IntToStr(Player[I].ScoreTotalI); while Length(points) < 5 do points := '0'+points; - - Log.LogVoice(I, Ini.Name[I], AktSong.Artist, AktSong.Title, points); + + Player[I].VoiceFile := Log.LogVoice(I, Ini.Name[I], AktSong.Artist, AktSong.Title, points); end; Log.BenchmarkEnd(0); @@ -1433,10 +1438,12 @@ begin begin if not FadeOut then begin + for I := 0 to PlayersPlay - 1 do + PlaylistMedley.Stats[Length(PlaylistMedley.Stats)-1].Player[I] := Player[I]; + inc(PlaylistMedley.CurrentMedleySong); if PlaylistMedley.CurrentMedleySong<=PlaylistMedley.NumMedleySongs then begin - //AudioPlayback.PlaySound(SoundLib.Applause); LoadNextSong; end else begin -- cgit v1.2.3