2.4.9

Plain Craft Launcher 2/Modules/Base/ModBase.vb

@@ -10,12 +10,12 @@ Public Module ModBase
 #Region "声明"
 
     '下列版本信息由更新器自动修改
-    Public Const VersionBaseName As String = "2.4.8" '不含分支前缀的显示用版本名
-    Public Const VersionStandardCode As String = "2.4.8." & VersionBranchCode '标准格式的四段式版本号
+    Public Const VersionBaseName As String = "2.4.9" '不含分支前缀的显示用版本名
+    Public Const VersionStandardCode As String = "2.4.9." & VersionBranchCode '标准格式的四段式版本号
 #If BETA Then
-    Public Const VersionCode As Integer = 279 'Release
+    Public Const VersionCode As Integer = 281 'Release
 #Else
-    Public Const VersionCode As Integer = 280 'Snapshot
+    Public Const VersionCode As Integer = 282 'Snapshot
 #End If
     '自动生成的版本信息
     Public Const VersionDisplayName As String = VersionBranchName & " " & VersionBaseName

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

@@ -742,7 +742,9 @@ Redo:
                             Case "RawOutput.log"
                                 FileName = "游戏崩溃前的输出.txt"
                         End Select
-                        WriteFile(TempFolder & "Report\" & FileName, SecretFilter(ReadFile(OutputFile)))
+                        If File.Exists(OutputFile) Then
+                            WriteFile(TempFolder & "Report\" & FileName, SecretFilter(ReadFile(OutputFile)))
+                        End If
                     Next
                     '导出报告
                     Compression.ZipFile.CreateFromDirectory(TempFolder & "Report\", FileAddress)

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

@@ -1406,7 +1406,7 @@
                             String.Join(" ", Entry.CurseForgeId.Split("-").Select(Function(w) w.Substring(0, 1).ToUpper & w.Substring(1, w.Length - 1))) & ")")
                     End If
                 End If
-                DlCfProjectDb.Add(Entry.CurseForgeId, Entry)
+                DlCfProjectDb(Entry.CurseForgeId) = Entry
             Next
         Next
     End Sub

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

@@ -190,7 +190,7 @@ NextInner:
                     End Sub)
         If CheckResult <> "" Then Throw New ArgumentException(CheckResult)
         '求赞助
-        If ThemeCheckGold() Then Exit Sub
+#If BETA Then
         RunInNewThread(Sub()
                            Select Case Setup.Get("SystemLaunchCount")
                                Case 20, 50, 100, 150, 200, 250, 300, 350, 400, 450, 500, 600, 700, 800, 900, 1000, 1100, 1200, 1300, 1400, 1500, 1600, 1700, 1800, 1900, 2000
@@ -198,10 +198,11 @@ NextInner:
                                                "如果觉得 PCL2 还算好用的话，也可以考虑小小地赞助一下作者呢 qwq……" & vbCrLf &
                                                "毕竟一个人开发也不容易（小声）……",
                                                "求赞助啦……", "这就赞助！", "但是我拒绝") = 1 Then
-                                       OpenWebsite("https://afdian.net/@LTCat/plan")
+                                       OpenWebsite("https://afdian.net/a/LTCat/plan")
                                    End If
                            End Select
                        End Sub, "Donate")
+#End If
     End Sub
 
 #End Region
@@ -1835,7 +1836,7 @@ NextVersion:
                         Else
                             PackFormat = 9
                         End If
-                    Case 19
+                    Case 19, 99 '99 是快照版
                         If McVersionCurrent.Version.McCodeSub <= 2 Then
                             PackFormat = 9
                         Else