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

Don't show textbox if not lost item after battle

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