diff --git a/P3D/Battle/BattleSystemV2/BattleScreen.vb b/P3D/Battle/BattleSystemV2/BattleScreen.vb
index 07fa69de3..2b1c4214d 100644
--- a/P3D/Battle/BattleSystemV2/BattleScreen.vb
+++ b/P3D/Battle/BattleSystemV2/BattleScreen.vb
@@ -196,6 +196,10 @@
 
             Me.OppPokemon = WildPokemon
 
+            If Me.OppPokemon.CatchRate = -1 Then
+                CanCatch = False
+            End If
+
             If Core.Player.Pokemons.Count = 0 Then
                 Dim p1 As Pokemon = Pokemon.GetPokemonByID(247)
                 p1.Generate(15, True)