mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-08-19 00:39:29 +02:00
fixed fake-out/first impression working on 2 turns fixed protecting move breaking messages fixed trapping/binding moves and abilities fixed flinch message popping up unnecessarily updated natural gift BP calculation updated some moves' contest category and other stats added roseli, kee, maranga berry effects added alolan pokemon abilities added smacking down effect added terrain as well as its effects replaced polkadot bow (no use) with berserk gene other minor fixes such as typos, captalizations wrapping up other commits
73 lines
2.6 KiB
VB.net
73 lines
2.6 KiB
VB.net
Namespace BattleSystem.Moves.Ghost
|
|
|
|
Public Class OminousWind
|
|
|
|
Inherits Attack
|
|
|
|
Public Sub New()
|
|
'#Definitions
|
|
Me.Type = New Element(Element.Types.Ghost)
|
|
Me.ID = 466
|
|
Me.OriginalPP = 5
|
|
Me.CurrentPP = 5
|
|
Me.MaxPP = 5
|
|
Me.Power = 60
|
|
Me.Accuracy = 100
|
|
Me.Category = Categories.Special
|
|
Me.ContestCategory = ContestCategories.Beauty
|
|
Me.Name = "Ominous Wind"
|
|
Me.Description = "The user blasts the target with a gust of repulsive wind. It may also raise all the user's stats at once."
|
|
Me.CriticalChance = 0
|
|
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 = False
|
|
|
|
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.CanRaiseAttack
|
|
Me.AIField3 = AIField.CanRaiseSpAttack
|
|
|
|
Me.EffectChances.Add(10)
|
|
End Sub
|
|
|
|
Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen)
|
|
If Core.Random.Next(0, 100) < GetEffectChance(0, own, BattleScreen) Then
|
|
BattleScreen.Battle.RaiseStat(own, own, BattleScreen, "Attack", 1, "", "move:ominouswind")
|
|
BattleScreen.Battle.RaiseStat(own, own, BattleScreen, "Defense", 1, "", "move:ominouswind")
|
|
BattleScreen.Battle.RaiseStat(own, own, BattleScreen, "Special Attack", 1, "", "move:ominouswind")
|
|
BattleScreen.Battle.RaiseStat(own, own, BattleScreen, "Special Defense", 1, "", "move:ominouswind")
|
|
BattleScreen.Battle.RaiseStat(own, own, BattleScreen, "Speed", 1, "", "move:ominouswind")
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace |