Add files via upload

APBepis/APBepis/APBepis.vbproj

@@ -27,8 +27,8 @@
     <PublisherName>Fang</PublisherName>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
     <DisallowUrlActivation>true</DisallowUrlActivation>
-    <ApplicationRevision>2</ApplicationRevision>
-    <ApplicationVersion>1.0.0.2</ApplicationVersion>
+    <ApplicationRevision>3</ApplicationRevision>
+    <ApplicationVersion>1.0.0.3</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <ExcludeDeploymentUrl>true</ExcludeDeploymentUrl>
     <BootstrapperEnabled>true</BootstrapperEnabled>

APBepis/APBepis/CurrentValueLabels.vb

@@ -215,6 +215,7 @@
         Form1.LabelTEXCAT_ContactFairUsagePriorityCurrent2.Text = DeclareCompatVarialbes.TEXCAT_ContactFairUsagePriorityValue
         Form1.LabelTEXCAT_ContactDisableStreamingCurrent2.Text = DeclareCompatVarialbes.TEXCAT_ContactDisableStreamingValue
         SetOtherValueLabels()
+        SetAPBGameValueLabels()
     End Sub
     Public Shared Sub SetCurrentBucket1and2ValueLabels()
         DeclareCompatVarialbes.DeclareCompatVariablesAgainBucket1and2()
@@ -280,6 +281,7 @@
         Form1.LabelMaxFreeMemoryUsedByVBPoolCurrent2.Text = DeclareCompatVarialbes.MaxFreeMemoryUsedByVBPoolValue
         Form1.LabelMaxFreeMemoryUsedByIBPoolCurrent2.Text = DeclareCompatVarialbes.MaxFreeMemoryUsedByIBPoolValue
         SetOtherValueLabels()
+        SetAPBGameValueLabels()
     End Sub
     Public Shared Sub SetCurrentBucket3ValueLabels()
         DeclareCompatVarialbes.DeclareCompatVariablesAgainBucket3()
@@ -298,11 +300,18 @@
         Form1.LabelMaxFreeMemoryUsedByVBPoolCurrent2.Text = DeclareCompatVarialbes.MaxFreeMemoryUsedByVBPoolValue
         Form1.LabelMaxFreeMemoryUsedByIBPoolCurrent2.Text = DeclareCompatVarialbes.MaxFreeMemoryUsedByIBPoolValue
         SetOtherValueLabels()
+        SetAPBGameValueLabels()
     End Sub
     Public Shared Sub SetOtherValueLabels()
         DeclareCompatVarialbes.DeclareOtherValuesAgain()
         Form1.LabelMinSmoothedFrameRateCurrent2.Text = DeclareCompatVarialbes.MinSmoothedFrameRateValue
         Form1.LabelMaxSmoothedFrameRateCurrent2.Text = DeclareCompatVarialbes.MaxSmoothedFrameRateValue
         Form1.LabelMinDesiredFrameRateCurrent2.Text = DeclareCompatVarialbes.MinDesiredFrameRateValue
     End Sub
+    Public Shared Sub SetAPBGameValueLabels()
+        DeclareCompatVarialbes.APBGameValuesAgain()
+        Form1.Labelm_bHideEnvironmentStreamingOnStartupCurrent2.Text = DeclareCompatVarialbes.m_bHideEnvironmentStreamingOnStartupValue
+        Form1.Labelm_bHideCharacterStreamingOnStartupCurrent2.Text = DeclareCompatVarialbes.m_bHideCharacterStreamingOnStartupValue
+        Form1.Labelm_bWaitForClosestBuildingLODOnlyCurrent2.Text = DeclareCompatVarialbes.m_bWaitForClosestBuildingLODOnlyValue
+    End Sub
 End Class

APBepis/APBepis/CurrentValues.vb

@@ -215,6 +215,7 @@
         Form1.TextBoxTEXCAT_ContactFairUsagePriority.Text = DeclareCompatVarialbes.TEXCAT_ContactFairUsagePriorityValue
         Form1.CheckBoxTEXCAT_ContactDisableStreaming.Checked = DeclareCompatVarialbes.TEXCAT_ContactDisableStreamingValue
         LoadOtherValuesToControls()
