Add AncientShard key item.

2.5DHero/2.5DHero/2.5DHero.vbproj

@@ -1136,6 +1136,7 @@
     <Compile Include="Pokemon\Items\KeyItems\GSBall.vb" />
     <Compile Include="Pokemon\Items\KeyItems\ItemFinder.vb" />
     <Compile Include="Pokemon\Items\KeyItems\KeyItem.vb" />
+    <Compile Include="Pokemon\Items\KeyItems\AncientFragment.vb" />
     <Compile Include="Pokemon\Items\KeyItems\LostItem.vb" />
     <Compile Include="Pokemon\Items\KeyItems\MachinePart.vb" />
     <Compile Include="Pokemon\Items\KeyItems\MegaBracelet.vb" />

2.5DHero/2.5DHero/Pokemon/Items/KeyItems/AncientShard.vb

@@ -0,0 +1,16 @@
+Namespace Items.KeyItems
+
+    <Item(286, "Ancient Shard")>
+    Public Class AncientShard
+
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "A piece of a very ancient wall. It seems like it fits somewhere."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(360, 288, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace