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

fix: NeoForge 官方源不可用

Browse Source 
chores: 代码清理
This commit is contained in:
Pigeon0v0
2024-06-26 23:55:58 +08:00
parent 2cfa9b2015
commit ee10caa84e
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Plain Craft Launcher 2/Modules/Minecraft/ModDownload.vb
+5 -7
View File
@@ -981,21 +981,19 @@
For Each Token As String In VersionsJArray For Each Token As String In VersionsJArray
Dim StdVersion As String Dim StdVersion As String
Dim IsBeta As Boolean Dim IsBeta As Boolean
Dim rawVersion As String = Token.ToString() Dim rawVersion As String = Token
If rawVersion.Contains("-beta") Then If rawVersion.Contains("-beta") Then
StdVersion = Token.ToString().Replace("neoforge-", "").Replace("-beta", "") StdVersion = Token.Replace("neoforge-", "").Replace("-beta", "")
IsBeta = True IsBeta = True
Else Else
StdVersion = Token.ToString().Replace("neoforge-", "") StdVersion = Token.Replace("neoforge-", "")
IsBeta = False IsBeta = False
End If End If
Dim Inherit As String = "1." & StdVersion.ToString().Split(".")(0) & "." & StdVersion.ToString().Split(".")(1) Dim Inherit As String = "1." & StdVersion.Split(".")(0) & "." & StdVersion.Split(".")(1)
If Inherit.EndsWith(".0") Then
Inherit = Inherit.Replace(".0", "") Inherit = Inherit.Replace(".0", "")
End If
Dim Entry = New DlNeoForgeVersionEntry Dim Entry = New DlNeoForgeVersionEntry
If Loader.Input IsNot Nothing Then If Loader.Input IsNot Nothing Then
If Inherit Is Loader.Input Then If Inherit Is Loader.Input.ToString() Then
Entry = New DlNeoForgeVersionEntry With {.Version = rawVersion, .Inherit = Inherit, .IsBeta = IsBeta, .StdVersion = StdVersion} Entry = New DlNeoForgeVersionEntry With {.Version = rawVersion, .Inherit = Inherit, .IsBeta = IsBeta, .StdVersion = StdVersion}
Versions.Add(Entry) Versions.Add(Entry)
Continue For Continue For