P3D-Legacy/P3D/World/ActionScript/V2/ScriptCommands/DoMusic.vb

Namespace ScriptVersion2

    Partial Class ScriptCommander

        ' --------------------------------------------------------------------------------------------------------------------------
        ' Contains the @music commands.
        ' --------------------------------------------------------------------------------------------------------------------------

        Private Shared Sub DoMusic(ByVal subClass As String)
            Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
            Dim argument As String = ScriptComparer.GetSubClassArgumentPair(subClass).Argument

            Select Case command.ToLower()
                Case "play"
                    MusicManager.Play(argument, True)

                    If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
                        Screen.Level.MusicLoop = argument
                    End If
                Case "forceplay"
                    MusicManager.ClearCurrentlyPlaying()
                    MusicManager.Play(argument)
                Case "setmusicloop"
                    If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
                        Screen.Level.MusicLoop = argument
                    End If
                Case "stop"
                    MusicManager.Stop()
                Case "pause"
                    MusicManager.Pause()
                Case "resume"
                    MusicManager.ResumePlayback()
            End Select

            IsReady = True
        End Sub

    End Class

End Namespace