Changed machine items

This commit is contained in:
nilllzz 2016-09-20 06:09:15 +02:00
parent a0b02a3b31
commit a025a626f9
181 changed files with 183 additions and 201 deletions

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

Some files were not shown because too many files have changed in this diff Show More