Removed reference to BattlePokemonInfoScreen

This commit is contained in:
CaptainSegis 2017-03-15 09:37:40 -05:00
parent db6057254e
commit a46b8361a4
1 changed files with 1 additions and 2 deletions

View File

@ -699,7 +699,6 @@
Core.SetScreen(selScreen) Core.SetScreen(selScreen)
''CType(Core.CurrentScreen, PartyScreen)._index = BattleScreen.OwnPokemonIndex
End Sub End Sub
Private Sub MainMenuOpenBag(ByVal BattleScreen As BattleScreen) Private Sub MainMenuOpenBag(ByVal BattleScreen As BattleScreen)
@ -924,7 +923,7 @@
End Sub End Sub
Private Shared Sub ShowPokemonMenu(ByVal PokeIndex As Integer) Private Shared Sub ShowPokemonMenu(ByVal PokeIndex As Integer)
Core.SetScreen(New BattlePokemonInfoScreen(Core.CurrentScreen, PokeIndex, AddressOf SwitchPokemonTo, TempBattleScreen)) SwitchPokemonTo(PokeIndex)
End Sub End Sub
Private Shared Sub SwitchPokemonTo(ByVal PokeIndex As Integer) Private Shared Sub SwitchPokemonTo(ByVal PokeIndex As Integer)