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

Fix Overworld music bugs

Browse Source
This commit is contained in:
JappaWakka 2024-02-24 09:26:54 +01:00
parent 20b2ac35ea
commit d546c7348d
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
P3D/Screens/Inventory/PokegearScreen.vb
View File

@ -2084,6 +2084,9 @@
End If End If
If Controls.Dismiss(True, True, True) = True Then If Controls.Dismiss(True, True, True) = True Then
If CurrentStation Is Nothing Then
MusicManager.Play(Screen.Level.MusicLoop)
End If
SoundManager.PlaySound("select") SoundManager.PlaySound("select")
Me.menuIndex = MenuScreens.Main Me.menuIndex = MenuScreens.Main
End If End If

7
P3D/Screens/TransitionScreen.vb
View File

@ -71,11 +71,8 @@
Public Overrides Sub Update() Public Overrides Sub Update()
If reduce = False Then If reduce = False Then
Dim s As Screen = NewScreen Dim screens() As Screen.Identifications = {Screen.Identifications.PokegearScreen, Screen.Identifications.OverworldScreen}
While s.Identification <> Identifications.OverworldScreen AndAlso s.PreScreen IsNot Nothing If screens.Contains(NewScreen.Identification) Then
s = s.PreScreen
End While
If s.Identification = Identifications.OverworldScreen Then
MusicManager.Play(Screen.Level.MusicLoop, True, 0.01F) MusicManager.Play(Screen.Level.MusicLoop, True, 0.01F)
End If End If