Added Fossil Items

P3D/P3D.vbproj

@@ -26221,6 +26221,20 @@
     <Compile Include="Pokemon\Items\Berries\MarangaBerry.vb" />
     <Compile Include="Pokemon\Items\Berries\KeeBerry.vb" />
     <Compile Include="Pokemon\Items\Berries\RoseliBerry.vb" />
+    <Compile Include="Pokemon\Items\Fossils\FossilizedFish.vb" />
+    <Compile Include="Pokemon\Items\Fossils\FossilizedDrake.vb" />
+    <Compile Include="Pokemon\Items\Fossils\FossilizedDino.vb" />
+    <Compile Include="Pokemon\Items\Fossils\FossilizedBird.vb" />
+    <Compile Include="Pokemon\Items\Fossils\SailFossil.vb" />
+    <Compile Include="Pokemon\Items\Fossils\JawFossil.vb" />
+    <Compile Include="Pokemon\Items\Fossils\PlumeFossil.vb" />
+    <Compile Include="Pokemon\Items\Fossils\CoverFossil.vb" />
+    <Compile Include="Pokemon\Items\Fossils\ClawFossil.vb" />
+    <Compile Include="Pokemon\Items\Fossils\SkullFossil.vb" />
+    <Compile Include="Pokemon\Items\Fossils\ArmorFossil.vb" />
+    <Compile Include="Pokemon\Items\Fossils\RootFossil.vb" />
+    <Compile Include="Pokemon\Items\Fossils\OldAmber.vb" />
+    <Compile Include="Pokemon\Items\Fossils\DomeFossil.vb" />
     <Compile Include="Pokemon\Items\Gems\BugGem.vb" />
     <Compile Include="Pokemon\Items\Gems\DarkGem.vb" />
     <Compile Include="Pokemon\Items\Gems\DragonGem.vb" />
@@ -26255,9 +26269,11 @@
     <Compile Include="Pokemon\Items\Machines\TM173.vb" />
     <Compile Include="Pokemon\Items\Medicine\PewterCrunchies.vb" />
     <Compile Include="Pokemon\Items\GemItem.vb" />
+    <Compile Include="Pokemon\Items\FossilItem.vb" />
     <Compile Include="Pokemon\Items\Standard\ChoiceBand.vb" />
     <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\PsychicSeed.vb" />
     <Compile Include="Pokemon\Items\Standard\MistySeed.vb" />
     <Compile Include="Pokemon\Items\Standard\GrassySeed.vb" />

P3D/Pokemon/Items/FossilItem.vb

@@ -0,0 +1,22 @@
+Namespace Items
+
+    ''' <summary>
+    ''' The base class for all fossil items.
+    ''' </summary>
+    Public MustInherit Class FossilItem
+
+        Inherits Item
+
+        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 3500
+        Public Overrides ReadOnly Property FlingDamage As Integer = 100
+        Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Standard
+        Public Overrides ReadOnly Property CanBeUsed As Boolean = False
+        Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
+
+        Public Sub New()
+            _textureSource = "Items\Fossils"
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/ArmorFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(607, "Armor Fossil")>
+    Public Class ArmorFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived on the land. It appears as though it's part of a head."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(24, 24, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/ClawFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(605, "Claw Fossil")>
+    Public Class ClawFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived in the sea. It appears to be a fragment of a claw."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(96, 0, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/CoverFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(608, "Cover Fossil")>
+    Public Class CoverFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived in the sea. It appears as though it could be part of its back."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(72, 24, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/DomeFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(602, "Dome Fossil")>
+    Public Class DomeFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived in the sea. It could be a shell or carapace."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(24, 0, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/FossilizedBird.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(612, "Fossilized Bird")>
+    Public Class FossilizedBird
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "The fossil of an ancient Pokémon that once soared through the sky. What it looked like is a mystery."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(0, 72, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/FossilizedDino.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(615, "Fossilized Dino")>
+    Public Class FossilizedDino
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "The fossil of an ancient Pokémon that once lived in the sea. What it looked like is a mystery."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(24, 72, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/FossilizedDrake.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(614, "Fossilized Drake")>
+    Public Class FossilizedDrake
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "The fossil of an ancient Pokémon that once roamed the land. What it looked like is a mystery."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(72, 72, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/FossilizedFish.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(613, "Fossilized Fish")>
+    Public Class FossilizedFish
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "The fossil of an ancient Pokémon that once lived in the sea. What it looked like is a mystery."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(48, 72, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/HelixFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(601, "Helix Fossil")>
+    Public Class HelixFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived in the sea. It might be a piece of a seashell."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(0, 0, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/JawFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(610, "Jaw Fossil")>
+    Public Class JawFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived on the land. It looks as if it could be a piece of a large jaw."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(0, 48, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/OldAmber.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(603, "Old Amber")>
+    Public Class OldAmber
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A piece of amber that still contains the genetic material of an ancient Pokémon. It's clear with a tawny, reddish tint."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(48, 0, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/PlumeFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(609, "Plume Fossil")>
+    Public Class PlumeFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived in the sky. It looks as if it could come from part of its wing."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(96, 24, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/RootFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(604, "Root Fossil")>
+    Public Class RootFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived in the sea. It looks as if it could be part of a plant's root."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(72, 0, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/SailFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(611, "Sail Fossil")>
+    Public Class SailFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived on land. It looks like the impression from a skin sail."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(24, 48, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Fossils/SkullFossil.vb

@@ -0,0 +1,16 @@
+Namespace Items.Standard
+
+    <Item(606, "Skull Fossil")>
+    Public Class SkullFossil
+
+        Inherits FossilItem
+
+        Public Overrides ReadOnly Property Description As String = "A fossil from a prehistoric Pokémon that once lived on the land. It appears as though it's part of a head."
+
+        Public Sub New()
+            _textureRectangle = New Rectangle(0, 24, 24, 24)
+        End Sub
+
+    End Class
+
+End Namespace