Add files via upload

APBepis/APBepis/APBepis.vbproj

@@ -27,8 +27,8 @@
     <PublisherName>Fang</PublisherName>
     <OpenBrowserOnPublish>false</OpenBrowserOnPublish>
     <DisallowUrlActivation>true</DisallowUrlActivation>
-    <ApplicationRevision>0</ApplicationRevision>
-    <ApplicationVersion>1.0.0.0</ApplicationVersion>
+    <ApplicationRevision>1</ApplicationRevision>
+    <ApplicationVersion>1.0.0.1</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <ExcludeDeploymentUrl>true</ExcludeDeploymentUrl>
     <BootstrapperEnabled>true</BootstrapperEnabled>

APBepis/APBepis/DeclareCompatVarialbes.vb

@@ -335,13 +335,13 @@
     Public Shared MaxFreeMemoryUsedByVBPoolValue As String = Form1.APBCompat.GetString(Form1.APBCompatSection, "MaxFreeMemoryUsedByVBPool", "(none)")
     Public Shared MaxFreeMemoryUsedByIBPoolValue As String = Form1.APBCompat.GetString(Form1.APBCompatSection, "MaxFreeMemoryUsedByIBPool", "(none)")
     '---APBEngine.ini---
-    Public Shared MinSmoothedFrameRateValue As String = Form1.APBEngine.GetString("Engine.GameEngine", "MinSmoothedFrameRate", "(none)")
-    Public Shared MaxSmoothedFrameRateValue As String = Form1.APBEngine.GetString("Engine.GameEngine", "MaxSmoothedFrameRate", "(none)")
-    Public Shared MinDesiredFrameRateValue As String = Form1.APBEngine.GetString("Engine.Client", "MinDesiredFrameRate", "(none)")
+    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)")
     '!-!'!-!'Experimental'!-!'!-!'
