Implemented Mega Bracelet and its functionality

2.5DHero/2.5DHero/2.5DHero.vbproj

@@ -1055,6 +1055,7 @@
     <Compile Include="Pokemon\Items\KeyItems\CrystalWing.vb" />
     <Compile Include="Pokemon\Items\KeyItems\EmptySeaMap.vb" />
     <Compile Include="Pokemon\Items\KeyItems\GoodRod.vb" />
+    <Compile Include="Pokemon\Items\KeyItems\MegaBracelet.vb" />
     <Compile Include="Pokemon\Items\KeyItems\GSBall.vb" />
     <Compile Include="Pokemon\Items\KeyItems\ItemFinder.vb" />
     <Compile Include="Pokemon\Items\KeyItems\KeyItem.vb" />

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

@@ -642,6 +642,12 @@
         End Sub
 
         Private Sub MainMenuAddMegaEvolution(ByVal BattleScreen As BattleScreen, ByVal Index As Integer)
+
+            'Checks if the player has the Mega Bracelet.
+            If Not (Core.Player.Inventory.GetItemAmount(576) > 0) Then
+                Exit Sub
+            End If
+
             If _mainMenuIndex >= 3 Then
                 _mainMenuIndex = 0
             End If

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/MegaBracelet.vb

@@ -0,0 +1,16 @@
+Namespace Items.KeyItems
+
+    <Item(576, "Mega Bracelet")>
+    Public Class MegaBracelet
+
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "This bracelet contains an untold power that somehow enables Pokémon carrying a Mega Stone to Mega Evolve in battle. "
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(312, 288, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace