tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-25 23:05:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Hopefully fix berrydata bugs with new saves

Browse Source
This commit is contained in:
JappaWakka 2023-07-15 14:17:40 +02:00
parent 29a9ec6ebb
commit 6440ff0466
3 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
P3D/Network/Profiles/GamejoltSave.vb
View File

@ -613,7 +613,7 @@ Namespace GameJolt
Dim data As String = result.Remove(0, 22) Dim data As String = result.Remove(0, 22)
data = data.Remove(data.LastIndexOf("""")) data = data.Remove(data.LastIndexOf(""""))
_berries = data.Replace("\""", """") _berries = data.Replace("\""", """").Replace("}{", "}" & Environment.NewLine & "{")
Else Else
_berries = GetBerryData() _berries = GetBerryData()
End If End If
@ -947,8 +947,11 @@ Namespace GameJolt
If File.Exists(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Then If File.Exists(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Then
Dim Berries() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Dim Berries() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\BerryData.dat"))
For Each line In Berries For i = 0 To Berries.Count - 1
s &= line s &= Berries(i)
If i < Berries.Count - 1 Then
s &= Environment.NewLine
End If
Next Next
Else Else
s = "{route29.dat|13,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine & s = "{route29.dat|13,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &

8
P3D/Screens/MainMenu/NewNewGameScreen.vb
View File

@ -170,6 +170,7 @@
Core.Player.startRiding = False Core.Player.startRiding = False
Core.Player.startRotation = CSng(MathHelper.Pi * (rot / 2)) Core.Player.startRotation = CSng(MathHelper.Pi * (rot / 2))
Core.Player.PokedexData = Pokedex.NewPokedex()
Core.Player.BerryData = CreateBerryData() Core.Player.BerryData = CreateBerryData()
Core.Player.AddVisitedMap(map) Core.Player.AddVisitedMap(map)
Core.Player.SaveCreated = GameController.GAMEDEVELOPMENTSTAGE & " " & GameController.GAMEVERSION Core.Player.SaveCreated = GameController.GAMEDEVELOPMENTSTAGE & " " & GameController.GAMEVERSION
@ -193,8 +194,11 @@
If File.Exists(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Then If File.Exists(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Then
Dim Berries() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Dim Berries() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\BerryData.dat"))
For Each line In Berries For i = 0 To Berries.Count - 1
s &= line s &= Berries(i)
If i < Berries.Count - 1 Then
s &= Environment.NewLine
End If
Next Next
Else Else
s = "{route29.dat|13,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine & s = "{route29.dat|13,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &

7
P3D/Screens/NewGameScreen.vb
View File

@ -446,8 +446,11 @@
If File.Exists(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Then If File.Exists(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Then
Dim Berries() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Dim Berries() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\BerryData.dat"))
For Each line In Berries For i = 0 To Berries.Count - 1
s &= line s &= Berries(i)
If i < Berries.Count - 1 Then
s &= Environment.NewLine
End If
Next Next
Else Else
s = "{route29.dat|13,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine & s = "{route29.dat|13,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &