Fixed machine ctors

2.5DHero/2.5DHero/Pokemon/Items/Berries/OranBerry.vb

@@ -5,6 +5,8 @@ Namespace Items.Berries
 
         Inherits Berry
 
+        Public Overrides ReadOnly Property IsHealingItem As Boolean = True
+
         Public Sub New()
             MyBase.New(10800, "A Berry to be consumed by Pokémon. If a Pokémon holds one, it can restore its own HP by 10 points during battle.", "3.5cm", "Super Hard", 2, 3)
 
@@ -16,8 +18,6 @@ Namespace Items.Berries
 
             Me.Type = Element.Types.Poison
             Me.Power = 60
-
-            Me._isHealingItem = True
         End Sub
 
         Public Overrides Sub Use()

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

@@ -5,11 +5,11 @@ Namespace Items.Machines
 
         Inherits TechMachine
 
+        Public Overrides ReadOnly Property BattlePointsPrice As Integer = 32
+
         Public Sub New()
             MyBase.New(True, 3000, 92)
             CanTeachAlways = True
-
-            Me._battlePointsPrice = 32
         End Sub
 
     End Class

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

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(True, 3000, 53, 100)
+            MyBase.New(True, 3000, 53)
         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(True, 2000, 317, 101)
+            MyBase.New(True, 2000, 317)
         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(True, 2000, 332, 102)
+            MyBase.New(True, 2000, 332)
         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(True, 1500, 259, 103)
+            MyBase.New(True, 1500, 259)
         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(True, 3000, 263, 104)
+            MyBase.New(True, 3000, 263)
             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(True, 2000, 290, 105)
+            MyBase.New(True, 2000, 290)
             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(True, 3000, 285, 106)
+            MyBase.New(True, 3000, 285)
         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(True, 1500, 289, 107)
+            MyBase.New(True, 1500, 289)
         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(True, 5500, 315, 108)
+            MyBase.New(True, 5500, 315)
         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(True, 2000, 355, 109)
+            MyBase.New(True, 2000, 355)
         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(True, 5500, 411, 110)
+            MyBase.New(True, 5500, 411)
         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(True, 3000, 412, 111)
+            MyBase.New(True, 3000, 412)
         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(True, 2000, 206, 112)
+            MyBase.New(True, 2000, 206)
         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(True, 3000, 362, 113)
+            MyBase.New(True, 3000, 362)
         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(True, 2000, 374, 114)
+            MyBase.New(True, 2000, 374)
         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(True, 3000, 451, 115)
+            MyBase.New(True, 3000, 451)
         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(True, 3000, 406, 116)
+            MyBase.New(True, 3000, 406)
         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(True, 3000, 409, 117)
+            MyBase.New(True, 3000, 409)
         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(True, 2000, 261, 118)
+            MyBase.New(True, 2000, 261)
         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(True, 3000, 318, 119)
+            MyBase.New(True, 3000, 318)
         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(True, 2000, 373, 120)
+            MyBase.New(True, 2000, 373)
         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(True, 3000, 421, 121)
+            MyBase.New(True, 3000, 421)
         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(True, 3000, 371, 122)
+            MyBase.New(True, 3000, 371)
         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(True, 1000, 278, 123)
+            MyBase.New(True, 1000, 278)
         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(True, 3000, 416, 124)
+            MyBase.New(True, 3000, 416)
             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(True, 1500, 397, 125)
+            MyBase.New(True, 1500, 397)
         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(True, 1000, 432, 126)
+            MyBase.New(True, 1000, 432)
         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(True, 3000, 444, 127)
+            MyBase.New(True, 3000, 444)
         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(True, 3000, 419, 128)
+            MyBase.New(True, 3000, 419)
         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(True, 3000, 360, 129)
+            MyBase.New(True, 3000, 360)
         End Sub
 
     End Class

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

@@ -6,7 +6,7 @@ Namespace Items.Machines
         Inherits TechMachine
 
         Public Sub New()
-            MyBase.New(True, 2000, 446, 130)
+            MyBase.New(True, 2000, 446)
         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(True, 1500, 445, 131)
+            MyBase.New(True, 1500, 445)
             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(True, 3000, 399, 132)
+            MyBase.New(True, 3000, 399)
         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(True, 3000, 404, 133)
+            MyBase.New(True, 3000, 404)
         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(True, 2000, 363, 134)
+            MyBase.New(True, 2000, 363)
             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(True, 3000, 398, 135)
+            MyBase.New(True, 3000, 398)
         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(True, 3000, 447, 136)
+            MyBase.New(True, 3000, 447)
         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(True, 3000, 365, 137)
+            MyBase.New(True, 3000, 365)
         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(True, 3000, 369, 138)
+            MyBase.New(True, 3000, 369)
         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(True, 3000, 430, 139)
+            MyBase.New(True, 3000, 430)
         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(True, 5500, 433, 140)
+            MyBase.New(True, 5500, 433)
         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(True, 3000, 468, 141)
+            MyBase.New(True, 3000, 468)
         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(True, 3000, 473, 142)
+            MyBase.New(True, 3000, 473)
         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(True, 4000, 474, 143)
+            MyBase.New(True, 4000, 474)
         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(True, 2000, 477, 144)
+            MyBase.New(True, 2000, 477)
         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(True, 2000, 479, 145)
+            MyBase.New(True, 2000, 479)
         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(True, 3500, 482, 146)
+            MyBase.New(True, 3500, 482)
         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(True, 3000, 448, 147)
+            MyBase.New(True, 3000, 448)
         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(True, 3000, 490, 148)
+            MyBase.New(True, 3000, 490)
         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(True, 2500, 496, 149)
+            MyBase.New(True, 2500, 496)
             CanTeachAlways = 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(True, 2000, 497, 150)
+            MyBase.New(True, 2000, 497)
         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(True, 2000, 502, 151)
+            MyBase.New(True, 2000, 502)
         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(True, 4000, 503, 152)
+            MyBase.New(True, 4000, 503)
         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(True, 3000, 507, 153)
+            MyBase.New(True, 3000, 507)
         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(True, 4000, 510, 154)
+            MyBase.New(True, 4000, 510)
         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(True, 3000, 511, 155)
+            MyBase.New(True, 3000, 511)
         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(True, 4000, 512, 156)
+            MyBase.New(True, 4000, 512)
         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(True, 5500, 514, 157)
+            MyBase.New(True, 5500, 514)
         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(True, 5000, 521, 158)
+            MyBase.New(True, 5000, 521)
         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(True, 3000, 522, 159)
+            MyBase.New(True, 3000, 522)
         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(True, 3000, 523, 160)
+            MyBase.New(True, 3000, 523)
         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(True, 3000, 524, 161)
+            MyBase.New(True, 3000, 524)
         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(True, 4000, 525, 162)
+            MyBase.New(True, 4000, 525)
         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(True, 3000, 526, 163)
+            MyBase.New(True, 3000, 526)
         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(True, 5000, 528, 164)
+            MyBase.New(True, 5000, 528)
         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(True, 3000, 555, 165)
+            MyBase.New(True, 3000, 555)
         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(True, 3000, 611, 166)
+            MyBase.New(True, 3000, 611)
         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(True, 3000, 267, 167)
+            MyBase.New(True, 3000, 267)
         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(True, 4000, 612, 168)
+            MyBase.New(True, 4000, 612)
         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(True, 5000, 605, 169)
+            MyBase.New(True, 5000, 605)
         End Sub
 
     End Class

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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