-    Public Shared MaxDynamicChunkCountValue As String = Form1.APBEngine.GetString("Engine.PhysicsLODVerticalDestructible", "MaxDynamicChunkCount", "(none)")
-    Public Shared DebrisLifetimeValue As String = Form1.APBEngine.GetString("Engine.PhysicsLODVerticalDestructible", "DebrisLifetime", "(none)")
-    Public Shared ParticlePercentageValue As String = Form1.APBEngine.GetString("Engine.PhysicsLODVerticalEmitter", "ParticlePercentage", "(none)")
+    Public Shared MaxDynamicChunkCountValue As String = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalDestructible", "MaxDynamicChunkCount", "(none)")
+    Public Shared DebrisLifetimeValue As String = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalDestructible", "DebrisLifetime", "(none)")
+    Public Shared ParticlePercentageValue As String = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalEmitter", "ParticlePercentage", "(none)")
     '!-!'!-!'END Experimental'!-!'!-!'
     Public Shared ControlConstraintsBucket1and2 As New List(Of Control) From {
     Form1.LabelnCharacterDiffuseWidth,
@@ -1228,13 +1228,13 @@ Form1.TextBoxnMaxMemoryCacheEntryCount
     End Sub
     Public Shared Sub DeclareOtherValuesAgain()
         '---APBEngine.ini---
-        MinSmoothedFrameRateValue = Form1.APBEngine.GetString("Engine.GameEngine", "MinSmoothedFrameRate", "(none)")
-        MaxSmoothedFrameRateValue = Form1.APBEngine.GetString("Engine.GameEngine", "MaxSmoothedFrameRate", "(none)")
-        MinDesiredFrameRateValue = Form1.APBEngine.GetString("Engine.Client", "MinDesiredFrameRate", "(none)")
+        MinSmoothedFrameRateValue = Form1.BaseEngine.GetString("Engine.GameEngine", "MinSmoothedFrameRate", "(none)")
+        MaxSmoothedFrameRateValue = Form1.BaseEngine.GetString("Engine.GameEngine", "MaxSmoothedFrameRate", "(none)")
+        MinDesiredFrameRateValue = Form1.BaseEngine.GetString("Engine.Client", "MinDesiredFrameRate", "(none)")
         '!-!'!-!'Experimental'!-!'!-!'
-        MaxDynamicChunkCountValue = Form1.APBEngine.GetString("Engine.PhysicsLODVerticalDestructible", "MaxDynamicChunkCount", "(none)")
-        DebrisLifetimeValue = Form1.APBEngine.GetString("Engine.PhysicsLODVerticalDestructible", "DebrisLifetime", "(none)")
-        ParticlePercentageValue = Form1.APBEngine.GetString("Engine.PhysicsLODVerticalEmitter", "ParticlePercentage", "(none)")
+        MaxDynamicChunkCountValue = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalDestructible", "MaxDynamicChunkCount", "(none)")
+        DebrisLifetimeValue = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalDestructible", "DebrisLifetime", "(none)")
+        ParticlePercentageValue = Form1.BaseEngine.GetString("Engine.PhysicsLODVerticalEmitter", "ParticlePercentage", "(none)")
         '!-!'!-!'END Experimental'!-!'!-!'
     End Sub
 End Class

APBepis/APBepis/Form1.vb

@@ -5,8 +5,6 @@ Public Class Form1
     Public Shared APBCompat As New IniFile(APBCompatSourceFile)
     Public Shared BaseEngineSourceFile = APBInstallDir + "\Engine\Config\BaseEngine.ini"
     Public Shared BaseEngine As New IniFile(BaseEngineSourceFile)
-    Public Shared APBEngineSourceFile = APBInstallDir + "\APBGame\Config\APBEngine.ini"
-    Public Shared APBEngine As New IniFile(APBEngineSourceFile)
     Public Shared APBCompatSection = "AppCompatBucket1"
     Dim PrevSize As New Size()
     Dim PrevState = ""

APBepis/APBepis/Form1LoadEvents.vb

@@ -58,7 +58,7 @@
         Next
     End Sub
     Public Shared Sub UnCommentSmoothFrameRates()
-        My.Computer.FileSystem.WriteAllText(Form1.APBEngineSourceFile, My.Computer.FileSystem.ReadAllText(Form1.APBEngineSourceFile).Replace(";MinSmoothedFrameRate", "MinSmoothedFrameRate"), False, System.Text.Encoding.ASCII)
-        My.Computer.FileSystem.WriteAllText(Form1.APBEngineSourceFile, My.Computer.FileSystem.ReadAllText(Form1.APBEngineSourceFile).Replace(";MaxSmoothedFrameRate", "MaxSmoothedFrameRate"), False, System.Text.Encoding.ASCII)
+        My.Computer.FileSystem.WriteAllText(Form1.BaseEngineSourceFile, My.Computer.FileSystem.ReadAllText(Form1.BaseEngineSourceFile).Replace(";MinSmoothedFrameRate", "MinSmoothedFrameRate"), False, System.Text.Encoding.ASCII)
+        My.Computer.FileSystem.WriteAllText(Form1.BaseEngineSourceFile, My.Computer.FileSystem.ReadAllText(Form1.BaseEngineSourceFile).Replace(";MaxSmoothedFrameRate", "MaxSmoothedFrameRate"), False, System.Text.Encoding.ASCII)
     End Sub
 End Class

APBepis/APBepis/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.0.0.1")>
+<Assembly: AssemblyFileVersion("1.0.0.1")>

APBepis/APBepis/WriteNewCompatValues.vb

@@ -187,9 +187,9 @@
     Public Shared Sub WriteNewOtherValues()
         DeclareCompatVarialbes.DeclareOtherValuesAgain()
         '---APBEngine.ini---
-        Form1.APBEngine.WriteString("Engine.GameEngine", "MinSmoothedFrameRate", Form1.TextBoxMinSmoothedFrameRate.Text) '"65")
-        Form1.APBEngine.WriteString("Engine.GameEngine", "MaxSmoothedFrameRate", Form1.TextBoxMaxSmoothedFrameRate.Text) '"75")
-        Form1.APBEngine.WriteString("Engine.Client", "MinDesiredFrameRate", Form1.TextBoxMinDesiredFrameRate.Text) '"75")
+        Form1.BaseEngine.WriteString("Engine.GameEngine", "MinSmoothedFrameRate", Form1.TextBoxMinSmoothedFrameRate.Text) '"65")
+        Form1.BaseEngine.WriteString("Engine.GameEngine", "MaxSmoothedFrameRate", Form1.TextBoxMaxSmoothedFrameRate.Text) '"75")
+        Form1.BaseEngine.WriteString("Engine.Client", "MinDesiredFrameRate", Form1.TextBoxMinDesiredFrameRate.Text) '"75")
         '!-!'!-!'Experimental'!-!'!-!'
         'Form1.APBEngine.WriteString("Engine.PhysicsLODVerticalDestructible", "MaxDynamicChunkCount", "1000")
         'Form1.APBEngine.WriteString("Engine.PhysicsLODVerticalDestructible", "DebrisLifetime", "60.0")