tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 15:54:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix Music skipping intro and only playing intro

Browse Source
This commit is contained in:
JappaWakka 2024-05-13 19:00:20 +02:00
parent 3d7eb3bd66
commit 14dd28290c
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
P3D/Resources/Sound/MusicManager.vb
View File

@ -260,10 +260,6 @@ Public Class MusicManager
Volume = 0F
_isFadingOut = False
If Playlist.Count > 1 Then
Playlist.RemoveAt(0)
End If
Dim song = Playlist(0)
If Not song Is Nothing Then
@ -439,6 +435,7 @@ Public Class MusicManager
playedSong = battleIntroSong
Else
If regularIntroSong IsNot Nothing AndAlso regularIntroSong.Origin = regularLoopSong.Origin Then
Playlist.Clear()
Playlist.Add(regularIntroSong)
If regularLoopSong IsNot Nothing Then
Playlist.Add(regularLoopSong)
@ -446,6 +443,7 @@ Public Class MusicManager
Play(regularIntroSong)
playedSong = regularIntroSong
ElseIf regularLoopSong IsNot Nothing Then
Playlist.Clear()
Playlist.Add(regularLoopSong)
Play(regularLoopSong)
playedSong = regularLoopSong
@ -463,12 +461,13 @@ Public Class MusicManager
_isIntroStarted = False
_isFadingIn = True
FadeInto(introSong, fadeSpeed)
Playlist.Add(nextSong)
Else
_isIntroStarted = True
_introEndTime = Date.Now + introSong.Duration
Play(introSong)
Playlist.AddRange({introSong, nextSong})
End If
Playlist.AddRange({introSong, nextSong})
playedSong = introSong
Else
_isIntroStarted = False
@ -491,8 +490,8 @@ Public Class MusicManager
FadeInto(nextSong, fadeSpeed)
Else
Play(nextSong)
Playlist.Add(nextSong)
End If
Playlist.Add(nextSong)
playedSong = nextSong
End If