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

Updated Jasper Speelman credits

Browse Source
This commit is contained in:
JappaWakka 2023-11-25 19:51:59 +01:00
parent dc5627e85f
commit aeaddf3f79
1 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -39,11 +39,12 @@ Public Class CreditsScreen
SkyDome = New SkyDome() SkyDome = New SkyDome()
Camera = New CreditsCamera() Camera = New CreditsCamera()
Level = New Level()
InitializeCreditsPages(ending) InitializeCreditsPages(ending)
InitializeCameraLevels(ending) InitializeCameraLevels(ending)
If CameraLevels IsNot Nothing AndAlso CameraLevels.Count > 0 Then
ExecuteCameraLevel() Level = New Level()
ExecuteCameraLevel()
End If
MusicManager.Play("credits", True, False) MusicManager.Play("credits", True, False)
End Sub End Sub
@ -95,18 +96,23 @@ Public Class CreditsScreen
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 Sub End Sub
Private Sub ExecuteCameraLevel() Private Sub ExecuteCameraLevel()
If Me.ExecutedCameraLevel = False Then If CameraLevels IsNot Nothing AndAlso CameraLevels.Count > 0 Then
Me.ExecutedCameraLevel = True If Me.ExecutedCameraLevel = False Then
CameraLevels(CurrentCameraLevelIndex).Apply(CType(Camera, CreditsCamera)) Me.ExecutedCameraLevel = True
CameraLevels(CurrentCameraLevelIndex).Apply(CType(Camera, CreditsCamera))
End If
End If End If
End Sub End Sub
Public Overrides Sub Draw() Public Overrides Sub Draw()
Level.Draw() If CameraLevels IsNot Nothing AndAlso CameraLevels.Count > 0 Then
Level.Draw()
End If
If TheEnd = True Then If TheEnd = True Then
CreditsPages(CreditsPages.Count - 1).Draw() CreditsPages(CreditsPages.Count - 1).Draw()
@ -116,8 +122,10 @@ Public Class CreditsScreen
End Sub End Sub
Public Overrides Sub Update() Public Overrides Sub Update()
Camera.Update() If CameraLevels IsNot Nothing AndAlso CameraLevels.Count > 0 Then
Level.Update() Camera.Update()
Level.Update()
End If
CreditsPages(CurrentPageIndex).Update() CreditsPages(CurrentPageIndex).Update()
@ -141,15 +149,17 @@ Public Class CreditsScreen
End If End If
End If End If
If CType(Camera, CreditsCamera).IsReady = True And TheEnd = False Then If CameraLevels IsNot Nothing AndAlso CameraLevels.Count > 0 Then
Me.CurrentCameraLevelIndex += 1 If CType(Camera, CreditsCamera).IsReady = True And TheEnd = False Then
If Me.CurrentCameraLevelIndex > Me.CameraLevels.Count - 1 Then Me.CurrentCameraLevelIndex += 1
Me.CurrentCameraLevelIndex = 0 If Me.CurrentCameraLevelIndex > Me.CameraLevels.Count - 1 Then
Me.CurrentCameraLevelIndex = 0
End If
Me.ExecutedCameraLevel = False
End If End If
Me.ExecutedCameraLevel = False
End If
ExecuteCameraLevel() ExecuteCameraLevel()
End If
End Sub End Sub
Public Sub ChangeSavedScreen() Public Sub ChangeSavedScreen()