tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-28 08:14:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Attempt2 to StickyWeb on Battle.vb

Browse Source 
Implemented sticky web on opposing pokemon.
This commit is contained in:
Capt_Segis 2016-09-12 15:02:47 -05:00 committed by GitHub
parent 2fec9050fd
commit 736c2e067d
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5522,11 +5522,11 @@ endthisround:
Dim spikeDamage As Double = 1D Dim spikeDamage As Double = 1D
Select Case .FieldEffects.OppSpikes Select Case .FieldEffects.OppSpikes
Case 1 Case 1
spikeDamage = p.MaxHP / 8 spikeDamage = (p.MaxHP / 100) * 12.5D
Case 2 Case 2
spikeDamage = p.MaxHP / 6 spikeDamage = (p.MaxHP / 100) * 16.7D
Case 3 Case 3
spikeDamage = p.MaxHP / 4 spikeDamage = (p.MaxHP / 100) * 25D
End Select End Select
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
@ -5536,7 +5536,7 @@ endthisround:
If spikeAffected = True Then If spikeAffected = True Then
If .FieldEffects.OppStickyWeb > 0 Then If .FieldEffects.OppStickyWeb > 0 Then
LowerStat(True, True, BattleScreen, "Speed", 1, "Sticky web lowered its speed.", "sticky web") LowerStat(True, True, BattleScreen, "Speed", 1, "Your pokemon was caught in a sticky web!", "sticky web")
End If End If
@ -5946,16 +5946,24 @@ endthisround:
Dim spikeDamage As Double = 1D Dim spikeDamage As Double = 1D
Select Case .FieldEffects.OppSpikes Select Case .FieldEffects.OppSpikes
Case 1 Case 1
spikeDamage = p.MaxHP / 8 spikeDamage = (p.MaxHP / 100) * 12.5D
Case 2 Case 2
spikeDamage = p.MaxHP / 6 spikeDamage = (p.MaxHP / 100) * 16.7D
Case 3 Case 3
spikeDamage = p.MaxHP / 4 spikeDamage = (p.MaxHP / 100) * 25D
End Select End Select
ReduceHP(CInt(spikeDamage), False, True, BattleScreen, "The Spikes hurt " & p.GetDisplayName() & "!", "spikes") ReduceHP(CInt(spikeDamage), False, True, BattleScreen, "The Spikes hurt " & p.GetDisplayName() & "!", "spikes")
End If End If
End If End If
'Sticky Web
If spikeAffected = True Then
If .FieldEffects.OwnStickyWeb > 0 Then
LowerStat(False, False, BattleScreen, "Speed", 1, "The opposing pokemon was caught in a sticky web!", "sticky web")
End If
End If
If spikeAffected = True Then If spikeAffected = True Then
If .FieldEffects.OwnToxicSpikes > 0 And p.Status = Pokemon.StatusProblems.None And p.Type1.Type <> Element.Types.Poison And p.Type2.Type <> Element.Types.Poison Then If .FieldEffects.OwnToxicSpikes > 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.OwnToxicSpikes Select Case .FieldEffects.OwnToxicSpikes