Fix many screens not playing levelmusic when exit

P3D/Network/GameJolt/GTS/WonderTradeScreen.vb

@@ -426,7 +426,6 @@
 #End Region
 
         Private Sub CloseScreen()
-            MusicManager.Play(Screen.Level.MusicLoop, True, 0.01F)
             Core.SetScreen(New TransitionScreen(Me, Me.PreScreen, Color.White, False))
         End Sub
 

P3D/Screens/TransitionScreen.vb

@@ -71,6 +71,14 @@
 
     Public Overrides Sub Update()
         If reduce = False Then
+            Dim s As Screen = NewScreen
+            While s.Identification <> Identifications.OverworldScreen AndAlso s.PreScreen IsNot Nothing
+                s = s.PreScreen
+            End While
+            If s.Identification = Identifications.OverworldScreen Then
+                MusicManager.Play(Screen.Level.MusicLoop, True, 0.01F)
+            End If
+
             alpha += Speed
             If OldScreen.UpdateFadeOut = True Then
                 OldScreen.Update()