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>
</Content>
<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\Attacks\Bug\PollenPuff.vb" />
<Compile Include="Pokemon\Attacks\Bug\FirstImpression.vb" />
@ -25722,10 +25727,13 @@
<Compile Include="Pokemon\Items\Machines\TM173.vb" />
<Compile Include="Pokemon\Items\Standard\DouseDrive.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\ShockDrive.vb" />
<Compile Include="Pokemon\Items\Standard\BurnDrive.vb" />
<Compile Include="Pokemon\Items\Standard\ExpertBelt.vb" />
<Compile Include="Pokemon\Items\Stones\IceStone.vb" />
<Compile Include="Resources\Blur\BlurHandler.vb" />
<Content Include="Content\Data\Scripts\faraway\mewtwonite_y.dat">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>

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

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