InfStarMC/PCL-ISE
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

feat(ModDownloadLib): 自动创建资源包文件夹

Browse Source
This commit is contained in:
wyc-26
2025-05-01 10:41:25 +08:00
parent 44aea3e962
commit fa12897ea9
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Plain Craft Launcher 2/Modules/Minecraft/ModLaunch.vb
-1
View File
@@ -1954,7 +1954,6 @@ NextVersion:
'离线皮肤资源包 '离线皮肤资源包
Try Try
Directory.CreateDirectory(McVersionCurrent.PathIndie & "resourcepacks\")
Dim ZipFileAddress As String = McVersionCurrent.PathIndie & "resourcepacks\PCL2 Skin.zip" Dim ZipFileAddress As String = McVersionCurrent.PathIndie & "resourcepacks\PCL2 Skin.zip"
Dim NewTypeSetup As Boolean = McVersionCurrent.Version.McCodeMain >= 13 OrElse McVersionCurrent.Version.McCodeMain < 6 Dim NewTypeSetup As Boolean = McVersionCurrent.Version.McCodeMain >= 13 OrElse McVersionCurrent.Version.McCodeMain < 6
If McLoginLoader.Input.Type = McLoginType.Legacy AndAlso Setup.Get("LaunchSkinType") = 4 AndAlso File.Exists(PathAppdata & "CustomSkin.png") Then If McLoginLoader.Input.Type = McLoginType.Legacy AndAlso Setup.Get("LaunchSkinType") = 4 AndAlso File.Exists(PathAppdata & "CustomSkin.png") Then
Plain Craft Launcher 2/Pages/PageDownload/ModDownloadLib.vb
+3
View File
@@ -2164,12 +2164,15 @@ Retry:
If Directory.Exists(TempMcFolder & "libraries") Then CopyDirectory(TempMcFolder & "libraries", PathMcFolder & "libraries") If Directory.Exists(TempMcFolder & "libraries") Then CopyDirectory(TempMcFolder & "libraries", PathMcFolder & "libraries")
Task.Progress = 0.8 Task.Progress = 0.8
Dim ModsFolder = New McVersion(VersionFolder).PathIndie & "mods\" '版本隔离信息在此时被决定 Dim ModsFolder = New McVersion(VersionFolder).PathIndie & "mods\" '版本隔离信息在此时被决定
Dim ResourcepacksFolder = New McVersion(VersionFolder).PathIndie & "resourcepacks\"
If Directory.Exists(ModsTempFolder) Then If Directory.Exists(ModsTempFolder) Then
CopyDirectory(ModsTempFolder, ModsFolder) CopyDirectory(ModsTempFolder, ModsFolder)
ElseIf Modable Then ElseIf Modable Then
Directory.CreateDirectory(ModsFolder) Directory.CreateDirectory(ModsFolder)
Log("[Download] 自动创建 mods 文件夹：" & ModsFolder) Log("[Download] 自动创建 mods 文件夹：" & ModsFolder)
End If End If
Directory.CreateDirectory(ResourcepacksFolder)
Log("[Download] 自动创建 resourcepacks 文件夹：" & ResourcepacksFolder)
End Sub) With {.ProgressWeight = 2, .Block = True}) End Sub) With {.ProgressWeight = 2, .Block = True})
'补全文件 '补全文件
If Request.OptiFineEntry IsNot Nothing OrElse (Request.ForgeVersion IsNot Nothing AndAlso Request.ForgeVersion.BeforeFirst(".") >= 20) OrElse Request.NeoForgeVersion IsNot Nothing OrElse Request.FabricVersion IsNot Nothing OrElse Request.LiteLoaderEntry IsNot Nothing Then If Request.OptiFineEntry IsNot Nothing OrElse (Request.ForgeVersion IsNot Nothing AndAlso Request.ForgeVersion.BeforeFirst(".") >= 20) OrElse Request.NeoForgeVersion IsNot Nothing OrElse Request.FabricVersion IsNot Nothing OrElse Request.LiteLoaderEntry IsNot Nothing Then