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 Water Gun move animation

This commit is contained in:
JappaWakka 2022-07-18 13:33:31 +02:00
parent f103caa5f2
commit acbf4e1b5c
4 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Sounds/Battle/Attacks/Water/WaterGun_Hit.wav Normal file
View File

Binary file not shown.

BIN
P3D/Content/Sounds/Battle/Attacks/Water/WaterGun_Start.wav Normal file
View File

Binary file not shown.

9
P3D/P3D.vbproj
View File

@ -14765,6 +14765,12 @@
<Content Include="Content\Sounds\Battle\Attacks\Water\Clamp.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Sounds\Battle\Attacks\Water\WaterGun_Hit.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Sounds\Battle\Attacks\Water\WaterGun_Start.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Sounds\Battle\Attacks\Water\Whirlpool.wav">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
@ -15554,6 +15560,9 @@
<Content Include="Content\Textures\Battle\Water\Clamp_Right.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Textures\Battle\Water\WaterGun.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Content\Textures\Battle\Water\Whirlpool.png">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>

34
P3D/Pokemon/Attacks/Water/WaterGun.vb
View File

@ -52,6 +52,40 @@
'#End
End Sub
Public Overrides Sub InternalUserPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC, ByVal CurrentModel As Entity)
Dim MoveAnimation = New AnimationQueryObject(CurrentEntity, BattleFlip)
Dim WaterEntity = MoveAnimation.SpawnEntity(New Vector3(0), TextureManager.GetTexture("Textures\Battle\Water\WaterGun", New Rectangle(0, 0, 16, 16), ""), New Vector3(0.5F), 0.75F)
MoveAnimation.AnimationMove(WaterEntity, True, 2, 0.5, 0, 0.075, False, False, 0, 0,,,, 0.05)
MoveAnimation.AnimationPlaySound("Battle\Attacks\Water\Watergun_Start", 0, 0)
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, ByVal CurrentModel As Entity)
Dim MoveAnimation = New AnimationQueryObject(CurrentEntity, BattleFlip)
Dim WaterEntity = MoveAnimation.SpawnEntity(New Vector3(-2, 1, 0), TextureManager.GetTexture("Textures\Battle\Water\WaterGun", New Rectangle(0, 0, 16, 16), ""), New Vector3(0.5F), 0.75F)
MoveAnimation.AnimationMove(WaterEntity, True, 0, 0, 0, 0.075, False, False, 0, 0,,,, 0.035)
MoveAnimation.AnimationPlaySound("Battle\Attacks\Water\Watergun_Hit", 3, 0)
Dim HitEntity = MoveAnimation.SpawnEntity(New Vector3(0, -0.2, 0), TextureManager.GetTexture("Textures\Battle\Water\WaterGun", New Rectangle(0, 16, 16, 16), ""), New Vector3(0.5F), 0.75F, 3, 1)
MoveAnimation.AnimationFade(HitEntity, True, 1.0F, False, 0.0F, 5, 0)
Dim WaterDrop1Position As Vector3 = New Vector3(-0.25, 0.25, -0.25)
Dim WaterDrop2Position As Vector3 = New Vector3(0, 0.25, 0)
Dim WaterDrop3Position As Vector3 = New Vector3(0.25, 0.25, 0.25)
If BattleFlip = True Then
WaterDrop1Position = New Vector3(-0.25, 0.25, 0.25)
WaterDrop3Position = New Vector3(0.25, 0.25, -0.25)
End If
Dim WaterDropEntity1 As Entity = MoveAnimation.SpawnEntity(WaterDrop1Position, TextureManager.GetTexture("Textures\Battle\Water\WaterGun", New Rectangle(0, 32, 16, 16), ""), New Vector3(0.5F), 0.75F, 5, 0)
Dim WaterDropEntity2 As Entity = MoveAnimation.SpawnEntity(WaterDrop2Position, TextureManager.GetTexture("Textures\Battle\Water\WaterGun", New Rectangle(0, 32, 16, 16), ""), New Vector3(0.5F), 0.75F, 5, 0)
Dim WaterDropEntity3 As Entity = MoveAnimation.SpawnEntity(WaterDrop3Position, TextureManager.GetTexture("Textures\Battle\Water\WaterGun", New Rectangle(0, 32, 16, 16), ""), New Vector3(0.5F), 0.75F, 5, 0)
MoveAnimation.AnimationMove(WaterDropEntity1, True, WaterDrop1Position.X, -0.25, WaterDrop1Position.Z, 0.05F, False, False, 5, 0)
MoveAnimation.AnimationMove(WaterDropEntity2, True, WaterDrop2Position.X, -0.25, WaterDrop2Position.Z, 0.05F, False, False, 5, 0)
MoveAnimation.AnimationMove(WaterDropEntity3, True, WaterDrop3Position.X, -0.25, WaterDrop3Position.Z, 0.05F, False, False, 5, 0)
BattleScreen.BattleQuery.Add(MoveAnimation)
End Sub
End Class
End Namespace