diff --git a/2.5DHero/2.5DHero/Pokemon/Attacks/Bug/StickyWeb.vb b/2.5DHero/2.5DHero/Pokemon/Attacks/Bug/StickyWeb.vb new file mode 100644 index 000000000..f00b8e252 --- /dev/null +++ b/2.5DHero/2.5DHero/Pokemon/Attacks/Bug/StickyWeb.vb @@ -0,0 +1,80 @@ +Namespace BattleSystem.Moves.Bug + + Public Class StickyWeb + + Inherits Attack + + Public Sub New() + '#Definitions + Me.Type = New Element(Element.Types.Bug) + Me.ID = 564 + Me.OriginalPP = 20 + Me.CurrentPP = 20 + Me.MaxPP = 32 + Me.Power = 0 + Me.Accuracy = 0 + Me.Category = Categories.Status + Me.ContestCategory = ContestCategories.Tough + Me.Name = "Spikes" + Me.Description = "The user weaves a sticky net around the opposing team, which lowers their Speed stat upon switching into battle." + Me.CriticalChance = 0 + Me.IsHMMove = False + Me.Target = Targets.AllFoes + Me.Priority = 0 + Me.TimesToAttack = 1 + '#End + + '#SpecialDefinitions + Me.MakesContact = False + Me.ProtectAffected = False + Me.MagicCoatAffected = True + Me.SnatchAffected = False + Me.MirrorMoveAffected = True + Me.KingsrockAffected = False + Me.CounterAffected = False + + Me.DisabledWhileGravity = False + Me.UseEffectiveness = False + Me.ImmunityAffected = False + Me.HasSecondaryEffect = False + Me.RemovesFrozen = False + + Me.IsHealingMove = False + Me.IsRecoilMove = False + Me.IsPunchingMove = False + Me.IsDamagingMove = False + Me.IsProtectMove = False + Me.IsSoundMove = False + + Me.IsAffectedBySubstitute = False + Me.IsOneHitKOMove = False + Me.IsWonderGuardAffected = False + '#End + + Me.AIField1 = AIField.Support + Me.AIField2 = AIField.Nothing + End Sub + + Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen) + Dim stickyweb As Integer = 0 + If own = True Then + stickyweb = BattleScreen.FieldEffects.OwnStickyWeb + Else + stickyweb = BattleScreen.FieldEffects.OppStickyWeb + End If + If stickyweb < 1 Then + If own = True Then + BattleScreen.FieldEffects.OwnStickyWeb += 1 + BattleScreen.BattleQuery.Add(New TextQueryObject("A sticky web has been laid beneath the opposite team's feet!")) + Else + BattleScreen.FieldEffects.OppStickyWeb += 1 + BattleScreen.BattleQuery.Add(New TextQueryObject("A sticky web has been laid beneath your team's feet!")) + End If + Else + BattleScreen.BattleQuery.Add(New TextQueryObject(Me.Name & " failed!")) + End If + End Sub + + End Class + +End Namespace