diff --git a/2.5DHero/2.5DHero/Pokemon/Attacks/Electric/BoltStrike.vb b/2.5DHero/2.5DHero/Pokemon/Attacks/Electric/BoltStrike.vb new file mode 100644 index 000000000..9d3cfde89 --- /dev/null +++ b/2.5DHero/2.5DHero/Pokemon/Attacks/Electric/BoltStrike.vb @@ -0,0 +1,76 @@ +Namespace BattleSystem.Moves.Electric + + Public Class BoltStrike + + Inherits Attack + + Public Sub New() + '#Definitions + Me.Type = New Element(Element.Types.Electric) + Me.ID = 550 + Me.OriginalPP = 5 + Me.CurrentPP = 5 + Me.MaxPP = 5 + Me.Power = 130 + Me.Accuracy = 85 + Me.Category = Categories.Physical + Me.ContestCategory = ContestCategories.Beauty + Me.Name = "Bolt Strike" + Me.Description = "The user surrounds itself with a great amount of electricity and charges its target. This may also leave the target with paralysis." + Me.CriticalChance = 1 + Me.IsHMMove = False + Me.Target = Targets.OneAdjacentTarget + Me.Priority = 0 + Me.TimesToAttack = 1 + '#End + + '#SpecialDefinitions + Me.MakesContact = True + Me.ProtectAffected = True + Me.MagicCoatAffected = False + Me.SnatchAffected = False + Me.MirrorMoveAffected = True + Me.KingsrockAffected = False + Me.CounterAffected = True + + Me.DisabledWhileGravity = False + Me.UseEffectiveness = True + Me.ImmunityAffected = True + Me.HasSecondaryEffect = True + Me.RemovesFrozen = False + + Me.IsHealingMove = False + Me.IsRecoilMove = False + Me.IsPunchingMove = False + Me.IsDamagingMove = True + Me.IsProtectMove = False + Me.IsSoundMove = False + + Me.IsAffectedBySubstitute = True + Me.IsOneHitKOMove = False + Me.IsWonderGuardAffected = True + '#End + + Me.AIField1 = AIField.Damage + Me.AIField2 = AIField.CanParalyse + + EffectChances.Add(20) + End Sub + + Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen) + Dim p As Pokemon = BattleScreen.OwnPokemon + Dim op As Pokemon = BattleScreen.OppPokemon + If own = False Then + p = BattleScreen.OppPokemon + op = BattleScreen.OwnPokemon + End If + + Dim chance As Integer = GetEffectChance(0, own, BattleScreen) + If Core.Random.Next(0, 100) < chance Then + BattleScreen.Battle.InflictParalysis(Not own, own, BattleScreen, "", "move:bolstrike") + End If + End Sub + + End Class + +End Namespace