mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-27 07:44:31 +02:00
Better backup save with some error prompts
This commit is contained in:
jianmingyong
parent
2782470b5c
commit
7b802d9710
@ -186,22 +186,22 @@ Namespace GameJolt
|
|||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
Private _apricorns As String = ""
|
Public _apricorns As String = ""
|
||||||
Private _berries As String = ""
|
Public _berries As String = ""
|
||||||
Private _box As String = ""
|
Public _box As String = ""
|
||||||
Private _daycare As String = ""
|
Public _daycare As String = ""
|
||||||
Private _itemData As String = ""
|
Public _itemData As String = ""
|
||||||
Private _items As String = ""
|
Public _items As String = ""
|
||||||
Private _NPC As String = ""
|
Public _NPC As String = ""
|
||||||
Private _options As String = ""
|
Public _options As String = ""
|
||||||
Private _party As String = ""
|
Public _party As String = ""
|
||||||
Private _player As String = ""
|
Public _player As String = ""
|
||||||
Private _pokedex As String = ""
|
Public _pokedex As String = ""
|
||||||
Private _register As String = ""
|
Public _register As String = ""
|
||||||
Private _hallOfFame As String = ""
|
Public _hallOfFame As String = ""
|
||||||
Private _secretBase As String = ""
|
Public _secretBase As String = ""
|
||||||
Private _roamingPokemon As String = ""
|
Public _roamingPokemon As String = ""
|
||||||
Private _statistics As String = ""
|
Public _statistics As String = ""
|
||||||
|
|
||||||
Public AchievedEmblems As New List(Of String)
|
Public AchievedEmblems As New List(Of String)
|
||||||
Public DownloadedSprite As Texture2D = Nothing
|
Public DownloadedSprite As Texture2D = Nothing
|
||||||
|
|||||||
@ -567,528 +567,6 @@
|
|||||||
|
|
||||||
Entity.MakeShake = Name.ToLower() = "drunknilllzz"
|
Entity.MakeShake = Name.ToLower() = "drunknilllzz"
|
||||||
|
|
||||||
''' Backup Save module
|
|
||||||
''' 1. Encrypted OverWrite Save.
|
|
||||||
''' 2. OverWrite Save.
|
|
||||||
''' 3. Backup Save.
|
|
||||||
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
|
|
||||||
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted\Encrypted.dat")) Then
|
|
||||||
Dim Items() As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID.ToString() & "\Encrypted\Encrypted.dat").Split(CChar("|"))
|
|
||||||
Dim Hash As String = String.Join("|", Items.Take(16))
|
|
||||||
|
|
||||||
Try
|
|
||||||
If Items.Count = 17 AndAlso String.Equals(Hash, Encryption.DecryptString(Items.Last, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))) Then
|
|
||||||
Core.Player.ApricornData = Encryption.DecryptString(Items(0), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Core.Player.BerryData = Encryption.DecryptString(Items(1), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Core.Player.BoxData = Encryption.DecryptString(Items(2), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Core.Player.DaycareData = Encryption.DecryptString(Items(3), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Core.Player.HallOfFameData = Encryption.DecryptString(Items(4), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Core.Player.ItemData = Encryption.DecryptString(Items(5), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
|
|
||||||
Inventory.Clear()
|
|
||||||
Mails.Clear()
|
|
||||||
Dim Data As String = Encryption.DecryptString(Items(6), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
If Not String.IsNullOrWhiteSpace(Data) Then
|
|
||||||
For Each ItemDat As String In Data.SplitAtNewline()
|
|
||||||
If Not String.IsNullOrWhiteSpace(ItemDat) Then
|
|
||||||
If ItemDat.StartsWith("{") AndAlso ItemDat.EndsWith("}") AndAlso ItemDat.Contains("|") Then
|
|
||||||
Dim ItemID As String = ItemDat.Remove(0, ItemDat.IndexOf("{") + 1)
|
|
||||||
ItemID = ItemID.Remove(ItemID.IndexOf("}"))
|
|
||||||
|
|
||||||
Dim amount As Integer = CInt(ItemID.Remove(0, ItemID.IndexOf("|") + 1))
|
|
||||||
ItemID = ItemID.Remove(ItemID.IndexOf("|"))
|
|
||||||
|
|
||||||
Inventory.AddItem(CInt(ItemID), amount)
|
|
||||||
ElseIf ItemDat.StartsWith("Mail|") Then
|
|
||||||
Dim mailData As String = ItemDat.Remove(0, 5)
|
|
||||||
Mails.Add(Game.Items.MailItem.GetMailDataFromString(mailData))
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
End If
|
|
||||||
|
|
||||||
Core.Player.NPCData = Encryption.DecryptString(Items(7), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
|
|
||||||
Data = Encryption.DecryptString(Items(8), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
For Each Line As String In Data.SplitAtNewline()
|
|
||||||
If Line.Contains("|") Then
|
|
||||||
Dim ID As String = Line.Remove(Line.IndexOf("|"))
|
|
||||||
Dim Value As String = Line.Remove(0, Line.IndexOf("|") + 1)
|
|
||||||
Select Case ID.ToLower()
|
|
||||||
Case "fov"
|
|
||||||
startFOV = CSng(Value.Replace(".", GameController.DecSeparator)).Clamp(1, 179)
|
|
||||||
Case "textspeed"
|
|
||||||
TextBox.TextSpeed = CInt(Value)
|
|
||||||
Case "mousespeed"
|
|
||||||
startRotationSpeed = CInt(Value)
|
|
||||||
End Select
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
Pokemons.Clear()
|
|
||||||
Dim PokeData As String = Encryption.DecryptString(Items(9), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
For Each Line As String In PokeData.SplitAtNewline()
|
|
||||||
If Line.StartsWith("{") AndAlso Line.EndsWith("}") Then
|
|
||||||
Dim p As Pokemon = Pokemon.GetPokemonByData(Line)
|
|
||||||
If p.IsEgg() = False Then
|
|
||||||
If p.IsShiny = True Then
|
|
||||||
PokedexData = Pokedex.ChangeEntry(PokedexData, p.Number, 3)
|
|
||||||
Else
|
|
||||||
PokedexData = Pokedex.ChangeEntry(PokedexData, p.Number, 2)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Pokemons.Add(p)
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
Data = Encryption.DecryptString(Items(10), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Screen.Level.Riding = False
|
|
||||||
For Each Line As String In Data.SplitAtNewline()
|
|
||||||
If Not String.IsNullOrWhiteSpace(Line) AndAlso Line.Contains("|") Then
|
|
||||||
Dim ID As String = Line.Remove(Line.IndexOf("|"))
|
|
||||||
Dim Value As String = Line.Remove(0, Line.IndexOf("|") + 1)
|
|
||||||
Select Case ID.ToLower()
|
|
||||||
Case "name"
|
|
||||||
Name = CType(IIf(IsGameJoltSave, GameJolt.API.username, Value), String)
|
|
||||||
Case "position"
|
|
||||||
Dim v() As String = Value.Split(CChar(","))
|
|
||||||
startPosition.X = CSng(v(0).Replace(".", GameController.DecSeparator))
|
|
||||||
startPosition.Y = CSng(v(1).Replace(".", GameController.DecSeparator))
|
|
||||||
startPosition.Z = CSng(v(2).Replace(".", GameController.DecSeparator))
|
|
||||||
Case "lastpokemonposition"
|
|
||||||
Dim v() As String = Value.Split(CChar(","))
|
|
||||||
LastPokemonPosition.X = CSng(v(0).Replace(".", GameController.DecSeparator))
|
|
||||||
LastPokemonPosition.Y = CSng(v(1).Replace(".", GameController.DecSeparator))
|
|
||||||
LastPokemonPosition.Z = CSng(v(2).Replace(".", GameController.DecSeparator))
|
|
||||||
Case "mapfile"
|
|
||||||
startMap = Value
|
|
||||||
Case "rivalname"
|
|
||||||
RivalName = Value
|
|
||||||
Case "money"
|
|
||||||
Money = CInt(Value)
|
|
||||||
Case "badges"
|
|
||||||
Badges.Clear()
|
|
||||||
If Value = "0" Then
|
|
||||||
Badges = New List(Of Integer)
|
|
||||||
Else
|
|
||||||
If Value.Contains(",") = False Then
|
|
||||||
Badges = {CInt(Value)}.ToList()
|
|
||||||
Else
|
|
||||||
Dim l As List(Of String) = Value.Split(CChar(",")).ToList()
|
|
||||||
For i = 0 To l.Count - 1
|
|
||||||
Badges.Add(CInt(l(i)))
|
|
||||||
Next
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Case "rotation"
|
|
||||||
startRotation = CSng(Value.Replace(".", GameController.DecSeparator))
|
|
||||||
Case "Gender"
|
|
||||||
If Value = "Male" Then
|
|
||||||
Male = True
|
|
||||||
Else
|
|
||||||
Male = False
|
|
||||||
End If
|
|
||||||
Case "playtime"
|
|
||||||
Dim dd() As String = Value.Split(CChar(","))
|
|
||||||
If dd.Count >= 4 Then
|
|
||||||
PlayTime = New TimeSpan(CInt(dd(3)), CInt(dd(0)), CInt(dd(1)), CInt(dd(2)))
|
|
||||||
Else
|
|
||||||
PlayTime = New TimeSpan(CInt(dd(0)), CInt(dd(1)), CInt(dd(2)))
|
|
||||||
End If
|
|
||||||
Case "ot"
|
|
||||||
OT = CStr(CInt(Value).Clamp(0, 99999))
|
|
||||||
Case "points"
|
|
||||||
Points = CInt(Value)
|
|
||||||
Case "haspokedex"
|
|
||||||
HasPokedex = CBool(Value)
|
|
||||||
Case "haspokegear"
|
|
||||||
HasPokegear = CBool(Value)
|
|
||||||
Case "freecamera"
|
|
||||||
startFreeCameraMode = CBool(Value)
|
|
||||||
Case "thirdperson"
|
|
||||||
startThirdPerson = CBool(Value)
|
|
||||||
Case "skin"
|
|
||||||
Skin = Value
|
|
||||||
Case "battleanimations"
|
|
||||||
ShowBattleAnimations = CInt(Value)
|
|
||||||
Case "boxamount"
|
|
||||||
BoxAmount = CInt(Value)
|
|
||||||
Case "lastrestplace"
|
|
||||||
LastRestPlace = Value
|
|
||||||
Case "lastrestplaceposition"
|
|
||||||
LastRestPlacePosition = Value
|
|
||||||
Case "diagonalmovement"
|
|
||||||
If GameController.IS_DEBUG_ACTIVE = True Then
|
|
||||||
DiagonalMovement = CBool(Value)
|
|
||||||
Else
|
|
||||||
DiagonalMovement = False
|
|
||||||
End If
|
|
||||||
Case "repelsteps"
|
|
||||||
RepelSteps = CInt(Value)
|
|
||||||
Case "lastsaveplace"
|
|
||||||
LastSavePlace = Value
|
|
||||||
Case "lastsaveplaceposition"
|
|
||||||
LastSavePlacePosition = Value
|
|
||||||
Case "difficulty"
|
|
||||||
DifficultyMode = CInt(Value)
|
|
||||||
Case "battlestyle"
|
|
||||||
BattleStyle = CInt(Value)
|
|
||||||
Case "savecreated"
|
|
||||||
SaveCreated = Value
|
|
||||||
Case "autosave"
|
|
||||||
If IsGameJoltSave = False Then
|
|
||||||
newFilePrefix = Value
|
|
||||||
AutosaveUsed = True
|
|
||||||
End If
|
|
||||||
Case "daycaresteps"
|
|
||||||
DaycareSteps = CInt(Value)
|
|
||||||
Case "gamemode"
|
|
||||||
GameMode = Value
|
|
||||||
Case "pokefiles"
|
|
||||||
If Value <> "" Then
|
|
||||||
If Value.Contains(",") = True Then
|
|
||||||
PokeFiles.AddRange(Value.Split(CChar(",")))
|
|
||||||
Else
|
|
||||||
PokeFiles.Add(Value)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Case "visitedmaps"
|
|
||||||
VisitedMaps = Value
|
|
||||||
Case "tempsurfskin"
|
|
||||||
TempSurfSkin = Value
|
|
||||||
Case "surfing"
|
|
||||||
startSurfing = CBool(Value)
|
|
||||||
Screen.Level.Surfing = CBool(Value)
|
|
||||||
Case "bp"
|
|
||||||
BP = CInt(Value)
|
|
||||||
Case "gtsstars"
|
|
||||||
GTSStars = CInt(Value)
|
|
||||||
Case "showmodels"
|
|
||||||
ShowModelsInBattle = CBool(Value)
|
|
||||||
Case "sandboxmode"
|
|
||||||
SandBoxMode = CBool(Value)
|
|
||||||
Case "earnedachievements"
|
|
||||||
If Value <> "" Then
|
|
||||||
EarnedAchievements = Value.Split(CChar(",")).ToList()
|
|
||||||
End If
|
|
||||||
End Select
|
|
||||||
Else
|
|
||||||
Logger.Log(Logger.LogTypes.Warning, "Player.vb: The line """ & Line & """ is either empty or does not conform the player.dat file rules.")
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
If IsGameJoltSave = True And Screen.Level.Surfing = False Then
|
|
||||||
Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
||||||
Select Case GameJoltSave.Gender
|
|
||||||
Case "0"
|
|
||||||
Male = True
|
|
||||||
Case "1"
|
|
||||||
Male = False
|
|
||||||
Case Else
|
|
||||||
Male = True
|
|
||||||
End Select
|
|
||||||
End If
|
|
||||||
GameStart = Date.Now
|
|
||||||
|
|
||||||
Core.Player.PokedexData = Encryption.DecryptString(Items(11), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Core.Player.RegisterData = Encryption.DecryptString(Items(12), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Core.Player.RoamingPokemonData = Encryption.DecryptString(Items(13), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
Core.Player.SecretBaseData = Encryption.DecryptString(Items(14), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
|
||||||
PlayerStatistics.Load(Encryption.DecryptString(Items(15), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)))
|
|
||||||
Else
|
|
||||||
Logger.Log(Logger.LogTypes.Warning, "Backup save have been tempered with. Unable to load.")
|
|
||||||
End If
|
|
||||||
Catch ex As Exception
|
|
||||||
Logger.Log(Logger.LogTypes.Warning, "Backup save have been tempered with. Unable to load.")
|
|
||||||
End Try
|
|
||||||
End If
|
|
||||||
|
|
||||||
#If DEBUG Then
|
|
||||||
If Not Directory.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite") Then
|
|
||||||
Directory.CreateDirectory(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite")
|
|
||||||
End If
|
|
||||||
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Apricorns.dat")) Then
|
|
||||||
Core.Player.ApricornData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Apricorns.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Apricorns.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Berries.dat")) Then
|
|
||||||
Core.Player.BerryData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Berries.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Berries.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Box.dat")) Then
|
|
||||||
Core.Player.BoxData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Box.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Box.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Daycare.dat")) Then
|
|
||||||
Core.Player.DaycareData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Daycare.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Daycare.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\HallOfFame.dat")) Then
|
|
||||||
Core.Player.HallOfFameData = IO.File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\HallOfFame.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\HallOfFame.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\ItemData.dat")) Then
|
|
||||||
Core.Player.ItemData = IO.File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\ItemData.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\ItemData.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Items.dat")) Then
|
|
||||||
Inventory.Clear()
|
|
||||||
Mails.Clear()
|
|
||||||
Dim Data As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Items.dat")
|
|
||||||
If Not String.IsNullOrWhiteSpace(Data) Then
|
|
||||||
For Each ItemDat As String In Data.SplitAtNewline()
|
|
||||||
If Not String.IsNullOrWhiteSpace(ItemDat) Then
|
|
||||||
If ItemDat.StartsWith("{") AndAlso ItemDat.EndsWith("}") AndAlso ItemDat.Contains("|") Then
|
|
||||||
Dim ItemID As String = ItemDat.Remove(0, ItemDat.IndexOf("{") + 1)
|
|
||||||
ItemID = ItemID.Remove(ItemID.IndexOf("}"))
|
|
||||||
|
|
||||||
Dim amount As Integer = CInt(ItemID.Remove(0, ItemID.IndexOf("|") + 1))
|
|
||||||
ItemID = ItemID.Remove(ItemID.IndexOf("|"))
|
|
||||||
|
|
||||||
Inventory.AddItem(CInt(ItemID), amount)
|
|
||||||
ElseIf ItemDat.StartsWith("Mail|") Then
|
|
||||||
Dim mailData As String = ItemDat.Remove(0, 5)
|
|
||||||
Mails.Add(Items.MailItem.GetMailDataFromString(mailData))
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
End If
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Items.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\NPC.dat")) Then
|
|
||||||
Core.Player.NPCData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\NPC.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\NPC.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Options.dat")) Then
|
|
||||||
Dim Data As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Options.dat")
|
|
||||||
For Each Line As String In Data.SplitAtNewline()
|
|
||||||
If Line.Contains("|") Then
|
|
||||||
Dim ID As String = Line.Remove(Line.IndexOf("|"))
|
|
||||||
Dim Value As String = Line.Remove(0, Line.IndexOf("|") + 1)
|
|
||||||
Select Case ID.ToLower()
|
|
||||||
Case "fov"
|
|
||||||
startFOV = CSng(Value.Replace(".", GameController.DecSeparator)).Clamp(1, 179)
|
|
||||||
Case "textspeed"
|
|
||||||
TextBox.TextSpeed = CInt(Value)
|
|
||||||
Case "mousespeed"
|
|
||||||
startRotationSpeed = CInt(Value)
|
|
||||||
End Select
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Options.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Party.dat")) Then
|
|
||||||
Pokemons.Clear()
|
|
||||||
Dim PokeData As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Party.dat")
|
|
||||||
For Each Line As String In PokeData.SplitAtNewline()
|
|
||||||
If Line.StartsWith("{") AndAlso Line.EndsWith("}") Then
|
|
||||||
Dim p As Pokemon = Pokemon.GetPokemonByData(Line)
|
|
||||||
If p.IsEgg() = False Then
|
|
||||||
If p.IsShiny = True Then
|
|
||||||
PokedexData = Pokedex.ChangeEntry(PokedexData, p.Number, 3)
|
|
||||||
Else
|
|
||||||
PokedexData = Pokedex.ChangeEntry(PokedexData, p.Number, 2)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Pokemons.Add(p)
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Party.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Player.dat")) Then
|
|
||||||
Dim Data As String = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Player.dat")
|
|
||||||
Screen.Level.Riding = False
|
|
||||||
For Each Line As String In Data.SplitAtNewline()
|
|
||||||
If Not String.IsNullOrWhiteSpace(Line) AndAlso Line.Contains("|") Then
|
|
||||||
Dim ID As String = Line.Remove(Line.IndexOf("|"))
|
|
||||||
Dim Value As String = Line.Remove(0, Line.IndexOf("|") + 1)
|
|
||||||
Select Case ID.ToLower()
|
|
||||||
Case "name"
|
|
||||||
Name = CType(IIf(IsGameJoltSave, GameJolt.API.username, Value), String)
|
|
||||||
Case "position"
|
|
||||||
Dim v() As String = Value.Split(CChar(","))
|
|
||||||
startPosition.X = CSng(v(0).Replace(".", GameController.DecSeparator))
|
|
||||||
startPosition.Y = CSng(v(1).Replace(".", GameController.DecSeparator))
|
|
||||||
startPosition.Z = CSng(v(2).Replace(".", GameController.DecSeparator))
|
|
||||||
Case "lastpokemonposition"
|
|
||||||
Dim v() As String = Value.Split(CChar(","))
|
|
||||||
LastPokemonPosition.X = CSng(v(0).Replace(".", GameController.DecSeparator))
|
|
||||||
LastPokemonPosition.Y = CSng(v(1).Replace(".", GameController.DecSeparator))
|
|
||||||
LastPokemonPosition.Z = CSng(v(2).Replace(".", GameController.DecSeparator))
|
|
||||||
Case "mapfile"
|
|
||||||
startMap = Value
|
|
||||||
Case "rivalname"
|
|
||||||
RivalName = Value
|
|
||||||
Case "money"
|
|
||||||
Money = CInt(Value)
|
|
||||||
Case "badges"
|
|
||||||
Badges.Clear()
|
|
||||||
If Value = "0" Then
|
|
||||||
Badges = New List(Of Integer)
|
|
||||||
Else
|
|
||||||
If Value.Contains(",") = False Then
|
|
||||||
Badges = {CInt(Value)}.ToList()
|
|
||||||
Else
|
|
||||||
Dim l As List(Of String) = Value.Split(CChar(",")).ToList()
|
|
||||||
For i = 0 To l.Count - 1
|
|
||||||
Badges.Add(CInt(l(i)))
|
|
||||||
Next
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Case "rotation"
|
|
||||||
startRotation = CSng(Value.Replace(".", GameController.DecSeparator))
|
|
||||||
Case "Gender"
|
|
||||||
If Value = "Male" Then
|
|
||||||
Male = True
|
|
||||||
Else
|
|
||||||
Male = False
|
|
||||||
End If
|
|
||||||
Case "playtime"
|
|
||||||
Dim dd() As String = Value.Split(CChar(","))
|
|
||||||
If dd.Count >= 4 Then
|
|
||||||
PlayTime = New TimeSpan(CInt(dd(3)), CInt(dd(0)), CInt(dd(1)), CInt(dd(2)))
|
|
||||||
Else
|
|
||||||
PlayTime = New TimeSpan(CInt(dd(0)), CInt(dd(1)), CInt(dd(2)))
|
|
||||||
End If
|
|
||||||
Case "ot"
|
|
||||||
OT = CStr(CInt(Value).Clamp(0, 99999))
|
|
||||||
Case "points"
|
|
||||||
Points = CInt(Value)
|
|
||||||
Case "haspokedex"
|
|
||||||
HasPokedex = CBool(Value)
|
|
||||||
Case "haspokegear"
|
|
||||||
HasPokegear = CBool(Value)
|
|
||||||
Case "freecamera"
|
|
||||||
startFreeCameraMode = CBool(Value)
|
|
||||||
Case "thirdperson"
|
|
||||||
startThirdPerson = CBool(Value)
|
|
||||||
Case "skin"
|
|
||||||
Skin = Value
|
|
||||||
Case "battleanimations"
|
|
||||||
ShowBattleAnimations = CInt(Value)
|
|
||||||
Case "boxamount"
|
|
||||||
BoxAmount = CInt(Value)
|
|
||||||
Case "lastrestplace"
|
|
||||||
LastRestPlace = Value
|
|
||||||
Case "lastrestplaceposition"
|
|
||||||
LastRestPlacePosition = Value
|
|
||||||
Case "diagonalmovement"
|
|
||||||
If GameController.IS_DEBUG_ACTIVE = True Then
|
|
||||||
DiagonalMovement = CBool(Value)
|
|
||||||
Else
|
|
||||||
DiagonalMovement = False
|
|
||||||
End If
|
|
||||||
Case "repelsteps"
|
|
||||||
RepelSteps = CInt(Value)
|
|
||||||
Case "lastsaveplace"
|
|
||||||
LastSavePlace = Value
|
|
||||||
Case "lastsaveplaceposition"
|
|
||||||
LastSavePlacePosition = Value
|
|
||||||
Case "difficulty"
|
|
||||||
DifficultyMode = CInt(Value)
|
|
||||||
Case "battlestyle"
|
|
||||||
BattleStyle = CInt(Value)
|
|
||||||
Case "savecreated"
|
|
||||||
SaveCreated = Value
|
|
||||||
Case "autosave"
|
|
||||||
If IsGameJoltSave = False Then
|
|
||||||
newFilePrefix = Value
|
|
||||||
AutosaveUsed = True
|
|
||||||
End If
|
|
||||||
Case "daycaresteps"
|
|
||||||
DaycareSteps = CInt(Value)
|
|
||||||
Case "gamemode"
|
|
||||||
GameMode = Value
|
|
||||||
Case "pokefiles"
|
|
||||||
If Value <> "" Then
|
|
||||||
If Value.Contains(",") = True Then
|
|
||||||
PokeFiles.AddRange(Value.Split(CChar(",")))
|
|
||||||
Else
|
|
||||||
PokeFiles.Add(Value)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
Case "visitedmaps"
|
|
||||||
VisitedMaps = Value
|
|
||||||
Case "tempsurfskin"
|
|
||||||
TempSurfSkin = Value
|
|
||||||
Case "surfing"
|
|
||||||
startSurfing = CBool(Value)
|
|
||||||
Screen.Level.Surfing = CBool(Value)
|
|
||||||
Case "bp"
|
|
||||||
BP = CInt(Value)
|
|
||||||
Case "gtsstars"
|
|
||||||
GTSStars = CInt(Value)
|
|
||||||
Case "showmodels"
|
|
||||||
ShowModelsInBattle = CBool(Value)
|
|
||||||
Case "sandboxmode"
|
|
||||||
SandBoxMode = CBool(Value)
|
|
||||||
Case "earnedachievements"
|
|
||||||
If Value <> "" Then
|
|
||||||
EarnedAchievements = Value.Split(CChar(",")).ToList()
|
|
||||||
End If
|
|
||||||
End Select
|
|
||||||
Else
|
|
||||||
Logger.Log(Logger.LogTypes.Warning, "Player.vb: The line """ & Line & """ is either empty or does not conform the player.dat file rules.")
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
If IsGameJoltSave = True And Screen.Level.Surfing = False Then
|
|
||||||
Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
||||||
Select Case GameJoltSave.Gender
|
|
||||||
Case "0"
|
|
||||||
Male = True
|
|
||||||
Case "1"
|
|
||||||
Male = False
|
|
||||||
Case Else
|
|
||||||
Male = True
|
|
||||||
End Select
|
|
||||||
End If
|
|
||||||
GameStart = Date.Now
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Player.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Pokedex.dat")) Then
|
|
||||||
Core.Player.PokedexData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Pokedex.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Pokedex.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Register.dat")) Then
|
|
||||||
Core.Player.RegisterData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Register.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Register.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\RoamingPokemon.dat")) Then
|
|
||||||
Core.Player.RoamingPokemonData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\RoamingPokemon.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\RoamingPokemon.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\SecretBase.dat")) Then
|
|
||||||
Core.Player.SecretBaseData = File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\SecretBase.dat")
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\SecretBase.dat")
|
|
||||||
End If
|
|
||||||
If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Statistics.dat")) Then
|
|
||||||
PlayerStatistics.Load(File.ReadAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Statistics.dat"))
|
|
||||||
File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\OverWrite\Statistics.dat")
|
|
||||||
End If
|
|
||||||
#End If
|
|
||||||
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Apricorns.dat", GameJoltSave.Apricorns)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Berries.dat", GameJoltSave.Berries)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Box.dat", GameJoltSave.Box)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Daycare.dat", GameJoltSave.Daycare)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\HallOfFame.dat", GameJoltSave.HallOfFame)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\ItemData.dat", GameJoltSave.ItemData)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Items.dat", GameJoltSave.Items)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\NPC.dat", GameJoltSave.NPC)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Options.dat", GameJoltSave.Options)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Party.dat", GameJoltSave.Party)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Player.dat", GameJoltSave.Player)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Pokedex.dat", GameJoltSave.Pokedex)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Register.dat", GameJoltSave.Register)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\RoamingPokemon.dat", GameJoltSave.RoamingPokemon)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\SecretBase.dat", GameJoltSave.SecretBase)
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Statistics.dat", GameJoltSave.Statistics)
|
|
||||||
End If
|
|
||||||
|
|
||||||
''' Indev 0.54 Removal List
|
''' Indev 0.54 Removal List
|
||||||
''' 1. All Mega Stones. [ID: 507 - 553]
|
''' 1. All Mega Stones. [ID: 507 - 553]
|
||||||
''' 2. Shiny Candy [ID: 501]
|
''' 2. Shiny Candy [ID: 501]
|
||||||
@ -1151,6 +629,63 @@
|
|||||||
ActionScript.RegisterID("PokemonIndev054Update")
|
ActionScript.RegisterID("PokemonIndev054Update")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
''' Indev 0.54.2 OT Fix List.
|
||||||
|
If Not ActionScript.IsRegistered("PokemonIndev0542Update") Then
|
||||||
|
' Check Party Pokemon.
|
||||||
|
For Each Pokemon As Pokemon In Pokemons
|
||||||
|
If Pokemon.CatchTrainerName = Core.Player.Name AndAlso Pokemon.OT <> GameJoltSave.GameJoltID Then
|
||||||
|
Pokemon.OT = GameJoltSave.GameJoltID
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
' Check PC Boxes.
|
||||||
|
If Not String.IsNullOrWhiteSpace(BoxData) Then
|
||||||
|
Dim TempBoxData As New List(Of String)
|
||||||
|
TempBoxData.AddRange(BoxData.SplitAtNewline())
|
||||||
|
|
||||||
|
For Each item As String In TempBoxData
|
||||||
|
If Not String.IsNullOrWhiteSpace(item) AndAlso Not item.StartsWith("BOX") Then
|
||||||
|
Dim TempString As String = item.Remove(item.IndexOf("{"))
|
||||||
|
Dim TempPokemon As Pokemon = Pokemon.GetPokemonByData(item.Remove(0, item.IndexOf("{")))
|
||||||
|
|
||||||
|
If TempPokemon.CatchTrainerName = Core.Player.Name AndAlso TempPokemon.OT <> GameJoltSave.GameJoltID Then
|
||||||
|
TempPokemon.OT = GameJoltSave.GameJoltID
|
||||||
|
End If
|
||||||
|
|
||||||
|
item = TempString & TempPokemon.ToString()
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
BoxData = String.Join(vbNewLine, TempBoxData)
|
||||||
|
End If
|
||||||
|
|
||||||
|
' Check Day Care.
|
||||||
|
If Not String.IsNullOrWhiteSpace(DaycareData) Then
|
||||||
|
Dim TempDaycareData As New List(Of String)
|
||||||
|
TempDaycareData.AddRange(DaycareData.SplitAtNewline())
|
||||||
|
|
||||||
|
For Each item As String In TempDaycareData
|
||||||
|
If Not String.IsNullOrWhiteSpace(item) AndAlso item.Contains("{") Then
|
||||||
|
Dim TempString As String = ItemData.Remove(item.IndexOf("{"))
|
||||||
|
Dim TempPokemon As Pokemon = Pokemon.GetPokemonByData(item.Remove(0, item.IndexOf("{")))
|
||||||
|
|
||||||
|
If TempPokemon.CatchTrainerName = Core.Player.Name AndAlso TempPokemon.OT <> GameJoltSave.GameJoltID Then
|
||||||
|
TempPokemon.OT = GameJoltSave.GameJoltID
|
||||||
|
End If
|
||||||
|
|
||||||
|
item = TempString & TempPokemon.ToString()
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
DaycareData = String.Join(vbNewLine, TempDaycareData)
|
||||||
|
End If
|
||||||
|
|
||||||
|
' Remove Duplicate data.
|
||||||
|
Core.Player.PokeFiles = Core.Player.PokeFiles.Distinct().ToList()
|
||||||
|
|
||||||
|
ActionScript.RegisterID("PokemonIndev0542Update")
|
||||||
|
End If
|
||||||
|
|
||||||
loadedSave = True
|
loadedSave = True
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@ -1583,8 +1118,8 @@
|
|||||||
|
|
||||||
If IsGameJoltSave = True Then
|
If IsGameJoltSave = True Then
|
||||||
If Core.GameOptions.Extras.Contains("Backup Save") Then
|
If Core.GameOptions.Extras.Contains("Backup Save") Then
|
||||||
If Not Directory.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted") Then
|
If Not Directory.Exists(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID.ToString() & "/Encrypted") Then
|
||||||
Directory.CreateDirectory(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted")
|
Directory.CreateDirectory(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID.ToString() & "/Encrypted")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim OriginalHASH As String =
|
Dim OriginalHASH As String =
|
||||||
@ -1605,8 +1140,31 @@
|
|||||||
Encryption.EncryptString(GetSecretBaseData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
|
Encryption.EncryptString(GetSecretBaseData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)) & "|" &
|
||||||
Encryption.EncryptString(GetStatisticsData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
Encryption.EncryptString(GetStatisticsData, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
|
||||||
File.WriteAllText(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID & "\Encrypted\Encrypted.dat",
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID.ToString() & "/Encrypted/Encrypted.dat",
|
||||||
OriginalHASH & "|" & Encryption.EncryptString(OriginalHASH, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)))
|
OriginalHASH & "|" & Encryption.EncryptString(OriginalHASH, StringObfuscation.Obfuscate(GameJoltSave.GameJoltID)))
|
||||||
|
|
||||||
|
Dim timestamp As String = Date.Now.ToString("yyyy-MM-dd_HH.mm.ss")
|
||||||
|
|
||||||
|
If Not Directory.Exists(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp) Then
|
||||||
|
Directory.CreateDirectory(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp)
|
||||||
|
End If
|
||||||
|
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Apricorns.dat", GetApricornsData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Berries.dat", GetBerriesData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Box.dat", GetBoxData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Daycare.dat", GetDaycareData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/HallOfFame.dat", GetHallOfFameData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/ItemData.dat", GetItemDataData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Items.dat", GetItemsData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/NPC.dat", GetNPCDataData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Options.dat", GetOptionsData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Party.dat", GetPartyData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Player.dat", GetPlayerData(False))
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Pokedex.dat", GetPokedexData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Register.dat", GetRegisterData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/RoamingPokemon.dat", GetRoamingPokemonData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/SecretBase.dat", GetSecretBaseData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Statistics.dat", GetStatisticsData)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim APICallSave As New GameJolt.APICall(AddressOf SaveGameHelpers.CompleteGameJoltSave)
|
Dim APICallSave As New GameJolt.APICall(AddressOf SaveGameHelpers.CompleteGameJoltSave)
|
||||||
|
|||||||
@ -900,6 +900,216 @@ Public Class MainMenuScreen
|
|||||||
If Controls.Accept(True, True) = True Then
|
If Controls.Accept(True, True) = True Then
|
||||||
If Core.GameInstance.IsMouseVisible = False And loadGameJoltIndex = 0 Or Core.ScaleScreenRec(New Rectangle(CInt(Core.ScreenSize.Width / 2) - 256, 300, 512, 128)).Contains(MouseHandler.MousePosition) = True And Core.GameInstance.IsMouseVisible = True Then
|
If Core.GameInstance.IsMouseVisible = False And loadGameJoltIndex = 0 Or Core.ScaleScreenRec(New Rectangle(CInt(Core.ScreenSize.Width / 2) - 256, 300, 512, 128)).Contains(MouseHandler.MousePosition) = True And Core.GameInstance.IsMouseVisible = True Then
|
||||||
Core.Player.IsGameJoltSave = True
|
Core.Player.IsGameJoltSave = True
|
||||||
|
|
||||||
|
' Backup Save module
|
||||||
|
' 1. Load Encrypted.dat file.
|
||||||
|
' 2. Load OverWrite folder
|
||||||
|
' 3. Apply Extra Fixes.
|
||||||
|
|
||||||
|
' Enable Backup Save functionality.
|
||||||
|
If (Core.GameOptions.Extras.Contains("Backup Save")) Then
|
||||||
|
' Make a copy of last known good gamejolt save!
|
||||||
|
Dim timestamp As String = Date.Now.ToString("yyyy-MM-dd_HH.mm.ss")
|
||||||
|
|
||||||
|
If Not Directory.Exists(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp) Then
|
||||||
|
Directory.CreateDirectory(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp)
|
||||||
|
End If
|
||||||
|
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Apricorns.dat", Core.GameJoltSave.Apricorns)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Berries.dat", Core.GameJoltSave.Berries)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Box.dat", Core.GameJoltSave.Box)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Daycare.dat", Core.GameJoltSave.Daycare)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/HallOfFame.dat", Core.GameJoltSave.HallOfFame)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/ItemData.dat", Core.GameJoltSave.ItemData)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Items.dat", Core.GameJoltSave.Items)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/NPC.dat", Core.GameJoltSave.NPC)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Options.dat", Core.GameJoltSave.Options)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Party.dat", Core.GameJoltSave.Party)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Player.dat", Core.GameJoltSave.Player)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Pokedex.dat", Core.GameJoltSave.Pokedex)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Register.dat", Core.GameJoltSave.Register)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/RoamingPokemon.dat", Core.GameJoltSave.RoamingPokemon)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/SecretBase.dat", Core.GameJoltSave.SecretBase)
|
||||||
|
File.WriteAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID & "/" & timestamp & "/Statistics.dat", Core.GameJoltSave.Statistics)
|
||||||
|
|
||||||
|
If Directory.Exists(GameController.GamePath & "/Backup Save/" & Core.GameJoltSave.GameJoltID.ToString() & "/Encrypted/") Then
|
||||||
|
If File.Exists(GameController.GamePath & "/Backup Save/" & Core.GameJoltSave.GameJoltID.ToString() & "/Encrypted/Encrypted.dat") Then
|
||||||
|
Dim Items() As String = File.ReadAllText(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID.ToString() & "/Encrypted/Encrypted.dat").Split(CChar("|"))
|
||||||
|
Dim Hash As String = String.Join("|", Items.Take(16))
|
||||||
|
|
||||||
|
' Ensure that the items count is 17. Last index is for validation purpose.
|
||||||
|
If Items.Count() = 17 Then
|
||||||
|
' Try using the new algorithm.
|
||||||
|
Try
|
||||||
|
If String.Equals(Hash, Encryption.DecryptString(Items.Last(), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))) Then
|
||||||
|
Core.GameJoltSave._apricorns = Encryption.DecryptString(Items(0), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._berries = Encryption.DecryptString(Items(1), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._box = Encryption.DecryptString(Items(2), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._daycare = Encryption.DecryptString(Items(3), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._hallOfFame = Encryption.DecryptString(Items(4), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._itemData = Encryption.DecryptString(Items(5), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._items = Encryption.DecryptString(Items(6), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._NPC = Encryption.DecryptString(Items(7), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._options = Encryption.DecryptString(Items(8), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._party = Encryption.DecryptString(Items(9), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._player = Encryption.DecryptString(Items(10), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._pokedex = Encryption.DecryptString(Items(11), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._register = Encryption.DecryptString(Items(12), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._roamingPokemon = Encryption.DecryptString(Items(13), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._secretBase = Encryption.DecryptString(Items(14), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
Core.GameJoltSave._statistics = Encryption.DecryptString(Items(15), StringObfuscation.Obfuscate(GameJoltSave.GameJoltID))
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
' Try again using the old algorithm.
|
||||||
|
Try
|
||||||
|
If String.Equals(Hash, Encryption.DecryptString(Items.Last(), StringObfuscation.Obfuscate("TheDialgaTeam"))) Then
|
||||||
|
' Ensure that you are not cheating.
|
||||||
|
Dim PlayerData() As String = Items(10).SplitAtNewline()
|
||||||
|
If (PlayerData.Any(Function(a)
|
||||||
|
Return String.Equals(a, "OT|" & GameJoltSave.GameJoltID)
|
||||||
|
End Function)) Then
|
||||||
|
Core.GameJoltSave._apricorns = Encryption.DecryptString(Items(0), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._berries = Encryption.DecryptString(Items(1), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._box = Encryption.DecryptString(Items(2), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._daycare = Encryption.DecryptString(Items(3), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._hallOfFame = Encryption.DecryptString(Items(4), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._itemData = Encryption.DecryptString(Items(5), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._items = Encryption.DecryptString(Items(6), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._NPC = Encryption.DecryptString(Items(7), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._options = Encryption.DecryptString(Items(8), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._party = Encryption.DecryptString(Items(9), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._player = Encryption.DecryptString(Items(10), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._pokedex = Encryption.DecryptString(Items(11), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._register = Encryption.DecryptString(Items(12), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._roamingPokemon = Encryption.DecryptString(Items(13), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._secretBase = Encryption.DecryptString(Items(14), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Core.GameJoltSave._statistics = Encryption.DecryptString(Items(15), StringObfuscation.Obfuscate("TheDialgaTeam"))
|
||||||
|
Else
|
||||||
|
MsgBox("The game detected that you are trying to load the legacy Backup Save from Indev 0.53.3 Patch Update 6/7. Due to the nature of cloning account via Backup Save, we are unable to load this save." & vbNewLine & vbNewLine & "Please contact jianmingyong at http://pokemon3d.net/forum/ for more detail.", MsgBoxStyle.OkOnly, "Error")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
' Disable the older support for security reason.
|
||||||
|
Try
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Apricorns.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Berries.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Box.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Daycare.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/HallOfFame.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/ItemData.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Items.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/NPC.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Options.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Party.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Player.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Pokedex.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Register.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/RoamingPokemon.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/SecretBase.dat") AndAlso
|
||||||
|
File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Encrypted/Statistics.dat") Then
|
||||||
|
MsgBox("The game detected that you are trying to load the legacy Backup Save from Indev 0.53.3 Patch Update 5 and below. Due to the nature of cloning account via Backup Save, we are unable to load this save." & vbNewLine & vbNewLine & "Please contact jianmingyong at http://pokemon3d.net/forum/ for more detail.", MsgBoxStyle.OkOnly, "Error")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
#If DEBUG Then
|
||||||
|
If Not Directory.Exists(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID.ToString() & "/Overwrite") Then
|
||||||
|
Directory.CreateDirectory(GameController.GamePath & "/Backup Save/" & GameJoltSave.GameJoltID.ToString() & "/Overwrite")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Directory.Exists(GameController.GamePath & "/Backup Save/" & Core.GameJoltSave.GameJoltID.ToString() & "/Overwrite/") Then
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Apricorns.dat") Then
|
||||||
|
Core.GameJoltSave._apricorns = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Apricorns.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Apricorns.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Berries.dat") Then
|
||||||
|
Core.GameJoltSave._berries = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Berries.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Berries.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Box.dat") Then
|
||||||
|
Core.GameJoltSave._box = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Box.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Box.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Daycare.dat") Then
|
||||||
|
Core.GameJoltSave._daycare = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Daycare.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Daycare.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/HallOfFame.dat") Then
|
||||||
|
Core.GameJoltSave._hallOfFame = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/HallOfFame.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/HallOfFame.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/ItemData.dat") Then
|
||||||
|
Core.GameJoltSave._itemData = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/ItemData.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/ItemData.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Items.dat") Then
|
||||||
|
Core.GameJoltSave._items = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Items.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Items.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/NPC.dat") Then
|
||||||
|
Core.GameJoltSave._NPC = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/NPC.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/NPC.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Options.dat") Then
|
||||||
|
Core.GameJoltSave._options = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Options.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Options.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Party.dat") Then
|
||||||
|
Core.GameJoltSave._party = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Party.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Party.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Player.dat") Then
|
||||||
|
Core.GameJoltSave._player = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Player.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Player.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Pokedex.dat") Then
|
||||||
|
Core.GameJoltSave._pokedex = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Pokedex.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Pokedex.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Register.dat") Then
|
||||||
|
Core.GameJoltSave._register = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Register.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Register.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/RoamingPokemon.dat") Then
|
||||||
|
Core.GameJoltSave._roamingPokemon = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/RoamingPokemon.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/RoamingPokemon.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/SecretBase.dat") Then
|
||||||
|
Core.GameJoltSave._secretBase = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/SecretBase.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/SecretBase.dat")
|
||||||
|
End If
|
||||||
|
|
||||||
|
If File.Exists(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Statistics.dat") Then
|
||||||
|
Core.GameJoltSave._statistics = File.ReadAllText(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Statistics.dat")
|
||||||
|
File.Delete(GameController.GamePath + "/Backup Save/" + Core.GameJoltSave.GameJoltID.ToString() + "/Overwrite/Statistics.dat")
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
End If
|
||||||
|
|
||||||
Core.Player.LoadGame("GAMEJOLTSAVE")
|
Core.Player.LoadGame("GAMEJOLTSAVE")
|
||||||
|
|
||||||
Core.SetScreen(New JoinServerScreen(Me))
|
Core.SetScreen(New JoinServerScreen(Me))
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user