Implement Catching Charm, fix Exp. Charm

P3D/Battle/BattleSystemV2/BattleCalculation.vb

@@ -1066,6 +1066,10 @@
                 End If
             Next
 
+            If Core.Player.Inventory.GetItemAmount(656.ToString) > 0 Then 'Exp. Charm
+                EXP = CInt(EXP * 1.5F)
+            End If
+
             Return EXP
         End Function
 

P3D/Pokemon/Items/KeyItems/CatchingCharm.vb

@@ -0,0 +1,16 @@
+Namespace Items.KeyItems
+
+    <Item(657, "Catching Charm")>
+    Public Class CatchingCharm
+
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "Having one of these mysterious, unshakable charms makes it more likely you’ll get a critical catch."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(480, 408, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Screens/Battle/BattleCatchScreen.vb

@@ -507,7 +507,7 @@ nextIndex:
                 CriticalMultiplier *= 2.5F
         End Select
 
-        If Core.Player.Inventory.GetItemAmount(656.ToString) > 0 Then 'Exp. Charm
+        If Core.Player.Inventory.GetItemAmount(657.ToString) > 0 Then 'Catching. Charm
             CriticalMultiplier *= 2.0F
         End If
         Dim CriticalCaptureChance As Integer = CInt(Math.Floor(CriticalMultiplier / 6))