From 8e3af89bd3721dc04480e5a2e85e3858be57559b Mon Sep 17 00:00:00 2001 From: youzi-2333 Date: Sat, 6 Jul 2024 22:34:12 +0800 Subject: [PATCH] =?UTF-8?q?:sparkles:=20=E5=AE=8C=E6=88=90=20#3066=20?= =?UTF-8?q?=E8=87=AA=E5=8A=A8=E5=AE=89=E8=A3=85=20modpack.zip?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Pages/PageLaunch/PageLaunchLeft.xaml.vb | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/Plain Craft Launcher 2/Pages/PageLaunch/PageLaunchLeft.xaml.vb b/Plain Craft Launcher 2/Pages/PageLaunch/PageLaunchLeft.xaml.vb index c7da13c..777ed52 100644 --- a/Plain Craft Launcher 2/Pages/PageLaunch/PageLaunchLeft.xaml.vb +++ b/Plain Craft Launcher 2/Pages/PageLaunch/PageLaunchLeft.xaml.vb @@ -57,6 +57,7 @@ Log("[Launch] 自动选择 Minecraft 版本：" & Version.Path) End If End If + RunInUi( Sub() McVersionCurrent = Version '绕这一圈是为了避免 McVersionCheck 触发第二次版本改变 @@ -72,6 +73,21 @@ If LoginType = McLoginType.Legacy OrElse LoginType = McLoginType.Ms Then CType(FindName("RadioLoginType" & LoginType), MyRadioButton).Checked = True RefreshPage(False, False) + '整合包安装 + If McVersionList.Count = 0 AndAlso File.Exists(Path & "modpack.zip") Then + If MyMsgBox("即将自动安装整合包，是否继续？", Button2:="取消") = 1 Then + If Not Directory.Exists(Path & ".minecraft\") Then + Directory.CreateDirectory(Path & ".minecraft\") + Directory.CreateDirectory(Path & ".minecraft\versions\") + Setup.Set("LaunchFolderSelect", "$.minecraft\") + McFolderLauncherProfilesJsonCreate(Path & ".minecraft\") + End If + McFolderListLoader.Start(IsForceRestart:=True) + + RunInNewThread(Sub() ModpackInstall(Path & "modpack.zip", ShowHint:=False), "Modpack Auto Install") + End If + End If + AniControlEnabled -= 1 End Sub