Fix @Music.Stop not working

This commit is contained in:
JappaWakka 2024-02-29 12:38:33 +01:00
parent 32be5bbb67
commit 344b65fe7e

View File

@ -332,9 +332,7 @@ Public Class MusicManager
End Sub End Sub
Public Shared Sub [Stop]() Public Shared Sub [Stop]()
Playlist.Clear() ClearCurrentlyPlaying()
MusicManager.Play("Silence", False, 0.0F)
_isIntroStarted = False
End Sub End Sub
Public Shared Sub ResumePlayback() Public Shared Sub ResumePlayback()
@ -423,7 +421,7 @@ Public Class MusicManager
Dim songName = GetSongName(song) Dim songName = GetSongName(song)
Dim AfterBattleIntroSongName As String = GetSongName(AfterBattleIntroSong) Dim AfterBattleIntroSongName As String = GetSongName(AfterBattleIntroSong)
If currentSong = "Silence" OrElse currentSong <> songName Then If currentSong = "silence" OrElse currentSong <> songName Then
If AfterBattleIntroSongName <> "" Then If AfterBattleIntroSongName <> "" Then
Dim battleIntroSong = GetSong(songName) Dim battleIntroSong = GetSong(songName)
Dim regularIntroSong = GetSong("intro\" + AfterBattleIntroSongName) Dim regularIntroSong = GetSong("intro\" + AfterBattleIntroSongName)