mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-08-16 07:18:32 +02:00
aedec48f93
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
126 lines
5.0 KiB
VB.net
126 lines
5.0 KiB
VB.net
Namespace BattleSystem.Moves.Dark
|
|
|
|
Public Class Switcheroo
|
|
|
|
Inherits Attack
|
|
|
|
Public Sub New()
|
|
'#Definitions
|
|
Me.Type = New Element(Element.Types.Dark)
|
|
Me.ID = 415
|
|
Me.OriginalPP = 10
|
|
Me.CurrentPP = 10
|
|
Me.MaxPP = 10
|
|
Me.Power = 0
|
|
Me.Accuracy = 100
|
|
Me.Category = Categories.Status
|
|
Me.ContestCategory = ContestCategories.Smart
|
|
Me.Name = "Switcheroo"
|
|
Me.Description = "The user trades held items with the target faster than the eye can follow."
|
|
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 = False
|
|
Me.CounterAffected = False
|
|
|
|
Me.DisabledWhileGravity = False
|
|
Me.UseEffectiveness = False
|
|
Me.ImmunityAffected = False
|
|
Me.RemovesFrozen = False
|
|
Me.HasSecondaryEffect = False
|
|
|
|
Me.IsHealingMove = False
|
|
Me.IsRecoilMove = False
|
|
Me.IsPunchingMove = False
|
|
Me.IsDamagingMove = False
|
|
Me.IsProtectMove = False
|
|
Me.IsSoundMove = False
|
|
|
|
Me.IsAffectedBySubstitute = True
|
|
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 p As Pokemon = BattleScreen.OwnPokemon
|
|
Dim op As Pokemon = BattleScreen.OppPokemon
|
|
If own = False Then
|
|
p = BattleScreen.OppPokemon
|
|
op = BattleScreen.OwnPokemon
|
|
End If
|
|
Dim CanSwitchItems As Boolean = True
|
|
If p.Item Is Nothing And op.Item Is Nothing Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If BattleScreen.FieldEffects.CanUseAbility(Not own, BattleScreen) AndAlso op.Ability.Name.ToLower() = "sticky hold" Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not p.Item Is Nothing AndAlso p.Item.Name.ToLower() = "griseous orb" AndAlso p.Number = 487 Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not op.Item Is Nothing AndAlso op.Item.Name.ToLower() = "griseous orb" AndAlso op.Number = 487 Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not p.Item Is Nothing AndAlso p.Item.Name.ToLower().EndsWith(" drive") = True AndAlso p.Number = 649 Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not op.Item Is Nothing AndAlso op.Item.Name.ToLower().EndsWith(" drive") = True AndAlso op.Number = 649 Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not p.Item Is Nothing AndAlso p.Item.Name.ToLower().EndsWith(" plate") = True AndAlso p.Number = 493 Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not op.Item Is Nothing AndAlso op.Item.Name.ToLower().EndsWith(" plate") = True AndAlso op.Number = 493 Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not p.Item Is Nothing AndAlso p.Item.Name.ToLower().EndsWith(" memory") = True AndAlso p.Number = 773 Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not op.Item Is Nothing AndAlso op.Item.Name.ToLower().EndsWith(" memory") = True AndAlso op.Number = 773 Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not p.Item Is Nothing AndAlso p.Item.Name.ToLower().EndsWith(" mail") = True Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If Not op.Item Is Nothing AndAlso op.Item.Name.ToLower().EndsWith(" mail") = True Then
|
|
CanSwitchItems = False
|
|
End If
|
|
If (p.Item IsNot Nothing AndAlso p.Item.IsMegaStone) OrElse (op.Item IsNot Nothing AndAlso op.Item.IsMegaStone) Then
|
|
CanSwitchItems = False
|
|
End If
|
|
|
|
If CanSwitchItems Then
|
|
Dim i1 As Item = Nothing
|
|
Dim i2 As Item = Nothing
|
|
If p.Item IsNot Nothing Then
|
|
i1 = p.Item
|
|
End If
|
|
If op.Item IsNot Nothing Then
|
|
i2 = op.Item
|
|
End If
|
|
p.Item = i2
|
|
op.Item = i1
|
|
BattleScreen.BattleQuery.Add(New TextQueryObject(p.GetDisplayName() & " switched items with " & op.GetDisplayName() & "."))
|
|
Else
|
|
BattleScreen.BattleQuery.Add(New TextQueryObject(Me.Name & " failed!"))
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace
|