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

Added even extra condition

Browse Source 
Now it wont show if you have a mega evolved pokemon in your team (just cosmetic purpose)
This commit is contained in:
Capt_Segis 2016-10-07 00:48:45 -05:00 committed by GitHub
parent 43ba440217
commit 7bf5c6fd5d
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -622,14 +622,16 @@
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)
Dim PokeIndex As Integer = BattleScreen.OwnPokemonIndex For i = 0 To Core.Player.Pokemons.Count - 1
Dim _str As String = Core.Player.Pokemons(PokeIndex).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
Dim PokeIndex As Integer = BattleScreen.OwnPokemonIndex
If BattleScreen.FieldEffects.OwnMegaEvolved = False Then If BattleScreen.FieldEffects.OwnMegaEvolved = False Then
If Not Core.Player.Pokemons(PokeIndex).Item Is Nothing Then If Not Core.Player.Pokemons(PokeIndex).Item Is Nothing Then
If Core.Player.Pokemons(PokeIndex).Item.IsMegaStone = True Then If Core.Player.Pokemons(PokeIndex).Item.IsMegaStone = True Then