Fixed Gem descriptions

P3D/Pokemon/Items/GemItem.vb

@@ -10,11 +10,9 @@ Namespace Items
         Public Overrides ReadOnly Property CanBeUsed As Boolean = False
         Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Standard
-        Public Overrides ReadOnly Property Description As String
         Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
 
         Public Sub New(ByVal Type As Element.Types)
-            Description = "Increases the power of the holder's first " & Type.ToString() & "-type move by 30%, and is consumed after use."
             _textureSource = "Items\Gems"
             _textureRectangle = GetTextureRectangle(Type)
         End Sub

P3D/Pokemon/Items/Gems/BugGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an insect-like essence. When held, it strengthens the power of a Bug-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Bug)
         End Sub

P3D/Pokemon/Items/Gems/DarkGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of darkness. When held, it strengthens the power of a Dark-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Dark)
         End Sub

P3D/Pokemon/Items/Gems/DragonGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with a draconic essence. When held, it strengthens the power of a Dragon-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Dragon)
         End Sub

P3D/Pokemon/Items/Gems/ElectricGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of electricity. When held, it strengthens the power of an Electric-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Electric)
         End Sub

P3D/Pokemon/Items/Gems/FairyGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of the fey. When held, it strengthens the power of a Fairy-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Fairy)
         End Sub

P3D/Pokemon/Items/Gems/FightingGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of combat. When held, it strengthens the power of a Fighting-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Fighting)
         End Sub

P3D/Pokemon/Items/Gems/FireGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of fire. When held, it strengthens the power of a Fire-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Fire)
         End Sub

P3D/Pokemon/Items/Gems/FlyingGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of air. When held, it strengthens the power of a Flying-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Flying)
         End Sub

P3D/Pokemon/Items/Gems/GhostGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with a spectral essence. When held, it strengthens the power of a Ghost-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Ghost)
         End Sub

P3D/Pokemon/Items/Gems/GrassGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of nature. When held, it strengthens the power of a Grass-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Grass)
         End Sub

P3D/Pokemon/Items/Gems/GroundGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of land. When held, it strengthens the power of a Ground-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Ground)
         End Sub

P3D/Pokemon/Items/Gems/IceGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of ice. When held, it strengthens the power of an Ice-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Ice)
         End Sub

P3D/Pokemon/Items/Gems/NormalGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an ordinary essence. When held, it strengthens the power of a Normal-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Normal)
         End Sub

P3D/Pokemon/Items/Gems/PoisonGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of poison. When held, it strengthens the power of a Poison-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Poison)
         End Sub

P3D/Pokemon/Items/Gems/PsychicGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of the mind. When held, it strengthens the power of a Psychic-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Psychic)
         End Sub

P3D/Pokemon/Items/Gems/RockGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of rock. When held, it strengthens the power of a Rock-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Rock)
         End Sub

P3D/Pokemon/Items/Gems/SteelGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of steel. When held, it strengthens the power of a Steel-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Steel)
         End Sub

P3D/Pokemon/Items/Gems/WaterGem.vb

@@ -5,6 +5,8 @@ Namespace Items.Gems
 
         Inherits GemItem
 
+        Public Overrides ReadOnly Property Description As String = "A gem with an essence of water. When held, it strengthens the power of a Water-type move one time."
+
         Public Sub New()
             MyBase.New(Element.Types.Water)
         End Sub