mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-30 01:05:22 +02:00
Fixed center healing script. Added <level.musicloop> constructor and @music.forceplay command
This commit is contained in:
parent
9cccf5cc32
commit
d897a00276
@ -200,7 +200,11 @@
|
||||
MediaPlayer.Stop()
|
||||
currentSong = "nomusic"
|
||||
End Sub
|
||||
|
||||
Public Shared Sub IgnoreLastSong()
|
||||
currentSong = "nomusic"
|
||||
SongList.Add("nomusic")
|
||||
IntroStarted = False
|
||||
End Sub
|
||||
Public Shared Sub PlayMusic(ByVal Song As String, ByVal SearchForIntro As Boolean, ByVal NewFadeInSpeed As Single, ByVal NewFadeOutSpeed As Single)
|
||||
Dim lastSong As String = "nomusic"
|
||||
|
||||
|
@ -17,6 +17,9 @@
|
||||
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
||||
Screen.Level.MusicLoop = argument
|
||||
End If
|
||||
Case "forceplay"
|
||||
MusicManager.IgnoreLastSong()
|
||||
MusicManager.PlayMusic(argument)
|
||||
Case "setmusicloop"
|
||||
If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
||||
Screen.Level.MusicLoop = argument
|
||||
|
@ -20,6 +20,9 @@
|
||||
Return ReturnBoolean(Screen.Level.Riding)
|
||||
Case "surfing"
|
||||
Return ReturnBoolean(Screen.Level.Surfing)
|
||||
Case "musicloop"
|
||||
Dim musicloop As String = System.IO.Path.GetFileNameWithoutExtension(Screen.Level.MusicLoop)
|
||||
Return musicloop
|
||||
End Select
|
||||
|
||||
Return DEFAULTNULL
|
||||
|
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user