tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-25 23:05:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed sec. effect values (steel)

Browse Source
This commit is contained in:
Capt_Segis 2016-09-14 20:44:05 -05:00 committed by GitHub
parent 7d6e4b55eb
commit 7cd7eda310
2 changed files with 126 additions and 126 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
2.5DHero/2.5DHero/Pokemon/Attacks/Steel/MagnetBomb.vb
View File

@ -1,60 +1,60 @@
Namespace BattleSystem.Moves.Steel Namespace BattleSystem.Moves.Steel
Public Class MagnetBomb Public Class MagnetBomb
Inherits Attack Inherits Attack
Public Sub New() Public Sub New()
'#Definitions '#Definitions
Me.Type = New Element(Element.Types.Steel) Me.Type = New Element(Element.Types.Steel)
Me.ID = 443 Me.ID = 443
Me.OriginalPP = 20 Me.OriginalPP = 20
Me.CurrentPP = 20 Me.CurrentPP = 20
Me.MaxPP = 20 Me.MaxPP = 20
Me.Power = 60 Me.Power = 60
Me.Accuracy = 0 Me.Accuracy = 0
Me.Category = Categories.Physical Me.Category = Categories.Physical
Me.ContestCategory = ContestCategories.Cool Me.ContestCategory = ContestCategories.Cool
Me.Name = "Magnet Bomb" Me.Name = "Magnet Bomb"
Me.Description = "The user launches steel bombs that stick to the target. This attack will not miss." Me.Description = "The user launches steel bombs that stick to the target. This attack will not miss."
Me.CriticalChance = 1 Me.CriticalChance = 1
Me.IsHMMove = False Me.IsHMMove = False
Me.Target = Targets.OneAdjacentTarget Me.Target = Targets.OneAdjacentTarget
Me.Priority = 0 Me.Priority = 0
Me.TimesToAttack = 1 Me.TimesToAttack = 1
'#End '#End
'#SpecialDefinitions '#SpecialDefinitions
Me.MakesContact = False Me.MakesContact = False
Me.ProtectAffected = True Me.ProtectAffected = True
Me.MagicCoatAffected = False Me.MagicCoatAffected = False
Me.SnatchAffected = False Me.SnatchAffected = False
Me.MirrorMoveAffected = True Me.MirrorMoveAffected = True
Me.KingsrockAffected = False Me.KingsrockAffected = False
Me.CounterAffected = True Me.CounterAffected = True
Me.DisabledWhileGravity = False Me.DisabledWhileGravity = False
Me.UseEffectiveness = True Me.UseEffectiveness = True
Me.ImmunityAffected = True Me.ImmunityAffected = True
Me.HasSecondaryEffect = True Me.HasSecondaryEffect = False
Me.RemovesFrozen = False Me.RemovesFrozen = False
Me.IsHealingMove = False Me.IsHealingMove = False
Me.IsRecoilMove = False Me.IsRecoilMove = False
Me.IsPunchingMove = False Me.IsPunchingMove = False
Me.IsDamagingMove = True Me.IsDamagingMove = True
Me.IsProtectMove = False Me.IsProtectMove = False
Me.IsSoundMove = False Me.IsSoundMove = False
Me.IsAffectedBySubstitute = True Me.IsAffectedBySubstitute = True
Me.IsOneHitKOMove = False Me.IsOneHitKOMove = False
Me.IsWonderGuardAffected = True Me.IsWonderGuardAffected = True
Me.IsBulletMove = True Me.IsBulletMove = True
'#End '#End
Me.AIField1 = AIField.Damage Me.AIField1 = AIField.Damage
Me.AIField2 = AIField.CannotMiss Me.AIField2 = AIField.CannotMiss
End Sub End Sub
End Class End Class
End Namespace End Namespace

132
2.5DHero/2.5DHero/Pokemon/Attacks/Steel/MetalSound.vb
View File

@ -1,67 +1,67 @@
Namespace BattleSystem.Moves.Steel Namespace BattleSystem.Moves.Steel
Public Class MetalSound Public Class MetalSound
Inherits Attack Inherits Attack
Public Sub New() Public Sub New()
'#Definitions '#Definitions
Me.Type = New Element(Element.Types.Steel) Me.Type = New Element(Element.Types.Steel)
Me.ID = 319 Me.ID = 319
Me.OriginalPP = 40 Me.OriginalPP = 40
Me.CurrentPP = 40 Me.CurrentPP = 40
Me.MaxPP = 40 Me.MaxPP = 40
Me.Power = 0 Me.Power = 0
Me.Accuracy = 85 Me.Accuracy = 85
Me.Category = Categories.Status Me.Category = Categories.Status
Me.ContestCategory = ContestCategories.Smart Me.ContestCategory = ContestCategories.Smart
Me.Name = "Metal Sound" Me.Name = "Metal Sound"
Me.Description = "A horrible sound like scraping metal harshly lowers the target's Sp. Def stat." Me.Description = "A horrible sound like scraping metal harshly lowers the target's Sp. Def stat."
Me.CriticalChance = 0 Me.CriticalChance = 0
Me.IsHMMove = False Me.IsHMMove = False
Me.Target = Targets.AllAdjacentTargets Me.Target = Targets.AllAdjacentTargets
Me.Priority = 0 Me.Priority = 0
Me.TimesToAttack = 1 Me.TimesToAttack = 1
'#End '#End
'#SpecialDefinitions '#SpecialDefinitions
Me.MakesContact = False Me.MakesContact = False
Me.ProtectAffected = True Me.ProtectAffected = True
Me.MagicCoatAffected = True Me.MagicCoatAffected = True
Me.SnatchAffected = False Me.SnatchAffected = False
Me.MirrorMoveAffected = True Me.MirrorMoveAffected = True
Me.KingsrockAffected = False Me.KingsrockAffected = False
Me.CounterAffected = False Me.CounterAffected = False
Me.DisabledWhileGravity = False Me.DisabledWhileGravity = False
Me.UseEffectiveness = False Me.UseEffectiveness = False
Me.ImmunityAffected = False Me.ImmunityAffected = False
Me.HasSecondaryEffect = True Me.HasSecondaryEffect = False
Me.RemovesFrozen = False Me.RemovesFrozen = False
Me.IsHealingMove = False Me.IsHealingMove = False
Me.IsRecoilMove = False Me.IsRecoilMove = False
Me.IsPunchingMove = False Me.IsPunchingMove = False
Me.IsDamagingMove = False Me.IsDamagingMove = False
Me.IsProtectMove = False Me.IsProtectMove = False
Me.IsSoundMove = True Me.IsSoundMove = True
Me.IsAffectedBySubstitute = True Me.IsAffectedBySubstitute = True
Me.IsOneHitKOMove = False Me.IsOneHitKOMove = False
Me.IsWonderGuardAffected = False Me.IsWonderGuardAffected = False
'#End '#End
Me.AIField1 = AIField.LowerSpDefense Me.AIField1 = AIField.LowerSpDefense
Me.AIField2 = AIField.Nothing Me.AIField2 = AIField.Nothing
End Sub End Sub
Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen) Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen)
Dim b As Boolean = BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Special Defense", 2, "", "move:metalsound") Dim b As Boolean = BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Special Defense", 2, "", "move:metalsound")
If b = False Then If b = False Then
BattleScreen.BattleQuery.Add(New TextQueryObject(Me.Name & " failed!")) BattleScreen.BattleQuery.Add(New TextQueryObject(Me.Name & " failed!"))
End If End If
End Sub End Sub
End Class End Class
End Namespace End Namespace