Changed machine items

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM01.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(247, False, 100, 15)
+            MyBase.New(False, 100, 15)
-
-            Me._name = "HM 01"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM02.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(244, False, 100, 19)
+            MyBase.New(False, 100, 19)
-
-            Me._name = "HM 02"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM03.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(245, False, 100, 57)
+            MyBase.New(False, 100, 57)
-
-            Me._name = "HM 03"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM04.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(246, False, 100, 70)
+            MyBase.New(False, 100, 70)
-
-            Me._name = "HM 04"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM05.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(243, False, 100, 148)
+            MyBase.New(False, 100, 148)
-
-            Me._name = "HM 05"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM06.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(248, False, 100, 250)
+            MyBase.New(False, 100, 250)
-
-            Me._name = "HM 06"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM07.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(249, False, 100, 127)
+            MyBase.New(False, 100, 127)
-
-            Me._name = "HM 07"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM08.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(250, False, 100, 431)
+            MyBase.New(False, 100, 431)
-
-            Me._name = "HM 08"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM09.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(251, False, 100, 560)
+            MyBase.New(False, 100, 560)
-
-            Me._name = "HM 09"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/HM10.vb

@@ -6,9 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(252, False, 100, 291)
+            MyBase.New(False, 100, 291)
-
-            Me._name = "HM 10"
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM01.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(191, True, 1500, 223)
+            MyBase.New(True, 1500, 223)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM02.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(192, True, 2000, 29)
+            MyBase.New(True, 2000, 29)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM03.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(193, True, 3000, 174)
+            MyBase.New(True, 3000, 174)
             CanTeachAlways = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM04.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(194, True, 2000, 205)
+            MyBase.New(True, 2000, 205)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM05.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(195, True, 500, 46)
+            MyBase.New(True, 500, 46)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM06.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(196, True, 3000, 92)
+            MyBase.New(True, 3000, 92)
             CanTeachAlways = True
 
             Me._battlePointsPrice = 32

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM07.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(197, True, 2000, 192)
+            MyBase.New(True, 2000, 192)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM08.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(198, True, 1000, 249)
+            MyBase.New(True, 1000, 249)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM09.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(199, True, 1000, 244)
+            MyBase.New(True, 1000, 244)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM10.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(200, True, 3000, 237)
+            MyBase.New(True, 3000, 237)
             CanTeachAlways = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM100.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(400, True, 3000, 53, 100)
+            MyBase.New(True, 3000, 53, 100)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM101.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(401, True, 2000, 317, 101)
+            MyBase.New(True, 2000, 317, 101)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM102.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(402, True, 2000, 332, 102)
+            MyBase.New(True, 2000, 332, 102)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM103.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(403, True, 1500, 259, 103)
+            MyBase.New(True, 1500, 259, 103)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM104.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(404, True, 3000, 263, 104)
+            MyBase.New(True, 3000, 263, 104)
             CanTeachAlways = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM105.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(405, True, 2000, 290, 105)
+            MyBase.New(True, 2000, 290, 105)
             CanTeachAlways = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM106.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(406, True, 3000, 285, 106)
+            MyBase.New(True, 3000, 285, 106)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM107.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(407, True, 1500, 289, 107)
+            MyBase.New(True, 1500, 289, 107)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM108.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(408, True, 5500, 315, 108)
+            MyBase.New(True, 5500, 315, 108)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM109.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(409, True, 2000, 355, 109)
+            MyBase.New(True, 2000, 355, 109)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM11.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(201, True, 2000, 241)
+            MyBase.New(True, 2000, 241)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM110.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(410, True, 5500, 411, 110)
+            MyBase.New(True, 5500, 411, 110)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM111.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(411, True, 3000, 412, 111)
+            MyBase.New(True, 3000, 412, 111)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM112.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(412, True, 2000, 206, 112)
+            MyBase.New(True, 2000, 206, 112)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM113.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(413, True, 3000, 362, 113)
+            MyBase.New(True, 3000, 362, 113)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM114.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(414, True, 2000, 374, 114)
+            MyBase.New(True, 2000, 374, 114)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM115.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(415, True, 3000, 451, 115)
+            MyBase.New(True, 3000, 451, 115)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM116.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(416, True, 3000, 406, 116)
+            MyBase.New(True, 3000, 406, 116)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM117.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(417, True, 3000, 409, 117)
+            MyBase.New(True, 3000, 409, 117)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM118.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(418, True, 2000, 261, 118)
+            MyBase.New(True, 2000, 261, 118)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM119.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(419, True, 3000, 318, 119)
+            MyBase.New(True, 3000, 318, 119)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM12.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(202, True, 1000, 230)
+            MyBase.New(True, 1000, 230)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM120.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(420, True, 2000, 373, 120)
+            MyBase.New(True, 2000, 373, 120)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM121.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(421, True, 3000, 421, 121)
+            MyBase.New(True, 3000, 421, 121)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM122.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(422, True, 3000, 371, 122)
+            MyBase.New(True, 3000, 371, 122)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM123.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(423, True, 1000, 278, 123)
+            MyBase.New(True, 1000, 278, 123)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM124.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(424, True, 3000, 416, 124)
+            MyBase.New(True, 3000, 416, 124)
             CanTeachWhenFullyEvolved = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM125.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(425, True, 1500, 397, 125)
