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

alolan prep stuff

This commit is contained in:
darkfire006 2019-02-18 23:40:44 -06:00
parent 45ec5e257d
commit f8ea96a577
12 changed files with 219 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Items/ItemSheet.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 137 KiB

After

Width:  |  Height:  |  Size: 75 KiB

8
P3D/P3D.vbproj
View File

@ -25638,6 +25638,11 @@
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory> <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content> </Content>
<Compile Include="Pokemon\Abilities\Aerilate.vb" /> <Compile Include="Pokemon\Abilities\Aerilate.vb" />
<Compile Include="Pokemon\Abilities\TanglingHair.vb" />
<Compile Include="Pokemon\Abilities\SlushRush.vb" />
<Compile Include="Pokemon\Abilities\PowerofAlchemy.vb" />
<Compile Include="Pokemon\Abilities\Galvanize.vb" />
<Compile Include="Pokemon\Abilities\SurgeSurfer.vb" />
<Compile Include="Pokemon\Abilities\ParentalBond.vb" /> <Compile Include="Pokemon\Abilities\ParentalBond.vb" />
<Compile Include="Pokemon\Attacks\Bug\PollenPuff.vb" /> <Compile Include="Pokemon\Attacks\Bug\PollenPuff.vb" />
<Compile Include="Pokemon\Attacks\Bug\FirstImpression.vb" /> <Compile Include="Pokemon\Attacks\Bug\FirstImpression.vb" />
@ -25722,10 +25727,13 @@
<Compile Include="Pokemon\Items\Machines\TM173.vb" /> <Compile Include="Pokemon\Items\Machines\TM173.vb" />
<Compile Include="Pokemon\Items\Standard\DouseDrive.vb" /> <Compile Include="Pokemon\Items\Standard\DouseDrive.vb" />
<Compile Include="Pokemon\Items\Standard\ChillDrive.vb" /> <Compile Include="Pokemon\Items\Standard\ChillDrive.vb" />
<Compile Include="Pokemon\Items\Standard\Snowball.vb" />
<Compile Include="Pokemon\Items\Standard\CellBattery.vb" />
<Compile Include="Pokemon\Items\Standard\FlameOrb.vb" /> <Compile Include="Pokemon\Items\Standard\FlameOrb.vb" />
<Compile Include="Pokemon\Items\Standard\ShockDrive.vb" /> <Compile Include="Pokemon\Items\Standard\ShockDrive.vb" />
<Compile Include="Pokemon\Items\Standard\BurnDrive.vb" /> <Compile Include="Pokemon\Items\Standard\BurnDrive.vb" />
<Compile Include="Pokemon\Items\Standard\ExpertBelt.vb" /> <Compile Include="Pokemon\Items\Standard\ExpertBelt.vb" />
<Compile Include="Pokemon\Items\Stones\IceStone.vb" />
<Compile Include="Resources\Blur\BlurHandler.vb" /> <Compile Include="Resources\Blur\BlurHandler.vb" />
<Content Include="Content\Data\Scripts\faraway\mewtwonite_y.dat"> <Content Include="Content\Data\Scripts\faraway\mewtwonite_y.dat">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory> <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>

184
P3D/Pokemon/Abilities/Ability.vb
View File

@ -415,98 +415,98 @@
Return New Abilities.FairyAura Return New Abilities.FairyAura
Case 188 Case 188
Return New Abilities.AuraBreak Return New Abilities.AuraBreak
'Case 189 'Case 189
'Primordial Sea 'Primordial Sea
'Case 190 'Case 190
'Desolate Land 'Desolate Land
'Case 191 'Case 191
'Delta Stream 'Delta Stream
'Case 192 'Case 192
'Stamina 'Stamina
'Case 193 'Case 193
'Wimp Out 'Wimp Out
'Case 194 'Case 194
'Emergency Exit 'Emergency Exit
'Case 195 'Case 195
'Water Compaction 'Water Compaction
'Case 196 'Case 196
'Merciless 'Merciless
'Case 197 'Case 197
'Shields Down 'Shields Down
'Case 198 'Case 198
'Stakeout 'Stakeout
'Case 199 'Case 199
'Water Bubble 'Water Bubble
'Case 200 'Case 200
'Steelworker 'Steelworker
'Case 201 'Case 201
'Berserk 'Berserk
'Case 202 Case 202
'Slush Rush Return New Abilities.SlushRush()
'Case 203 'Case 203
'Long Reach 'Long Reach
'Case 204 'Case 204
'Liquid Voice 'Liquid Voice
'Case 205 'Case 205
'Triage 'Triage
'Case 206 Case 206
'Galvanize Return New Abilities.Galvanize()
'Case 207 Case 207
'Surge Surfer Return New Abilities.SurgeSurfer()
'Case 208 'Case 208
'Schooling 'Schooling
'Case 209 'Case 209
'Disguise 'Disguise
'Case 210 'Case 210
'Battle Bond 'Battle Bond
'Case 211 'Case 211
'Power Construct 'Power Construct
'Case 212 'Case 212
'Corrosion 'Corrosion
'Case 213 'Case 213
'Comatose 'Comatose
'Case 214 'Case 214
'Queenly Majesty 'Queenly Majesty
'Case 215 'Case 215
'Innards Out 'Innards Out
'Case 216 'Case 216
'Dancer 'Dancer
'Case 217 'Case 217
'Battery 'Battery
'Case 218 'Case 218
'Fluffy 'Fluffy
'Case 219 'Case 219
'Dazzling 'Dazzling
'Case 220 'Case 220
'Soul-Heart 'Soul-Heart
'Case 221 Case 221
'Tangling Hair Return New Abilities.TanglingHair()
'Case 222 'Case 222
'Receiver 'Receiver
'Case 223 Case 223
'Power of Alchemy Return New Abilities.PowerofAlchemy()
'Case 224 'Case 224
'Beast Boost 'Beast Boost
'Case 225 'Case 225
'RKS System 'RKS System
'Case 226 'Case 226
'Electric Surge 'Electric Surge
'Case 227 'Case 227
'Psychic Surge 'Psychic Surge
'Case 228 'Case 228
'Misty Surge 'Misty Surge
'Case 229 'Case 229
'Grassy Surge 'Grassy Surge
'Case 230 'Case 230
'Full Metal Body 'Full Metal Body
'Case 231 'Case 231
'Shadow Shield 'Shadow Shield
'Case 232 'Case 232
'Prism Armor 'Prism Armor
'Case 233 'Case 233
'Neuroforce 'Neuroforce
'Case 234 'Case 234
'Blank 'Blank
Case Else Case Else
Return New Abilities.Stench Return New Abilities.Stench
End Select End Select

