From b3ad6179bb002c8d13a07c53b70b3875aaa58b42 Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Sun, 13 Jul 2025 16:14:28 +0200 Subject: [PATCH 1/2] Fix Clamp's Base PP to 15 --- P3D/Pokemon/Attacks/Water/Clamp.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/P3D/Pokemon/Attacks/Water/Clamp.vb b/P3D/Pokemon/Attacks/Water/Clamp.vb index bbff7f189..a83ab8979 100644 --- a/P3D/Pokemon/Attacks/Water/Clamp.vb +++ b/P3D/Pokemon/Attacks/Water/Clamp.vb @@ -8,9 +8,9 @@ Namespace BattleSystem.Moves.Water '#Definitions Me.Type = New Element(Element.Types.Water) Me.ID = 128 - Me.OriginalPP = 10 - Me.CurrentPP = 10 - Me.MaxPP = 10 + Me.OriginalPP = 15 + Me.CurrentPP = 15 + Me.MaxPP = 15 Me.Power = 35 Me.Accuracy = 85 Me.Category = Categories.Physical From 7cecdce726e8eec4d43f1dec06c68527db13f157 Mon Sep 17 00:00:00 2001 From: JappaWakka Date: Sun, 13 Jul 2025 17:14:18 +0200 Subject: [PATCH 2/2] Stomp bypasses accuracy check for Minimized opp --- P3D/Battle/BattleSystemV2/Battle.vb | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/P3D/Battle/BattleSystemV2/Battle.vb b/P3D/Battle/BattleSystemV2/Battle.vb index 69c5cb6a1..6be02f3f7 100644 --- a/P3D/Battle/BattleSystemV2/Battle.vb +++ b/P3D/Battle/BattleSystemV2/Battle.vb @@ -1881,6 +1881,15 @@ DoesNotMiss = True End If + Dim minimize As Integer = BattleScreen.FieldEffects.OppMinimize + If own = False Then + minimize = BattleScreen.FieldEffects.OwnMinimize + End If + + If minimize > 0 AndAlso moveUsed.Name.ToLower = "stomp" Then + DoesNotMiss = True + End If + 'if the target pokemon can't be hit because of a two-turn move (Fly, for example) Dim UseTwoTurnCheck As Boolean = True If moveUsed.ProtectAffected = False Then