tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Make it possible to change Hall Of Fame background

This commit is contained in:
JappaWakka 2023-11-13 20:27:02 +01:00
parent 3bd6f1af5b
commit 03df3e36a0
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
P3D/Screens/PC/HallOfFameScreen.vb
View File

@ -6,6 +6,7 @@
Dim alpha As Integer = 255
Dim alphaFade As Integer = -1
Dim loadedLevel As Boolean = False
Dim backgroundLevel As String = "indigo\halloffame_interface.dat"
Dim menuState As Integer = 0
Dim texture As Texture2D
@ -85,13 +86,15 @@
End Class
Public Sub New(ByVal currentScreen As Screen, ByVal i As Integer)
Public Sub New(ByVal currentScreen As Screen, ByVal i As Integer, Optional ByVal backgroundLevel As String = "indigo\halloffame_interface.dat")
Me.backgroundLevel = backgroundLevel
SetupScreen(currentScreen)
Me.Preselect = i
Me.Cursor = Me.Preselect
End Sub
Public Sub New(ByVal currentScreen As Screen)
Public Sub New(ByVal currentScreen As Screen, Optional ByVal backgroundLevel As String = "indigo\halloffame_interface.dat")
Me.backgroundLevel = backgroundLevel
SetupScreen(currentScreen)
End Sub
@ -143,7 +146,7 @@
Camera = New BattleSystem.BattleCamera()
Level = New Level()
Level.Load("indigo\halloffame_interface.dat")
Level.Load(backgroundLevel)
ResetCamera()
Me.loadedLevel = True

10
P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb
View File

@ -174,7 +174,15 @@
CanContinue = False
Case "halloffame"
If argument <> "" Then
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New HallOfFameScreen(Core.CurrentScreen, int(argument)), Color.Black, False))
If argument.Contains(",") = False Then
If StringHelper.IsNumeric(argument) Then
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New HallOfFameScreen(Core.CurrentScreen, int(argument)), Color.Black, False))
Else
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New HallOfFameScreen(Core.CurrentScreen, argument), Color.Black, False))
End If
Else
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New HallOfFameScreen(Core.CurrentScreen, int(argument.GetSplit(0, ",")), argument.GetSplit(1, ",")), Color.Black, False))
End If
Else
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New HallOfFameScreen(Core.CurrentScreen), Color.Black, False))
End If