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

Don't show textbox if not lost item after battle

This commit is contained in:
JappaWakka 2024-05-05 09:39:10 +02:00
parent 56e436d69e
commit c2f3eeff22
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1391,17 +1391,18 @@ nextIndex:
End If
p.ResetTemp()
Next
If ItemReturnScript <> "" Then
If ItemReturnScript <> "@Text.Show(" Then
ItemReturnScript &= ")"
Dim s As String =
"version=2" & Environment.NewLine &
ItemReturnScript & Environment.NewLine &
":end"
CType(SavedOverworld.OverworldScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
End If
Dim s As String =
"version=2" & Environment.NewLine &
ItemReturnScript & Environment.NewLine &
":end"
CType(SavedOverworld.OverworldScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
If hasLevelUp = False Then
Core.SetScreen(New TransitionScreen(Me, SavedOverworld.OverworldScreen, New Color(255, 255, 255), False, AddressOf ChangeSavedScreen))
Else
@ -1492,17 +1493,18 @@ nextIndex:
End If
p.ResetTemp()
Next
If ItemReturnScript <> "" Then
If ItemReturnScript <> "@Text.Show(" Then
ItemReturnScript &= ")"
Dim s As String =
"version=2" & Environment.NewLine &
ItemReturnScript & Environment.NewLine &
":end"
CType(SavedOverworld.OverworldScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
End If
Dim s As String =
"version=2" & Environment.NewLine &
ItemReturnScript & Environment.NewLine &
":end"
CType(SavedOverworld.OverworldScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
FieldEffects.OwnRageFistPower = 0
FieldEffects.OppRageFistPower = 0