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

Hopefully fix gts trading

This commit is contained in:
JappaWakka 2022-06-26 19:56:07 +02:00
parent 943bbd3ce3
commit ecbe8c5c92
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
P3D/Network/GameJolt/GTS/GTSSetupScreen.vb
View File

@ -405,7 +405,7 @@
End If
End If
Else
Me.D = New GTSDataItem(Core.GameJoltSave.GameJoltID, "", "", "9 and under", "", "", "", "Pokemon 3D", "", GTSDataItem.SecurityCode.Global, GTSDataItem.ActionSwitches.Set, "")
Me.D = New GTSDataItem(Core.GameJoltSave.GameJoltID, "", "", "9 and under", "", "", "", "Kolben", "", GTSDataItem.SecurityCode.Global, GTSDataItem.ActionSwitches.Set, "")
NewTrade = True
End If

2
P3D/Network/GameJolt/GTS/GTSTradeScreen.vb
View File

@ -342,7 +342,7 @@
Dim l As List(Of API.JoltValue) = API.HandleData(result)
If CBool(l(0).Value) = True Then
Dim newD As New GTSDataItem(Core.GameJoltSave.GameJoltID, D.FromUserID, "", "", "", "", P.GetSaveData(), "Pokemon 3D", "Trade for " & D.Pokemon.GetDisplayName(), GTSDataItem.SecurityCode.Private, GTSDataItem.ActionSwitches.Got, D.TradeID)
Dim newD As New GTSDataItem(Core.GameJoltSave.GameJoltID, D.FromUserID, "", "", "", "", P.GetSaveData(), "Kolben", "Trade for " & D.Pokemon.GetDisplayName(), GTSDataItem.SecurityCode.Private, GTSDataItem.ActionSwitches.Got, D.TradeID)
Dim APICall As New APICall(AddressOf SentPokemon)
APICall.SetStorageData(newD.Key, newD.Data, False)