tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Enable Backup Save by default. Changed DLC to Extras

This commit is contained in:
jianmingyong 2017-02-11 22:22:05 +08:00
parent 0db122e2a4
commit b804db510d
3 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
2.5DHero/2.5DHero/Core/GameOptions.vb
View File

@ -13,19 +13,19 @@
Public WindowSize As New Vector2(1200, 680)
Public ForceMusic As Boolean = False
Public MaxOffsetLevel As Integer = 0
Public DLC As New List(Of String)
Public Extras As New List(Of String)
Public Sub LoadOptions()
KeyBindings.CreateKeySave(False)
If System.IO.Directory.Exists(GameController.GamePath & "\Save\") = False Then
System.IO.Directory.CreateDirectory(GameController.GamePath & "\Save\")
If Directory.Exists(GameController.GamePath & "\Save\") = False Then
Directory.CreateDirectory(GameController.GamePath & "\Save\")
End If
If System.IO.File.Exists(GameController.GamePath & "\Save\options.dat") = False Then
If File.Exists(GameController.GamePath & "\Save\options.dat") = False Then
CreateOptions()
End If
Dim Data() As String = System.IO.File.ReadAllText(GameController.GamePath & "\Save\options.dat").SplitAtNewline()
Dim Data() As String = File.ReadAllText(GameController.GamePath & "\Save\options.dat").SplitAtNewline()
Dim LanguageFound As Boolean = False
@ -68,7 +68,7 @@
Me.ContentPackNames = value.Split(CChar(","))
If Me.ContentPackNames.Count > 0 Then
For Each c As String In Me.ContentPackNames
If System.IO.Directory.Exists(GameController.GamePath & "\ContentPacks\" & c) = False Then
If Directory.Exists(GameController.GamePath & "\ContentPacks\" & c) = False Then
Dim cList As List(Of String) = Me.ContentPackNames.ToList()
cList.Remove(c)
Me.ContentPackNames = cList.ToArray()
@ -102,9 +102,9 @@
Me.ForceMusic = CBool(value)
Case "maxoffsetlevel"
Me.MaxOffsetLevel = CInt(value)
Case "dlc"
Case "extras"
If Not String.IsNullOrEmpty(value) Then
Me.DLC = value.Split(";"c).ToList()
Me.Extras = value.Split(";"c).ToList()
End If
End Select
End If
@ -149,7 +149,7 @@
"WindowSize|" & Core.windowSize.Width.ToString() & "," & Core.windowSize.Height.ToString().Replace(GameController.DecSeparator, ".") & vbNewLine &
"ForceMusic|" & Me.ForceMusic.ToNumberString() & vbNewLine &
"MaxOffsetLevel|" & Me.MaxOffsetLevel.ToString() & vbNewLine &
"DLC|" & String.Join(";", Me.DLC)
"Extras|" & String.Join(";", Me.Extras)
System.IO.File.WriteAllText(GameController.GamePath & "\Save\options.dat", Data)
KeyBindings.SaveKeys()
@ -179,9 +179,9 @@
"WindowSize|1200,680" & vbNewLine &
"ForceMusic|0" & vbNewLine &
"MaxOffsetLevel|0" & vbNewLine &
"DLC|"
"Extras|Backup Save"
System.IO.File.WriteAllText(GameController.GamePath & "\Save\options.dat", s)
File.WriteAllText(GameController.GamePath & "\Save\options.dat", s)
End Sub
End Class

4
2.5DHero/2.5DHero/Player/Player.vb
View File

@ -571,7 +571,7 @@
''' 1. Encrypted OverWrite Save.
''' 2. OverWrite Save.
''' 3. Backup Save.
If filePrefix = "GAMEJOLTSAVE" AndAlso Core.GameOptions.DLC.Contains("Backup Save") Then
If filePrefix = "GAMEJOLTSAVE" AndAlso Core.GameOptions.Extras.Contains("Backup Save") Then
If Not Directory.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID) Then
Directory.CreateDirectory(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID)
End If
@ -1582,7 +1582,7 @@
filePrefix = newFilePrefix
If IsGameJoltSave = True Then
If Core.GameOptions.DLC.Contains("Backup Save") Then
If Core.GameOptions.Extras.Contains("Backup Save") Then
If Not Directory.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted") Then
Directory.CreateDirectory(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted")
End If

4
2.5DHero/2.5DHero/Screens/SaveScreen.vb
View File

@ -33,7 +33,7 @@
If saveSessionFailed = True Then
.DrawString(FontManager.InGameFont, "Saving failed!", New Vector2(188, 186), Color.Red)
If Core.GameOptions.DLC.Contains("Backup Save") Then
If Core.GameOptions.Extras.Contains("Backup Save") Then
.DrawString(FontManager.MiniFont, "Press Dismiss to close this screen and try to save" & vbNewLine &
"again in order to prevent data corruption." & vbNewLine & vbNewLine &
"We have backup your save in the event of gamejolt API being down." & vbNewLine &
@ -43,7 +43,7 @@
.DrawString(FontManager.MiniFont, "Press Dismiss to close this screen and try to save" & vbNewLine &
"again in order to prevent data corruption." & vbNewLine & vbNewLine &
"To have your save back up, you will require to enable Backup Save" & vbNewLine &
"Via GameOptions.dat > DLC|Backup Save", New Vector2(188, 240), Color.Black)
"Via GameOptions.dat > Extras|Backup Save", New Vector2(188, 240), Color.Black)
End If
Else
If ready = True Then