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

Hopefully fix gts trading

Browse Source
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
End If End If
Else 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 NewTrade = True
End If 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) Dim l As List(Of API.JoltValue) = API.HandleData(result)
If CBool(l(0).Value) = True Then 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) Dim APICall As New APICall(AddressOf SentPokemon)
APICall.SetStorageData(newD.Key, newD.Data, False) APICall.SetStorageData(newD.Key, newD.Data, False)