tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-09-25 02:48:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Implement custom Credits background maps

Browse Source
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 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")) Dim Credits() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\Credits.dat"))
For Each Line As String In Credits For Each Line As String In Credits
If Line.Contains("|") = True And Line.StartsWith("#") = False Then If Line.Contains("|") = True AndAlso Line.StartsWith("#") = False AndAlso Line.StartsWith("Credits") = True Then
If Line.GetSplit(0, "|").ToLower = ending.ToLower OrElse Line.GetSplit(0, "|") = "" Then If Line.GetSplit(1, "|").ToLower = ending.ToLower OrElse Line.GetSplit(1, "|") = "" Then
Dim creditTitle As String = Line.GetSplit(1, "|") Dim creditTitle As String = Line.GetSplit(2, "|")
Dim creditNames As List(Of String) = Line.GetSplit(2, "|").Split(",").ToList Dim creditNames As List(Of String) = Line.GetSplit(3, "|").Split(",").ToList
CreditsPages.Add(New CreditsPage(creditTitle, Color.White, Color.Black, creditNames)) CreditsPages.Add(New CreditsPage(creditTitle, Color.White, Color.Black, creditNames))
End If End If
End If End If
@ -100,6 +100,28 @@ Public Class CreditsScreen
' Credit camera starting positions: ' Credit camera starting positions:
Private Sub InitializeCameraLevels(ByVal ending As String) 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() Select Case ending.ToLower()
Case "johto" 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)) 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("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)) 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 "kanto"
Case Else
End Select End Select
End If
End Sub End Sub
Private Sub ExecuteCameraLevel() Private Sub ExecuteCameraLevel()
@ -129,6 +151,8 @@ Public Class CreditsScreen
Public Overrides Sub Draw() Public Overrides Sub Draw()
If CameraLevels IsNot Nothing AndAlso CameraLevels.Count > 0 Then If CameraLevels IsNot Nothing AndAlso CameraLevels.Count > 0 Then
Level.Draw() Level.Draw()
Else
Canvas.DrawRectangle(New Rectangle(0, 0, Core.windowSize.Width, Core.windowSize.Height), New Color(0, 0, 0))
End If End If
If TheEnd = True Then If TheEnd = True Then