Fix disabled save message not appearing

This commit is contained in:
JappaWakka 2022-09-29 21:25:38 +02:00
parent b14277a91d
commit d4d53ba0ea
1 changed files with 5 additions and 0 deletions

View File

@ -294,6 +294,11 @@
Core.SetScreen(New NewTrainerScreen(Me))
Case "Save"
If CBool(GameModeManager.GetGameRuleValue("SavingDisabled", "0")) = True Then
Dim s As Screen = Core.CurrentScreen
While Not s.PreScreen Is Nothing And s.Identification <> Identifications.OverworldScreen
s = s.PreScreen
End While
Core.SetScreen(s)
Screen.TextBox.Show("Saving is not possible right now.")
Else
Core.SetScreen(New SaveScreen(Me))