tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Attempt2 to StickyWeb on Battle.vb 

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
Select Case .FieldEffects.OppSpikes
Case 1
spikeDamage = p.MaxHP / 8
spikeDamage = (p.MaxHP / 100) * 12.5D
Case 2
spikeDamage = p.MaxHP / 6
spikeDamage = (p.MaxHP / 100) * 16.7D
Case 3
spikeDamage = p.MaxHP / 4
spikeDamage = (p.MaxHP / 100) * 25D
End Select
ReduceHP(CInt(spikeDamage), True, False, BattleScreen, "The Spikes hurt " & p.GetDisplayName() & "!", "spikes")
End If
@ -5536,7 +5536,7 @@ endthisround:
If spikeAffected = True 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
@ -5946,16 +5946,24 @@ endthisround:
Dim spikeDamage As Double = 1D
Select Case .FieldEffects.OppSpikes
Case 1
spikeDamage = p.MaxHP / 8
spikeDamage = (p.MaxHP / 100) * 12.5D
Case 2
spikeDamage = p.MaxHP / 6
spikeDamage = (p.MaxHP / 100) * 16.7D
Case 3
spikeDamage = p.MaxHP / 4
spikeDamage = (p.MaxHP / 100) * 25D
End Select
ReduceHP(CInt(spikeDamage), False, True, BattleScreen, "The Spikes hurt " & p.GetDisplayName() & "!", "spikes")
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 .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