From f5941a79bc4361ab1401d5b8afe831bae1f9b593 Mon Sep 17 00:00:00 2001
From: JappaWakkaP3D <31563291+JappaWakka@users.noreply.github.com>
Date: Tue, 28 Dec 2021 13:56:53 +0100
Subject: [PATCH] Fixed a bug in the option menu (see description)

BUG: If you go to the contentpack options menu in the main menu, then exit out of it and start the a save file, the ingame options menu still displays the contentpack menu
---
 P3D/Screens/NewOptionScreen.vb | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/P3D/Screens/NewOptionScreen.vb b/P3D/Screens/NewOptionScreen.vb
index 95851e755..4eb36969f 100644
--- a/P3D/Screens/NewOptionScreen.vb
+++ b/P3D/Screens/NewOptionScreen.vb
@@ -1,7 +1,6 @@
 Public Class NewOptionScreen
 
     Inherits Screen
-
     Dim TextSpeed As Integer = 2
     Dim CameraSpeed As Integer = 12
     Dim FOV As Single = 45.0F
@@ -90,7 +89,7 @@
             Camera = New OverworldCamera()
         End If
         SetFunctionality()
-        If Submenu > 0 Then
+        If Submenu > 0 AndAlso PreScreen.Identification = Identifications.MainMenuScreen Then
             _subMenu = Submenu
             Select Case _subMenu
                 Case 1
@@ -102,12 +101,15 @@
                 Case 4
                     SwitchToContentPacks()
             End Select
+        Else
+            _subMenu = 0
+            ScreenIndex = 0
         End If
     End Sub
 
     Private Sub SetFunctionality()
-        Camera = CType(Screen.Camera, OverworldCamera)
         If PreScreen.Identification <> Identifications.MainMenuScreen Then
+            Camera = CType(Screen.Camera, OverworldCamera)
             Me.FOV = Camera.FOV
             Me.TextSpeed = TextBox.TextSpeed
             Me.CameraSpeed = CInt(Camera.RotationSpeed * 10000)