✨ 导出整合包：Modrinth

2024-07-11 10:07:59 +08:00
parent 87e1fb0b1e
commit 49db56856d
4 changed files with 116 additions and 14 deletions
@@ -1,10 +1,15 @@
 Public Class PageVersionExport
    Public Sub BtnExportExport_Click() Handles BtnExportExport.Click
-        ModpackExport(New ExportOptions(McVersionCurrent,
-                                        Path & "export.zip",
-                                        ModpackType.Compressed,
-                                        {"新的世界", "雕塑"},
-                                        PCLSetupGlobal:=False,
-                                        PCLSetupVer:=True))
+        Dim Type As ModpackType = ModpackType.Modrinth
+        If Type = ModpackType.Compressed AndAlso Val(VersionBranchCode) <> 50 Then
+            MyMsgBox("你当前的 PCL 不是正式版，且受到再次分发（制作压缩包）的限制。" & vbCrLf &
+                     "请使用正式版再次进行该操作再试！" & vbCrLf &
+                     "其他类型的整合包（例如 Modrinth 整合包）没有该限制。")
+            Exit Sub
+        End If
+        RunInNewThread(Sub()
+                           ModpackExport(New ExportOptions(McVersionCurrent, Path & "exportmr.zip", Type, {"新的世界", "雕塑"},
+                                                           PCLSetupGlobal:=False, PCLSetupVer:=True, VerID:="1.2.3"))
+                       End Sub, "Modpack Export")
    End Sub
 End Class