add Light and Dark Stones as 651 and 652

P3D/P3D.vbproj

@@ -26231,6 +26231,8 @@
     <Compile Include="Pokemon\Items\Gems\RockGem.vb" />
     <Compile Include="Pokemon\Items\Gems\SteelGem.vb" />
     <Compile Include="Pokemon\Items\Gems\WaterGem.vb" />
+    <Compile Include="Pokemon\Items\KeyItems\LightStone.vb" />
+    <Compile Include="Pokemon\Items\KeyItems\DarkStone.vb" />
     <Compile Include="Pokemon\Items\KeyItems\LibertySeaMap.vb" />
     <Compile Include="Pokemon\Items\Machines\TM171.vb" />
     <Compile Include="Pokemon\Items\Machines\TM172.vb" />

P3D/Pokemon/Items/KeyItems/DarkStone.vb

@@ -0,0 +1,16 @@
+Namespace Items.KeyItems
+
+    <Item(652, "Dark stone")>
+    Public Class DarkStone
+
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "Zekrom's body was destroyed and changed into this stone. It is said to be waiting for the emergence of a hero."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(240, 408, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/KeyItems/LightStone.vb

@@ -0,0 +1,16 @@
+Namespace Items.KeyItems
+
+    <Item(651, "Light stone")>
+    Public Class LightStone
+
+        Inherits KeyItem
+
+        Public Overrides ReadOnly Property Description As String = "Reshiram's body was destroyed and changed into this stone. It is said to be waiting for the emergence of a hero."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(216, 408, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace