add items, no sprites set yet

P3D/P3D.vbproj

@@ -27781,6 +27781,7 @@
     <Compile Include="Pokemon\Items\Standard\ChoiceScarf.vb" />
     <Compile Include="Pokemon\Items\Standard\ChoiceSpecs.vb" />
     <Compile Include="Pokemon\Items\Fossils\HelixFossil.vb" />
+    <Compile Include="Pokemon\Items\Standard\PeatBlock.vb" />
     <Compile Include="Pokemon\Items\Standard\PsychicSeed.vb" />
     <Compile Include="Pokemon\Items\Standard\MistySeed.vb" />
     <Compile Include="Pokemon\Items\Standard\GrassySeed.vb" />
@@ -27795,6 +27796,7 @@
     <Compile Include="Pokemon\Items\Standard\BurnDrive.vb" />
     <Compile Include="Pokemon\Items\Standard\ExpertBelt.vb" />
     <Compile Include="Pokemon\Items\Stones\IceStone.vb" />
+    <Compile Include="Pokemon\Items\Stones\BlackAurugite.vb" />
     <Compile Include="Resources\Blur\BlurHandler.vb" />
     <Content Include="Content\Data\Scripts\faraway\mewtwonite_y.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>

P3D/Pokemon/Items/Standard/PeatBlock.vb

@@ -0,0 +1,20 @@
+Namespace Items.Standard
+
+    <Item(654, "Peat Block")>
+    Public Class PeatBlock
+
+        Inherits Item
+
+        Public Overrides ReadOnly Property Description As String = "A block of muddy material that can be used as fuel for burning when it is dried. It’s loved by a certain Pokémon."
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 1000
+        Public Overrides ReadOnly Property FlingDamage As Integer = 80
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(312, 192, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Stones/BlackAurugite.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(653, "Black Augurite")>
+    Public Class BlackAugurite
+
+        Inherits StoneItem
+
+        Public Overrides ReadOnly Property Description As String = "A glassy black stone that produces a sharp cutting edge when split. It’s loved by a certain Pokémon."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(336, 192, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace