Pause Screen Fixes + Indentation fix

- Fixed crash that occured when pausing the game during the old intro
- Fix weird indentation in warpblock.vb

P3D/Entites/Enviroment/WarpBlock.vb

@@ -43,8 +43,8 @@
                     Screen.Level.WarpData.IsWarpBlock = True
                     Logger.Debug("Lock Camera")
                     CType(Screen.Camera, OverworldCamera).YawLocked = True
-                    Else
-                        Screen.Level = New Level()
+                Else
+                    Screen.Level = New Level()
                     Screen.Level.Load(Me.AdditionalValue.GetSplit(0))
                     Screen.Level.World.Initialize(Screen.Level.EnvironmentType, Screen.Level.WeatherType)
 

P3D/Screens/MainMenu/AddServerScreen.vb

@@ -21,7 +21,7 @@
             Me.ServerNames.Add(s.IdentifierName.ToLower())
         Next
 
-        Me.CanBePaused = True
+        Me.CanBePaused = False
         Me.CanChat = False
         Me.CanMuteMusic = False
         Me.MouseVisible = True

P3D/Screens/MainMenu/PauseScreen.vb

@@ -25,17 +25,21 @@
         If Core.Player.IsGameJoltSave = True Then
             Me.canCreateAutosave = False
         Else
-            If Me.PreScreen IsNot Nothing AndAlso Camera.Name IsNot Nothing Then
-                If Camera.Name <> "Overworld" Then
-                    Me.canCreateAutosave = False
-                Else
-                    Dim s As Screen = Me.PreScreen
-                    While s.Identification <> Identifications.OverworldScreen And Not s.PreScreen Is Nothing
-                        s = s.PreScreen
-                    End While
-                    If s.Identification = Identifications.OverworldScreen Then
-                        If CType(s, OverworldScreen).ActionScript.IsReady = False Then
-                            Me.canCreateAutosave = False
+            If Me.PreScreen IsNot Nothing Then
+                If Camera Is Nothing Then
+                    Camera = New OverworldCamera()
+                ElseIf Camera.Name IsNot Nothing Then
+                    If Camera.Name <> "Overworld" Then
+                        Me.canCreateAutosave = False
+                    Else
+                        Dim s As Screen = Me.PreScreen
+                        While s.Identification <> Identifications.OverworldScreen And Not s.PreScreen Is Nothing
+                            s = s.PreScreen
+                        End While
+                        If s.Identification = Identifications.OverworldScreen Then
+                            If CType(s, OverworldScreen).ActionScript.IsReady = False Then
+                                Me.canCreateAutosave = False
+                            End If
                         End If
                     End If
                 End If