diff --git a/P3D/P3D.vbproj b/P3D/P3D.vbproj index 548310d8e..0d146d990 100644 --- a/P3D/P3D.vbproj +++ b/P3D/P3D.vbproj @@ -26221,6 +26221,20 @@ + + + + + + + + + + + + + + @@ -26255,9 +26269,11 @@ + + diff --git a/P3D/Pokemon/Items/FossilItem.vb b/P3D/Pokemon/Items/FossilItem.vb new file mode 100644 index 000000000..f9d317ad0 --- /dev/null +++ b/P3D/Pokemon/Items/FossilItem.vb @@ -0,0 +1,22 @@ +Namespace Items + + ''' + ''' The base class for all fossil items. + ''' + 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 diff --git a/P3D/Pokemon/Items/Fossils/ArmorFossil.vb b/P3D/Pokemon/Items/Fossils/ArmorFossil.vb new file mode 100644 index 000000000..13c345e9d --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/ArmorFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/ClawFossil.vb b/P3D/Pokemon/Items/Fossils/ClawFossil.vb new file mode 100644 index 000000000..51ab0ebd6 --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/ClawFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/CoverFossil.vb b/P3D/Pokemon/Items/Fossils/CoverFossil.vb new file mode 100644 index 000000000..b7513ec5f --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/CoverFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/DomeFossil.vb b/P3D/Pokemon/Items/Fossils/DomeFossil.vb new file mode 100644 index 000000000..a6d47722a --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/DomeFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/FossilizedBird.vb b/P3D/Pokemon/Items/Fossils/FossilizedBird.vb new file mode 100644 index 000000000..492f789f7 --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/FossilizedBird.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/FossilizedDino.vb b/P3D/Pokemon/Items/Fossils/FossilizedDino.vb new file mode 100644 index 000000000..97b33fce7 --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/FossilizedDino.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/FossilizedDrake.vb b/P3D/Pokemon/Items/Fossils/FossilizedDrake.vb new file mode 100644 index 000000000..e7a67b09e --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/FossilizedDrake.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/FossilizedFish.vb b/P3D/Pokemon/Items/Fossils/FossilizedFish.vb new file mode 100644 index 000000000..2a87d7ce8 --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/FossilizedFish.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/HelixFossil.vb b/P3D/Pokemon/Items/Fossils/HelixFossil.vb new file mode 100644 index 000000000..076097061 --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/HelixFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/JawFossil.vb b/P3D/Pokemon/Items/Fossils/JawFossil.vb new file mode 100644 index 000000000..fa691fd49 --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/JawFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/OldAmber.vb b/P3D/Pokemon/Items/Fossils/OldAmber.vb new file mode 100644 index 000000000..627ecf1af --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/OldAmber.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/PlumeFossil.vb b/P3D/Pokemon/Items/Fossils/PlumeFossil.vb new file mode 100644 index 000000000..95d5064ad --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/PlumeFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/RootFossil.vb b/P3D/Pokemon/Items/Fossils/RootFossil.vb new file mode 100644 index 000000000..50e87d6e2 --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/RootFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/SailFossil.vb b/P3D/Pokemon/Items/Fossils/SailFossil.vb new file mode 100644 index 000000000..2e2e7a4ea --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/SailFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/Fossils/SkullFossil.vb b/P3D/Pokemon/Items/Fossils/SkullFossil.vb new file mode 100644 index 000000000..7a7f19d0b --- /dev/null +++ b/P3D/Pokemon/Items/Fossils/SkullFossil.vb @@ -0,0 +1,16 @@ +Namespace Items.Standard + + + 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 diff --git a/P3D/Pokemon/Items/_itemList.txt b/P3D/Pokemon/Items/_itemList.txt index be0fffb3e..a66591390 100644 Binary files a/P3D/Pokemon/Items/_itemList.txt and b/P3D/Pokemon/Items/_itemList.txt differ