Namespace BattleSystem.Moves.Flying Public Class Acrobatics Inherits Attack Public Sub New() '#Definitions Me.Type = New Element(Element.Types.Flying) Me.ID = 512 Me.OriginalPP = 15 Me.CurrentPP = 15 Me.MaxPP = 15 Me.Power = 55 Me.Accuracy = 100 Me.Category = Categories.Physical Me.ContestCategory = ContestCategories.Smart Me.Name = Localization.GetString("move_name_" & Me.ID,"Acrobatics") Me.Description = "The user nimbly strikes the target. If the user is not holding an item, this attack inflicts massive damage." Me.CriticalChance = 1 Me.IsHMMove = False Me.Target = Targets.OneAdjacentTarget Me.Priority = 0 Me.TimesToAttack = 1 '#End '#SpecialDefinitions Me.MakesContact = False 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.HasSecondaryEffect = False Me.RemovesOwnFrozen = False Me.IsHealingMove = False Me.IsRecoilMove = False Me.IsDamagingMove = True Me.IsProtectMove = False Me.IsAffectedBySubstitute = True Me.IsOneHitKOMove = False Me.IsWonderGuardAffected = True '#End End Sub Public Overrides Function GetBasePower(own As Boolean, BattleScreen As BattleScreen) As Integer Dim p As Pokemon = BattleScreen.OwnPokemon If own = False Then p = BattleScreen.OppPokemon End If If p.Item Is Nothing Then Return 110 End If Return Me.Power End Function End Class End Namespace