+        LoadAPBGameValuesToControls()
     End Sub
     Public Shared Sub LoadCurrentBucket1and2ValuesToControls()
         DeclareCompatVarialbes.DeclareCompatVariablesAgainBucket1and2()
@@ -280,6 +281,7 @@
         Form1.TextBoxMaxFreeMemoryUsedByVBPool.Text = DeclareCompatVarialbes.MaxFreeMemoryUsedByVBPoolValue
         Form1.TextBoxMaxFreeMemoryUsedByIBPool.Text = DeclareCompatVarialbes.MaxFreeMemoryUsedByIBPoolValue
         LoadOtherValuesToControls()
+        LoadAPBGameValuesToControls()
     End Sub
     Public Shared Sub LoadCurrentBucket3ValuesToControls()
         DeclareCompatVarialbes.DeclareCompatVariablesAgainBucket3()
@@ -298,11 +300,18 @@
         Form1.TextBoxMaxFreeMemoryUsedByVBPool.Text = DeclareCompatVarialbes.MaxFreeMemoryUsedByVBPoolValue
         Form1.TextBoxMaxFreeMemoryUsedByIBPool.Text = DeclareCompatVarialbes.MaxFreeMemoryUsedByIBPoolValue
         LoadOtherValuesToControls()
+        LoadAPBGameValuesToControls()
     End Sub
     Public Shared Sub LoadOtherValuesToControls()
         DeclareCompatVarialbes.DeclareOtherValuesAgain()
         Form1.TextBoxMinSmoothedFrameRate.Text = DeclareCompatVarialbes.MinSmoothedFrameRateValue
         Form1.TextBoxMaxSmoothedFrameRate.Text = DeclareCompatVarialbes.MaxSmoothedFrameRateValue
         Form1.TextBoxMinDesiredFrameRate.Text = DeclareCompatVarialbes.MinDesiredFrameRateValue
     End Sub
+    Public Shared Sub LoadAPBGameValuesToControls()
+        DeclareCompatVarialbes.APBGameValuesAgain()
+        Form1.CheckBoxm_bHideEnvironmentStreamingOnStartup.Checked = DeclareCompatVarialbes.m_bHideEnvironmentStreamingOnStartupValue
+        Form1.CheckBoxm_bHideCharacterStreamingOnStartup.Checked = DeclareCompatVarialbes.m_bHideCharacterStreamingOnStartupValue
+        Form1.CheckBoxm_bWaitForClosestBuildingLODOnly.Checked = DeclareCompatVarialbes.m_bWaitForClosestBuildingLODOnlyValue
+    End Sub
 End Class

APBepis/APBepis/DeclareCompatVarialbes.vb

@@ -338,6 +338,10 @@
     Public Shared MinSmoothedFrameRateValue As String = Form1.BaseEngine.GetString("Engine.GameEngine", "MinSmoothedFrameRate", "(none)")
     Public Shared MaxSmoothedFrameRateValue As String = Form1.BaseEngine.GetString("Engine.GameEngine", "MaxSmoothedFrameRate", "(none)")
     Public Shared MinDesiredFrameRateValue As String = Form1.BaseEngine.GetString("Engine.Client", "MinDesiredFrameRate", "(none)")
+    '---APBGame.ini---
+    Public Shared m_bHideEnvironmentStreamingOnStartupValue As String = Form1.APBGame.GetString("APBGame.cAPBPlayerController", "m_bHideEnvironmentStreamingOnStartup", "(none)")
+    Public Shared m_bHideCharacterStreamingOnStartupValue As String = Form1.APBGame.GetString("APBGame.cAPBPlayerController", "m_bHideCharacterStreamingOnStartup", "(none)")
+    Public Shared m_bWaitForClosestBuildingLODOnlyValue As String = Form1.APBGame.GetString("APBGame.cAPBPlayerController", "m_bWaitForClosestBuildingLODOnly", "(none)")
     '!-!'!-!'Experimental'!-!'!-!'
     Public Shared MaxDynamicChunkCountValue As String = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalDestructible", "MaxDynamicChunkCount", "(none)")
     Public Shared DebrisLifetimeValue As String = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalDestructible", "DebrisLifetime", "(none)")
