diff --git a/P3D/Content/Sounds/Battle/Attacks/Normal/Leer.wav b/P3D/Content/Sounds/Battle/Attacks/Normal/Leer.wav new file mode 100644 index 000000000..1c7de250a Binary files /dev/null and b/P3D/Content/Sounds/Battle/Attacks/Normal/Leer.wav differ diff --git a/P3D/Content/Textures/Battle/Normal/Leer.png b/P3D/Content/Textures/Battle/Normal/Leer.png new file mode 100644 index 000000000..7688035db Binary files /dev/null and b/P3D/Content/Textures/Battle/Normal/Leer.png differ diff --git a/P3D/P3D.vbproj b/P3D/P3D.vbproj index b5f8a06fd..d43d418e3 100644 --- a/P3D/P3D.vbproj +++ b/P3D/P3D.vbproj @@ -14723,6 +14723,9 @@ PreserveNewest + + PreserveNewest + PreserveNewest @@ -14789,6 +14792,9 @@ PreserveNewest + + PreserveNewest + PreserveNewest diff --git a/P3D/Pokemon/Attacks/Normal/Leer.vb b/P3D/Pokemon/Attacks/Normal/Leer.vb index 007f8545e..8278ace81 100644 --- a/P3D/Pokemon/Attacks/Normal/Leer.vb +++ b/P3D/Pokemon/Attacks/Normal/Leer.vb @@ -63,6 +63,26 @@ End If 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 ModelEntity) + Dim MoveAnimation As AnimationQueryObject = New AnimationQueryObject(CurrentEntity, BattleFlip) + MoveAnimation.AnimationPlaySound("Battle\Attacks\Normal\Leer", 0, 0) + Dim SpawnEntity = MoveAnimation.SpawnEntity(New Vector3(0, 0.1, 0.1), TextureManager.GetTexture("Textures\Battle\Normal\Leer"), New Vector3(0.5F), 1.0F, 0, 2) + MoveAnimation.AnimationScale(SpawnEntity, False, True, 0.7, 0.7, 0.7, 0.05, 0, 0.5) + MoveAnimation.AnimationScale(SpawnEntity, False, False, 0.5, 0.5, 0.5, 0.05, 0.5, 0.5) + MoveAnimation.AnimationScale(SpawnEntity, False, True, 0.7, 0.7, 0.7, 0.05, 1.0, 0.5) + MoveAnimation.AnimationScale(SpawnEntity, False, False, 0.5, 0.5, 0.5, 0.05, 1.5, 0.5) + MoveAnimation.AnimationFade(SpawnEntity, True, 1.0F, False, 0.0F, 2, 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 ModelEntity) + Dim MoveAnimation As AnimationQueryObject = New AnimationQueryObject(CurrentEntity, BattleFlip, CurrentModel) + MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 0, 0.5) + MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.1, 0.025, False, False, 0.75, 0.5) + MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 1.75, 0.5) + MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.1, 0.025, False, False, 2.75, 0.5) + MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0, 0.025, False, False, 3.5, 0.5) + BattleScreen.BattleQuery.Add(MoveAnimation) + End Sub End Class End Namespace \ No newline at end of file