13
P3D/Pokemon/Abilities/Galvanize.vb Normal file
View File

@ -0,0 +1,13 @@
Namespace Abilities
Public Class Galvanize
Inherits Ability
Public Sub New()
MyBase.New(206, "Galvanize", "Normal-type moves become Electric-type moves. The power of those moves is boosted a little.")
End Sub
End Class
End Namespace

13
P3D/Pokemon/Abilities/PowerofAlchemy.vb Normal file
View File

@ -0,0 +1,13 @@
Namespace Abilities
Public Class PowerofAlchemy
Inherits Ability
Public Sub New()
MyBase.New(223, "Power of Alchemy", "The Pokémon copies the Ability of a defeated ally.")
End Sub
End Class
End Namespace

13
P3D/Pokemon/Abilities/SlushRush.vb Normal file
View File

@ -0,0 +1,13 @@
Namespace Abilities
Public Class SlushRush
Inherits Ability
Public Sub New()
MyBase.New(202, "Slush Rush", "Boosts the Pokémon's Speed stat in a hailstorm.")
End Sub
End Class
End Namespace

13
P3D/Pokemon/Abilities/SurgeSurfer.vb Normal file
View File

@ -0,0 +1,13 @@
Namespace Abilities
Public Class SurgeSurfer
Inherits Ability
Public Sub New()
MyBase.New(207, "Surge Surfer", "Doubles the Pokémon's Speed stat on Electric Terrain.")
End Sub
End Class
End Namespace

13
P3D/Pokemon/Abilities/TanglingHair.vb Normal file
View File

@ -0,0 +1,13 @@
Namespace Abilities
Public Class TanglingHair
Inherits Ability
Public Sub New()
MyBase.New(221, "Tangling Hair", "Contact with the Pokémon lowers the attacker's Speed stat.")
End Sub
End Class
End Namespace

19
P3D/Pokemon/Items/Standard/CellBattery.vb Normal file
View File

@ -0,0 +1,19 @@
Namespace Items.Standard
<Item(595, "CellBattery")>
Public Class CellBattery
Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It boosts Attack if hit with an Electric-type attack. It can only be used once."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
_textureRectangle = New Rectangle(192, 312, 24, 24)
End Sub
End Class
End Namespace

19
P3D/Pokemon/Items/Standard/Snowball.vb Normal file
View File

@ -0,0 +1,19 @@
Namespace Items.Standard
<Item(594, "Snowball")>
Public Class Snowball
Inherits Item
Public Overrides ReadOnly Property Description As String = "An item to be held by a Pokémon. It boosts Attack if hit with an Ice-type attack. It can only be used once."
Public Overrides ReadOnly Property PokeDollarPrice As Integer = 200
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Sub New()
_textureRectangle = New Rectangle(168, 312, 24, 24)
End Sub
End Class
End Namespace

16
P3D/Pokemon/Items/Stones/IceStone.vb Normal file
View File

@ -0,0 +1,16 @@
Namespace Items.Stones
<Item(593, "Ice Stone")>
Public Class IceStone
Inherits StoneItem
Public Overrides ReadOnly Property Description As String = "A peculiar stone that can make certain species of Pokémon evolve. It has an unmistakable snowflake pattern."
Public Sub New()
_textureRectangle = New Rectangle(144, 312, 24, 24)
End Sub
End Class
End Namespace

BIN
P3D/Pokemon/Items/_itemList.txt
View File

Binary file not shown.