2.12.1

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

@@ -561,7 +561,7 @@
                     Dim EndName = McVersion.DropToVersion(EndDrop)
                     If StartDrop = EndDrop Then
                         Segments.Add(StartName)
-                    ElseIf AllDrops?.Any AndAlso StartDrop >= AllDrops.First Then
+                    ElseIf AllDrops IsNot Nothing AndAlso StartDrop >= AllDrops.First Then
                         If EndDrop < 100 Then
                             Segments.Clear()
                             Segments.Add("全版本")

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

@@ -152,14 +152,16 @@
 #Region "DlClientList | Minecraft 客户端 版本列表"
 
     ''' <summary>
-    ''' 所有正式版的 Minecraft Drop 序数，按从高到低排列。
-    ''' Nothing 代表从未完成过获取。
+    ''' 所有正式版的 Minecraft Drop 序数。
+    ''' 若从未完成过获取，返回 Nothing；否则必定存在元素，且从高到低排列。
     ''' </summary>
     Public Property AllDrops As List(Of Integer)
         Get
-            If _AllDrops Is Nothing Then _AllDrops = Setup.Get("CacheDrops").ToString.Split(","c).Select(Function(d) CInt(d)).ToList()
-            If Not _AllDrops.Any Then _AllDrops = Nothing
-            Return _AllDrops
+            If _AllDrops Is Nothing Then
+                _AllDrops = Setup.Get("CacheDrops").ToString.
+                    Split(",".ToCharArray, StringSplitOptions.RemoveEmptyEntries).Select(Function(d) CInt(Val(d))).ToList()
+            End If
+            Return If(_AllDrops.Any, _AllDrops, Nothing) '不要将 _AllDrops 再设为 Nothing，以防止反复获取设置尝试初始化
         End Get
         Set(value As List(Of Integer))
             _AllDrops = value

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

@@ -730,7 +730,7 @@ Wait:
             TargetEntry = Components.Property(Loader.Input)
         Else '模糊匹配
             TargetEntry = Components.Properties.FirstOrDefault(
-                Function(c) c.Value?.ToArray.FirstOrDefault()?("version")("name").ToString.StartsWithF(Loader.Input))
+                Function(c) c.Value IsNot Nothing AndAlso c.Value.ToArray.FirstOrDefault()?("version")("name").ToString.StartsWithF(Loader.Input))
             If TargetEntry Is Nothing Then Throw New Exception($"未能找到所需的 Java {Loader.Input}")
         End If
         Dim TargetComponent = TargetEntry.Value.ToArray.FirstOrDefault

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

@@ -158,7 +158,7 @@ Public Module ModMinecraft
 
 #Region "版本处理"
 
-    Public Const McInstanceCacheVersion As Integer = 32
+    Public Const McInstanceCacheVersion As Integer = 33
 
     Private _McInstanceSelected As McInstance
     ''' <summary>
@@ -1013,10 +1013,10 @@ ExitDataLoad:
                 '字母编号，如 G2 中的 G（7）
                 Dim Result As Integer = Asc(OptiFine.ToUpper.First) - Asc("A"c) + 1
                 '末尾数字，如 C5 beta4 中的 5
-                Result *= Result * 100
+                Result *= 100
                 Result += Val(RegexSeek(Right(OptiFine, OptiFine.Length - 1), "[0-9]+"))
                 '测试标记（正式版为 99，Pre[x] 为 50+x，Beta[x] 为 x）
-                Result *= Result * 100
+                Result *= 100
                 If OptiFine.ContainsF("pre", True) Then Result += 50
                 If OptiFine.ContainsF("pre", True) OrElse OptiFine.ContainsF("beta", True) Then
                     If Val(Right(OptiFine, 1)) = 0 AndAlso Right(OptiFine, 1) <> "0" Then

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

@@ -115,7 +115,7 @@ Public Module ModMod
             End Get
             Set(value As String)
                 If _Version IsNot Nothing AndAlso RegexCheck(_Version, "[0-9.\-]+") Then Return
-                If value?.ContainsF("version", True) Then value = "version" '需要修改的标识
+                If value IsNot Nothing AndAlso value.ContainsF("version", True) Then value = "version" '需要修改的标识
                 _Version = value
             End Set
         End Property

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

@@ -278,7 +278,7 @@ Retry:
                     If ModJson("modules").Any Then 'modules 可能返回 null（#1006）
                         Dim ModuleNames = CType(ModJson("modules"), JArray).Select(Function(l) l("name").ToString).ToList
                         If ModuleNames.Contains("META-INF") OrElse ModuleNames.Contains("mcmod.info") OrElse
-                           ModJson?("FileName")?.ToString?.EndsWithF(".jar", True) Then
+                           ModJson?("FileName")?.ToString.EndsWithF(".jar", True) Then
                             TargetFolder = "mods" : Type = CompType.Mod
                         ElseIf ModuleNames.Contains("pack.mcmeta") Then
                             TargetFolder = "resourcepacks" : Type = CompType.ResourcePack