@@ -762,18 +766,28 @@ Form1.LabelnMaxMemoryCacheEntryCountCurrent2,
 Form1.TextBoxnMaxMemoryCacheEntryCount
 }
     Public Shared ControlConstraintsAlwaysActive As New List(Of Control) From {
-    Form1.LabelMinSmoothedFrameRate,
-    Form1.LabelMinSmoothedFrameRateCurrent1,
-    Form1.LabelMinSmoothedFrameRateCurrent2,
-    Form1.TextBoxMinSmoothedFrameRate,
-    Form1.LabelMaxSmoothedFrameRate,
-    Form1.LabelMaxSmoothedFrameRateCurrent1,
-    Form1.LabelMaxSmoothedFrameRateCurrent2,
-    Form1.TextBoxMaxSmoothedFrameRate,
-    Form1.LabelMinDesiredFrameRate,
-    Form1.LabelMinDesiredFrameRateCurrent1,
-    Form1.LabelMinDesiredFrameRateCurrent2,
-    Form1.TextBoxMinDesiredFrameRate
+Form1.LabelMinSmoothedFrameRate,
+Form1.LabelMinSmoothedFrameRateCurrent1,
+Form1.LabelMinSmoothedFrameRateCurrent2,
+Form1.TextBoxMinSmoothedFrameRate,
+Form1.LabelMaxSmoothedFrameRate,
+Form1.LabelMaxSmoothedFrameRateCurrent1,
+Form1.LabelMaxSmoothedFrameRateCurrent2,
+Form1.TextBoxMaxSmoothedFrameRate,
+Form1.LabelMinDesiredFrameRate,
+Form1.LabelMinDesiredFrameRateCurrent1,
+Form1.LabelMinDesiredFrameRateCurrent2,
+Form1.TextBoxMinDesiredFrameRate,
+Form1.CheckBoxm_bHideEnvironmentStreamingOnStartup,
+Form1.Labelm_bHideEnvironmentStreamingOnStartupCurrent1,
+Form1.Labelm_bHideEnvironmentStreamingOnStartupCurrent2,
+Form1.CheckBoxm_bHideCharacterStreamingOnStartup,
+Form1.Labelm_bHideCharacterStreamingOnStartupCurrent1,
+Form1.Labelm_bHideCharacterStreamingOnStartupCurrent2,
+Form1.CheckBoxm_bWaitForClosestBuildingLODOnly,
+Form1.Labelm_bWaitForClosestBuildingLODOnlyCurrent1,
+Form1.Labelm_bWaitForClosestBuildingLODOnlyCurrent2,
+Form1.ButtonDefaults
     }
     Public Shared Sub DeclareCompatVariablesAgain()
         StaticDecalsValue = Form1.APBCompat.GetString(Form1.APBCompatSection, "StaticDecals", "(none)")
@@ -1237,4 +1251,9 @@ Form1.TextBoxnMaxMemoryCacheEntryCount
         ParticlePercentageValue = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalEmitter", "ParticlePercentage", "(none)")
         '!-!'!-!'END Experimental'!-!'!-!'
     End Sub
+    Public Shared Sub APBGameValuesAgain()
+        m_bHideEnvironmentStreamingOnStartupValue = Form1.APBGame.GetString("APBGame.cAPBPlayerController", "m_bHideEnvironmentStreamingOnStartup", "(none)")
+        m_bHideCharacterStreamingOnStartupValue = Form1.APBGame.GetString("APBGame.cAPBPlayerController", "m_bHideCharacterStreamingOnStartup", "(none)")
+        m_bWaitForClosestBuildingLODOnlyValue = Form1.APBGame.GetString("APBGame.cAPBPlayerController", "m_bWaitForClosestBuildingLODOnly", "(none)")
+    End Sub
 End Class