Item changes

Fix Rock incense, Edit Pink Bow text, add 11 new TMs

P3D/Pokemon/Items/Machines/TM171.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(471, "TM 171")>
+    Public Class TM171
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 141)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM172.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(472, "TM 172")>
+    Public Class TM172
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 693)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM173.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(473, "TM 173")>
+    Public Class TM173
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 684)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM174.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(474, "TM 174")>
+    Public Class TM174
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 694)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM175.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(475, "TM 175")>
+    Public Class TM175
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 270)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM176.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(476, "TM 176")>
+    Public Class TM176
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 492)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM177.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(477, "TM 177")>
+    Public Class TM177
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 200)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM178.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(478, "TM 178")>
+    Public Class TM178
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 583)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM179.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(478, "TM 179")>
+    Public Class TM179
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 276)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM180.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(480, "TM 180")>
+    Public Class TM180
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 529)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Machines/TM181.vb

@@ -0,0 +1,14 @@
+Namespace Items.Machines
+
+    <Item(481, "TM 181")>
+    Public Class TM181
+
+        Inherits TechMachine
+
+        Public Sub New()
+            MyBase.New(True, 2000, 224)
+        End Sub
+
+    End Class
+
+End Namespace

P3D/Pokemon/Items/Standard/PinkBow.vb

@@ -5,7 +5,7 @@ Namespace Items.Standard
 
         Inherits Item
 
-        Public Overrides ReadOnly Property Description As String = "Powers up Fairy-type moves."
+        Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It's a pretty bow that boosts the power of Fairy-type moves."
         Public Overrides ReadOnly Property PokeDollarPrice As Integer = 100
         Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
         Public Overrides ReadOnly Property CanBeUsed As Boolean = False

P3D/Pokemon/Items/Standard/RockIncense.vb

@@ -1,6 +1,6 @@
 Namespace Items.Standard
 
-    <Item(286, "Rock Incense")>
+    <Item(299, "Rock Incense")>
     Public Class RockIncense
 
         Inherits Item