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

Updated Dream Ball and Pinch Berries

Browse Source
This commit is contained in:
TheOmegaGhost 2019-11-23 03:29:31 -02:00
parent 94a0ee7ce6
commit ff81fea1b9
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
P3D/Battle/BattleSystemV2/Battle.vb
View File

@ -4055,31 +4055,31 @@
Case "sitrus"
GainHP(CInt(p.MaxHP / 4), own, own, BattleScreen, "The Sitrus Berry filled up " & p.GetDisplayName() & "'s HP!", "berry:sitrus")
Case "figy"
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 2))
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 3))
GainHP(healHP, own, own, BattleScreen, "The Figy Berry filled up " & p.GetDisplayName() & "'s HP!", "berry:figy")
If berry.PokemonLikes(p) = False Then
InflictConfusion(own, own, BattleScreen, p.GetDisplayName() & " disliked the Figy Berry!", "berry:figy")
End If
Case "wiki"
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 2))
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 3))
GainHP(healHP, own, own, BattleScreen, "The Wiki Berry filled up " & p.GetDisplayName() & "'s HP!", "berry:wiki")
If berry.PokemonLikes(p) = False Then
InflictConfusion(own, own, BattleScreen, p.GetDisplayName() & " disliked the Wiki Berry!", "berry:wiki")
End If
Case "mago"
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 2))
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 3))
GainHP(healHP, own, own, BattleScreen, "The Mago Berry filled up " & p.GetDisplayName() & "'s HP!", "berry:mago")
If berry.PokemonLikes(p) = False Then
InflictConfusion(own, own, BattleScreen, p.GetDisplayName() & " disliked the Mago Berry!", "mago")
End If
Case "aguav"
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 2))
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 3))
GainHP(healHP, own, own, BattleScreen, "The Aguav Berry filled up " & p.GetDisplayName() & "'s HP!", "berry:aguav")
If berry.PokemonLikes(p) = False Then
InflictConfusion(own, own, BattleScreen, p.GetDisplayName() & " disliked the Aguav Berry!", "aguav")
End If
Case "iapapa"
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 2))
Dim healHP As Integer = CInt(Math.Ceiling(p.MaxHP / 3))
GainHP(healHP, own, own, BattleScreen, "The Iapapa Berry filled up " & p.GetDisplayName() & "'s HP!", "berry:iapapa")
If berry.PokemonLikes(p) = False Then
InflictConfusion(own, own, BattleScreen, p.GetDisplayName() & " disliked the Iapapa Berry!", "berry:iapapa")

4
P3D/Screens/Battle/BattleCatchScreen.vb
View File

@ -379,6 +379,10 @@
End If
Case "timer ball"
BallRate = CInt(1 + BattleScreen.FieldEffects.Rounds * 0.3).Clamp(1, 4)
Case "dream ball"
If cp.Status = Pokemon.StatusProblems.Sleep Then
BallRate = 3.0F
End If
End Select
Dim Status As Single = 1.0F