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

Ensure that the menu button reset to index 0 after mega evolve.

Browse Source
This commit is contained in:
jianmingyong 2016-10-09 03:16:17 +08:00
parent 36010dfa46
commit 7cce88e66f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleMenu.vb
View File

@ -622,13 +622,17 @@
End Sub End Sub
Private Sub MainMenuAddMegaEvolution(ByVal BattleScreen As BattleScreen, ByVal Index As Integer) Private Sub MainMenuAddMegaEvolution(ByVal BattleScreen As BattleScreen, ByVal Index As Integer)
If _mainMenuIndex >= 3 Then
_mainMenuIndex = 0
End If
For i = 0 To Core.Player.Pokemons.Count - 1 For i = 0 To Core.Player.Pokemons.Count - 1
Dim _str As String = Core.Player.Pokemons(i).AdditionalData Dim _str As String = Core.Player.Pokemons(i).AdditionalData
Select Case _str Select Case _str
Case "mega", "mega_x", "mega_y" Case "mega", "mega_x", "mega_y"
Exit Sub Exit Sub
Case Else Case Else
'do nothing 'do nothing
End Select End Select
Next Next
Dim PokeIndex As Integer = BattleScreen.OwnPokemonIndex Dim PokeIndex As Integer = BattleScreen.OwnPokemonIndex