mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-29 16:54:56 +02:00
Small tweaks
This commit is contained in:
parent
dd8f4d4192
commit
df5a6806ba
@ -52,7 +52,6 @@
|
|||||||
Public OwnLeechSeed As Integer = 0 'The opponent used leech seed
|
Public OwnLeechSeed As Integer = 0 'The opponent used leech seed
|
||||||
Public OwnSolarBeam As Integer = 0 'Charge counter for solar beam
|
Public OwnSolarBeam As Integer = 0 'Charge counter for solar beam
|
||||||
Public OwnSolarBlade As Integer = 0 'Charge counter for solar blade
|
Public OwnSolarBlade As Integer = 0 'Charge counter for solar blade
|
||||||
Public OwnGeomancy As Integer = 0 'Charge counter for solar beam
|
|
||||||
Public OwnLockOn As Integer = 0 'Counter for the moves lock-on and mind reader
|
Public OwnLockOn As Integer = 0 'Counter for the moves lock-on and mind reader
|
||||||
Public OwnBideCounter As Integer = 0 'Counter for the Bide move
|
Public OwnBideCounter As Integer = 0 'Counter for the Bide move
|
||||||
Public OwnBideDamage As Integer = 0 'Half of the damage dealt by bide
|
Public OwnBideDamage As Integer = 0 'Half of the damage dealt by bide
|
||||||
@ -182,7 +181,6 @@
|
|||||||
Public OppLeechSeed As Integer = 0
|
Public OppLeechSeed As Integer = 0
|
||||||
Public OppSolarBeam As Integer = 0
|
Public OppSolarBeam As Integer = 0
|
||||||
Public OppSolarBlade As Integer = 0
|
Public OppSolarBlade As Integer = 0
|
||||||
Public OppGeomancy As Integer = 0
|
|
||||||
Public OppLockOn As Integer = 0
|
Public OppLockOn As Integer = 0
|
||||||
Public OppBideCounter As Integer = 0
|
Public OppBideCounter As Integer = 0
|
||||||
Public OppBideDamage As Integer = 0
|
Public OppBideDamage As Integer = 0
|
||||||
|
@ -18,7 +18,7 @@
|
|||||||
Me.Name = "Rock Smash"
|
Me.Name = "Rock Smash"
|
||||||
Me.Description = "The user attacks with a punch that can shatter a rock. It may also lower the target's Defense stat."
|
Me.Description = "The user attacks with a punch that can shatter a rock. It may also lower the target's Defense stat."
|
||||||
Me.CriticalChance = 1
|
Me.CriticalChance = 1
|
||||||
Me.IsHMMove = True
|
Me.IsHMMove = False
|
||||||
Me.Target = Targets.OneAdjacentTarget
|
Me.Target = Targets.OneAdjacentTarget
|
||||||
Me.Priority = 0
|
Me.Priority = 0
|
||||||
Me.TimesToAttack = 1
|
Me.TimesToAttack = 1
|
||||||
|
@ -56,11 +56,8 @@
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen)
|
Public Overrides Sub MoveHits(own As Boolean, BattleScreen As BattleScreen)
|
||||||
Dim b As Boolean = BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Attack", 1, "", "move:tearfullook")
|
BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Attack", 1, "", "move:tearfullook")
|
||||||
Dim d As Boolean = BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Special Attack", 1, "", "move:tearfullook")
|
BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Special Attack", 1, "", "move:tearfullook")
|
||||||
If b = False AndAlso DisabledWhileGravity = False Then
|
|
||||||
BattleScreen.BattleQuery.Add(New TextQueryObject(Me.Name & " failed!"))
|
|
||||||
End If
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user