From 25bda8826a556f4b8a9272b47cb6d003870da56b Mon Sep 17 00:00:00 2001
From: JappaWakka <jjlspeelman@outlook.com>
Date: Fri, 22 Sep 2023 11:09:35 +0200
Subject: [PATCH] Make wild pkmn uncatchable if catchrate = -1

---
 P3D/Battle/BattleSystemV2/BattleScreen.vb | 4 ++++
 1 file changed, 4 insertions(+)

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)