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

Fix battlescreen interaction while in chatscreen

Browse Source
This commit is contained in:
JappaWakka 2023-08-04 10:15:18 +02:00
parent 5a7304c6fd
commit 6e8067b30b
2 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
P3D/Battle/BattleSystemV2/BattleMenu.vb
View File

@ -316,6 +316,12 @@
End Sub End Sub
Public Sub Update(ByRef BattleScreen As BattleScreen) Public Sub Update(ByRef BattleScreen As BattleScreen)
Dim blockinteractscreen() As Screen.Identifications = {Screen.Identifications.PartyScreen, Screen.Identifications.SummaryScreen, Screen.Identifications.PauseScreen, Screen.Identifications.ChatScreen}
If blockinteractscreen.Contains(Core.CurrentScreen.Identification) = True Then
CanInteract = False
Else
CanInteract = True
End If
If CanInteract = True Then If CanInteract = True Then
Select Case MenuState Select Case MenuState
Case MenuStates.Main Case MenuStates.Main

15
P3D/Battle/BattleSystemV2/BattleScreen.vb
View File

@ -1137,10 +1137,17 @@ nextIndex:
End If End If
End If End If
If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then Dim canEnd As Boolean = True
If KeyBoardHandler.KeyPressed(Keys.K) = True Then Dim blockinteractscreen() As Screen.Identifications = {Screen.Identifications.PartyScreen, Screen.Identifications.SummaryScreen, Screen.Identifications.PauseScreen, Screen.Identifications.ChatScreen}
Battle.Won = True If blockinteractscreen.Contains(Core.CurrentScreen.Identification) = True Then
EndBattle(False) canEnd = False
End If
If canEnd = True Then
If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then
If KeyBoardHandler.KeyPressed(Keys.K) = True Then
Battle.Won = True
EndBattle(False)
End If
End If End If
End If End If