+            MyBase.New(True, 1500, 397, 125)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM126.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(426, True, 1000, 432, 126)
+            MyBase.New(True, 1000, 432, 126)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM127.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(427, True, 3000, 444, 127)
+            MyBase.New(True, 3000, 444, 127)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM128.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(428, True, 3000, 419, 128)
+            MyBase.New(True, 3000, 419, 128)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM129.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(429, True, 3000, 360, 129)
+            MyBase.New(True, 3000, 360, 129)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM13.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(203, True, 1000, 173)
+            MyBase.New(True, 1000, 173)
             CanTeachAlways = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM130.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(430, True, 2000, 446, 130)
+            MyBase.New(True, 2000, 446, 130)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM131.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(431, True, 1500, 445, 131)
+            MyBase.New(True, 1500, 445, 131)
             CanTeachWhenGender = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM132.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(432, True, 3000, 399, 132)
+            MyBase.New(True, 3000, 399, 132)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM133.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(433, True, 3000, 404, 133)
+            MyBase.New(True, 3000, 404, 133)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM134.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(434, True, 2000, 363, 134)
+            MyBase.New(True, 2000, 363, 134)
             CanTeachAlways = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM135.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(435, True, 3000, 398, 135)
+            MyBase.New(True, 3000, 398, 135)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM136.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(436, True, 3000, 447, 136)
+            MyBase.New(True, 3000, 447, 136)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM137.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(437, True, 3000, 365, 137)
+            MyBase.New(True, 3000, 365, 137)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM138.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(438, True, 3000, 369, 138)
+            MyBase.New(True, 3000, 369, 138)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM139.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(439, True, 3000, 430, 139)
+            MyBase.New(True, 3000, 430, 139)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM14.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(204, True, 5500, 59)
+            MyBase.New(True, 5500, 59)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM140.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(440, True, 5500, 433, 140)
+            MyBase.New(True, 5500, 433, 140)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM141.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(441, True, 3000, 468, 141)
+            MyBase.New(True, 3000, 468, 141)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM142.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(442, True, 3000, 473, 142)
+            MyBase.New(True, 3000, 473, 142)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM143.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(443, True, 4000, 474, 143)
+            MyBase.New(True, 4000, 474, 143)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM144.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(444, True, 2000, 477, 144)
+            MyBase.New(True, 2000, 477, 144)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM145.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(445, True, 2000, 479, 145)
+            MyBase.New(True, 2000, 479, 145)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM146.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(446, True, 3500, 482, 146)
+            MyBase.New(True, 3500, 482, 146)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM147.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(447, True, 3000, 448, 147)
+            MyBase.New(True, 3000, 448, 147)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM148.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(448, True, 3000, 490, 148)
+            MyBase.New(True, 3000, 490, 148)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM149.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(449, True, 2500, 496, 149)
+            MyBase.New(True, 2500, 496, 149)
             CanTeachAlways = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM15.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(205, True, 3000, 63)
+            MyBase.New(True, 3000, 63)
             CanTeachWhenFullyEvolved = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM150.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(450, True, 2000, 497, 150)
+            MyBase.New(True, 2000, 497, 150)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM151.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(451, True, 2000, 502, 151)
+            MyBase.New(True, 2000, 502, 151)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM152.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(452, True, 4000, 503, 152)
+            MyBase.New(True, 4000, 503, 152)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM153.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(453, True, 3000, 507, 153)
+            MyBase.New(True, 3000, 507, 153)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM154.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(454, True, 4000, 510, 154)
+            MyBase.New(True, 4000, 510, 154)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM155.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(455, True, 3000, 511, 155)
+            MyBase.New(True, 3000, 511, 155)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM156.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(456, True, 4000, 512, 156)
+            MyBase.New(True, 4000, 512, 156)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM157.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(457, True, 5500, 514, 157)
+            MyBase.New(True, 5500, 514, 157)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM158.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(158, True, 5000, 521, 158)
+            MyBase.New(True, 5000, 521, 158)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM159.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(459, True, 3000, 522, 159)
+            MyBase.New(True, 3000, 522, 159)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM16.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(206, True, 3000, 196)
+            MyBase.New(True, 3000, 196)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM160.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(460, True, 3000, 523, 160)
+            MyBase.New(True, 3000, 523, 160)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM161.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(461, True, 3000, 524, 161)
+            MyBase.New(True, 3000, 524, 161)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM162.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(462, True, 4000, 525, 162)
+            MyBase.New(True, 4000, 525, 162)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM163.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(463, True, 3000, 526, 163)
+            MyBase.New(True, 3000, 526, 163)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM164.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(464, True, 5000, 528, 164)
+            MyBase.New(True, 5000, 528, 164)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM165.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(465, True, 3000, 555, 165)
+            MyBase.New(True, 3000, 555, 165)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM166.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(466, True, 3000, 611, 166)
+            MyBase.New(True, 3000, 611, 166)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM167.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(467, True, 3000, 267, 167)
+            MyBase.New(True, 3000, 267, 167)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM168.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(468, True, 4000, 612, 168)
+            MyBase.New(True, 4000, 612, 168)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM169.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(469, True, 5000, 605, 169)
+            MyBase.New(True, 5000, 605, 169)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM17.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(207, True, 3000, 182)
+            MyBase.New(True, 3000, 182)
             CanTeachAlways = True
         End Sub
 

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM170.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(470, True, 2000, 590, 170)
+            MyBase.New(True, 2000, 590, 170)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM18.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(208, True, 2000, 240)
+            MyBase.New(True, 2000, 240)
         End Sub
 
     End Class

2.5DHero/2.5DHero/Pokemon/Items/Machines/TM19.vb

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(209, True, 3000, 202)
+            MyBase.New(True, 3000, 202)
         End Sub
 
     End Class