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

View File

@ -1391,9 +1391,8 @@ nextIndex:
End If End If
p.ResetTemp() p.ResetTemp()
Next Next
If ItemReturnScript <> "" Then If ItemReturnScript <> "@Text.Show(" Then
ItemReturnScript &= ")" ItemReturnScript &= ")"
End If
Dim s As String = Dim s As String =
"version=2" & Environment.NewLine & "version=2" & Environment.NewLine &
@ -1402,6 +1401,8 @@ nextIndex:
CType(SavedOverworld.OverworldScreen, OverworldScreen).ActionScript.StartScript(s, 2, False) CType(SavedOverworld.OverworldScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
End If
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,9 +1493,8 @@ nextIndex:
End If End If
p.ResetTemp() p.ResetTemp()
Next Next
If ItemReturnScript <> "" Then If ItemReturnScript <> "@Text.Show(" Then
ItemReturnScript &= ")" ItemReturnScript &= ")"
End If
Dim s As String = Dim s As String =
"version=2" & Environment.NewLine & "version=2" & Environment.NewLine &
@ -1503,6 +1503,8 @@ nextIndex:
CType(SavedOverworld.OverworldScreen, OverworldScreen).ActionScript.StartScript(s, 2, False) CType(SavedOverworld.OverworldScreen, OverworldScreen).ActionScript.StartScript(s, 2, False)
End If
FieldEffects.OwnRageFistPower = 0 FieldEffects.OwnRageFistPower = 0
FieldEffects.OppRageFistPower = 0 FieldEffects.OppRageFistPower = 0