retrowrapper-support

Author: zkitefly

Plain Craft Launcher 2/Modules/Minecraft/ModLaunch.vb

@@ -1321,6 +1321,14 @@ Retry:
     End Function
     Private ExtractJavaWrapperLock As New Object
 
+    ''' <summary>
+    ''' 判断是否使用 RetroWrapper。
+    ''' </summary>
+    Private Function McLaunchNeedsRetroWrapper() As Boolean
+        Return McVersionCurrent.Version.McCodeMain <= 5 AndAlso McVersionCurrent.Version.McCodeMain > 0 AndAlso '<=1.5
+               Not Setup.Get("LaunchAdvanceDisableRW") AndAlso Not Setup.Get("VersionAdvanceDisableRW", McVersionCurrent) 
+    End Function
+
     '主方法，合并 Jvm、Game、Replace 三部分的参数数据
     Private Sub McLaunchArgumentMain(Loader As LoaderTask(Of String, List(Of McLibToken)))
         McLaunchLog("开始获取 Minecraft 启动参数")
@@ -1504,6 +1512,13 @@ NextVersion:
             DataList.Add("-jar """ & ExtractJavaWrapper() & """")
         End If
 
+        '添加 RetroWrapper 相关参数
+        If McLaunchNeedsRetroWrapper() Then
+            'https://github.com/NeRdTheNed/RetroWrapper/wiki/RetroWrapper-flags
+            DataList.Add("-Dretrowrapper.doUpdateCheck=false")
+            DataList.Add("-Dretrowrapper.enableFMLPatch=true")
+        End If
+
         '将 "-XXX" 与后面 "XXX" 合并到一起
         '如果不合并，会导致 Forge 1.17 启动无效，它有两个 --add-exports，进一步导致其中一个在后面被去重
         Dim DeDuplicateDataList As New List(Of String)
@@ -1696,6 +1711,18 @@ NextVersion:
         Loader.Output = LibList
         Dim CpStrings As New List(Of String)
         Dim OptiFineCp As String = Nothing
+
+        'RetroWrapper 释放
+        If McLaunchNeedsRetroWrapper() Then
+            Dim WrapperPath As String = PathMcFolder & "libraries\retrowrapper\RetroWrapper.jar"
+            Try
+                WriteFile(WrapperPath, GetResources("RetroWrapper"))
+                CpStrings.Add(WrapperPath)  
+            Catch ex As Exception
+                Log(ex, "RetroWrapper 释放失败")
+            End Try
+        End If
+
         For Each Library As McLibToken In LibList
             If Library.IsNatives Then Continue For
             If Library.Name IsNot Nothing AndAlso Library.Name = "optifine:OptiFine" Then

Plain Craft Launcher 2/My Project/Resources.Designer.vb

@@ -136,6 +136,9 @@
   <data name="JavaWrapper" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\java-wrapper.jar;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="RetroWrapper" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\RetroWrapper-1.7.8.jar;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="Json" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Newtonsoft.Json.dll;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>

Plain Craft Launcher 2/My Project/Resources.resx

@@ -105,6 +105,7 @@
         {"LaunchAdvanceRun", New SetupEntry("")},
         {"LaunchAdvanceRunWait", New SetupEntry(True)},
         {"LaunchAdvanceDisableJLW", New SetupEntry(False)},
+        {"LaunchAdvanceDisableRW", New SetupEntry(False)},
         {"LaunchAdvanceGraphicCard", New SetupEntry(True, Source:=SetupSource.Registry)},
         {"LaunchRamType", New SetupEntry(0)},
         {"LaunchRamCustom", New SetupEntry(15)},
@@ -179,6 +180,7 @@
         {"VersionAdvanceRun", New SetupEntry("", Source:=SetupSource.Version)},
         {"VersionAdvanceRunWait", New SetupEntry(True, Source:=SetupSource.Version)},
         {"VersionAdvanceDisableJLW", New SetupEntry(False, Source:=SetupSource.Version)},
+        {"VersionAdvanceDisableRW", New SetupEntry(False, Source:=SetupSource.Version)},
         {"VersionRamType", New SetupEntry(2, Source:=SetupSource.Version)},
         {"VersionRamCustom", New SetupEntry(15, Source:=SetupSource.Version)},
         {"VersionRamOptimize", New SetupEntry(0, Source:=SetupSource.Version)},

Plain Craft Launcher 2/Pages/PageSetup/ModSetup.vb

@@ -254,6 +254,8 @@
                     <StackPanel Margin="0,12,0,4" Grid.Row="7" Grid.ColumnSpan="2" HorizontalAlignment="Left">
                         <local:MyCheckBox Height="28" Text="禁用 Java Launch Wrapper" x:Name="CheckAdvanceDisableJLW" Tag="LaunchAdvanceDisableJLW"
                             ToolTipService.Placement="Right" ToolTip="PCL 会使用 Java Launch Wrapper 来修复老版本 Java 在中文路径下无法启动的问题。&#xa;如果这被反作弊拦截，或遇到其他问题，也可以将其关闭。" />
+                        <local:MyCheckBox Height="28" Text="禁用 RetroWrapper" x:Name="CheckAdvanceDisableRW" Tag="LaunchAdvanceDisableRW"
+                            ToolTipService.Placement="Right" ToolTip="PCL 会在启动 1.5.x 即以下版本时使用 NeRdTheNed/RetroWrapper 来修复老版本的体验和兼容的问题。" />
                         <local:MyCheckBox Height="28" Text="要求 Java 使用高性能显卡" x:Name="CheckAdvanceGraphicCard" Tag="LaunchAdvanceGraphicCard"
                             ToolTipService.Placement="Right" ToolTip="自动在 Windows 设置 → 系统 → 屏幕 → 显示卡 中将 Java 改为使用高性能显卡。&#xa;如果电脑同时有集显和独显，这能确保 MC 使用独显进行渲染，以大幅提高性能。" />
                     </StackPanel>

Plain Craft Launcher 2/Pages/PageSetup/PageSetupLaunch.xaml

@@ -56,6 +56,7 @@
             TextAdvanceRun.Text = Setup.Get("LaunchAdvanceRun")
             CheckAdvanceRunWait.Checked = Setup.Get("LaunchAdvanceRunWait")
             CheckAdvanceDisableJLW.Checked = Setup.Get("LaunchAdvanceDisableJLW")
+            CheckAdvanceDisableRW.Checked = Setup.Get("LaunchAdvanceDisableRW")
             CheckAdvanceGraphicCard.Checked = Setup.Get("LaunchAdvanceGraphicCard")
 
         Catch ex As NullReferenceException

Plain Craft Launcher 2/Pages/PageSetup/PageSetupLaunch.xaml.vb

@@ -226,6 +226,9 @@
                         <local:MyCheckBox Height="28" Text="禁用 Java Launch Wrapper" x:Name="CheckAdvanceDisableJLW" Tag="VersionAdvanceDisableJLW"
                                           ToolTipService.Placement="Right"
                                           ToolTip="PCL 会使用 Java Launch Wrapper 来修复老版本 Java 在中文路径下无法启动的问题。&#xa;如果这被反作弊拦截，或遇到其他问题，也可以将其关闭。" />
+                        <local:MyCheckBox Height="28" Text="禁用 RetroWrapper" x:Name="CheckAdvanceDisableRW" Tag="VersionAdvanceDisableRW"
+                                          ToolTipService.Placement="Right"
+                                          ToolTip="PCL 会在启动 1.5.x 即以下版本时使用 NeRdTheNed/RetroWrapper 来修复老版本的体验和兼容的问题。" />
                     </StackPanel>
                 </Grid>
             </local:MyCard>