Small tweaks

P3D/Battle/BattleSystemV2/FieldEffects.vb

@@ -52,7 +52,6 @@
         Public OwnLeechSeed As Integer = 0 'The opponent used leech seed
         Public OwnSolarBeam As Integer = 0 'Charge counter for solar beam
         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 OwnBideCounter As Integer = 0 'Counter for the Bide move
         Public OwnBideDamage As Integer = 0 'Half of the damage dealt by bide
@@ -182,7 +181,6 @@
         Public OppLeechSeed As Integer = 0
         Public OppSolarBeam As Integer = 0
         Public OppSolarBlade As Integer = 0
-        Public OppGeomancy As Integer = 0
         Public OppLockOn As Integer = 0
         Public OppBideCounter As Integer = 0
         Public OppBideDamage As Integer = 0

P3D/Pokemon/Attacks/Fighting/RockSmash.vb

@@ -18,7 +18,7 @@
             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.CriticalChance = 1
-            Me.IsHMMove = True
+            Me.IsHMMove = False
             Me.Target = Targets.OneAdjacentTarget
             Me.Priority = 0
             Me.TimesToAttack = 1

P3D/Pokemon/Attacks/Normal/TearfulLook.vb

@@ -56,11 +56,8 @@
         End Sub
 
         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")
-            Dim d As Boolean = 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
+            BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Attack", 1, "", "move:tearfullook")
+            BattleScreen.Battle.LowerStat(Not own, own, BattleScreen, "Special Attack", 1, "", "move:tearfullook")
         End Sub
 
     End Class