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

Added Gust move animation

This commit is contained in:
JappaWakka 2022-12-19 18:56:46 +01:00
parent 7468fb38b1
commit 5618b0c4db
3 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Sounds/Battle/Attacks/Flying/Gust.wav Normal file
View File

Binary file not shown.

BIN
P3D/Content/Textures/Battle/Flying/Gust.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.9 KiB

40
P3D/Pokemon/Attacks/Flying/Gust.vb
View File

@ -71,7 +71,47 @@
Return Me.Power
End If
End Function
Public Overrides Sub InternalUserPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC)
Dim MoveAnimation = New AnimationQueryObject(CurrentEntity, BattleFlip)
MoveAnimation.AnimationPlaySound("Battle\Attacks\Flying\Gust", 0, 0)
Dim GustEntity = MoveAnimation.SpawnEntity(New Vector3(0), TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), New Vector3(0.5F, 1.0F, 0.5F), 1.0F)
MoveAnimation.AnimationMove(GustEntity, True, 2.0, 0.0, 0.0, 0.04, False, False, 0.0, 0.0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 0.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 1, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 1.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 2.0, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 2.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 3.0, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 3.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 4.0, 0.5)
BattleScreen.BattleQuery.Add(MoveAnimation)
End Sub
Public Overrides Sub InternalOpponentPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC)
Dim MoveAnimation = New AnimationQueryObject(CurrentEntity, BattleFlip)
MoveAnimation.AnimationPlaySound("Battle\Attacks\Flying\Gust", 0, 0)
Dim GustEntity = MoveAnimation.SpawnEntity(New Vector3(-2, 0, 0), TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), New Vector3(0.5F, 1.0F, 0.5F), 1.0F)
MoveAnimation.AnimationMove(GustEntity, False, -0.05, 0.0, 0.0, 0.04, False, False, 0.0, 0.0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 0.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 1, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 1.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 2.0, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 2.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 3.0, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 3.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 4.0, 0.5)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 4.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 5.0, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, False, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(32, 0, 32, 64), ""), 5.5, 0)
MoveAnimation.AnimationChangeTexture(GustEntity, True, TextureManager.GetTexture("Textures\Battle\Flying\Gust", New Rectangle(0, 0, 32, 64), ""), 6.0, 0.5)
BattleScreen.BattleQuery.Add(MoveAnimation)
End Sub
End Class
End Namespace