Belly Drum fails if attack maxed, fixed stat messages

P3D/Battle/BattleSystemV2/Battle.vb

@@ -3347,11 +3347,7 @@
             Select Case val
                 Case 2
                     printMessage &= " sharply rose!"
-                Case 3
+                Case 3, 4, 5
-                    printMessage &= " rose drastically!"
-                Case 4
-                    printMessage &= " rose drastically!"
-                Case 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

P3D/Pokemon/Attacks/Normal/BellyDrum.vb

@@ -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