From ecbe8c5c923353853da90b65ae190e1524363c54 Mon Sep 17 00:00:00 2001
From: JappaWakka <jjlspeelman@outlook.com>
Date: Sun, 26 Jun 2022 19:56:07 +0200
Subject: [PATCH] Hopefully fix gts trading
---
P3D/Network/GameJolt/GTS/GTSSetupScreen.vb | 2 +-
P3D/Network/GameJolt/GTS/GTSTradeScreen.vb | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/P3D/Network/GameJolt/GTS/GTSSetupScreen.vb b/P3D/Network/GameJolt/GTS/GTSSetupScreen.vb
index 0319b61e5..a6e54605a 100644
--- a/P3D/Network/GameJolt/GTS/GTSSetupScreen.vb
+++ b/P3D/Network/GameJolt/GTS/GTSSetupScreen.vb
@@ -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
diff --git a/P3D/Network/GameJolt/GTS/GTSTradeScreen.vb b/P3D/Network/GameJolt/GTS/GTSTradeScreen.vb
index 447441da7..481544aa3 100644
--- a/P3D/Network/GameJolt/GTS/GTSTradeScreen.vb
+++ b/P3D/Network/GameJolt/GTS/GTSTradeScreen.vb
@@ -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)