tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 07:44:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Make it possible to change Hall Of Fame background

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

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

@ -174,7 +174,15 @@
CanContinue = False CanContinue = False
Case "halloffame" Case "halloffame"
If argument <> "" Then 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 Else
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New HallOfFameScreen(Core.CurrentScreen), Color.Black, False)) Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New HallOfFameScreen(Core.CurrentScreen), Color.Black, False))
End If End If