Added Expert Belt. Released Tyranitarite, changed Cameruptite to sparkles.

P3D/P3D.vbproj

@@ -25952,6 +25952,7 @@
     <Content Include="credits.txt">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Compile Include="Pokemon\Items\Standard\ExpertBelt.vb" />
     <Compile Include="Resources\Blur\BlurHandler.vb" />
     <Content Include="Content\Data\Scripts\faraway\mewtwonite_y.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>

P3D/Pokemon/Items/Standard/ExpertBelt.vb

@@ -0,0 +1,19 @@
+Namespace Items.Standard
+
+    <Item(591, "Expert Belt")>
+    Public Class ExpertBelt
+
+        Inherits Item
+
+        Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It's a well-worn belt that slightly boosts the power of supereffective moves."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(384, 288, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace