From c3fe2fda01af57b2840cac483b4b7343839b2410 Mon Sep 17 00:00:00 2001 From: jianmingyong Date: Wed, 15 Feb 2017 23:48:35 +0800 Subject: [PATCH] Update Disabled setting + a bonus network check. --- 2.5DHero/2.5DHero/2.5DHero.vbproj | 2 +- 2.5DHero/2.5DHero/Core/GameOptions.vb | 7 +++++- .../Screens/MainMenu/MainMenuScreen.vb | 24 ++++++++++--------- 3 files changed, 20 insertions(+), 13 deletions(-) diff --git a/2.5DHero/2.5DHero/2.5DHero.vbproj b/2.5DHero/2.5DHero/2.5DHero.vbproj index cb38ef027..ce34e5851 100644 --- a/2.5DHero/2.5DHero/2.5DHero.vbproj +++ b/2.5DHero/2.5DHero/2.5DHero.vbproj @@ -19,7 +19,7 @@ true Pokemon3D.ico On - Binary + Text Off On net.Pokemon3D.Game.Program diff --git a/2.5DHero/2.5DHero/Core/GameOptions.vb b/2.5DHero/2.5DHero/Core/GameOptions.vb index 34a94b12c..851aacd1a 100644 --- a/2.5DHero/2.5DHero/Core/GameOptions.vb +++ b/2.5DHero/2.5DHero/Core/GameOptions.vb @@ -13,6 +13,7 @@ Public WindowSize As New Vector2(1200, 680) Public ForceMusic As Boolean = False Public MaxOffsetLevel As Integer = 0 + Public UpdateDisabled As Boolean = False Public Extras As New List(Of String) Public Sub LoadOptions() @@ -106,6 +107,8 @@ If Not String.IsNullOrEmpty(value) Then Me.Extras = value.Split(";"c).ToList() End If + Case "updatedisabled" + UpdateDisabled = CBool(value) End Select End If Next @@ -149,9 +152,10 @@ "WindowSize|" & Core.windowSize.Width.ToString() & "," & Core.windowSize.Height.ToString().Replace(GameController.DecSeparator, ".") & vbNewLine & "ForceMusic|" & Me.ForceMusic.ToNumberString() & vbNewLine & "MaxOffsetLevel|" & Me.MaxOffsetLevel.ToString() & vbNewLine & + "UpdateDisabled|" & Me.UpdateDisabled.ToNumberString() & vbNewLine & "Extras|" & String.Join(";", Me.Extras) - System.IO.File.WriteAllText(GameController.GamePath & "\Save\options.dat", Data) + File.WriteAllText(GameController.GamePath & "\Save\options.dat", Data) KeyBindings.SaveKeys() Logger.Debug("---Options saved---") @@ -179,6 +183,7 @@ "WindowSize|1200,680" & vbNewLine & "ForceMusic|0" & vbNewLine & "MaxOffsetLevel|0" & vbNewLine & + "UpdateDisabled|0" & vbNewLine & "Extras|Backup Save" File.WriteAllText(GameController.GamePath & "\Save\options.dat", s) diff --git a/2.5DHero/2.5DHero/Screens/MainMenu/MainMenuScreen.vb b/2.5DHero/2.5DHero/Screens/MainMenu/MainMenuScreen.vb index 35738aaf0..6419a0231 100644 --- a/2.5DHero/2.5DHero/Screens/MainMenu/MainMenuScreen.vb +++ b/2.5DHero/2.5DHero/Screens/MainMenu/MainMenuScreen.vb @@ -91,18 +91,20 @@ Public Class MainMenuScreen If Not GameController.UpdateChecked Then Logger.Debug("---Check Version---") - Task.Factory.StartNew(Sub() - Dim Updater As New Process() - Updater.StartInfo = New ProcessStartInfo("Updater.exe") - Updater.Start() - Updater.WaitForExit() + If Not Core.GameOptions.UpdateDisabled AndAlso My.Computer.Network.IsAvailable Then + Task.Factory.StartNew(Sub() + Dim Updater As New Process() + Updater.StartInfo = New ProcessStartInfo("Updater.exe") + Updater.Start() + Updater.WaitForExit() - If Updater.ExitCode = 1 Then - Core.GameInstance.Exit() - Else - GameController.UpdateChecked = True - End If - End Sub) + If Updater.ExitCode = 1 Then + Core.GameInstance.Exit() + Else + GameController.UpdateChecked = True + End If + End Sub) + End If End If Catch ex As Exception End Try