From bd24d4c304f92a391da72af73de01c6d8b4a7c9d Mon Sep 17 00:00:00 2001
From: wyc-26 <wuyuncheng26@foxmail.com>
Date: Thu, 10 Apr 2025 16:36:01 +0800
Subject: [PATCH] =?UTF-8?q?fix(ModModpack):=20=E5=88=9D=E5=A7=8B=E5=80=BC?=
 =?UTF-8?q?=E4=B8=8D=E4=B8=BA=200?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb b/Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb
index 93b11cf..ab08f24 100644
--- a/Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb	
+++ b/Plain Craft Launcher 2/Modules/Minecraft/ModModpack.vb	
@@ -113,9 +113,10 @@ Public Module ModModpack
         '解压文件
         Dim RetryCount As Integer = 1
         Dim Encode = Encoding.GetEncoding("GB18030")
+        Dim InitialProgress = Loader.Progress
         Try
 Retry:
-            Loader.Progress = 0
+            Loader.Progress = InitialProgress
             '完全不知道为啥会出现文件正在被另一进程使用的问题，总之多试试
             DeleteDirectory(InstallTemp)
             ExtractFile(FileAddress, InstallTemp, Encode, ProgressIncrementHandler:=Sub(Delta) Loader.Progress += Delta * LoaderProgressDelta)