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

Merge branch 'master' of https://github.com/P3D-Legacy/P3D-Legacy

This commit is contained in:
darkfire006 2019-10-04 20:19:09 -05:00
parent 8c68b0f1d7 8bb0c00a10
commit 49e8789961
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3347,11 +3347,7 @@
Select Case val
Case 2
printMessage &= " sharply rose!"
Case 3
printMessage &= " rose drastically!"
Case 4
printMessage &= " rose drastically!"
Case 5
Case 3, 4, 5
printMessage &= " rose drastically!"
Case 6
printMessage &= " was maximized!"
@ -3611,8 +3607,10 @@
Select Case val
Case 2
printMessage &= " sharply fell!"
Case 3
Case 3, 4, 5
printMessage &= " fell drastically!"
Case 6
printMessage &= " was minimized!"
Case Else
printMessage &= " slightly fell."
End Select

14
P3D/Pokemon/Attacks/Normal/BellyDrum.vb
View File

@ -55,6 +55,20 @@
Me.AIField2 = AIField.Nothing
End Sub
Public Overrides Function MoveFailBeforeAttack(Own As Boolean, BattleScreen As BattleScreen) As Boolean
Dim p As Pokemon = BattleScreen.OwnPokemon
If Own = False Then
p = BattleScreen.OppPokemon
End If
If p.StatAttack = 6 Then
BattleScreen.BattleQuery.Add(New TextQueryObject(Me.Name & " failed!"))
Return True
Else
Return False
End If
End Function
Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen)
Dim p As Pokemon = BattleScreen.OwnPokemon
If own = False Then