From 0600eb4d35d8c7c9653975fe697878e4d599aac0 Mon Sep 17 00:00:00 2001
From: JappaWakka <jjlspeelman@outlook.com>
Date: Sun, 4 Jun 2023 11:47:52 +0200
Subject: [PATCH] Quit battle if versions don't match

---
 P3D/Network/Servers/PVPLobbyScreen.vb | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/P3D/Network/Servers/PVPLobbyScreen.vb b/P3D/Network/Servers/PVPLobbyScreen.vb
index f15976444..297cf4b93 100644
--- a/P3D/Network/Servers/PVPLobbyScreen.vb
+++ b/P3D/Network/Servers/PVPLobbyScreen.vb
@@ -348,6 +348,12 @@
             If GameController.RELEASEVERSION = _oppGameVersion Then
                 _startNow = True
             Else
+                Core.ServersManager.ServerConnection.SendPackage(New Servers.Package(Servers.Package.PackageTypes.BattleQuit, Core.ServersManager.ID, Servers.Package.ProtocolTypes.TCP, PartnerNetworkID.ToString()))
+                Dim s As Screen = CurrentScreen
+                While s.Identification <> Identifications.OverworldScreen
+                    s = s.PreScreen
+                End While
+                Core.SetScreen(s)
                 TextBox.Show("Game versions don't match.")
             End If
         Else