mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-08 06:24:55 +02:00
cae2b61ef7
Fixed music playing errors [Added Songs] Mom (as there wasn't any music for when the mom gives you the pokégear) PVP_Intro (PVP music didn't have an intro before and I also replaced PVP with a better sounding version) [Added Sounds] Emote_Exclamation (can be used when using the ! emote for NPCs) Receive_HM (the game checks if the name of the item that was received contains "HM", if so, this sound is played instead of the regular item receive sound)
44 lines
1.7 KiB
VB.net
44 lines
1.7 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"
|
|
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 "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 |