tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Changed mega stone items

This commit is contained in:
nilllzz 2016-09-20 06:22:25 +02:00
parent 3d44fdf9db
commit 543f63f2a2
47 changed files with 94 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Abomasite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Abomasite", 507, New Rectangle(0, 0, 24, 24), "Abomasnow", 460)
MyBase.New("Abomasnow", 460)
_textureRectangle = New Rectangle(0, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Absolite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Absolite", 508, New Rectangle(24, 0, 24, 24), "Absol", 359)
MyBase.New("Absol", 359)
_textureRectangle = New Rectangle(24, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Aerodactylite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Aerodactylite", 509, New Rectangle(48, 0, 24, 24), "Aerodactyl", 142)
MyBase.New("Aerodactyl", 142)
_textureRectangle = New Rectangle(48, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Aggronite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Aggronite", 510, New Rectangle(72, 0, 24, 24), "Aggron", 306)
MyBase.New("Aggron", 306)
_textureRectangle = New Rectangle(72, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Alakazite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Alakazite", 511, New Rectangle(96, 0, 24, 24), "Alakazam", 65)
MyBase.New("Alakazam", 65)
_textureRectangle = New Rectangle(96, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Altarianite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Altarianite", 535, New Rectangle(0, 72, 24, 24), "Altaria", 334)
MyBase.New("Altaria", 334)
_textureRectangle = New Rectangle(0, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Ampharosite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Ampharosite", 512, New Rectangle(120, 0, 24, 24), "Ampharos", 181)
MyBase.New("Ampharos", 181)
_textureRectangle = New Rectangle(120, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Audinite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Audinite", 536, New Rectangle(24, 72, 24, 24), "Audino", 531)
MyBase.New("Audino", 531)
_textureRectangle = New Rectangle(24, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Banettite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Banettite", 513, New Rectangle(144, 0, 24, 24), "Banette", 354)
MyBase.New("Banette", 354)
_textureRectangle = New Rectangle(144, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Beedrillite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Beedrillite", 537, New Rectangle(48, 72, 24, 24), "Beedrill", 15)
MyBase.New("Beedrill", 15)
_textureRectangle = New Rectangle(48, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Blastoisinite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Blastoisinite", 514, New Rectangle(168, 0, 24, 24), "Blastoise", 9)
MyBase.New("Blastoise", 9)
_textureRectangle = New Rectangle(168, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Blazikenite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Blazikenite", 515, New Rectangle(192, 0, 24, 24), "Blaziken", 257)
MyBase.New("Blaziken", 257)
_textureRectangle = New Rectangle(192, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Cameruptite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Cameruptite", 538, New Rectangle(72, 72, 24, 24), "Camerupt", 323)
MyBase.New("Camerupt", 323)
_textureRectangle = New Rectangle(72, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/CharizarditeX.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Charizardite X", 516, New Rectangle(216, 0, 24, 24), "Charizard", 6)
MyBase.New("Charizard", 6)
_textureRectangle = New Rectangle(216, 0, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/CharizarditeY.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Charizardite Y", 517, New Rectangle(0, 24, 24, 24), "Charizard", 6)
MyBase.New("Charizard", 6)
_textureRectangle = New Rectangle(0, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Diancite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Diancite", 539, New Rectangle(96, 72, 24, 24), "Diancie", 719)
MyBase.New("Diancie", 719)
_textureRectangle = New Rectangle(96, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Galladite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Galladite", 540, New Rectangle(120, 72, 24, 24), "Gallade", 475)
MyBase.New("Gallade", 475)
_textureRectangle = New Rectangle(120, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Garchompite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Garchompite", 518, New Rectangle(24, 24, 24, 24), "Garchompite", 445)
MyBase.New("Garchompite", 445)
_textureRectangle = New Rectangle(24, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Gardevoirite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Gardevoirite", 519, New Rectangle(48, 24, 24, 24), "Gardevoir", 282)
MyBase.New("Gardevoir", 282)
_textureRectangle = New Rectangle(48, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Gengarite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Gengarite", 520, New Rectangle(72, 24, 24, 24), "Gengar", 94)
MyBase.New("Gengar", 94)
_textureRectangle = New Rectangle(72, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Glalitite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Glalitite", 541, New Rectangle(144, 72, 24, 24), "Glalie", 362)
MyBase.New("Glalie", 362)
_textureRectangle = New Rectangle(144, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Gyaradosite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Gyaradosite", 521, New Rectangle(96, 24, 24, 24), "Gyarados", 130)
MyBase.New("Gyarados", 130)
_textureRectangle = New Rectangle(96, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Heracronite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Heracronite", 522, New Rectangle(120, 24, 24, 24), "Heracross", 214)
MyBase.New("Heracross", 214)
_textureRectangle = New Rectangle(120, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Houndoominite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Houndoominite", 523, New Rectangle(144, 24, 24, 24), "Houndoom", 229)
MyBase.New("Houndoom", 229)
_textureRectangle = New Rectangle(144, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Kangaskhanite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Kangaskhanite", 524, New Rectangle(168, 24, 24, 24), "Kangaskhan", 115)
MyBase.New("Kangaskhan", 115)
_textureRectangle = New Rectangle(168, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Latiasite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Latiasite", 542, New Rectangle(168, 72, 24, 24), "Latias", 380)
MyBase.New("Latias", 380)
_textureRectangle = New Rectangle(168, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Latiosite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Latiosite", 543, New Rectangle(192, 72, 24, 24), "Latios", 381)
MyBase.New("Latios", 381)
_textureRectangle = New Rectangle(192, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Lopunnite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Lopunnite", 544, New Rectangle(216, 72, 24, 24), "Lopunny", 428)
MyBase.New("Lopunny", 428)
_textureRectangle = New Rectangle(216, 72, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Lucarionite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Lucarionite", 525, New Rectangle(192, 24, 24, 24), "Lucario", 448)
MyBase.New("Lucario", 448)
_textureRectangle = New Rectangle(192, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Manectite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Manectite", 526, New Rectangle(216, 24, 24, 24), "Manectric", 310)
MyBase.New("Manectric", 310)
_textureRectangle = New Rectangle(216, 24, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Mawilite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Mawilite", 527, New Rectangle(0, 48, 24, 24), "Mawile", 303)
MyBase.New("Mawile", 303)
_textureRectangle = New Rectangle(0, 48, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Medichamite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Medichamite", 528, New Rectangle(24, 48, 24, 24), "Medicham", 308)
MyBase.New("Medicham", 308)
_textureRectangle = New Rectangle(24, 48, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Metagrossite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Metagrossite", 545, New Rectangle(0, 96, 24, 24), "Metagross", 376)
MyBase.New("Metagross", 376)
_textureRectangle = New Rectangle(0, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/MewtwoniteX.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Mewtwonite X", 529, New Rectangle(48, 48, 24, 24), "Mewtwo", 150)
MyBase.New("Mewtwo", 150)
_textureRectangle = New Rectangle(48, 48, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/MewtwoniteY.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Mewtwonite Y", 530, New Rectangle(72, 48, 24, 24), "Mewtwo", 150)
MyBase.New("Mewtwo", 150)
_textureRectangle = New Rectangle(72, 48, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Pidgeotite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Pidgeotite", 546, New Rectangle(24, 96, 24, 24), "Pidgeot", 18)
MyBase.New("Pidgeot", 18)
_textureRectangle = New Rectangle(24, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Pinsirite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Pinsirite", 531, New Rectangle(96, 48, 24, 24), "Pinsir", 127)
MyBase.New("Pinsir", 127)
_textureRectangle = New Rectangle(96, 48, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Sablenite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Sablenite", 547, New Rectangle(48, 96, 24, 24), "Sableye", 302)
MyBase.New("Sableye", 302)
_textureRectangle = New Rectangle(48, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Salamencite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Salamencite", 548, New Rectangle(72, 96, 24, 24), "Salamence", 373)
MyBase.New("Salamence", 373)
_textureRectangle = New Rectangle(72, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Sceptilite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Sceptilite", 549, New Rectangle(96, 96, 24, 24), "Sceptile", 254)
MyBase.New("Sceptile", 254)
_textureRectangle = New Rectangle(96, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Scizorite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Scizorite", 532, New Rectangle(120, 48, 24, 24), "Scizor", 212)
MyBase.New("Scizor", 212)
_textureRectangle = New Rectangle(120, 48, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Sharpedonite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Sharpedonite", 550, New Rectangle(120, 96, 24, 24), "Sharpedo", 319)
MyBase.New("Sharpedo", 319)
_textureRectangle = New Rectangle(120, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Slowbronite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Slowbronite", 551, New Rectangle(144, 96, 24, 24), "Slowbro", 80)
MyBase.New("Slowbro", 80)
_textureRectangle = New Rectangle(144, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Steelixite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Steelixite", 552, New Rectangle(168, 96, 24, 24), "Steelix", 208)
MyBase.New("Steelix", 208)
_textureRectangle = New Rectangle(168, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Swampertite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Swampertite", 553, New Rectangle(192, 96, 24, 24), "Swampert", 260)
MyBase.New("Swampert", 260)
_textureRectangle = New Rectangle(192, 96, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Tyranitarite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Tyranitarite", 533, New Rectangle(144, 48, 24, 24), "Tyranitar", 248)
MyBase.New("Tyranitar", 248)
_textureRectangle = New Rectangle(144, 48, 24, 24)
End Sub
End Class

3
2.5DHero/2.5DHero/Pokemon/Items/MegaStones/Venusaurite.vb
View File

@ -9,7 +9,8 @@ Namespace Items.MegaStones
Inherits MegaStone
Public Sub New()
MyBase.New("Venusaurite", 534, New Rectangle(168, 48, 24, 24), "Venusaur", 3)
MyBase.New("Venusaur", 3)
_textureRectangle = New Rectangle(168, 48, 24, 24)
End Sub
End Class