From ca6d063e2c8c90ac534d74fdcce2655256ae6dd8 Mon Sep 17 00:00:00 2001 From: darkfire006 Date: Sun, 1 Jan 2023 22:26:37 -0600 Subject: [PATCH] put all possible attack variables in pound for demonstration purposes --- P3D/Pokemon/Attacks/Normal/Pound.vb | 54 ++++++++++++++++++++--------- 1 file changed, 38 insertions(+), 16 deletions(-) diff --git a/P3D/Pokemon/Attacks/Normal/Pound.vb b/P3D/Pokemon/Attacks/Normal/Pound.vb index 8074f92e3..d6b496311 100644 --- a/P3D/Pokemon/Attacks/Normal/Pound.vb +++ b/P3D/Pokemon/Attacks/Normal/Pound.vb @@ -25,34 +25,56 @@ '#End '#SpecialDefinitions - Me.MakesContact = True + 'Generic Secondary effects + Me.HasSecondaryEffect = False + Me.IsHealingMove = False + Me.IsDamagingMove = True + Me.IsProtectMove = False + Me.IsOneHitKOMove = False + Me.IsRecoilMove = False + Me.IsTrappingMove = False + Me.RemovesFrozen = False + + 'Interacts with other moves/effects Me.ProtectAffected = True Me.MagicCoatAffected = False Me.SnatchAffected = False Me.MirrorMoveAffected = True Me.KingsrockAffected = True Me.CounterAffected = True - - Me.DisabledWhileGravity = False - Me.UseEffectiveness = True - Me.ImmunityAffected = True - Me.RemovesFrozen = False - Me.HasSecondaryEffect = False - - Me.IsHealingMove = False - Me.IsRecoilMove = False - - Me.IsDamagingMove = True - Me.IsProtectMove = False - - Me.IsAffectedBySubstitute = True - Me.IsOneHitKOMove = False + Me.ImmunityAffected = True Me.IsWonderGuardAffected = True + Me.DisabledWhileGravity = False + + 'ignore stats status or positioning? + Me.UseAccEvasion = True + Me.CanHitInMidAir = False + Me.CanHitUnderground = False + Me.CanHitUnderwater = False + Me.CanHitSleeping = True + Me.CanGainSTAB = True + Me.UseOppDefense = True + Me.UseOppEvasion = True + Me.UseEffectiveness = True + + 'categories + Me.MakesContact = True + Me.IsPulseMove = False + Me.IsBulletMove = False + Me.IsJawMove = False + Me.IsDanceMove = False + Me.IsExplosiveMove = False + Me.IsPowderMove = False + Me.IsPunchingMove = False + Me.IsSlicingMove = False + Me.IsSoundMove = False + Me.IsWindMove = False '#End Me.AIField1 = AIField.Damage Me.AIField2 = AIField.Nothing + Me.AIField3 = AIField.Nothing End Sub Public Overrides Sub InternalOpponentPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC)