mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-10-23 16:44:01 +02:00
0e8170a449
@Music.ForcePlay(song) Changes the currently playing music to a new one and prevents the music from being changed by warps or surfing/riding and such. @Music.Unforce Allows warps and surfing/riding etc. to change the music again.
70 lines
3.1 KiB
VB.net
70 lines
3.1 KiB
VB.net
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"
|
|
Dim LoopSong As Boolean = True
|
|
If argument.Split(",").Length > 1 Then
|
|
LoopSong = CBool(argument.GetSplit(1, ","))
|
|
End If
|
|
MusicManager.Play(argument.GetSplit(0, ","), LoopSong, LoopSong)
|
|
|
|
If LoopSong = True Then
|
|
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
|
Screen.Level.MusicLoop = argument
|
|
End If
|
|
Else
|
|
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
|
Screen.Level.MusicLoop = "silence"
|
|
End If
|
|
End If
|
|
Case "forceplay"
|
|
Dim LoopSong As Boolean = True
|
|
If argument.Split(",").Length > 1 Then
|
|
LoopSong = CBool(argument.GetSplit(1, ","))
|
|
End If
|
|
MusicManager.ForceMusic = argument.GetSplit(0, ",")
|
|
MusicManager.Play(argument.GetSplit(0, ","), LoopSong, LoopSong)
|
|
|
|
If LoopSong = True Then
|
|
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
|
Screen.Level.MusicLoop = argument
|
|
End If
|
|
Else
|
|
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
|
Screen.Level.MusicLoop = "silence"
|
|
End If
|
|
End If
|
|
Case "unforce"
|
|
MusicManager.ForceMusic = ""
|
|
Case "setmusicloop"
|
|
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
|
Screen.Level.MusicLoop = argument
|
|
End If
|
|
Case "stop"
|
|
MusicManager.Stop()
|
|
Case "mute"
|
|
MusicManager.Muted() = True
|
|
Case "unmute"
|
|
MusicManager.Muted() = False
|
|
Case "pause"
|
|
MusicManager.Paused() = True
|
|
Case "resume"
|
|
MusicManager.Paused() = False
|
|
End Select
|
|
|
|
IsReady = True
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace |