tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-09-23 18:08:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Attempt1 to StickyWeb on Battle.vb

Browse Source
This commit is contained in:
Capt_Segis 2016-09-12 05:12:36 -05:00 committed by GitHub
parent 15a9fd0850
commit 2fec9050fd
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
2.5DHero/2.5DHero/Battle/BattleSystemV2/Battle.vb
View File

@ -5516,8 +5516,9 @@ endthisround:
End If End If
End If End If
'Spikes
If spikeAffected = True Then If spikeAffected = True Then
If .FieldEffects.OppSpikes > 0 And (p.Ability.Name.ToLower() <> "magic guard" Or .FieldEffects.CanUseAbility(True, BattleScreen, 1) = False) = True Then If .FieldEffects.OppSpikes > 0 And (p.Ability.Name.ToLower() <> "magic guard" Or BattleScreen.FieldEffects.CanUseAbility(True, BattleScreen, 1) = False) Then
Dim spikeDamage As Double = 1D Dim spikeDamage As Double = 1D
Select Case .FieldEffects.OppSpikes Select Case .FieldEffects.OppSpikes
Case 1 Case 1
@ -5530,7 +5531,18 @@ endthisround:
ReduceHP(CInt(spikeDamage), True, False, BattleScreen, "The Spikes hurt " & p.GetDisplayName() & "!", "spikes") ReduceHP(CInt(spikeDamage), True, False, BattleScreen, "The Spikes hurt " & p.GetDisplayName() & "!", "spikes")
End If End If
End If End If
'Sticky Web
If spikeAffected = True Then
If .FieldEffects.OppStickyWeb > 0 Then
LowerStat(True, True, BattleScreen, "Speed", 1, "Sticky web lowered its speed.", "sticky web")
End If
End If
'Toxic Spikes
If spikeAffected = True Then If spikeAffected = True Then
If .FieldEffects.OppToxicSpikes > 0 And p.Status = Pokemon.StatusProblems.None And p.Type1.Type <> Element.Types.Poison And p.Type2.Type <> Element.Types.Poison Then If .FieldEffects.OppToxicSpikes > 0 And p.Status = Pokemon.StatusProblems.None And p.Type1.Type <> Element.Types.Poison And p.Type2.Type <> Element.Types.Poison Then
Select Case .FieldEffects.OppToxicSpikes Select Case .FieldEffects.OppToxicSpikes
@ -5547,7 +5559,8 @@ endthisround:
End If End If
End If End If
End If End If
'Stealth Rock
If rockAffected = True Then If rockAffected = True Then
If .FieldEffects.OppStealthRock > 0 And (p.Ability.Name.ToLower() <> "magic guard" Or BattleScreen.FieldEffects.CanUseAbility(True, BattleScreen, 1) = False) Then If .FieldEffects.OppStealthRock > 0 And (p.Ability.Name.ToLower() <> "magic guard" Or BattleScreen.FieldEffects.CanUseAbility(True, BattleScreen, 1) = False) Then
Dim rocksDamage As Double = 1D Dim rocksDamage As Double = 1D
@ -6276,4 +6289,4 @@ endthisround:
End Class End Class
End Namespace End Namespace