Make wild pkmn uncatchable if catchrate = -1

2023-09-22 11:09:35 +02:00 · 2023-09-22 11:09:35 +02:00 · 25bda8826a
parent ca3ddfa441
commit 25bda8826a
1 changed files with 4 additions and 0 deletions
--- 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)