Implemented Eviolite (ID = 298)

2.5DHero/2.5DHero/2.5DHero.vbproj

@@ -1401,6 +1401,7 @@
     <Compile Include="Pokemon\Items\Repels\RepelItem.vb" />
     <Compile Include="Pokemon\Items\Repels\SuperRepel.vb" />
     <Compile Include="Pokemon\Items\Standard\AbilityCapsule.vb" />
+    <Compile Include="Pokemon\Items\Standard\Eviolite.vb" />
     <Compile Include="Pokemon\Items\Standard\PowerAnklet.vb" />
     <Compile Include="Pokemon\Items\Standard\PowerBracer.vb" />
     <Compile Include="Pokemon\Items\Standard\PowerBelt.vb" />

2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb

@@ -1489,6 +1489,12 @@
                             If p.Number = 366 Then
                                 DMod = 2.0F
                             End If
+                        Case "assault vest"
+                            DMod = 1.5F
+                        Case "eviolite"
+                            If p.IsFullyEvolved = False Then
+                                DMod = 1.5F
+                            End If
                     End Select
                 End If
 

2.5DHero/2.5DHero/Pokemon/Items/Standard/Eviolite.vb

@@ -0,0 +1,19 @@
+Namespace Items.Standard
+
+    <Item(298, "Eviolite")>
+    Public Class Eviolite
+
+        Inherits Item
+
+        Public Overrides ReadOnly Property Description As String = "A mysterious Evolutionary lump. When held by a Pokémon that can still evolve, it raises both Defense and Sp. Def."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 100
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(336, 288, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace