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

Implement custom Credits background maps

This commit is contained in:
JappaWakka 2023-11-26 15:14:47 +01:00
parent 22edf29445
commit 926f0dac9b
2 changed files with 33 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Data/credits.dat
View File

Binary file not shown.

36
P3D/Screens/Credits/CreditsScreen.vb
View File

@ -73,10 +73,10 @@ Public Class CreditsScreen
If GameModeManager.ActiveGameMode.IsDefaultGamemode = False AndAlso File.Exists(GameModeManager.GetContentFilePath("Data\Credits.dat")) Then
Dim Credits() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\Credits.dat"))
For Each Line As String In Credits
If Line.Contains("|") = True And Line.StartsWith("#") = False Then
If Line.GetSplit(0, "|").ToLower = ending.ToLower OrElse Line.GetSplit(0, "|") = "" Then
Dim creditTitle As String = Line.GetSplit(1, "|")
Dim creditNames As List(Of String) = Line.GetSplit(2, "|").Split(",").ToList
If Line.Contains("|") = True AndAlso Line.StartsWith("#") = False AndAlso Line.StartsWith("Credits") = True Then
If Line.GetSplit(1, "|").ToLower = ending.ToLower OrElse Line.GetSplit(1, "|") = "" Then
Dim creditTitle As String = Line.GetSplit(2, "|")
Dim creditNames As List(Of String) = Line.GetSplit(3, "|").Split(",").ToList
CreditsPages.Add(New CreditsPage(creditTitle, Color.White, Color.Black, creditNames))
End If
End If
@ -100,6 +100,28 @@ Public Class CreditsScreen
' Credit camera starting positions:
Private Sub InitializeCameraLevels(ByVal ending As String)
If GameModeManager.ActiveGameMode.IsDefaultGamemode = False AndAlso File.Exists(GameModeManager.GetContentFilePath("Data\Credits.dat")) Then
Dim Credits() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\Credits.dat"))
For Each Line As String In Credits
If Line.Contains("|") = True And Line.StartsWith("#") = False AndAlso Line.StartsWith("Background") = True Then
If Line.GetSplit(1, "|").ToLower = ending.ToLower OrElse Line.GetSplit(1, "|") = "" Then
Dim MapPath As String = Line.GetSplit(2, "|")
Dim StartPosition() As String = Line.GetSplit(3, "|").Split(",")
Dim StartVector As New Vector3(CSng(StartPosition(0).InsertDecSeparator), CSng(StartPosition(1).InsertDecSeparator), CSng(StartPosition(2).InsertDecSeparator))
Dim EndPosition() As String = Line.GetSplit(4, "|").Split(",")
Dim EndVector As New Vector3(CSng(EndPosition(0).InsertDecSeparator), CSng(EndPosition(1).InsertDecSeparator), CSng(EndPosition(2).InsertDecSeparator))
Dim CameraSpeed As Single = CSng(Line.GetSplit(5, "|").InsertDecSeparator) * 0.04F
Dim CameraYaw As Single = CSng(Line.GetSplit(6, "|").InsertDecSeparator)
Dim CameraPitch As Single = CSng(Line.GetSplit(7, "|").InsertDecSeparator)
CameraLevels.Add(New CameraLevel(MapPath, EndVector, StartVector, CameraSpeed, CameraYaw, CameraPitch))
End If
End If
Next
Else
Select Case ending.ToLower()
Case "johto"
CameraLevels.Add(New CameraLevel("route29.dat", New Vector3(50, 2, 10), New Vector3(0, 2, 10), 0.04F, MathHelper.Pi * 1.5F, -0.3F))
@ -112,9 +134,9 @@ Public Class CreditsScreen
CameraLevels.Add(New CameraLevel("routes\route43.dat", New Vector3(10, 2, 3), New Vector3(10, 2, 30), 0.04F, 0.0F, -0.3F))
CameraLevels.Add(New CameraLevel("barktown.dat", New Vector3(20, 1.5, 14), New Vector3(20, 1.5, 28), 0.04F, 0.0F, -0.1F))
Case "kanto"
Case Else
End Select
End If
End Sub
Private Sub ExecuteCameraLevel()
@ -129,6 +151,8 @@ Public Class CreditsScreen
Public Overrides Sub Draw()
If CameraLevels IsNot Nothing AndAlso CameraLevels.Count > 0 Then
Level.Draw()
Else
Canvas.DrawRectangle(New Rectangle(0, 0, Core.windowSize.Width, Core.windowSize.Height), New Color(0, 0, 0))
End If
If TheEnd = True Then