Added extra condition to MainMenuAddMegaEvolution

2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleMenu.vb

@@ -623,6 +623,13 @@
 
         Private Sub MainMenuAddMegaEvolution(ByVal BattleScreen As BattleScreen, ByVal Index As Integer)
             Dim PokeIndex As Integer = BattleScreen.OwnPokemonIndex
+            Dim _str As String = Core.Player.Pokemons(PokeIndex).AdditionalData
+            Select Case _str
+                Case "mega", "mega_x", "mega_y"
+                    Exit Sub
+                Case Else
+                'do nothing
+            End Select
             If BattleScreen.FieldEffects.OwnMegaEvolved = False Then
                 If Not Core.Player.Pokemons(PokeIndex).Item Is Nothing Then
                     If Core.Player.Pokemons(PokeIndex).Item.IsMegaStone = True Then
@@ -966,4 +973,4 @@
 
     End Class
 
-End Namespace
+End Namespace